packages feed

jsaddle-dom 0.1.0.3 → 0.2.0.0

raw patch · 1063 files changed

+70393/−70393 lines, 1063 filesdep ~gi-glibdep ~gi-gtkdep ~gi-webkit

Dependency ranges changed: gi-glib, gi-gtk, gi-webkit, haskell-gi-base

Files

jsaddle-dom.cabal view
@@ -1,1081 +1,1081 @@ name: jsaddle-dom-version: 0.1.0.3-cabal-version: >=1.22-build-type: Simple-license: MIT-license-file: LICENSE-maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>-synopsis: DOM library that uses jsaddle to support both GHCJS and WebKitGTK-description:-    Documentent Object Model (DOM) functions implemented using jsaddle.-    It works with both GHCJS and GHC.-category: Web-author: Hamish Mackenzie--source-repository head-    type: git-    location: https://github.com/ghcjs/jsaddle-dom--library--    if impl(ghcjs -any)-        build-depends:-            ghcjs-base >=0.2.0.0 && <0.3,-            ghcjs-prim -any,-            ghc-prim -any-    else-        build-depends:-            haskell-gi-base >= 0.17 && < 0.18,-            gi-glib >=2.0.2 && <2.1,-            gi-gtk >=3.0.2 && <3.1,-            gi-webkit >=3.0.2 && <3.1--    exposed-modules:-        Language.Javascript.JSaddle.DOM.Custom.AudioContext-        Language.Javascript.JSaddle.DOM.Custom.Database-        Language.Javascript.JSaddle.DOM.Custom.DOMError-        Language.Javascript.JSaddle.DOM.Custom.Geolocation-        Language.Javascript.JSaddle.DOM.Custom.MediaStreamTrack-        Language.Javascript.JSaddle.DOM.Custom.Navigator-        Language.Javascript.JSaddle.DOM.Custom.NavigatorUserMediaError-        Language.Javascript.JSaddle.DOM.Custom.PositionError-        Language.Javascript.JSaddle.DOM.Custom.RTCPeerConnection-        Language.Javascript.JSaddle.DOM.Custom.RTCPeerConnectionError-        Language.Javascript.JSaddle.DOM.Custom.SQLError-        Language.Javascript.JSaddle.DOM.Custom.SQLTransaction-        Language.Javascript.JSaddle.DOM.Custom.Window-        Language.Javascript.JSaddle.DOM.Custom.XMLHttpRequest-        Language.Javascript.JSaddle.DOM.Generated.ANGLEInstancedArrays-        Language.Javascript.JSaddle.DOM.Generated.AbstractView-        Language.Javascript.JSaddle.DOM.Generated.AbstractWorker-        Language.Javascript.JSaddle.DOM.Generated.AllAudioCapabilities-        Language.Javascript.JSaddle.DOM.Generated.AllVideoCapabilities-        Language.Javascript.JSaddle.DOM.Generated.AnalyserNode-        Language.Javascript.JSaddle.DOM.Generated.AnimationEvent-        Language.Javascript.JSaddle.DOM.Generated.Attr-        Language.Javascript.JSaddle.DOM.Generated.AudioBuffer-        Language.Javascript.JSaddle.DOM.Generated.AudioBufferCallback-        Language.Javascript.JSaddle.DOM.Generated.AudioBufferSourceNode-        Language.Javascript.JSaddle.DOM.Generated.AudioContext-        Language.Javascript.JSaddle.DOM.Generated.AudioDestinationNode-        Language.Javascript.JSaddle.DOM.Generated.AudioListener-        Language.Javascript.JSaddle.DOM.Generated.AudioNode-        Language.Javascript.JSaddle.DOM.Generated.AudioParam-        Language.Javascript.JSaddle.DOM.Generated.AudioProcessingEvent-        Language.Javascript.JSaddle.DOM.Generated.AudioStreamTrack-        Language.Javascript.JSaddle.DOM.Generated.AudioTrack-        Language.Javascript.JSaddle.DOM.Generated.AudioTrackList-        Language.Javascript.JSaddle.DOM.Generated.AutocompleteErrorEvent-        Language.Javascript.JSaddle.DOM.Generated.BarProp-        Language.Javascript.JSaddle.DOM.Generated.BatteryManager-        Language.Javascript.JSaddle.DOM.Generated.BeforeLoadEvent-        Language.Javascript.JSaddle.DOM.Generated.BeforeUnloadEvent-        Language.Javascript.JSaddle.DOM.Generated.BiquadFilterNode-        Language.Javascript.JSaddle.DOM.Generated.Blob-        Language.Javascript.JSaddle.DOM.Generated.CSSCharsetRule-        Language.Javascript.JSaddle.DOM.Generated.CSSFontFaceLoadEvent-        Language.Javascript.JSaddle.DOM.Generated.CSSFontFaceRule-        Language.Javascript.JSaddle.DOM.Generated.CSSImportRule-        Language.Javascript.JSaddle.DOM.Generated.CSSKeyframeRule-        Language.Javascript.JSaddle.DOM.Generated.CSSKeyframesRule-        Language.Javascript.JSaddle.DOM.Generated.CSSMediaRule-        Language.Javascript.JSaddle.DOM.Generated.CSSPageRule-        Language.Javascript.JSaddle.DOM.Generated.CSSPrimitiveValue-        Language.Javascript.JSaddle.DOM.Generated.CSSRule-        Language.Javascript.JSaddle.DOM.Generated.CSSRuleList-        Language.Javascript.JSaddle.DOM.Generated.CSSStyleDeclaration-        Language.Javascript.JSaddle.DOM.Generated.CSSStyleRule-        Language.Javascript.JSaddle.DOM.Generated.CSSStyleSheet-        Language.Javascript.JSaddle.DOM.Generated.CSSSupportsRule-        Language.Javascript.JSaddle.DOM.Generated.CSSValue-        Language.Javascript.JSaddle.DOM.Generated.CSSValueList-        Language.Javascript.JSaddle.DOM.Generated.CanvasGradient-        Language.Javascript.JSaddle.DOM.Generated.CanvasRenderingContext-        Language.Javascript.JSaddle.DOM.Generated.CanvasRenderingContext2D-        Language.Javascript.JSaddle.DOM.Generated.CapabilityRange-        Language.Javascript.JSaddle.DOM.Generated.CharacterData-        Language.Javascript.JSaddle.DOM.Generated.ChildNode-        Language.Javascript.JSaddle.DOM.Generated.ClientRect-        Language.Javascript.JSaddle.DOM.Generated.ClientRectList-        Language.Javascript.JSaddle.DOM.Generated.CloseEvent-        Language.Javascript.JSaddle.DOM.Generated.CommandLineAPIHost-        Language.Javascript.JSaddle.DOM.Generated.Comment-        Language.Javascript.JSaddle.DOM.Generated.CompositionEvent-        Language.Javascript.JSaddle.DOM.Generated.ConvolverNode-        Language.Javascript.JSaddle.DOM.Generated.Coordinates-        Language.Javascript.JSaddle.DOM.Generated.Counter-        Language.Javascript.JSaddle.DOM.Generated.Crypto-        Language.Javascript.JSaddle.DOM.Generated.CryptoKey-        Language.Javascript.JSaddle.DOM.Generated.CryptoKeyPair-        Language.Javascript.JSaddle.DOM.Generated.CustomEvent-        Language.Javascript.JSaddle.DOM.Generated.ApplicationCache-        Language.Javascript.JSaddle.DOM.Generated.DOMError-        Language.Javascript.JSaddle.DOM.Generated.FormData-        Language.Javascript.JSaddle.DOM.Generated.DOMImplementation-        Language.Javascript.JSaddle.DOM.Generated.MimeType-        Language.Javascript.JSaddle.DOM.Generated.MimeTypeArray-        Language.Javascript.JSaddle.DOM.Generated.DOMNamedFlowCollection-        Language.Javascript.JSaddle.DOM.Generated.DOMParser-        Language.Javascript.JSaddle.DOM.Generated.Path2D-        Language.Javascript.JSaddle.DOM.Generated.Plugin-        Language.Javascript.JSaddle.DOM.Generated.PluginArray-        Language.Javascript.JSaddle.DOM.Generated.SecurityPolicy-        Language.Javascript.JSaddle.DOM.Generated.Selection-        Language.Javascript.JSaddle.DOM.Generated.DOMSettableTokenList-        Language.Javascript.JSaddle.DOM.Generated.DOMStringList-        Language.Javascript.JSaddle.DOM.Generated.DOMTokenList-        Language.Javascript.JSaddle.DOM.Generated.URL-        Language.Javascript.JSaddle.DOM.Generated.Window-        Language.Javascript.JSaddle.DOM.Generated.CSS-        Language.Javascript.JSaddle.DOM.Generated.DataCue-        Language.Javascript.JSaddle.DOM.Generated.DataTransfer-        Language.Javascript.JSaddle.DOM.Generated.DataTransferItem-        Language.Javascript.JSaddle.DOM.Generated.DataTransferItemList-        Language.Javascript.JSaddle.DOM.Generated.Database-        Language.Javascript.JSaddle.DOM.Generated.DatabaseCallback-        Language.Javascript.JSaddle.DOM.Generated.DedicatedWorkerGlobalScope-        Language.Javascript.JSaddle.DOM.Generated.DelayNode-        Language.Javascript.JSaddle.DOM.Generated.DeviceMotionEvent-        Language.Javascript.JSaddle.DOM.Generated.DeviceOrientationEvent-        Language.Javascript.JSaddle.DOM.Generated.DeviceProximityEvent-        Language.Javascript.JSaddle.DOM.Generated.Document-        Language.Javascript.JSaddle.DOM.Generated.DocumentFragment-        Language.Javascript.JSaddle.DOM.Generated.DocumentType-        Language.Javascript.JSaddle.DOM.Generated.DynamicsCompressorNode-        Language.Javascript.JSaddle.DOM.Generated.EXTBlendMinMax-        Language.Javascript.JSaddle.DOM.Generated.EXTsRGB-        Language.Javascript.JSaddle.DOM.Generated.EXTTextureFilterAnisotropic-        Language.Javascript.JSaddle.DOM.Generated.Element-        Language.Javascript.JSaddle.DOM.Generated.Entity-        Language.Javascript.JSaddle.DOM.Generated.Enums-        Language.Javascript.JSaddle.DOM.Generated.ErrorEvent-        Language.Javascript.JSaddle.DOM.Generated.Event-        Language.Javascript.JSaddle.DOM.Generated.EventListener-        Language.Javascript.JSaddle.DOM.Generated.EventSource-        Language.Javascript.JSaddle.DOM.Generated.EventTarget-        Language.Javascript.JSaddle.DOM.Generated.File-        Language.Javascript.JSaddle.DOM.Generated.FileError-        Language.Javascript.JSaddle.DOM.Generated.FileList-        Language.Javascript.JSaddle.DOM.Generated.FileReader-        Language.Javascript.JSaddle.DOM.Generated.FileReaderSync-        Language.Javascript.JSaddle.DOM.Generated.FocusEvent-        Language.Javascript.JSaddle.DOM.Generated.FontLoader-        Language.Javascript.JSaddle.DOM.Generated.GainNode-        Language.Javascript.JSaddle.DOM.Generated.Gamepad-        Language.Javascript.JSaddle.DOM.Generated.GamepadButton-        Language.Javascript.JSaddle.DOM.Generated.GamepadEvent-        Language.Javascript.JSaddle.DOM.Generated.Geolocation-        Language.Javascript.JSaddle.DOM.Generated.Geoposition-        Language.Javascript.JSaddle.DOM.Generated.HTMLAllCollection-        Language.Javascript.JSaddle.DOM.Generated.HTMLAnchorElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLAppletElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLAreaElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLBRElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLBaseElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLBaseFontElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLBodyElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLButtonElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLCanvasElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLCollection-        Language.Javascript.JSaddle.DOM.Generated.HTMLDListElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLDataListElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLDetailsElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLDirectoryElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLDivElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLDocument-        Language.Javascript.JSaddle.DOM.Generated.HTMLElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLEmbedElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLFieldSetElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLFontElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLFormControlsCollection-        Language.Javascript.JSaddle.DOM.Generated.HTMLFormElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLFrameElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLFrameSetElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLHRElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLHeadElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLHeadingElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLHtmlElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLIFrameElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLImageElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLInputElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLKeygenElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLLIElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLLabelElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLLegendElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLLinkElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLMapElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLMarqueeElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLMediaElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLMenuElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLMetaElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLMeterElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLModElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLOListElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLObjectElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLOptGroupElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLOptionElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLOptionsCollection-        Language.Javascript.JSaddle.DOM.Generated.HTMLOutputElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLParagraphElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLParamElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLPreElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLProgressElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLQuoteElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLScriptElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLSelectElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLSourceElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLStyleElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTableCaptionElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTableCellElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTableColElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTableElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTableRowElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTableSectionElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTemplateElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTextAreaElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTitleElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLTrackElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLUListElement-        Language.Javascript.JSaddle.DOM.Generated.HTMLVideoElement-        Language.Javascript.JSaddle.DOM.Generated.HashChangeEvent-        Language.Javascript.JSaddle.DOM.Generated.History-        Language.Javascript.JSaddle.DOM.Generated.IDBCursor-        Language.Javascript.JSaddle.DOM.Generated.IDBCursorWithValue-        Language.Javascript.JSaddle.DOM.Generated.IDBDatabase-        Language.Javascript.JSaddle.DOM.Generated.IDBFactory-        Language.Javascript.JSaddle.DOM.Generated.IDBIndex-        Language.Javascript.JSaddle.DOM.Generated.IDBKeyRange-        Language.Javascript.JSaddle.DOM.Generated.IDBObjectStore-        Language.Javascript.JSaddle.DOM.Generated.IDBOpenDBRequest-        Language.Javascript.JSaddle.DOM.Generated.IDBRequest-        Language.Javascript.JSaddle.DOM.Generated.IDBTransaction-        Language.Javascript.JSaddle.DOM.Generated.IDBVersionChangeEvent-        Language.Javascript.JSaddle.DOM.Generated.ImageData-        Language.Javascript.JSaddle.DOM.Generated.InspectorFrontendHost-        Language.Javascript.JSaddle.DOM.Generated.InternalSettings-        Language.Javascript.JSaddle.DOM.Generated.Internals-        Language.Javascript.JSaddle.DOM.Generated.KeyboardEvent-        Language.Javascript.JSaddle.DOM.Generated.Location-        Language.Javascript.JSaddle.DOM.Generated.MallocStatistics-        Language.Javascript.JSaddle.DOM.Generated.MediaController-        Language.Javascript.JSaddle.DOM.Generated.MediaControlsHost-        Language.Javascript.JSaddle.DOM.Generated.MediaElementAudioSourceNode-        Language.Javascript.JSaddle.DOM.Generated.MediaError-        Language.Javascript.JSaddle.DOM.Generated.MediaKeyError-        Language.Javascript.JSaddle.DOM.Generated.MediaKeyEvent-        Language.Javascript.JSaddle.DOM.Generated.MediaKeyMessageEvent-        Language.Javascript.JSaddle.DOM.Generated.MediaKeyNeededEvent-        Language.Javascript.JSaddle.DOM.Generated.MediaKeySession-        Language.Javascript.JSaddle.DOM.Generated.MediaKeys-        Language.Javascript.JSaddle.DOM.Generated.MediaList-        Language.Javascript.JSaddle.DOM.Generated.MediaQueryList-        Language.Javascript.JSaddle.DOM.Generated.MediaQueryListListener-        Language.Javascript.JSaddle.DOM.Generated.MediaSource-        Language.Javascript.JSaddle.DOM.Generated.MediaSourceStates-        Language.Javascript.JSaddle.DOM.Generated.MediaStream-        Language.Javascript.JSaddle.DOM.Generated.MediaStreamAudioDestinationNode-        Language.Javascript.JSaddle.DOM.Generated.MediaStreamAudioSourceNode-        Language.Javascript.JSaddle.DOM.Generated.MediaStreamEvent-        Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrack-        Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackEvent-        Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackSourcesCallback-        Language.Javascript.JSaddle.DOM.Generated.MediaTrackConstraints-        Language.Javascript.JSaddle.DOM.Generated.MemoryInfo-        Language.Javascript.JSaddle.DOM.Generated.MessageChannel-        Language.Javascript.JSaddle.DOM.Generated.MessageEvent-        Language.Javascript.JSaddle.DOM.Generated.MessagePort-        Language.Javascript.JSaddle.DOM.Generated.MouseEvent-        Language.Javascript.JSaddle.DOM.Generated.MutationEvent-        Language.Javascript.JSaddle.DOM.Generated.MutationObserver-        Language.Javascript.JSaddle.DOM.Generated.MutationRecord-        Language.Javascript.JSaddle.DOM.Generated.NamedNodeMap-        Language.Javascript.JSaddle.DOM.Generated.Navigator-        Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaError-        Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaErrorCallback-        Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaSuccessCallback-        Language.Javascript.JSaddle.DOM.Generated.Node-        Language.Javascript.JSaddle.DOM.Generated.NodeFilter-        Language.Javascript.JSaddle.DOM.Generated.NodeIterator-        Language.Javascript.JSaddle.DOM.Generated.NodeList-        Language.Javascript.JSaddle.DOM.Generated.Notification-        Language.Javascript.JSaddle.DOM.Generated.NotificationCenter-        Language.Javascript.JSaddle.DOM.Generated.NotificationPermissionCallback-        Language.Javascript.JSaddle.DOM.Generated.OESStandardDerivatives-        Language.Javascript.JSaddle.DOM.Generated.OESTextureHalfFloat-        Language.Javascript.JSaddle.DOM.Generated.OESVertexArrayObject-        Language.Javascript.JSaddle.DOM.Generated.OfflineAudioCompletionEvent-        Language.Javascript.JSaddle.DOM.Generated.OfflineAudioContext-        Language.Javascript.JSaddle.DOM.Generated.OscillatorNode-        Language.Javascript.JSaddle.DOM.Generated.OverflowEvent-        Language.Javascript.JSaddle.DOM.Generated.PageTransitionEvent-        Language.Javascript.JSaddle.DOM.Generated.PannerNode-        Language.Javascript.JSaddle.DOM.Generated.Performance-        Language.Javascript.JSaddle.DOM.Generated.PerformanceEntry-        Language.Javascript.JSaddle.DOM.Generated.PerformanceEntryList-        Language.Javascript.JSaddle.DOM.Generated.PerformanceNavigation-        Language.Javascript.JSaddle.DOM.Generated.PerformanceResourceTiming-        Language.Javascript.JSaddle.DOM.Generated.PerformanceTiming-        Language.Javascript.JSaddle.DOM.Generated.PopStateEvent-        Language.Javascript.JSaddle.DOM.Generated.PositionCallback-        Language.Javascript.JSaddle.DOM.Generated.PositionError-        Language.Javascript.JSaddle.DOM.Generated.PositionErrorCallback-        Language.Javascript.JSaddle.DOM.Generated.ProcessingInstruction-        Language.Javascript.JSaddle.DOM.Generated.ProgressEvent-        Language.Javascript.JSaddle.DOM.Generated.QuickTimePluginReplacement-        Language.Javascript.JSaddle.DOM.Generated.RGBColor-        Language.Javascript.JSaddle.DOM.Generated.RTCConfiguration-        Language.Javascript.JSaddle.DOM.Generated.RTCDTMFSender-        Language.Javascript.JSaddle.DOM.Generated.RTCDTMFToneChangeEvent-        Language.Javascript.JSaddle.DOM.Generated.RTCDataChannel-        Language.Javascript.JSaddle.DOM.Generated.RTCDataChannelEvent-        Language.Javascript.JSaddle.DOM.Generated.RTCIceCandidate-        Language.Javascript.JSaddle.DOM.Generated.RTCIceCandidateEvent-        Language.Javascript.JSaddle.DOM.Generated.RTCIceServer-        Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnection-        Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnectionErrorCallback-        Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescription-        Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescriptionCallback-        Language.Javascript.JSaddle.DOM.Generated.RTCStatsCallback-        Language.Javascript.JSaddle.DOM.Generated.RTCStatsReport-        Language.Javascript.JSaddle.DOM.Generated.RTCStatsResponse-        Language.Javascript.JSaddle.DOM.Generated.RadioNodeList-        Language.Javascript.JSaddle.DOM.Generated.Range-        Language.Javascript.JSaddle.DOM.Generated.ReadableStream-        Language.Javascript.JSaddle.DOM.Generated.Rect-        Language.Javascript.JSaddle.DOM.Generated.RequestAnimationFrameCallback-        Language.Javascript.JSaddle.DOM.Generated.SQLError-        Language.Javascript.JSaddle.DOM.Generated.SQLResultSet-        Language.Javascript.JSaddle.DOM.Generated.SQLResultSetRowList-        Language.Javascript.JSaddle.DOM.Generated.SQLStatementCallback-        Language.Javascript.JSaddle.DOM.Generated.SQLStatementErrorCallback-        Language.Javascript.JSaddle.DOM.Generated.SQLTransaction-        Language.Javascript.JSaddle.DOM.Generated.SQLTransactionCallback-        Language.Javascript.JSaddle.DOM.Generated.SQLTransactionErrorCallback-        Language.Javascript.JSaddle.DOM.Generated.SVGAElement-        Language.Javascript.JSaddle.DOM.Generated.SVGAltGlyphElement-        Language.Javascript.JSaddle.DOM.Generated.SVGAngle-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedAngle-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedBoolean-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedEnumeration-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedInteger-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedLength-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedLengthList-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedNumber-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedNumberList-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedPreserveAspectRatio-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedRect-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedString-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedTransformList-        Language.Javascript.JSaddle.DOM.Generated.SVGAnimationElement-        Language.Javascript.JSaddle.DOM.Generated.SVGCircleElement-        Language.Javascript.JSaddle.DOM.Generated.SVGClipPathElement-        Language.Javascript.JSaddle.DOM.Generated.SVGColor-        Language.Javascript.JSaddle.DOM.Generated.SVGComponentTransferFunctionElement-        Language.Javascript.JSaddle.DOM.Generated.SVGCursorElement-        Language.Javascript.JSaddle.DOM.Generated.SVGDocument-        Language.Javascript.JSaddle.DOM.Generated.SVGElement-        Language.Javascript.JSaddle.DOM.Generated.SVGEllipseElement-        Language.Javascript.JSaddle.DOM.Generated.SVGExternalResourcesRequired-        Language.Javascript.JSaddle.DOM.Generated.SVGFEBlendElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEColorMatrixElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEComponentTransferElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFECompositeElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEConvolveMatrixElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEDiffuseLightingElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEDisplacementMapElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEDistantLightElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEDropShadowElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEGaussianBlurElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEImageElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEMergeNodeElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEMorphologyElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEOffsetElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFEPointLightElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFESpecularLightingElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFESpotLightElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFETileElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFETurbulenceElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFilterElement-        Language.Javascript.JSaddle.DOM.Generated.SVGFilterPrimitiveStandardAttributes-        Language.Javascript.JSaddle.DOM.Generated.SVGFitToViewBox-        Language.Javascript.JSaddle.DOM.Generated.SVGForeignObjectElement-        Language.Javascript.JSaddle.DOM.Generated.SVGGlyphRefElement-        Language.Javascript.JSaddle.DOM.Generated.SVGGradientElement-        Language.Javascript.JSaddle.DOM.Generated.SVGGraphicsElement-        Language.Javascript.JSaddle.DOM.Generated.SVGImageElement-        Language.Javascript.JSaddle.DOM.Generated.SVGLength-        Language.Javascript.JSaddle.DOM.Generated.SVGLengthList-        Language.Javascript.JSaddle.DOM.Generated.SVGLineElement-        Language.Javascript.JSaddle.DOM.Generated.SVGLinearGradientElement-        Language.Javascript.JSaddle.DOM.Generated.SVGMarkerElement-        Language.Javascript.JSaddle.DOM.Generated.SVGMaskElement-        Language.Javascript.JSaddle.DOM.Generated.SVGMatrix-        Language.Javascript.JSaddle.DOM.Generated.SVGNumber-        Language.Javascript.JSaddle.DOM.Generated.SVGNumberList-        Language.Javascript.JSaddle.DOM.Generated.SVGPaint-        Language.Javascript.JSaddle.DOM.Generated.SVGPathElement-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSeg-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegArcAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegArcRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicSmoothAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicSmoothRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticSmoothAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticSmoothRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoHorizontalAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoHorizontalRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoVerticalAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoVerticalRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegList-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegMovetoAbs-        Language.Javascript.JSaddle.DOM.Generated.SVGPathSegMovetoRel-        Language.Javascript.JSaddle.DOM.Generated.SVGPatternElement-        Language.Javascript.JSaddle.DOM.Generated.SVGPoint-        Language.Javascript.JSaddle.DOM.Generated.SVGPointList-        Language.Javascript.JSaddle.DOM.Generated.SVGPolygonElement-        Language.Javascript.JSaddle.DOM.Generated.SVGPolylineElement-        Language.Javascript.JSaddle.DOM.Generated.SVGPreserveAspectRatio-        Language.Javascript.JSaddle.DOM.Generated.SVGRadialGradientElement-        Language.Javascript.JSaddle.DOM.Generated.SVGRect-        Language.Javascript.JSaddle.DOM.Generated.SVGRectElement-        Language.Javascript.JSaddle.DOM.Generated.SVGRenderingIntent-        Language.Javascript.JSaddle.DOM.Generated.SVGScriptElement-        Language.Javascript.JSaddle.DOM.Generated.SVGSVGElement-        Language.Javascript.JSaddle.DOM.Generated.SVGStopElement-        Language.Javascript.JSaddle.DOM.Generated.SVGStringList-        Language.Javascript.JSaddle.DOM.Generated.SVGStyleElement-        Language.Javascript.JSaddle.DOM.Generated.SVGTests-        Language.Javascript.JSaddle.DOM.Generated.SVGTextContentElement-        Language.Javascript.JSaddle.DOM.Generated.SVGTextPathElement-        Language.Javascript.JSaddle.DOM.Generated.SVGTextPositioningElement-        Language.Javascript.JSaddle.DOM.Generated.SVGTransform-        Language.Javascript.JSaddle.DOM.Generated.SVGTransformList-        Language.Javascript.JSaddle.DOM.Generated.SVGURIReference-        Language.Javascript.JSaddle.DOM.Generated.SVGUnitTypes-        Language.Javascript.JSaddle.DOM.Generated.SVGUseElement-        Language.Javascript.JSaddle.DOM.Generated.SVGViewElement-        Language.Javascript.JSaddle.DOM.Generated.SVGViewSpec-        Language.Javascript.JSaddle.DOM.Generated.SVGZoomAndPan-        Language.Javascript.JSaddle.DOM.Generated.SVGZoomEvent-        Language.Javascript.JSaddle.DOM.Generated.Screen-        Language.Javascript.JSaddle.DOM.Generated.ScriptProcessorNode-        Language.Javascript.JSaddle.DOM.Generated.ScriptProfile-        Language.Javascript.JSaddle.DOM.Generated.ScriptProfileNode-        Language.Javascript.JSaddle.DOM.Generated.SecurityPolicyViolationEvent-        Language.Javascript.JSaddle.DOM.Generated.SourceBuffer-        Language.Javascript.JSaddle.DOM.Generated.SourceBufferList-        Language.Javascript.JSaddle.DOM.Generated.SourceInfo-        Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesis-        Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisEvent-        Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisUtterance-        Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisVoice-        Language.Javascript.JSaddle.DOM.Generated.Storage-        Language.Javascript.JSaddle.DOM.Generated.StorageErrorCallback-        Language.Javascript.JSaddle.DOM.Generated.StorageEvent-        Language.Javascript.JSaddle.DOM.Generated.StorageInfo-        Language.Javascript.JSaddle.DOM.Generated.StorageQuota-        Language.Javascript.JSaddle.DOM.Generated.StorageQuotaCallback-        Language.Javascript.JSaddle.DOM.Generated.StorageUsageCallback-        Language.Javascript.JSaddle.DOM.Generated.StringCallback-        Language.Javascript.JSaddle.DOM.Generated.StyleMedia-        Language.Javascript.JSaddle.DOM.Generated.StyleSheet-        Language.Javascript.JSaddle.DOM.Generated.StyleSheetList-        Language.Javascript.JSaddle.DOM.Generated.SubtleCrypto-        Language.Javascript.JSaddle.DOM.Generated.Text-        Language.Javascript.JSaddle.DOM.Generated.TextEvent-        Language.Javascript.JSaddle.DOM.Generated.TextMetrics-        Language.Javascript.JSaddle.DOM.Generated.TextTrack-        Language.Javascript.JSaddle.DOM.Generated.TextTrackCue-        Language.Javascript.JSaddle.DOM.Generated.TextTrackCueList-        Language.Javascript.JSaddle.DOM.Generated.TextTrackList-        Language.Javascript.JSaddle.DOM.Generated.TimeRanges-        Language.Javascript.JSaddle.DOM.Generated.Touch-        Language.Javascript.JSaddle.DOM.Generated.TouchEvent-        Language.Javascript.JSaddle.DOM.Generated.TouchList-        Language.Javascript.JSaddle.DOM.Generated.TrackEvent-        Language.Javascript.JSaddle.DOM.Generated.TransitionEvent-        Language.Javascript.JSaddle.DOM.Generated.TreeWalker-        Language.Javascript.JSaddle.DOM.Generated.TypeConversions-        Language.Javascript.JSaddle.DOM.Generated.UIEvent-        Language.Javascript.JSaddle.DOM.Generated.UIRequestEvent-        Language.Javascript.JSaddle.DOM.Generated.URLUtils-        Language.Javascript.JSaddle.DOM.Generated.UserMessageHandler-        Language.Javascript.JSaddle.DOM.Generated.VTTCue-        Language.Javascript.JSaddle.DOM.Generated.VTTRegion-        Language.Javascript.JSaddle.DOM.Generated.VTTRegionList-        Language.Javascript.JSaddle.DOM.Generated.ValidityState-        Language.Javascript.JSaddle.DOM.Generated.VideoPlaybackQuality-        Language.Javascript.JSaddle.DOM.Generated.VideoStreamTrack-        Language.Javascript.JSaddle.DOM.Generated.VideoTrack-        Language.Javascript.JSaddle.DOM.Generated.VideoTrackList-        Language.Javascript.JSaddle.DOM.Generated.VoidCallback-        Language.Javascript.JSaddle.DOM.Generated.WaveShaperNode-        Language.Javascript.JSaddle.DOM.Generated.WebGL2RenderingContext-        Language.Javascript.JSaddle.DOM.Generated.WebGLActiveInfo-        Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTextureATC-        Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTexturePVRTC-        Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTextureS3TC-        Language.Javascript.JSaddle.DOM.Generated.WebGLContextAttributes-        Language.Javascript.JSaddle.DOM.Generated.WebGLContextEvent-        Language.Javascript.JSaddle.DOM.Generated.WebGLDebugRendererInfo-        Language.Javascript.JSaddle.DOM.Generated.WebGLDebugShaders-        Language.Javascript.JSaddle.DOM.Generated.WebGLDepthTexture-        Language.Javascript.JSaddle.DOM.Generated.WebGLDrawBuffers-        Language.Javascript.JSaddle.DOM.Generated.WebGLLoseContext-        Language.Javascript.JSaddle.DOM.Generated.WebGLRenderingContextBase-        Language.Javascript.JSaddle.DOM.Generated.WebGLShaderPrecisionFormat-        Language.Javascript.JSaddle.DOM.Generated.WebKitAnimationEvent-        Language.Javascript.JSaddle.DOM.Generated.WebKitCSSFilterValue-        Language.Javascript.JSaddle.DOM.Generated.WebKitCSSMatrix-        Language.Javascript.JSaddle.DOM.Generated.WebKitCSSRegionRule-        Language.Javascript.JSaddle.DOM.Generated.WebKitCSSTransformValue-        Language.Javascript.JSaddle.DOM.Generated.WebKitCSSViewportRule-        Language.Javascript.JSaddle.DOM.Generated.WebKitNamedFlow-        Language.Javascript.JSaddle.DOM.Generated.WebKitNamespace-        Language.Javascript.JSaddle.DOM.Generated.WebKitPlaybackTargetAvailabilityEvent-        Language.Javascript.JSaddle.DOM.Generated.WebKitPoint-        Language.Javascript.JSaddle.DOM.Generated.WebKitTransitionEvent-        Language.Javascript.JSaddle.DOM.Generated.WebSocket-        Language.Javascript.JSaddle.DOM.Generated.WheelEvent-        Language.Javascript.JSaddle.DOM.Generated.WindowBase64-        Language.Javascript.JSaddle.DOM.Generated.WindowTimers-        Language.Javascript.JSaddle.DOM.Generated.Worker-        Language.Javascript.JSaddle.DOM.Generated.WorkerGlobalScope-        Language.Javascript.JSaddle.DOM.Generated.WorkerLocation-        Language.Javascript.JSaddle.DOM.Generated.WorkerNavigator-        Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequest-        Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequestProgressEvent-        Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequestUpload-        Language.Javascript.JSaddle.DOM.Generated.XMLSerializer-        Language.Javascript.JSaddle.DOM.Generated.XPathEvaluator-        Language.Javascript.JSaddle.DOM.Generated.XPathExpression-        Language.Javascript.JSaddle.DOM.Generated.XPathNSResolver-        Language.Javascript.JSaddle.DOM.Generated.XPathResult-        Language.Javascript.JSaddle.DOM.Generated.XSLTProcessor-        Language.Javascript.JSaddle.DOM-        Language.Javascript.JSaddle.DOM.EventM-        Language.Javascript.JSaddle.DOM.Types-        Language.Javascript.JSaddle.DOM.Enums-        Language.Javascript.JSaddle.DOM.EventTargetClosures--    reexported-modules:-          Language.Javascript.JSaddle.DOM.Custom.AudioContext as Language.Javascript.JSaddle.DOM.AudioContext-        , Language.Javascript.JSaddle.DOM.Custom.Database as Language.Javascript.JSaddle.DOM.Database-        , Language.Javascript.JSaddle.DOM.Custom.DOMError as Language.Javascript.JSaddle.DOM.DOMError-        , Language.Javascript.JSaddle.DOM.Custom.Geolocation as Language.Javascript.JSaddle.DOM.Geolocation-        , Language.Javascript.JSaddle.DOM.Custom.MediaStreamTrack as Language.Javascript.JSaddle.DOM.MediaStreamTrack-        , Language.Javascript.JSaddle.DOM.Custom.Navigator as Language.Javascript.JSaddle.DOM.Navigator-        , Language.Javascript.JSaddle.DOM.Custom.NavigatorUserMediaError as Language.Javascript.JSaddle.DOM.NavigatorUserMediaError-        , Language.Javascript.JSaddle.DOM.Custom.PositionError as Language.Javascript.JSaddle.DOM.PositionError-        , Language.Javascript.JSaddle.DOM.Custom.RTCPeerConnection as Language.Javascript.JSaddle.DOM.RTCPeerConnection-        , Language.Javascript.JSaddle.DOM.Custom.RTCPeerConnectionError as Language.Javascript.JSaddle.DOM.RTCPeerConnectionError-        , Language.Javascript.JSaddle.DOM.Custom.SQLError as Language.Javascript.JSaddle.DOM.SQLError-        , Language.Javascript.JSaddle.DOM.Custom.SQLTransaction as Language.Javascript.JSaddle.DOM.SQLTransaction-        , Language.Javascript.JSaddle.DOM.Custom.Window as Language.Javascript.JSaddle.DOM.Window-        , Language.Javascript.JSaddle.DOM.Custom.XMLHttpRequest as Language.Javascript.JSaddle.DOM.XMLHttpRequest-        , Language.Javascript.JSaddle.DOM.Generated.ANGLEInstancedArrays as Language.Javascript.JSaddle.DOM.ANGLEInstancedArrays-        , Language.Javascript.JSaddle.DOM.Generated.AbstractView as Language.Javascript.JSaddle.DOM.AbstractView-        , Language.Javascript.JSaddle.DOM.Generated.AbstractWorker as Language.Javascript.JSaddle.DOM.AbstractWorker-        , Language.Javascript.JSaddle.DOM.Generated.AllAudioCapabilities as Language.Javascript.JSaddle.DOM.AllAudioCapabilities-        , Language.Javascript.JSaddle.DOM.Generated.AllVideoCapabilities as Language.Javascript.JSaddle.DOM.AllVideoCapabilities-        , Language.Javascript.JSaddle.DOM.Generated.AnalyserNode as Language.Javascript.JSaddle.DOM.AnalyserNode-        , Language.Javascript.JSaddle.DOM.Generated.AnimationEvent as Language.Javascript.JSaddle.DOM.AnimationEvent-        , Language.Javascript.JSaddle.DOM.Generated.Attr as Language.Javascript.JSaddle.DOM.Attr-        , Language.Javascript.JSaddle.DOM.Generated.AudioBuffer as Language.Javascript.JSaddle.DOM.AudioBuffer-        , Language.Javascript.JSaddle.DOM.Generated.AudioBufferCallback as Language.Javascript.JSaddle.DOM.AudioBufferCallback-        , Language.Javascript.JSaddle.DOM.Generated.AudioBufferSourceNode as Language.Javascript.JSaddle.DOM.AudioBufferSourceNode-        , Language.Javascript.JSaddle.DOM.Generated.AudioDestinationNode as Language.Javascript.JSaddle.DOM.AudioDestinationNode-        , Language.Javascript.JSaddle.DOM.Generated.AudioListener as Language.Javascript.JSaddle.DOM.AudioListener-        , Language.Javascript.JSaddle.DOM.Generated.AudioNode as Language.Javascript.JSaddle.DOM.AudioNode-        , Language.Javascript.JSaddle.DOM.Generated.AudioParam as Language.Javascript.JSaddle.DOM.AudioParam-        , Language.Javascript.JSaddle.DOM.Generated.AudioProcessingEvent as Language.Javascript.JSaddle.DOM.AudioProcessingEvent-        , Language.Javascript.JSaddle.DOM.Generated.AudioStreamTrack as Language.Javascript.JSaddle.DOM.AudioStreamTrack-        , Language.Javascript.JSaddle.DOM.Generated.AudioTrack as Language.Javascript.JSaddle.DOM.AudioTrack-        , Language.Javascript.JSaddle.DOM.Generated.AudioTrackList as Language.Javascript.JSaddle.DOM.AudioTrackList-        , Language.Javascript.JSaddle.DOM.Generated.AutocompleteErrorEvent as Language.Javascript.JSaddle.DOM.AutocompleteErrorEvent-        , Language.Javascript.JSaddle.DOM.Generated.BarProp as Language.Javascript.JSaddle.DOM.BarProp-        , Language.Javascript.JSaddle.DOM.Generated.BatteryManager as Language.Javascript.JSaddle.DOM.BatteryManager-        , Language.Javascript.JSaddle.DOM.Generated.BeforeLoadEvent as Language.Javascript.JSaddle.DOM.BeforeLoadEvent-        , Language.Javascript.JSaddle.DOM.Generated.BeforeUnloadEvent as Language.Javascript.JSaddle.DOM.BeforeUnloadEvent-        , Language.Javascript.JSaddle.DOM.Generated.BiquadFilterNode as Language.Javascript.JSaddle.DOM.BiquadFilterNode-        , Language.Javascript.JSaddle.DOM.Generated.Blob as Language.Javascript.JSaddle.DOM.Blob-        , Language.Javascript.JSaddle.DOM.Generated.CSSCharsetRule as Language.Javascript.JSaddle.DOM.CSSCharsetRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSFontFaceLoadEvent as Language.Javascript.JSaddle.DOM.CSSFontFaceLoadEvent-        , Language.Javascript.JSaddle.DOM.Generated.CSSFontFaceRule as Language.Javascript.JSaddle.DOM.CSSFontFaceRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSImportRule as Language.Javascript.JSaddle.DOM.CSSImportRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSKeyframeRule as Language.Javascript.JSaddle.DOM.CSSKeyframeRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSKeyframesRule as Language.Javascript.JSaddle.DOM.CSSKeyframesRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSMediaRule as Language.Javascript.JSaddle.DOM.CSSMediaRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSPageRule as Language.Javascript.JSaddle.DOM.CSSPageRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSPrimitiveValue as Language.Javascript.JSaddle.DOM.CSSPrimitiveValue-        , Language.Javascript.JSaddle.DOM.Generated.CSSRule as Language.Javascript.JSaddle.DOM.CSSRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSRuleList as Language.Javascript.JSaddle.DOM.CSSRuleList-        , Language.Javascript.JSaddle.DOM.Generated.CSSStyleDeclaration as Language.Javascript.JSaddle.DOM.CSSStyleDeclaration-        , Language.Javascript.JSaddle.DOM.Generated.CSSStyleRule as Language.Javascript.JSaddle.DOM.CSSStyleRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSStyleSheet as Language.Javascript.JSaddle.DOM.CSSStyleSheet-        , Language.Javascript.JSaddle.DOM.Generated.CSSSupportsRule as Language.Javascript.JSaddle.DOM.CSSSupportsRule-        , Language.Javascript.JSaddle.DOM.Generated.CSSValue as Language.Javascript.JSaddle.DOM.CSSValue-        , Language.Javascript.JSaddle.DOM.Generated.CSSValueList as Language.Javascript.JSaddle.DOM.CSSValueList-        , Language.Javascript.JSaddle.DOM.Generated.CanvasGradient as Language.Javascript.JSaddle.DOM.CanvasGradient-        , Language.Javascript.JSaddle.DOM.Generated.CanvasRenderingContext as Language.Javascript.JSaddle.DOM.CanvasRenderingContext-        , Language.Javascript.JSaddle.DOM.Generated.CanvasRenderingContext2D as Language.Javascript.JSaddle.DOM.CanvasRenderingContext2D-        , Language.Javascript.JSaddle.DOM.Generated.CapabilityRange as Language.Javascript.JSaddle.DOM.CapabilityRange-        , Language.Javascript.JSaddle.DOM.Generated.CharacterData as Language.Javascript.JSaddle.DOM.CharacterData-        , Language.Javascript.JSaddle.DOM.Generated.ChildNode as Language.Javascript.JSaddle.DOM.ChildNode-        , Language.Javascript.JSaddle.DOM.Generated.ClientRect as Language.Javascript.JSaddle.DOM.ClientRect-        , Language.Javascript.JSaddle.DOM.Generated.ClientRectList as Language.Javascript.JSaddle.DOM.ClientRectList-        , Language.Javascript.JSaddle.DOM.Generated.CloseEvent as Language.Javascript.JSaddle.DOM.CloseEvent-        , Language.Javascript.JSaddle.DOM.Generated.CommandLineAPIHost as Language.Javascript.JSaddle.DOM.CommandLineAPIHost-        , Language.Javascript.JSaddle.DOM.Generated.Comment as Language.Javascript.JSaddle.DOM.Comment-        , Language.Javascript.JSaddle.DOM.Generated.CompositionEvent as Language.Javascript.JSaddle.DOM.CompositionEvent-        , Language.Javascript.JSaddle.DOM.Generated.ConvolverNode as Language.Javascript.JSaddle.DOM.ConvolverNode-        , Language.Javascript.JSaddle.DOM.Generated.Coordinates as Language.Javascript.JSaddle.DOM.Coordinates-        , Language.Javascript.JSaddle.DOM.Generated.Counter as Language.Javascript.JSaddle.DOM.Counter-        , Language.Javascript.JSaddle.DOM.Generated.Crypto as Language.Javascript.JSaddle.DOM.Crypto-        , Language.Javascript.JSaddle.DOM.Generated.CryptoKey as Language.Javascript.JSaddle.DOM.CryptoKey-        , Language.Javascript.JSaddle.DOM.Generated.CryptoKeyPair as Language.Javascript.JSaddle.DOM.CryptoKeyPair-        , Language.Javascript.JSaddle.DOM.Generated.CustomEvent as Language.Javascript.JSaddle.DOM.CustomEvent-        , Language.Javascript.JSaddle.DOM.Generated.ApplicationCache as Language.Javascript.JSaddle.DOM.ApplicationCache-        , Language.Javascript.JSaddle.DOM.Generated.FormData as Language.Javascript.JSaddle.DOM.FormData-        , Language.Javascript.JSaddle.DOM.Generated.DOMImplementation as Language.Javascript.JSaddle.DOM.DOMImplementation-        , Language.Javascript.JSaddle.DOM.Generated.MimeType as Language.Javascript.JSaddle.DOM.MimeType-        , Language.Javascript.JSaddle.DOM.Generated.MimeTypeArray as Language.Javascript.JSaddle.DOM.MimeTypeArray-        , Language.Javascript.JSaddle.DOM.Generated.DOMNamedFlowCollection as Language.Javascript.JSaddle.DOM.DOMNamedFlowCollection-        , Language.Javascript.JSaddle.DOM.Generated.DOMParser as Language.Javascript.JSaddle.DOM.DOMParser-        , Language.Javascript.JSaddle.DOM.Generated.Path2D as Language.Javascript.JSaddle.DOM.Path2D-        , Language.Javascript.JSaddle.DOM.Generated.Plugin as Language.Javascript.JSaddle.DOM.Plugin-        , Language.Javascript.JSaddle.DOM.Generated.PluginArray as Language.Javascript.JSaddle.DOM.PluginArray-        , Language.Javascript.JSaddle.DOM.Generated.SecurityPolicy as Language.Javascript.JSaddle.DOM.SecurityPolicy-        , Language.Javascript.JSaddle.DOM.Generated.Selection as Language.Javascript.JSaddle.DOM.Selection-        , Language.Javascript.JSaddle.DOM.Generated.DOMSettableTokenList as Language.Javascript.JSaddle.DOM.DOMSettableTokenList-        , Language.Javascript.JSaddle.DOM.Generated.DOMStringList as Language.Javascript.JSaddle.DOM.DOMStringList-        , Language.Javascript.JSaddle.DOM.Generated.DOMTokenList as Language.Javascript.JSaddle.DOM.DOMTokenList-        , Language.Javascript.JSaddle.DOM.Generated.URL as Language.Javascript.JSaddle.DOM.URL-        , Language.Javascript.JSaddle.DOM.Generated.CSS as Language.Javascript.JSaddle.DOM.CSS-        , Language.Javascript.JSaddle.DOM.Generated.DataCue as Language.Javascript.JSaddle.DOM.DataCue-        , Language.Javascript.JSaddle.DOM.Generated.DataTransfer as Language.Javascript.JSaddle.DOM.DataTransfer-        , Language.Javascript.JSaddle.DOM.Generated.DataTransferItem as Language.Javascript.JSaddle.DOM.DataTransferItem-        , Language.Javascript.JSaddle.DOM.Generated.DataTransferItemList as Language.Javascript.JSaddle.DOM.DataTransferItemList-        , Language.Javascript.JSaddle.DOM.Generated.DatabaseCallback as Language.Javascript.JSaddle.DOM.DatabaseCallback-        , Language.Javascript.JSaddle.DOM.Generated.DedicatedWorkerGlobalScope as Language.Javascript.JSaddle.DOM.DedicatedWorkerGlobalScope-        , Language.Javascript.JSaddle.DOM.Generated.DelayNode as Language.Javascript.JSaddle.DOM.DelayNode-        , Language.Javascript.JSaddle.DOM.Generated.DeviceMotionEvent as Language.Javascript.JSaddle.DOM.DeviceMotionEvent-        , Language.Javascript.JSaddle.DOM.Generated.DeviceOrientationEvent as Language.Javascript.JSaddle.DOM.DeviceOrientationEvent-        , Language.Javascript.JSaddle.DOM.Generated.DeviceProximityEvent as Language.Javascript.JSaddle.DOM.DeviceProximityEvent-        , Language.Javascript.JSaddle.DOM.Generated.Document as Language.Javascript.JSaddle.DOM.Document-        , Language.Javascript.JSaddle.DOM.Generated.DocumentFragment as Language.Javascript.JSaddle.DOM.DocumentFragment-        , Language.Javascript.JSaddle.DOM.Generated.DocumentType as Language.Javascript.JSaddle.DOM.DocumentType-        , Language.Javascript.JSaddle.DOM.Generated.DynamicsCompressorNode as Language.Javascript.JSaddle.DOM.DynamicsCompressorNode-        , Language.Javascript.JSaddle.DOM.Generated.EXTBlendMinMax as Language.Javascript.JSaddle.DOM.EXTBlendMinMax-        , Language.Javascript.JSaddle.DOM.Generated.EXTsRGB as Language.Javascript.JSaddle.DOM.EXTsRGB-        , Language.Javascript.JSaddle.DOM.Generated.EXTTextureFilterAnisotropic as Language.Javascript.JSaddle.DOM.EXTTextureFilterAnisotropic-        , Language.Javascript.JSaddle.DOM.Generated.Element as Language.Javascript.JSaddle.DOM.Element-        , Language.Javascript.JSaddle.DOM.Generated.Entity as Language.Javascript.JSaddle.DOM.Entity-        , Language.Javascript.JSaddle.DOM.Generated.ErrorEvent as Language.Javascript.JSaddle.DOM.ErrorEvent-        , Language.Javascript.JSaddle.DOM.Generated.Event as Language.Javascript.JSaddle.DOM.Event-        , Language.Javascript.JSaddle.DOM.Generated.EventListener as Language.Javascript.JSaddle.DOM.EventListener-        , Language.Javascript.JSaddle.DOM.Generated.EventSource as Language.Javascript.JSaddle.DOM.EventSource-        , Language.Javascript.JSaddle.DOM.Generated.EventTarget as Language.Javascript.JSaddle.DOM.EventTarget-        , Language.Javascript.JSaddle.DOM.Generated.File as Language.Javascript.JSaddle.DOM.File-        , Language.Javascript.JSaddle.DOM.Generated.FileError as Language.Javascript.JSaddle.DOM.FileError-        , Language.Javascript.JSaddle.DOM.Generated.FileList as Language.Javascript.JSaddle.DOM.FileList-        , Language.Javascript.JSaddle.DOM.Generated.FileReader as Language.Javascript.JSaddle.DOM.FileReader-        , Language.Javascript.JSaddle.DOM.Generated.FileReaderSync as Language.Javascript.JSaddle.DOM.FileReaderSync-        , Language.Javascript.JSaddle.DOM.Generated.FocusEvent as Language.Javascript.JSaddle.DOM.FocusEvent-        , Language.Javascript.JSaddle.DOM.Generated.FontLoader as Language.Javascript.JSaddle.DOM.FontLoader-        , Language.Javascript.JSaddle.DOM.Generated.GainNode as Language.Javascript.JSaddle.DOM.GainNode-        , Language.Javascript.JSaddle.DOM.Generated.Gamepad as Language.Javascript.JSaddle.DOM.Gamepad-        , Language.Javascript.JSaddle.DOM.Generated.GamepadButton as Language.Javascript.JSaddle.DOM.GamepadButton-        , Language.Javascript.JSaddle.DOM.Generated.GamepadEvent as Language.Javascript.JSaddle.DOM.GamepadEvent-        , Language.Javascript.JSaddle.DOM.Generated.Geoposition as Language.Javascript.JSaddle.DOM.Geoposition-        , Language.Javascript.JSaddle.DOM.Generated.HTMLAllCollection as Language.Javascript.JSaddle.DOM.HTMLAllCollection-        , Language.Javascript.JSaddle.DOM.Generated.HTMLAnchorElement as Language.Javascript.JSaddle.DOM.HTMLAnchorElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLAppletElement as Language.Javascript.JSaddle.DOM.HTMLAppletElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLAreaElement as Language.Javascript.JSaddle.DOM.HTMLAreaElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLBRElement as Language.Javascript.JSaddle.DOM.HTMLBRElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLBaseElement as Language.Javascript.JSaddle.DOM.HTMLBaseElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLBaseFontElement as Language.Javascript.JSaddle.DOM.HTMLBaseFontElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLBodyElement as Language.Javascript.JSaddle.DOM.HTMLBodyElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLButtonElement as Language.Javascript.JSaddle.DOM.HTMLButtonElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLCanvasElement as Language.Javascript.JSaddle.DOM.HTMLCanvasElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLCollection as Language.Javascript.JSaddle.DOM.HTMLCollection-        , Language.Javascript.JSaddle.DOM.Generated.HTMLDListElement as Language.Javascript.JSaddle.DOM.HTMLDListElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLDataListElement as Language.Javascript.JSaddle.DOM.HTMLDataListElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLDetailsElement as Language.Javascript.JSaddle.DOM.HTMLDetailsElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLDirectoryElement as Language.Javascript.JSaddle.DOM.HTMLDirectoryElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLDivElement as Language.Javascript.JSaddle.DOM.HTMLDivElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLDocument as Language.Javascript.JSaddle.DOM.HTMLDocument-        , Language.Javascript.JSaddle.DOM.Generated.HTMLElement as Language.Javascript.JSaddle.DOM.HTMLElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLEmbedElement as Language.Javascript.JSaddle.DOM.HTMLEmbedElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLFieldSetElement as Language.Javascript.JSaddle.DOM.HTMLFieldSetElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLFontElement as Language.Javascript.JSaddle.DOM.HTMLFontElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLFormControlsCollection as Language.Javascript.JSaddle.DOM.HTMLFormControlsCollection-        , Language.Javascript.JSaddle.DOM.Generated.HTMLFormElement as Language.Javascript.JSaddle.DOM.HTMLFormElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLFrameElement as Language.Javascript.JSaddle.DOM.HTMLFrameElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLFrameSetElement as Language.Javascript.JSaddle.DOM.HTMLFrameSetElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLHRElement as Language.Javascript.JSaddle.DOM.HTMLHRElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLHeadElement as Language.Javascript.JSaddle.DOM.HTMLHeadElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLHeadingElement as Language.Javascript.JSaddle.DOM.HTMLHeadingElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLHtmlElement as Language.Javascript.JSaddle.DOM.HTMLHtmlElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLIFrameElement as Language.Javascript.JSaddle.DOM.HTMLIFrameElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLImageElement as Language.Javascript.JSaddle.DOM.HTMLImageElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLInputElement as Language.Javascript.JSaddle.DOM.HTMLInputElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLKeygenElement as Language.Javascript.JSaddle.DOM.HTMLKeygenElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLLIElement as Language.Javascript.JSaddle.DOM.HTMLLIElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLLabelElement as Language.Javascript.JSaddle.DOM.HTMLLabelElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLLegendElement as Language.Javascript.JSaddle.DOM.HTMLLegendElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLLinkElement as Language.Javascript.JSaddle.DOM.HTMLLinkElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLMapElement as Language.Javascript.JSaddle.DOM.HTMLMapElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLMarqueeElement as Language.Javascript.JSaddle.DOM.HTMLMarqueeElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLMediaElement as Language.Javascript.JSaddle.DOM.HTMLMediaElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLMenuElement as Language.Javascript.JSaddle.DOM.HTMLMenuElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLMetaElement as Language.Javascript.JSaddle.DOM.HTMLMetaElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLMeterElement as Language.Javascript.JSaddle.DOM.HTMLMeterElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLModElement as Language.Javascript.JSaddle.DOM.HTMLModElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLOListElement as Language.Javascript.JSaddle.DOM.HTMLOListElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLObjectElement as Language.Javascript.JSaddle.DOM.HTMLObjectElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLOptGroupElement as Language.Javascript.JSaddle.DOM.HTMLOptGroupElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLOptionElement as Language.Javascript.JSaddle.DOM.HTMLOptionElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLOptionsCollection as Language.Javascript.JSaddle.DOM.HTMLOptionsCollection-        , Language.Javascript.JSaddle.DOM.Generated.HTMLOutputElement as Language.Javascript.JSaddle.DOM.HTMLOutputElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLParagraphElement as Language.Javascript.JSaddle.DOM.HTMLParagraphElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLParamElement as Language.Javascript.JSaddle.DOM.HTMLParamElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLPreElement as Language.Javascript.JSaddle.DOM.HTMLPreElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLProgressElement as Language.Javascript.JSaddle.DOM.HTMLProgressElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLQuoteElement as Language.Javascript.JSaddle.DOM.HTMLQuoteElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLScriptElement as Language.Javascript.JSaddle.DOM.HTMLScriptElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLSelectElement as Language.Javascript.JSaddle.DOM.HTMLSelectElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLSourceElement as Language.Javascript.JSaddle.DOM.HTMLSourceElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLStyleElement as Language.Javascript.JSaddle.DOM.HTMLStyleElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTableCaptionElement as Language.Javascript.JSaddle.DOM.HTMLTableCaptionElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTableCellElement as Language.Javascript.JSaddle.DOM.HTMLTableCellElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTableColElement as Language.Javascript.JSaddle.DOM.HTMLTableColElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTableElement as Language.Javascript.JSaddle.DOM.HTMLTableElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTableRowElement as Language.Javascript.JSaddle.DOM.HTMLTableRowElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTableSectionElement as Language.Javascript.JSaddle.DOM.HTMLTableSectionElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTemplateElement as Language.Javascript.JSaddle.DOM.HTMLTemplateElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTextAreaElement as Language.Javascript.JSaddle.DOM.HTMLTextAreaElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTitleElement as Language.Javascript.JSaddle.DOM.HTMLTitleElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLTrackElement as Language.Javascript.JSaddle.DOM.HTMLTrackElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLUListElement as Language.Javascript.JSaddle.DOM.HTMLUListElement-        , Language.Javascript.JSaddle.DOM.Generated.HTMLVideoElement as Language.Javascript.JSaddle.DOM.HTMLVideoElement-        , Language.Javascript.JSaddle.DOM.Generated.HashChangeEvent as Language.Javascript.JSaddle.DOM.HashChangeEvent-        , Language.Javascript.JSaddle.DOM.Generated.History as Language.Javascript.JSaddle.DOM.History-        , Language.Javascript.JSaddle.DOM.Generated.IDBCursor as Language.Javascript.JSaddle.DOM.IDBCursor-        , Language.Javascript.JSaddle.DOM.Generated.IDBCursorWithValue as Language.Javascript.JSaddle.DOM.IDBCursorWithValue-        , Language.Javascript.JSaddle.DOM.Generated.IDBDatabase as Language.Javascript.JSaddle.DOM.IDBDatabase-        , Language.Javascript.JSaddle.DOM.Generated.IDBFactory as Language.Javascript.JSaddle.DOM.IDBFactory-        , Language.Javascript.JSaddle.DOM.Generated.IDBIndex as Language.Javascript.JSaddle.DOM.IDBIndex-        , Language.Javascript.JSaddle.DOM.Generated.IDBKeyRange as Language.Javascript.JSaddle.DOM.IDBKeyRange-        , Language.Javascript.JSaddle.DOM.Generated.IDBObjectStore as Language.Javascript.JSaddle.DOM.IDBObjectStore-        , Language.Javascript.JSaddle.DOM.Generated.IDBOpenDBRequest as Language.Javascript.JSaddle.DOM.IDBOpenDBRequest-        , Language.Javascript.JSaddle.DOM.Generated.IDBRequest as Language.Javascript.JSaddle.DOM.IDBRequest-        , Language.Javascript.JSaddle.DOM.Generated.IDBTransaction as Language.Javascript.JSaddle.DOM.IDBTransaction-        , Language.Javascript.JSaddle.DOM.Generated.IDBVersionChangeEvent as Language.Javascript.JSaddle.DOM.IDBVersionChangeEvent-        , Language.Javascript.JSaddle.DOM.Generated.ImageData as Language.Javascript.JSaddle.DOM.ImageData-        , Language.Javascript.JSaddle.DOM.Generated.InspectorFrontendHost as Language.Javascript.JSaddle.DOM.InspectorFrontendHost-        , Language.Javascript.JSaddle.DOM.Generated.InternalSettings as Language.Javascript.JSaddle.DOM.InternalSettings-        , Language.Javascript.JSaddle.DOM.Generated.Internals as Language.Javascript.JSaddle.DOM.Internals-        , Language.Javascript.JSaddle.DOM.Generated.KeyboardEvent as Language.Javascript.JSaddle.DOM.KeyboardEvent-        , Language.Javascript.JSaddle.DOM.Generated.Location as Language.Javascript.JSaddle.DOM.Location-        , Language.Javascript.JSaddle.DOM.Generated.MallocStatistics as Language.Javascript.JSaddle.DOM.MallocStatistics-        , Language.Javascript.JSaddle.DOM.Generated.MediaController as Language.Javascript.JSaddle.DOM.MediaController-        , Language.Javascript.JSaddle.DOM.Generated.MediaControlsHost as Language.Javascript.JSaddle.DOM.MediaControlsHost-        , Language.Javascript.JSaddle.DOM.Generated.MediaElementAudioSourceNode as Language.Javascript.JSaddle.DOM.MediaElementAudioSourceNode-        , Language.Javascript.JSaddle.DOM.Generated.MediaError as Language.Javascript.JSaddle.DOM.MediaError-        , Language.Javascript.JSaddle.DOM.Generated.MediaKeyError as Language.Javascript.JSaddle.DOM.MediaKeyError-        , Language.Javascript.JSaddle.DOM.Generated.MediaKeyEvent as Language.Javascript.JSaddle.DOM.MediaKeyEvent-        , Language.Javascript.JSaddle.DOM.Generated.MediaKeyMessageEvent as Language.Javascript.JSaddle.DOM.MediaKeyMessageEvent-        , Language.Javascript.JSaddle.DOM.Generated.MediaKeyNeededEvent as Language.Javascript.JSaddle.DOM.MediaKeyNeededEvent-        , Language.Javascript.JSaddle.DOM.Generated.MediaKeySession as Language.Javascript.JSaddle.DOM.MediaKeySession-        , Language.Javascript.JSaddle.DOM.Generated.MediaKeys as Language.Javascript.JSaddle.DOM.MediaKeys-        , Language.Javascript.JSaddle.DOM.Generated.MediaList as Language.Javascript.JSaddle.DOM.MediaList-        , Language.Javascript.JSaddle.DOM.Generated.MediaQueryList as Language.Javascript.JSaddle.DOM.MediaQueryList-        , Language.Javascript.JSaddle.DOM.Generated.MediaQueryListListener as Language.Javascript.JSaddle.DOM.MediaQueryListListener-        , Language.Javascript.JSaddle.DOM.Generated.MediaSource as Language.Javascript.JSaddle.DOM.MediaSource-        , Language.Javascript.JSaddle.DOM.Generated.MediaSourceStates as Language.Javascript.JSaddle.DOM.MediaSourceStates-        , Language.Javascript.JSaddle.DOM.Generated.MediaStream as Language.Javascript.JSaddle.DOM.MediaStream-        , Language.Javascript.JSaddle.DOM.Generated.MediaStreamAudioDestinationNode as Language.Javascript.JSaddle.DOM.MediaStreamAudioDestinationNode-        , Language.Javascript.JSaddle.DOM.Generated.MediaStreamAudioSourceNode as Language.Javascript.JSaddle.DOM.MediaStreamAudioSourceNode-        , Language.Javascript.JSaddle.DOM.Generated.MediaStreamEvent as Language.Javascript.JSaddle.DOM.MediaStreamEvent-        , Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackEvent as Language.Javascript.JSaddle.DOM.MediaStreamTrackEvent-        , Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackSourcesCallback as Language.Javascript.JSaddle.DOM.MediaStreamTrackSourcesCallback-        , Language.Javascript.JSaddle.DOM.Generated.MediaTrackConstraints as Language.Javascript.JSaddle.DOM.MediaTrackConstraints-        , Language.Javascript.JSaddle.DOM.Generated.MemoryInfo as Language.Javascript.JSaddle.DOM.MemoryInfo-        , Language.Javascript.JSaddle.DOM.Generated.MessageChannel as Language.Javascript.JSaddle.DOM.MessageChannel-        , Language.Javascript.JSaddle.DOM.Generated.MessageEvent as Language.Javascript.JSaddle.DOM.MessageEvent-        , Language.Javascript.JSaddle.DOM.Generated.MessagePort as Language.Javascript.JSaddle.DOM.MessagePort-        , Language.Javascript.JSaddle.DOM.Generated.MouseEvent as Language.Javascript.JSaddle.DOM.MouseEvent-        , Language.Javascript.JSaddle.DOM.Generated.MutationEvent as Language.Javascript.JSaddle.DOM.MutationEvent-        , Language.Javascript.JSaddle.DOM.Generated.MutationObserver as Language.Javascript.JSaddle.DOM.MutationObserver-        , Language.Javascript.JSaddle.DOM.Generated.MutationRecord as Language.Javascript.JSaddle.DOM.MutationRecord-        , Language.Javascript.JSaddle.DOM.Generated.NamedNodeMap as Language.Javascript.JSaddle.DOM.NamedNodeMap-        , Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaErrorCallback as Language.Javascript.JSaddle.DOM.NavigatorUserMediaErrorCallback-        , Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaSuccessCallback as Language.Javascript.JSaddle.DOM.NavigatorUserMediaSuccessCallback-        , Language.Javascript.JSaddle.DOM.Generated.Node as Language.Javascript.JSaddle.DOM.Node-        , Language.Javascript.JSaddle.DOM.Generated.NodeFilter as Language.Javascript.JSaddle.DOM.NodeFilter-        , Language.Javascript.JSaddle.DOM.Generated.NodeIterator as Language.Javascript.JSaddle.DOM.NodeIterator-        , Language.Javascript.JSaddle.DOM.Generated.NodeList as Language.Javascript.JSaddle.DOM.NodeList-        , Language.Javascript.JSaddle.DOM.Generated.Notification as Language.Javascript.JSaddle.DOM.Notification-        , Language.Javascript.JSaddle.DOM.Generated.NotificationCenter as Language.Javascript.JSaddle.DOM.NotificationCenter-        , Language.Javascript.JSaddle.DOM.Generated.NotificationPermissionCallback as Language.Javascript.JSaddle.DOM.NotificationPermissionCallback-        , Language.Javascript.JSaddle.DOM.Generated.OESStandardDerivatives as Language.Javascript.JSaddle.DOM.OESStandardDerivatives-        , Language.Javascript.JSaddle.DOM.Generated.OESTextureHalfFloat as Language.Javascript.JSaddle.DOM.OESTextureHalfFloat-        , Language.Javascript.JSaddle.DOM.Generated.OESVertexArrayObject as Language.Javascript.JSaddle.DOM.OESVertexArrayObject-        , Language.Javascript.JSaddle.DOM.Generated.OfflineAudioCompletionEvent as Language.Javascript.JSaddle.DOM.OfflineAudioCompletionEvent-        , Language.Javascript.JSaddle.DOM.Generated.OfflineAudioContext as Language.Javascript.JSaddle.DOM.OfflineAudioContext-        , Language.Javascript.JSaddle.DOM.Generated.OscillatorNode as Language.Javascript.JSaddle.DOM.OscillatorNode-        , Language.Javascript.JSaddle.DOM.Generated.OverflowEvent as Language.Javascript.JSaddle.DOM.OverflowEvent-        , Language.Javascript.JSaddle.DOM.Generated.PageTransitionEvent as Language.Javascript.JSaddle.DOM.PageTransitionEvent-        , Language.Javascript.JSaddle.DOM.Generated.PannerNode as Language.Javascript.JSaddle.DOM.PannerNode-        , Language.Javascript.JSaddle.DOM.Generated.Performance as Language.Javascript.JSaddle.DOM.Performance-        , Language.Javascript.JSaddle.DOM.Generated.PerformanceEntry as Language.Javascript.JSaddle.DOM.PerformanceEntry-        , Language.Javascript.JSaddle.DOM.Generated.PerformanceEntryList as Language.Javascript.JSaddle.DOM.PerformanceEntryList-        , Language.Javascript.JSaddle.DOM.Generated.PerformanceNavigation as Language.Javascript.JSaddle.DOM.PerformanceNavigation-        , Language.Javascript.JSaddle.DOM.Generated.PerformanceResourceTiming as Language.Javascript.JSaddle.DOM.PerformanceResourceTiming-        , Language.Javascript.JSaddle.DOM.Generated.PerformanceTiming as Language.Javascript.JSaddle.DOM.PerformanceTiming-        , Language.Javascript.JSaddle.DOM.Generated.PopStateEvent as Language.Javascript.JSaddle.DOM.PopStateEvent-        , Language.Javascript.JSaddle.DOM.Generated.PositionCallback as Language.Javascript.JSaddle.DOM.PositionCallback-        , Language.Javascript.JSaddle.DOM.Generated.PositionErrorCallback as Language.Javascript.JSaddle.DOM.PositionErrorCallback-        , Language.Javascript.JSaddle.DOM.Generated.ProcessingInstruction as Language.Javascript.JSaddle.DOM.ProcessingInstruction-        , Language.Javascript.JSaddle.DOM.Generated.ProgressEvent as Language.Javascript.JSaddle.DOM.ProgressEvent-        , Language.Javascript.JSaddle.DOM.Generated.QuickTimePluginReplacement as Language.Javascript.JSaddle.DOM.QuickTimePluginReplacement-        , Language.Javascript.JSaddle.DOM.Generated.RGBColor as Language.Javascript.JSaddle.DOM.RGBColor-        , Language.Javascript.JSaddle.DOM.Generated.RTCConfiguration as Language.Javascript.JSaddle.DOM.RTCConfiguration-        , Language.Javascript.JSaddle.DOM.Generated.RTCDTMFSender as Language.Javascript.JSaddle.DOM.RTCDTMFSender-        , Language.Javascript.JSaddle.DOM.Generated.RTCDTMFToneChangeEvent as Language.Javascript.JSaddle.DOM.RTCDTMFToneChangeEvent-        , Language.Javascript.JSaddle.DOM.Generated.RTCDataChannel as Language.Javascript.JSaddle.DOM.RTCDataChannel-        , Language.Javascript.JSaddle.DOM.Generated.RTCDataChannelEvent as Language.Javascript.JSaddle.DOM.RTCDataChannelEvent-        , Language.Javascript.JSaddle.DOM.Generated.RTCIceCandidate as Language.Javascript.JSaddle.DOM.RTCIceCandidate-        , Language.Javascript.JSaddle.DOM.Generated.RTCIceCandidateEvent as Language.Javascript.JSaddle.DOM.RTCIceCandidateEvent-        , Language.Javascript.JSaddle.DOM.Generated.RTCIceServer as Language.Javascript.JSaddle.DOM.RTCIceServer-        , Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnectionErrorCallback as Language.Javascript.JSaddle.DOM.RTCPeerConnectionErrorCallback-        , Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescription as Language.Javascript.JSaddle.DOM.RTCSessionDescription-        , Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescriptionCallback as Language.Javascript.JSaddle.DOM.RTCSessionDescriptionCallback-        , Language.Javascript.JSaddle.DOM.Generated.RTCStatsCallback as Language.Javascript.JSaddle.DOM.RTCStatsCallback-        , Language.Javascript.JSaddle.DOM.Generated.RTCStatsReport as Language.Javascript.JSaddle.DOM.RTCStatsReport-        , Language.Javascript.JSaddle.DOM.Generated.RTCStatsResponse as Language.Javascript.JSaddle.DOM.RTCStatsResponse-        , Language.Javascript.JSaddle.DOM.Generated.RadioNodeList as Language.Javascript.JSaddle.DOM.RadioNodeList-        , Language.Javascript.JSaddle.DOM.Generated.Range as Language.Javascript.JSaddle.DOM.Range-        , Language.Javascript.JSaddle.DOM.Generated.ReadableStream as Language.Javascript.JSaddle.DOM.ReadableStream-        , Language.Javascript.JSaddle.DOM.Generated.Rect as Language.Javascript.JSaddle.DOM.Rect-        , Language.Javascript.JSaddle.DOM.Generated.RequestAnimationFrameCallback as Language.Javascript.JSaddle.DOM.RequestAnimationFrameCallback-        , Language.Javascript.JSaddle.DOM.Generated.SQLResultSet as Language.Javascript.JSaddle.DOM.SQLResultSet-        , Language.Javascript.JSaddle.DOM.Generated.SQLResultSetRowList as Language.Javascript.JSaddle.DOM.SQLResultSetRowList-        , Language.Javascript.JSaddle.DOM.Generated.SQLStatementCallback as Language.Javascript.JSaddle.DOM.SQLStatementCallback-        , Language.Javascript.JSaddle.DOM.Generated.SQLStatementErrorCallback as Language.Javascript.JSaddle.DOM.SQLStatementErrorCallback-        , Language.Javascript.JSaddle.DOM.Generated.SQLTransactionCallback as Language.Javascript.JSaddle.DOM.SQLTransactionCallback-        , Language.Javascript.JSaddle.DOM.Generated.SQLTransactionErrorCallback as Language.Javascript.JSaddle.DOM.SQLTransactionErrorCallback-        , Language.Javascript.JSaddle.DOM.Generated.SVGAElement as Language.Javascript.JSaddle.DOM.SVGAElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGAltGlyphElement as Language.Javascript.JSaddle.DOM.SVGAltGlyphElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGAngle as Language.Javascript.JSaddle.DOM.SVGAngle-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedAngle as Language.Javascript.JSaddle.DOM.SVGAnimatedAngle-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedBoolean as Language.Javascript.JSaddle.DOM.SVGAnimatedBoolean-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedEnumeration as Language.Javascript.JSaddle.DOM.SVGAnimatedEnumeration-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedInteger as Language.Javascript.JSaddle.DOM.SVGAnimatedInteger-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedLength as Language.Javascript.JSaddle.DOM.SVGAnimatedLength-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedLengthList as Language.Javascript.JSaddle.DOM.SVGAnimatedLengthList-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedNumber as Language.Javascript.JSaddle.DOM.SVGAnimatedNumber-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedNumberList as Language.Javascript.JSaddle.DOM.SVGAnimatedNumberList-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedPreserveAspectRatio as Language.Javascript.JSaddle.DOM.SVGAnimatedPreserveAspectRatio-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedRect as Language.Javascript.JSaddle.DOM.SVGAnimatedRect-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedString as Language.Javascript.JSaddle.DOM.SVGAnimatedString-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedTransformList as Language.Javascript.JSaddle.DOM.SVGAnimatedTransformList-        , Language.Javascript.JSaddle.DOM.Generated.SVGAnimationElement as Language.Javascript.JSaddle.DOM.SVGAnimationElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGCircleElement as Language.Javascript.JSaddle.DOM.SVGCircleElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGClipPathElement as Language.Javascript.JSaddle.DOM.SVGClipPathElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGColor as Language.Javascript.JSaddle.DOM.SVGColor-        , Language.Javascript.JSaddle.DOM.Generated.SVGComponentTransferFunctionElement as Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGCursorElement as Language.Javascript.JSaddle.DOM.SVGCursorElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGDocument as Language.Javascript.JSaddle.DOM.SVGDocument-        , Language.Javascript.JSaddle.DOM.Generated.SVGElement as Language.Javascript.JSaddle.DOM.SVGElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGEllipseElement as Language.Javascript.JSaddle.DOM.SVGEllipseElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGExternalResourcesRequired as Language.Javascript.JSaddle.DOM.SVGExternalResourcesRequired-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEBlendElement as Language.Javascript.JSaddle.DOM.SVGFEBlendElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEColorMatrixElement as Language.Javascript.JSaddle.DOM.SVGFEColorMatrixElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEComponentTransferElement as Language.Javascript.JSaddle.DOM.SVGFEComponentTransferElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFECompositeElement as Language.Javascript.JSaddle.DOM.SVGFECompositeElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEConvolveMatrixElement as Language.Javascript.JSaddle.DOM.SVGFEConvolveMatrixElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEDiffuseLightingElement as Language.Javascript.JSaddle.DOM.SVGFEDiffuseLightingElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEDisplacementMapElement as Language.Javascript.JSaddle.DOM.SVGFEDisplacementMapElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEDistantLightElement as Language.Javascript.JSaddle.DOM.SVGFEDistantLightElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEDropShadowElement as Language.Javascript.JSaddle.DOM.SVGFEDropShadowElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEGaussianBlurElement as Language.Javascript.JSaddle.DOM.SVGFEGaussianBlurElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEImageElement as Language.Javascript.JSaddle.DOM.SVGFEImageElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEMergeNodeElement as Language.Javascript.JSaddle.DOM.SVGFEMergeNodeElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEMorphologyElement as Language.Javascript.JSaddle.DOM.SVGFEMorphologyElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEOffsetElement as Language.Javascript.JSaddle.DOM.SVGFEOffsetElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFEPointLightElement as Language.Javascript.JSaddle.DOM.SVGFEPointLightElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFESpecularLightingElement as Language.Javascript.JSaddle.DOM.SVGFESpecularLightingElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFESpotLightElement as Language.Javascript.JSaddle.DOM.SVGFESpotLightElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFETileElement as Language.Javascript.JSaddle.DOM.SVGFETileElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFETurbulenceElement as Language.Javascript.JSaddle.DOM.SVGFETurbulenceElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFilterElement as Language.Javascript.JSaddle.DOM.SVGFilterElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGFilterPrimitiveStandardAttributes as Language.Javascript.JSaddle.DOM.SVGFilterPrimitiveStandardAttributes-        , Language.Javascript.JSaddle.DOM.Generated.SVGFitToViewBox as Language.Javascript.JSaddle.DOM.SVGFitToViewBox-        , Language.Javascript.JSaddle.DOM.Generated.SVGForeignObjectElement as Language.Javascript.JSaddle.DOM.SVGForeignObjectElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGGlyphRefElement as Language.Javascript.JSaddle.DOM.SVGGlyphRefElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGGradientElement as Language.Javascript.JSaddle.DOM.SVGGradientElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGGraphicsElement as Language.Javascript.JSaddle.DOM.SVGGraphicsElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGImageElement as Language.Javascript.JSaddle.DOM.SVGImageElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGLength as Language.Javascript.JSaddle.DOM.SVGLength-        , Language.Javascript.JSaddle.DOM.Generated.SVGLengthList as Language.Javascript.JSaddle.DOM.SVGLengthList-        , Language.Javascript.JSaddle.DOM.Generated.SVGLineElement as Language.Javascript.JSaddle.DOM.SVGLineElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGLinearGradientElement as Language.Javascript.JSaddle.DOM.SVGLinearGradientElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGMarkerElement as Language.Javascript.JSaddle.DOM.SVGMarkerElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGMaskElement as Language.Javascript.JSaddle.DOM.SVGMaskElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGMatrix as Language.Javascript.JSaddle.DOM.SVGMatrix-        , Language.Javascript.JSaddle.DOM.Generated.SVGNumber as Language.Javascript.JSaddle.DOM.SVGNumber-        , Language.Javascript.JSaddle.DOM.Generated.SVGNumberList as Language.Javascript.JSaddle.DOM.SVGNumberList-        , Language.Javascript.JSaddle.DOM.Generated.SVGPaint as Language.Javascript.JSaddle.DOM.SVGPaint-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathElement as Language.Javascript.JSaddle.DOM.SVGPathElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSeg as Language.Javascript.JSaddle.DOM.SVGPathSeg-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegArcAbs as Language.Javascript.JSaddle.DOM.SVGPathSegArcAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegArcRel as Language.Javascript.JSaddle.DOM.SVGPathSegArcRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicAbs as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicRel as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicSmoothAbs as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicSmoothRel as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticAbs as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticRel as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticSmoothAbs as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticSmoothRel as Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoAbs as Language.Javascript.JSaddle.DOM.SVGPathSegLinetoAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoHorizontalAbs as Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoHorizontalRel as Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoRel as Language.Javascript.JSaddle.DOM.SVGPathSegLinetoRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoVerticalAbs as Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoVerticalRel as Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegList as Language.Javascript.JSaddle.DOM.SVGPathSegList-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegMovetoAbs as Language.Javascript.JSaddle.DOM.SVGPathSegMovetoAbs-        , Language.Javascript.JSaddle.DOM.Generated.SVGPathSegMovetoRel as Language.Javascript.JSaddle.DOM.SVGPathSegMovetoRel-        , Language.Javascript.JSaddle.DOM.Generated.SVGPatternElement as Language.Javascript.JSaddle.DOM.SVGPatternElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGPoint as Language.Javascript.JSaddle.DOM.SVGPoint-        , Language.Javascript.JSaddle.DOM.Generated.SVGPointList as Language.Javascript.JSaddle.DOM.SVGPointList-        , Language.Javascript.JSaddle.DOM.Generated.SVGPolygonElement as Language.Javascript.JSaddle.DOM.SVGPolygonElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGPolylineElement as Language.Javascript.JSaddle.DOM.SVGPolylineElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGPreserveAspectRatio as Language.Javascript.JSaddle.DOM.SVGPreserveAspectRatio-        , Language.Javascript.JSaddle.DOM.Generated.SVGRadialGradientElement as Language.Javascript.JSaddle.DOM.SVGRadialGradientElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGRect as Language.Javascript.JSaddle.DOM.SVGRect-        , Language.Javascript.JSaddle.DOM.Generated.SVGRectElement as Language.Javascript.JSaddle.DOM.SVGRectElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGRenderingIntent as Language.Javascript.JSaddle.DOM.SVGRenderingIntent-        , Language.Javascript.JSaddle.DOM.Generated.SVGScriptElement as Language.Javascript.JSaddle.DOM.SVGScriptElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGSVGElement as Language.Javascript.JSaddle.DOM.SVGSVGElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGStopElement as Language.Javascript.JSaddle.DOM.SVGStopElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGStringList as Language.Javascript.JSaddle.DOM.SVGStringList-        , Language.Javascript.JSaddle.DOM.Generated.SVGStyleElement as Language.Javascript.JSaddle.DOM.SVGStyleElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGTests as Language.Javascript.JSaddle.DOM.SVGTests-        , Language.Javascript.JSaddle.DOM.Generated.SVGTextContentElement as Language.Javascript.JSaddle.DOM.SVGTextContentElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGTextPathElement as Language.Javascript.JSaddle.DOM.SVGTextPathElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGTextPositioningElement as Language.Javascript.JSaddle.DOM.SVGTextPositioningElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGTransform as Language.Javascript.JSaddle.DOM.SVGTransform-        , Language.Javascript.JSaddle.DOM.Generated.SVGTransformList as Language.Javascript.JSaddle.DOM.SVGTransformList-        , Language.Javascript.JSaddle.DOM.Generated.SVGURIReference as Language.Javascript.JSaddle.DOM.SVGURIReference-        , Language.Javascript.JSaddle.DOM.Generated.SVGUnitTypes as Language.Javascript.JSaddle.DOM.SVGUnitTypes-        , Language.Javascript.JSaddle.DOM.Generated.SVGUseElement as Language.Javascript.JSaddle.DOM.SVGUseElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGViewElement as Language.Javascript.JSaddle.DOM.SVGViewElement-        , Language.Javascript.JSaddle.DOM.Generated.SVGViewSpec as Language.Javascript.JSaddle.DOM.SVGViewSpec-        , Language.Javascript.JSaddle.DOM.Generated.SVGZoomAndPan as Language.Javascript.JSaddle.DOM.SVGZoomAndPan-        , Language.Javascript.JSaddle.DOM.Generated.SVGZoomEvent as Language.Javascript.JSaddle.DOM.SVGZoomEvent-        , Language.Javascript.JSaddle.DOM.Generated.Screen as Language.Javascript.JSaddle.DOM.Screen-        , Language.Javascript.JSaddle.DOM.Generated.ScriptProcessorNode as Language.Javascript.JSaddle.DOM.ScriptProcessorNode-        , Language.Javascript.JSaddle.DOM.Generated.ScriptProfile as Language.Javascript.JSaddle.DOM.ScriptProfile-        , Language.Javascript.JSaddle.DOM.Generated.ScriptProfileNode as Language.Javascript.JSaddle.DOM.ScriptProfileNode-        , Language.Javascript.JSaddle.DOM.Generated.SecurityPolicyViolationEvent as Language.Javascript.JSaddle.DOM.SecurityPolicyViolationEvent-        , Language.Javascript.JSaddle.DOM.Generated.SourceBuffer as Language.Javascript.JSaddle.DOM.SourceBuffer-        , Language.Javascript.JSaddle.DOM.Generated.SourceBufferList as Language.Javascript.JSaddle.DOM.SourceBufferList-        , Language.Javascript.JSaddle.DOM.Generated.SourceInfo as Language.Javascript.JSaddle.DOM.SourceInfo-        , Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesis as Language.Javascript.JSaddle.DOM.SpeechSynthesis-        , Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisEvent as Language.Javascript.JSaddle.DOM.SpeechSynthesisEvent-        , Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisUtterance as Language.Javascript.JSaddle.DOM.SpeechSynthesisUtterance-        , Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisVoice as Language.Javascript.JSaddle.DOM.SpeechSynthesisVoice-        , Language.Javascript.JSaddle.DOM.Generated.Storage as Language.Javascript.JSaddle.DOM.Storage-        , Language.Javascript.JSaddle.DOM.Generated.StorageErrorCallback as Language.Javascript.JSaddle.DOM.StorageErrorCallback-        , Language.Javascript.JSaddle.DOM.Generated.StorageEvent as Language.Javascript.JSaddle.DOM.StorageEvent-        , Language.Javascript.JSaddle.DOM.Generated.StorageInfo as Language.Javascript.JSaddle.DOM.StorageInfo-        , Language.Javascript.JSaddle.DOM.Generated.StorageQuota as Language.Javascript.JSaddle.DOM.StorageQuota-        , Language.Javascript.JSaddle.DOM.Generated.StorageQuotaCallback as Language.Javascript.JSaddle.DOM.StorageQuotaCallback-        , Language.Javascript.JSaddle.DOM.Generated.StorageUsageCallback as Language.Javascript.JSaddle.DOM.StorageUsageCallback-        , Language.Javascript.JSaddle.DOM.Generated.StringCallback as Language.Javascript.JSaddle.DOM.StringCallback-        , Language.Javascript.JSaddle.DOM.Generated.StyleMedia as Language.Javascript.JSaddle.DOM.StyleMedia-        , Language.Javascript.JSaddle.DOM.Generated.StyleSheet as Language.Javascript.JSaddle.DOM.StyleSheet-        , Language.Javascript.JSaddle.DOM.Generated.StyleSheetList as Language.Javascript.JSaddle.DOM.StyleSheetList-        , Language.Javascript.JSaddle.DOM.Generated.SubtleCrypto as Language.Javascript.JSaddle.DOM.SubtleCrypto-        , Language.Javascript.JSaddle.DOM.Generated.Text as Language.Javascript.JSaddle.DOM.Text-        , Language.Javascript.JSaddle.DOM.Generated.TextEvent as Language.Javascript.JSaddle.DOM.TextEvent-        , Language.Javascript.JSaddle.DOM.Generated.TextMetrics as Language.Javascript.JSaddle.DOM.TextMetrics-        , Language.Javascript.JSaddle.DOM.Generated.TextTrack as Language.Javascript.JSaddle.DOM.TextTrack-        , Language.Javascript.JSaddle.DOM.Generated.TextTrackCue as Language.Javascript.JSaddle.DOM.TextTrackCue-        , Language.Javascript.JSaddle.DOM.Generated.TextTrackCueList as Language.Javascript.JSaddle.DOM.TextTrackCueList-        , Language.Javascript.JSaddle.DOM.Generated.TextTrackList as Language.Javascript.JSaddle.DOM.TextTrackList-        , Language.Javascript.JSaddle.DOM.Generated.TimeRanges as Language.Javascript.JSaddle.DOM.TimeRanges-        , Language.Javascript.JSaddle.DOM.Generated.Touch as Language.Javascript.JSaddle.DOM.Touch-        , Language.Javascript.JSaddle.DOM.Generated.TouchEvent as Language.Javascript.JSaddle.DOM.TouchEvent-        , Language.Javascript.JSaddle.DOM.Generated.TouchList as Language.Javascript.JSaddle.DOM.TouchList-        , Language.Javascript.JSaddle.DOM.Generated.TrackEvent as Language.Javascript.JSaddle.DOM.TrackEvent-        , Language.Javascript.JSaddle.DOM.Generated.TransitionEvent as Language.Javascript.JSaddle.DOM.TransitionEvent-        , Language.Javascript.JSaddle.DOM.Generated.TreeWalker as Language.Javascript.JSaddle.DOM.TreeWalker-        , Language.Javascript.JSaddle.DOM.Generated.TypeConversions as Language.Javascript.JSaddle.DOM.TypeConversions-        , Language.Javascript.JSaddle.DOM.Generated.UIEvent as Language.Javascript.JSaddle.DOM.UIEvent-        , Language.Javascript.JSaddle.DOM.Generated.UIRequestEvent as Language.Javascript.JSaddle.DOM.UIRequestEvent-        , Language.Javascript.JSaddle.DOM.Generated.URLUtils as Language.Javascript.JSaddle.DOM.URLUtils-        , Language.Javascript.JSaddle.DOM.Generated.UserMessageHandler as Language.Javascript.JSaddle.DOM.UserMessageHandler-        , Language.Javascript.JSaddle.DOM.Generated.VTTCue as Language.Javascript.JSaddle.DOM.VTTCue-        , Language.Javascript.JSaddle.DOM.Generated.VTTRegion as Language.Javascript.JSaddle.DOM.VTTRegion-        , Language.Javascript.JSaddle.DOM.Generated.VTTRegionList as Language.Javascript.JSaddle.DOM.VTTRegionList-        , Language.Javascript.JSaddle.DOM.Generated.ValidityState as Language.Javascript.JSaddle.DOM.ValidityState-        , Language.Javascript.JSaddle.DOM.Generated.VideoPlaybackQuality as Language.Javascript.JSaddle.DOM.VideoPlaybackQuality-        , Language.Javascript.JSaddle.DOM.Generated.VideoStreamTrack as Language.Javascript.JSaddle.DOM.VideoStreamTrack-        , Language.Javascript.JSaddle.DOM.Generated.VideoTrack as Language.Javascript.JSaddle.DOM.VideoTrack-        , Language.Javascript.JSaddle.DOM.Generated.VideoTrackList as Language.Javascript.JSaddle.DOM.VideoTrackList-        , Language.Javascript.JSaddle.DOM.Generated.VoidCallback as Language.Javascript.JSaddle.DOM.VoidCallback-        , Language.Javascript.JSaddle.DOM.Generated.WaveShaperNode as Language.Javascript.JSaddle.DOM.WaveShaperNode-        , Language.Javascript.JSaddle.DOM.Generated.WebGL2RenderingContext as Language.Javascript.JSaddle.DOM.WebGL2RenderingContext-        , Language.Javascript.JSaddle.DOM.Generated.WebGLActiveInfo as Language.Javascript.JSaddle.DOM.WebGLActiveInfo-        , Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTextureATC as Language.Javascript.JSaddle.DOM.WebGLCompressedTextureATC-        , Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTexturePVRTC as Language.Javascript.JSaddle.DOM.WebGLCompressedTexturePVRTC-        , Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTextureS3TC as Language.Javascript.JSaddle.DOM.WebGLCompressedTextureS3TC-        , Language.Javascript.JSaddle.DOM.Generated.WebGLContextAttributes as Language.Javascript.JSaddle.DOM.WebGLContextAttributes-        , Language.Javascript.JSaddle.DOM.Generated.WebGLContextEvent as Language.Javascript.JSaddle.DOM.WebGLContextEvent-        , Language.Javascript.JSaddle.DOM.Generated.WebGLDebugRendererInfo as Language.Javascript.JSaddle.DOM.WebGLDebugRendererInfo-        , Language.Javascript.JSaddle.DOM.Generated.WebGLDebugShaders as Language.Javascript.JSaddle.DOM.WebGLDebugShaders-        , Language.Javascript.JSaddle.DOM.Generated.WebGLDepthTexture as Language.Javascript.JSaddle.DOM.WebGLDepthTexture-        , Language.Javascript.JSaddle.DOM.Generated.WebGLDrawBuffers as Language.Javascript.JSaddle.DOM.WebGLDrawBuffers-        , Language.Javascript.JSaddle.DOM.Generated.WebGLLoseContext as Language.Javascript.JSaddle.DOM.WebGLLoseContext-        , Language.Javascript.JSaddle.DOM.Generated.WebGLRenderingContextBase as Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase-        , Language.Javascript.JSaddle.DOM.Generated.WebGLShaderPrecisionFormat as Language.Javascript.JSaddle.DOM.WebGLShaderPrecisionFormat-        , Language.Javascript.JSaddle.DOM.Generated.WebKitAnimationEvent as Language.Javascript.JSaddle.DOM.WebKitAnimationEvent-        , Language.Javascript.JSaddle.DOM.Generated.WebKitCSSFilterValue as Language.Javascript.JSaddle.DOM.WebKitCSSFilterValue-        , Language.Javascript.JSaddle.DOM.Generated.WebKitCSSMatrix as Language.Javascript.JSaddle.DOM.WebKitCSSMatrix-        , Language.Javascript.JSaddle.DOM.Generated.WebKitCSSRegionRule as Language.Javascript.JSaddle.DOM.WebKitCSSRegionRule-        , Language.Javascript.JSaddle.DOM.Generated.WebKitCSSTransformValue as Language.Javascript.JSaddle.DOM.WebKitCSSTransformValue-        , Language.Javascript.JSaddle.DOM.Generated.WebKitCSSViewportRule as Language.Javascript.JSaddle.DOM.WebKitCSSViewportRule-        , Language.Javascript.JSaddle.DOM.Generated.WebKitNamedFlow as Language.Javascript.JSaddle.DOM.WebKitNamedFlow-        , Language.Javascript.JSaddle.DOM.Generated.WebKitNamespace as Language.Javascript.JSaddle.DOM.WebKitNamespace-        , Language.Javascript.JSaddle.DOM.Generated.WebKitPlaybackTargetAvailabilityEvent as Language.Javascript.JSaddle.DOM.WebKitPlaybackTargetAvailabilityEvent-        , Language.Javascript.JSaddle.DOM.Generated.WebKitPoint as Language.Javascript.JSaddle.DOM.WebKitPoint-        , Language.Javascript.JSaddle.DOM.Generated.WebKitTransitionEvent as Language.Javascript.JSaddle.DOM.WebKitTransitionEvent-        , Language.Javascript.JSaddle.DOM.Generated.WebSocket as Language.Javascript.JSaddle.DOM.WebSocket-        , Language.Javascript.JSaddle.DOM.Generated.WheelEvent as Language.Javascript.JSaddle.DOM.WheelEvent-        , Language.Javascript.JSaddle.DOM.Generated.WindowBase64 as Language.Javascript.JSaddle.DOM.WindowBase64-        , Language.Javascript.JSaddle.DOM.Generated.WindowTimers as Language.Javascript.JSaddle.DOM.WindowTimers-        , Language.Javascript.JSaddle.DOM.Generated.Worker as Language.Javascript.JSaddle.DOM.Worker-        , Language.Javascript.JSaddle.DOM.Generated.WorkerGlobalScope as Language.Javascript.JSaddle.DOM.WorkerGlobalScope-        , Language.Javascript.JSaddle.DOM.Generated.WorkerLocation as Language.Javascript.JSaddle.DOM.WorkerLocation-        , Language.Javascript.JSaddle.DOM.Generated.WorkerNavigator as Language.Javascript.JSaddle.DOM.WorkerNavigator-        , Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequestProgressEvent as Language.Javascript.JSaddle.DOM.XMLHttpRequestProgressEvent-        , Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequestUpload as Language.Javascript.JSaddle.DOM.XMLHttpRequestUpload-        , Language.Javascript.JSaddle.DOM.Generated.XMLSerializer as Language.Javascript.JSaddle.DOM.XMLSerializer-        , Language.Javascript.JSaddle.DOM.Generated.XPathEvaluator as Language.Javascript.JSaddle.DOM.XPathEvaluator-        , Language.Javascript.JSaddle.DOM.Generated.XPathExpression as Language.Javascript.JSaddle.DOM.XPathExpression-        , Language.Javascript.JSaddle.DOM.Generated.XPathNSResolver as Language.Javascript.JSaddle.DOM.XPathNSResolver-        , Language.Javascript.JSaddle.DOM.Generated.XPathResult as Language.Javascript.JSaddle.DOM.XPathResult-        , Language.Javascript.JSaddle.DOM.Generated.XSLTProcessor as Language.Javascript.JSaddle.DOM.XSLTProcessor+version: 0.2.0.0+cabal-version: >=1.22+build-type: Simple+license: MIT+license-file: LICENSE+maintainer: Hamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>+synopsis: DOM library that uses jsaddle to support both GHCJS and WebKitGTK+description:+    Documentent Object Model (DOM) functions implemented using jsaddle.+    It works with both GHCJS and GHC.+category: Web+author: Hamish Mackenzie++source-repository head+    type: git+    location: https://github.com/ghcjs/jsaddle-dom++library++    if impl(ghcjs -any)+        build-depends:+            ghcjs-base >=0.2.0.0 && <0.3,+            ghcjs-prim -any,+            ghc-prim -any+    else+        build-depends:+            haskell-gi-base >= 0.18 && < 0.19,+            gi-glib >=2.0.6 && <2.1,+            gi-gtk >=3.0.6 && <3.1,+            gi-webkit >=3.0.6 && <3.1++    exposed-modules:+        JSDOM.Custom.AudioContext+        JSDOM.Custom.Database+        JSDOM.Custom.DOMError+        JSDOM.Custom.Geolocation+        JSDOM.Custom.MediaStreamTrack+        JSDOM.Custom.Navigator+        JSDOM.Custom.NavigatorUserMediaError+        JSDOM.Custom.PositionError+        JSDOM.Custom.RTCPeerConnection+        JSDOM.Custom.RTCPeerConnectionError+        JSDOM.Custom.SQLError+        JSDOM.Custom.SQLTransaction+        JSDOM.Custom.Window+        JSDOM.Custom.XMLHttpRequest+        JSDOM.Generated.ANGLEInstancedArrays+        JSDOM.Generated.AbstractView+        JSDOM.Generated.AbstractWorker+        JSDOM.Generated.AllAudioCapabilities+        JSDOM.Generated.AllVideoCapabilities+        JSDOM.Generated.AnalyserNode+        JSDOM.Generated.AnimationEvent+        JSDOM.Generated.Attr+        JSDOM.Generated.AudioBuffer+        JSDOM.Generated.AudioBufferCallback+        JSDOM.Generated.AudioBufferSourceNode+        JSDOM.Generated.AudioContext+        JSDOM.Generated.AudioDestinationNode+        JSDOM.Generated.AudioListener+        JSDOM.Generated.AudioNode+        JSDOM.Generated.AudioParam+        JSDOM.Generated.AudioProcessingEvent+        JSDOM.Generated.AudioStreamTrack+        JSDOM.Generated.AudioTrack+        JSDOM.Generated.AudioTrackList+        JSDOM.Generated.AutocompleteErrorEvent+        JSDOM.Generated.BarProp+        JSDOM.Generated.BatteryManager+        JSDOM.Generated.BeforeLoadEvent+        JSDOM.Generated.BeforeUnloadEvent+        JSDOM.Generated.BiquadFilterNode+        JSDOM.Generated.Blob+        JSDOM.Generated.CSSCharsetRule+        JSDOM.Generated.CSSFontFaceLoadEvent+        JSDOM.Generated.CSSFontFaceRule+        JSDOM.Generated.CSSImportRule+        JSDOM.Generated.CSSKeyframeRule+        JSDOM.Generated.CSSKeyframesRule+        JSDOM.Generated.CSSMediaRule+        JSDOM.Generated.CSSPageRule+        JSDOM.Generated.CSSPrimitiveValue+        JSDOM.Generated.CSSRule+        JSDOM.Generated.CSSRuleList+        JSDOM.Generated.CSSStyleDeclaration+        JSDOM.Generated.CSSStyleRule+        JSDOM.Generated.CSSStyleSheet+        JSDOM.Generated.CSSSupportsRule+        JSDOM.Generated.CSSValue+        JSDOM.Generated.CSSValueList+        JSDOM.Generated.CanvasGradient+        JSDOM.Generated.CanvasRenderingContext+        JSDOM.Generated.CanvasRenderingContext2D+        JSDOM.Generated.CapabilityRange+        JSDOM.Generated.CharacterData+        JSDOM.Generated.ChildNode+        JSDOM.Generated.ClientRect+        JSDOM.Generated.ClientRectList+        JSDOM.Generated.CloseEvent+        JSDOM.Generated.CommandLineAPIHost+        JSDOM.Generated.Comment+        JSDOM.Generated.CompositionEvent+        JSDOM.Generated.ConvolverNode+        JSDOM.Generated.Coordinates+        JSDOM.Generated.Counter+        JSDOM.Generated.Crypto+        JSDOM.Generated.CryptoKey+        JSDOM.Generated.CryptoKeyPair+        JSDOM.Generated.CustomEvent+        JSDOM.Generated.ApplicationCache+        JSDOM.Generated.DOMError+        JSDOM.Generated.FormData+        JSDOM.Generated.DOMImplementation+        JSDOM.Generated.MimeType+        JSDOM.Generated.MimeTypeArray+        JSDOM.Generated.DOMNamedFlowCollection+        JSDOM.Generated.DOMParser+        JSDOM.Generated.Path2D+        JSDOM.Generated.Plugin+        JSDOM.Generated.PluginArray+        JSDOM.Generated.SecurityPolicy+        JSDOM.Generated.Selection+        JSDOM.Generated.DOMSettableTokenList+        JSDOM.Generated.DOMStringList+        JSDOM.Generated.DOMTokenList+        JSDOM.Generated.URL+        JSDOM.Generated.Window+        JSDOM.Generated.CSS+        JSDOM.Generated.DataCue+        JSDOM.Generated.DataTransfer+        JSDOM.Generated.DataTransferItem+        JSDOM.Generated.DataTransferItemList+        JSDOM.Generated.Database+        JSDOM.Generated.DatabaseCallback+        JSDOM.Generated.DedicatedWorkerGlobalScope+        JSDOM.Generated.DelayNode+        JSDOM.Generated.DeviceMotionEvent+        JSDOM.Generated.DeviceOrientationEvent+        JSDOM.Generated.DeviceProximityEvent+        JSDOM.Generated.Document+        JSDOM.Generated.DocumentFragment+        JSDOM.Generated.DocumentType+        JSDOM.Generated.DynamicsCompressorNode+        JSDOM.Generated.EXTBlendMinMax+        JSDOM.Generated.EXTsRGB+        JSDOM.Generated.EXTTextureFilterAnisotropic+        JSDOM.Generated.Element+        JSDOM.Generated.Entity+        JSDOM.Generated.Enums+        JSDOM.Generated.ErrorEvent+        JSDOM.Generated.Event+        JSDOM.Generated.EventListener+        JSDOM.Generated.EventSource+        JSDOM.Generated.EventTarget+        JSDOM.Generated.File+        JSDOM.Generated.FileError+        JSDOM.Generated.FileList+        JSDOM.Generated.FileReader+        JSDOM.Generated.FileReaderSync+        JSDOM.Generated.FocusEvent+        JSDOM.Generated.FontLoader+        JSDOM.Generated.GainNode+        JSDOM.Generated.Gamepad+        JSDOM.Generated.GamepadButton+        JSDOM.Generated.GamepadEvent+        JSDOM.Generated.Geolocation+        JSDOM.Generated.Geoposition+        JSDOM.Generated.HTMLAllCollection+        JSDOM.Generated.HTMLAnchorElement+        JSDOM.Generated.HTMLAppletElement+        JSDOM.Generated.HTMLAreaElement+        JSDOM.Generated.HTMLBRElement+        JSDOM.Generated.HTMLBaseElement+        JSDOM.Generated.HTMLBaseFontElement+        JSDOM.Generated.HTMLBodyElement+        JSDOM.Generated.HTMLButtonElement+        JSDOM.Generated.HTMLCanvasElement+        JSDOM.Generated.HTMLCollection+        JSDOM.Generated.HTMLDListElement+        JSDOM.Generated.HTMLDataListElement+        JSDOM.Generated.HTMLDetailsElement+        JSDOM.Generated.HTMLDirectoryElement+        JSDOM.Generated.HTMLDivElement+        JSDOM.Generated.HTMLDocument+        JSDOM.Generated.HTMLElement+        JSDOM.Generated.HTMLEmbedElement+        JSDOM.Generated.HTMLFieldSetElement+        JSDOM.Generated.HTMLFontElement+        JSDOM.Generated.HTMLFormControlsCollection+        JSDOM.Generated.HTMLFormElement+        JSDOM.Generated.HTMLFrameElement+        JSDOM.Generated.HTMLFrameSetElement+        JSDOM.Generated.HTMLHRElement+        JSDOM.Generated.HTMLHeadElement+        JSDOM.Generated.HTMLHeadingElement+        JSDOM.Generated.HTMLHtmlElement+        JSDOM.Generated.HTMLIFrameElement+        JSDOM.Generated.HTMLImageElement+        JSDOM.Generated.HTMLInputElement+        JSDOM.Generated.HTMLKeygenElement+        JSDOM.Generated.HTMLLIElement+        JSDOM.Generated.HTMLLabelElement+        JSDOM.Generated.HTMLLegendElement+        JSDOM.Generated.HTMLLinkElement+        JSDOM.Generated.HTMLMapElement+        JSDOM.Generated.HTMLMarqueeElement+        JSDOM.Generated.HTMLMediaElement+        JSDOM.Generated.HTMLMenuElement+        JSDOM.Generated.HTMLMetaElement+        JSDOM.Generated.HTMLMeterElement+        JSDOM.Generated.HTMLModElement+        JSDOM.Generated.HTMLOListElement+        JSDOM.Generated.HTMLObjectElement+        JSDOM.Generated.HTMLOptGroupElement+        JSDOM.Generated.HTMLOptionElement+        JSDOM.Generated.HTMLOptionsCollection+        JSDOM.Generated.HTMLOutputElement+        JSDOM.Generated.HTMLParagraphElement+        JSDOM.Generated.HTMLParamElement+        JSDOM.Generated.HTMLPreElement+        JSDOM.Generated.HTMLProgressElement+        JSDOM.Generated.HTMLQuoteElement+        JSDOM.Generated.HTMLScriptElement+        JSDOM.Generated.HTMLSelectElement+        JSDOM.Generated.HTMLSourceElement+        JSDOM.Generated.HTMLStyleElement+        JSDOM.Generated.HTMLTableCaptionElement+        JSDOM.Generated.HTMLTableCellElement+        JSDOM.Generated.HTMLTableColElement+        JSDOM.Generated.HTMLTableElement+        JSDOM.Generated.HTMLTableRowElement+        JSDOM.Generated.HTMLTableSectionElement+        JSDOM.Generated.HTMLTemplateElement+        JSDOM.Generated.HTMLTextAreaElement+        JSDOM.Generated.HTMLTitleElement+        JSDOM.Generated.HTMLTrackElement+        JSDOM.Generated.HTMLUListElement+        JSDOM.Generated.HTMLVideoElement+        JSDOM.Generated.HashChangeEvent+        JSDOM.Generated.History+        JSDOM.Generated.IDBCursor+        JSDOM.Generated.IDBCursorWithValue+        JSDOM.Generated.IDBDatabase+        JSDOM.Generated.IDBFactory+        JSDOM.Generated.IDBIndex+        JSDOM.Generated.IDBKeyRange+        JSDOM.Generated.IDBObjectStore+        JSDOM.Generated.IDBOpenDBRequest+        JSDOM.Generated.IDBRequest+        JSDOM.Generated.IDBTransaction+        JSDOM.Generated.IDBVersionChangeEvent+        JSDOM.Generated.ImageData+        JSDOM.Generated.InspectorFrontendHost+        JSDOM.Generated.InternalSettings+        JSDOM.Generated.Internals+        JSDOM.Generated.KeyboardEvent+        JSDOM.Generated.Location+        JSDOM.Generated.MallocStatistics+        JSDOM.Generated.MediaController+        JSDOM.Generated.MediaControlsHost+        JSDOM.Generated.MediaElementAudioSourceNode+        JSDOM.Generated.MediaError+        JSDOM.Generated.MediaKeyError+        JSDOM.Generated.MediaKeyEvent+        JSDOM.Generated.MediaKeyMessageEvent+        JSDOM.Generated.MediaKeyNeededEvent+        JSDOM.Generated.MediaKeySession+        JSDOM.Generated.MediaKeys+        JSDOM.Generated.MediaList+        JSDOM.Generated.MediaQueryList+        JSDOM.Generated.MediaQueryListListener+        JSDOM.Generated.MediaSource+        JSDOM.Generated.MediaSourceStates+        JSDOM.Generated.MediaStream+        JSDOM.Generated.MediaStreamAudioDestinationNode+        JSDOM.Generated.MediaStreamAudioSourceNode+        JSDOM.Generated.MediaStreamEvent+        JSDOM.Generated.MediaStreamTrack+        JSDOM.Generated.MediaStreamTrackEvent+        JSDOM.Generated.MediaStreamTrackSourcesCallback+        JSDOM.Generated.MediaTrackConstraints+        JSDOM.Generated.MemoryInfo+        JSDOM.Generated.MessageChannel+        JSDOM.Generated.MessageEvent+        JSDOM.Generated.MessagePort+        JSDOM.Generated.MouseEvent+        JSDOM.Generated.MutationEvent+        JSDOM.Generated.MutationObserver+        JSDOM.Generated.MutationRecord+        JSDOM.Generated.NamedNodeMap+        JSDOM.Generated.Navigator+        JSDOM.Generated.NavigatorUserMediaError+        JSDOM.Generated.NavigatorUserMediaErrorCallback+        JSDOM.Generated.NavigatorUserMediaSuccessCallback+        JSDOM.Generated.Node+        JSDOM.Generated.NodeFilter+        JSDOM.Generated.NodeIterator+        JSDOM.Generated.NodeList+        JSDOM.Generated.Notification+        JSDOM.Generated.NotificationCenter+        JSDOM.Generated.NotificationPermissionCallback+        JSDOM.Generated.OESStandardDerivatives+        JSDOM.Generated.OESTextureHalfFloat+        JSDOM.Generated.OESVertexArrayObject+        JSDOM.Generated.OfflineAudioCompletionEvent+        JSDOM.Generated.OfflineAudioContext+        JSDOM.Generated.OscillatorNode+        JSDOM.Generated.OverflowEvent+        JSDOM.Generated.PageTransitionEvent+        JSDOM.Generated.PannerNode+        JSDOM.Generated.Performance+        JSDOM.Generated.PerformanceEntry+        JSDOM.Generated.PerformanceEntryList+        JSDOM.Generated.PerformanceNavigation+        JSDOM.Generated.PerformanceResourceTiming+        JSDOM.Generated.PerformanceTiming+        JSDOM.Generated.PopStateEvent+        JSDOM.Generated.PositionCallback+        JSDOM.Generated.PositionError+        JSDOM.Generated.PositionErrorCallback+        JSDOM.Generated.ProcessingInstruction+        JSDOM.Generated.ProgressEvent+        JSDOM.Generated.QuickTimePluginReplacement+        JSDOM.Generated.RGBColor+        JSDOM.Generated.RTCConfiguration+        JSDOM.Generated.RTCDTMFSender+        JSDOM.Generated.RTCDTMFToneChangeEvent+        JSDOM.Generated.RTCDataChannel+        JSDOM.Generated.RTCDataChannelEvent+        JSDOM.Generated.RTCIceCandidate+        JSDOM.Generated.RTCIceCandidateEvent+        JSDOM.Generated.RTCIceServer+        JSDOM.Generated.RTCPeerConnection+        JSDOM.Generated.RTCPeerConnectionErrorCallback+        JSDOM.Generated.RTCSessionDescription+        JSDOM.Generated.RTCSessionDescriptionCallback+        JSDOM.Generated.RTCStatsCallback+        JSDOM.Generated.RTCStatsReport+        JSDOM.Generated.RTCStatsResponse+        JSDOM.Generated.RadioNodeList+        JSDOM.Generated.Range+        JSDOM.Generated.ReadableStream+        JSDOM.Generated.Rect+        JSDOM.Generated.RequestAnimationFrameCallback+        JSDOM.Generated.SQLError+        JSDOM.Generated.SQLResultSet+        JSDOM.Generated.SQLResultSetRowList+        JSDOM.Generated.SQLStatementCallback+        JSDOM.Generated.SQLStatementErrorCallback+        JSDOM.Generated.SQLTransaction+        JSDOM.Generated.SQLTransactionCallback+        JSDOM.Generated.SQLTransactionErrorCallback+        JSDOM.Generated.SVGAElement+        JSDOM.Generated.SVGAltGlyphElement+        JSDOM.Generated.SVGAngle+        JSDOM.Generated.SVGAnimatedAngle+        JSDOM.Generated.SVGAnimatedBoolean+        JSDOM.Generated.SVGAnimatedEnumeration+        JSDOM.Generated.SVGAnimatedInteger+        JSDOM.Generated.SVGAnimatedLength+        JSDOM.Generated.SVGAnimatedLengthList+        JSDOM.Generated.SVGAnimatedNumber+        JSDOM.Generated.SVGAnimatedNumberList+        JSDOM.Generated.SVGAnimatedPreserveAspectRatio+        JSDOM.Generated.SVGAnimatedRect+        JSDOM.Generated.SVGAnimatedString+        JSDOM.Generated.SVGAnimatedTransformList+        JSDOM.Generated.SVGAnimationElement+        JSDOM.Generated.SVGCircleElement+        JSDOM.Generated.SVGClipPathElement+        JSDOM.Generated.SVGColor+        JSDOM.Generated.SVGComponentTransferFunctionElement+        JSDOM.Generated.SVGCursorElement+        JSDOM.Generated.SVGDocument+        JSDOM.Generated.SVGElement+        JSDOM.Generated.SVGEllipseElement+        JSDOM.Generated.SVGExternalResourcesRequired+        JSDOM.Generated.SVGFEBlendElement+        JSDOM.Generated.SVGFEColorMatrixElement+        JSDOM.Generated.SVGFEComponentTransferElement+        JSDOM.Generated.SVGFECompositeElement+        JSDOM.Generated.SVGFEConvolveMatrixElement+        JSDOM.Generated.SVGFEDiffuseLightingElement+        JSDOM.Generated.SVGFEDisplacementMapElement+        JSDOM.Generated.SVGFEDistantLightElement+        JSDOM.Generated.SVGFEDropShadowElement+        JSDOM.Generated.SVGFEGaussianBlurElement+        JSDOM.Generated.SVGFEImageElement+        JSDOM.Generated.SVGFEMergeNodeElement+        JSDOM.Generated.SVGFEMorphologyElement+        JSDOM.Generated.SVGFEOffsetElement+        JSDOM.Generated.SVGFEPointLightElement+        JSDOM.Generated.SVGFESpecularLightingElement+        JSDOM.Generated.SVGFESpotLightElement+        JSDOM.Generated.SVGFETileElement+        JSDOM.Generated.SVGFETurbulenceElement+        JSDOM.Generated.SVGFilterElement+        JSDOM.Generated.SVGFilterPrimitiveStandardAttributes+        JSDOM.Generated.SVGFitToViewBox+        JSDOM.Generated.SVGForeignObjectElement+        JSDOM.Generated.SVGGlyphRefElement+        JSDOM.Generated.SVGGradientElement+        JSDOM.Generated.SVGGraphicsElement+        JSDOM.Generated.SVGImageElement+        JSDOM.Generated.SVGLength+        JSDOM.Generated.SVGLengthList+        JSDOM.Generated.SVGLineElement+        JSDOM.Generated.SVGLinearGradientElement+        JSDOM.Generated.SVGMarkerElement+        JSDOM.Generated.SVGMaskElement+        JSDOM.Generated.SVGMatrix+        JSDOM.Generated.SVGNumber+        JSDOM.Generated.SVGNumberList+        JSDOM.Generated.SVGPaint+        JSDOM.Generated.SVGPathElement+        JSDOM.Generated.SVGPathSeg+        JSDOM.Generated.SVGPathSegArcAbs+        JSDOM.Generated.SVGPathSegArcRel+        JSDOM.Generated.SVGPathSegCurvetoCubicAbs+        JSDOM.Generated.SVGPathSegCurvetoCubicRel+        JSDOM.Generated.SVGPathSegCurvetoCubicSmoothAbs+        JSDOM.Generated.SVGPathSegCurvetoCubicSmoothRel+        JSDOM.Generated.SVGPathSegCurvetoQuadraticAbs+        JSDOM.Generated.SVGPathSegCurvetoQuadraticRel+        JSDOM.Generated.SVGPathSegCurvetoQuadraticSmoothAbs+        JSDOM.Generated.SVGPathSegCurvetoQuadraticSmoothRel+        JSDOM.Generated.SVGPathSegLinetoAbs+        JSDOM.Generated.SVGPathSegLinetoHorizontalAbs+        JSDOM.Generated.SVGPathSegLinetoHorizontalRel+        JSDOM.Generated.SVGPathSegLinetoRel+        JSDOM.Generated.SVGPathSegLinetoVerticalAbs+        JSDOM.Generated.SVGPathSegLinetoVerticalRel+        JSDOM.Generated.SVGPathSegList+        JSDOM.Generated.SVGPathSegMovetoAbs+        JSDOM.Generated.SVGPathSegMovetoRel+        JSDOM.Generated.SVGPatternElement+        JSDOM.Generated.SVGPoint+        JSDOM.Generated.SVGPointList+        JSDOM.Generated.SVGPolygonElement+        JSDOM.Generated.SVGPolylineElement+        JSDOM.Generated.SVGPreserveAspectRatio+        JSDOM.Generated.SVGRadialGradientElement+        JSDOM.Generated.SVGRect+        JSDOM.Generated.SVGRectElement+        JSDOM.Generated.SVGRenderingIntent+        JSDOM.Generated.SVGScriptElement+        JSDOM.Generated.SVGSVGElement+        JSDOM.Generated.SVGStopElement+        JSDOM.Generated.SVGStringList+        JSDOM.Generated.SVGStyleElement+        JSDOM.Generated.SVGTests+        JSDOM.Generated.SVGTextContentElement+        JSDOM.Generated.SVGTextPathElement+        JSDOM.Generated.SVGTextPositioningElement+        JSDOM.Generated.SVGTransform+        JSDOM.Generated.SVGTransformList+        JSDOM.Generated.SVGURIReference+        JSDOM.Generated.SVGUnitTypes+        JSDOM.Generated.SVGUseElement+        JSDOM.Generated.SVGViewElement+        JSDOM.Generated.SVGViewSpec+        JSDOM.Generated.SVGZoomAndPan+        JSDOM.Generated.SVGZoomEvent+        JSDOM.Generated.Screen+        JSDOM.Generated.ScriptProcessorNode+        JSDOM.Generated.ScriptProfile+        JSDOM.Generated.ScriptProfileNode+        JSDOM.Generated.SecurityPolicyViolationEvent+        JSDOM.Generated.SourceBuffer+        JSDOM.Generated.SourceBufferList+        JSDOM.Generated.SourceInfo+        JSDOM.Generated.SpeechSynthesis+        JSDOM.Generated.SpeechSynthesisEvent+        JSDOM.Generated.SpeechSynthesisUtterance+        JSDOM.Generated.SpeechSynthesisVoice+        JSDOM.Generated.Storage+        JSDOM.Generated.StorageErrorCallback+        JSDOM.Generated.StorageEvent+        JSDOM.Generated.StorageInfo+        JSDOM.Generated.StorageQuota+        JSDOM.Generated.StorageQuotaCallback+        JSDOM.Generated.StorageUsageCallback+        JSDOM.Generated.StringCallback+        JSDOM.Generated.StyleMedia+        JSDOM.Generated.StyleSheet+        JSDOM.Generated.StyleSheetList+        JSDOM.Generated.SubtleCrypto+        JSDOM.Generated.Text+        JSDOM.Generated.TextEvent+        JSDOM.Generated.TextMetrics+        JSDOM.Generated.TextTrack+        JSDOM.Generated.TextTrackCue+        JSDOM.Generated.TextTrackCueList+        JSDOM.Generated.TextTrackList+        JSDOM.Generated.TimeRanges+        JSDOM.Generated.Touch+        JSDOM.Generated.TouchEvent+        JSDOM.Generated.TouchList+        JSDOM.Generated.TrackEvent+        JSDOM.Generated.TransitionEvent+        JSDOM.Generated.TreeWalker+        JSDOM.Generated.TypeConversions+        JSDOM.Generated.UIEvent+        JSDOM.Generated.UIRequestEvent+        JSDOM.Generated.URLUtils+        JSDOM.Generated.UserMessageHandler+        JSDOM.Generated.VTTCue+        JSDOM.Generated.VTTRegion+        JSDOM.Generated.VTTRegionList+        JSDOM.Generated.ValidityState+        JSDOM.Generated.VideoPlaybackQuality+        JSDOM.Generated.VideoStreamTrack+        JSDOM.Generated.VideoTrack+        JSDOM.Generated.VideoTrackList+        JSDOM.Generated.VoidCallback+        JSDOM.Generated.WaveShaperNode+        JSDOM.Generated.WebGL2RenderingContext+        JSDOM.Generated.WebGLActiveInfo+        JSDOM.Generated.WebGLCompressedTextureATC+        JSDOM.Generated.WebGLCompressedTexturePVRTC+        JSDOM.Generated.WebGLCompressedTextureS3TC+        JSDOM.Generated.WebGLContextAttributes+        JSDOM.Generated.WebGLContextEvent+        JSDOM.Generated.WebGLDebugRendererInfo+        JSDOM.Generated.WebGLDebugShaders+        JSDOM.Generated.WebGLDepthTexture+        JSDOM.Generated.WebGLDrawBuffers+        JSDOM.Generated.WebGLLoseContext+        JSDOM.Generated.WebGLRenderingContextBase+        JSDOM.Generated.WebGLShaderPrecisionFormat+        JSDOM.Generated.WebKitAnimationEvent+        JSDOM.Generated.WebKitCSSFilterValue+        JSDOM.Generated.WebKitCSSMatrix+        JSDOM.Generated.WebKitCSSRegionRule+        JSDOM.Generated.WebKitCSSTransformValue+        JSDOM.Generated.WebKitCSSViewportRule+        JSDOM.Generated.WebKitNamedFlow+        JSDOM.Generated.WebKitNamespace+        JSDOM.Generated.WebKitPlaybackTargetAvailabilityEvent+        JSDOM.Generated.WebKitPoint+        JSDOM.Generated.WebKitTransitionEvent+        JSDOM.Generated.WebSocket+        JSDOM.Generated.WheelEvent+        JSDOM.Generated.WindowBase64+        JSDOM.Generated.WindowTimers+        JSDOM.Generated.Worker+        JSDOM.Generated.WorkerGlobalScope+        JSDOM.Generated.WorkerLocation+        JSDOM.Generated.WorkerNavigator+        JSDOM.Generated.XMLHttpRequest+        JSDOM.Generated.XMLHttpRequestProgressEvent+        JSDOM.Generated.XMLHttpRequestUpload+        JSDOM.Generated.XMLSerializer+        JSDOM.Generated.XPathEvaluator+        JSDOM.Generated.XPathExpression+        JSDOM.Generated.XPathNSResolver+        JSDOM.Generated.XPathResult+        JSDOM.Generated.XSLTProcessor+        JSDOM+        JSDOM.EventM+        JSDOM.Types+        JSDOM.Enums+        JSDOM.EventTargetClosures++    reexported-modules:+          JSDOM.Custom.AudioContext as JSDOM.AudioContext+        , JSDOM.Custom.Database as JSDOM.Database+        , JSDOM.Custom.DOMError as JSDOM.DOMError+        , JSDOM.Custom.Geolocation as JSDOM.Geolocation+        , JSDOM.Custom.MediaStreamTrack as JSDOM.MediaStreamTrack+        , JSDOM.Custom.Navigator as JSDOM.Navigator+        , JSDOM.Custom.NavigatorUserMediaError as JSDOM.NavigatorUserMediaError+        , JSDOM.Custom.PositionError as JSDOM.PositionError+        , JSDOM.Custom.RTCPeerConnection as JSDOM.RTCPeerConnection+        , JSDOM.Custom.RTCPeerConnectionError as JSDOM.RTCPeerConnectionError+        , JSDOM.Custom.SQLError as JSDOM.SQLError+        , JSDOM.Custom.SQLTransaction as JSDOM.SQLTransaction+        , JSDOM.Custom.Window as JSDOM.Window+        , JSDOM.Custom.XMLHttpRequest as JSDOM.XMLHttpRequest+        , JSDOM.Generated.ANGLEInstancedArrays as JSDOM.ANGLEInstancedArrays+        , JSDOM.Generated.AbstractView as JSDOM.AbstractView+        , JSDOM.Generated.AbstractWorker as JSDOM.AbstractWorker+        , JSDOM.Generated.AllAudioCapabilities as JSDOM.AllAudioCapabilities+        , JSDOM.Generated.AllVideoCapabilities as JSDOM.AllVideoCapabilities+        , JSDOM.Generated.AnalyserNode as JSDOM.AnalyserNode+        , JSDOM.Generated.AnimationEvent as JSDOM.AnimationEvent+        , JSDOM.Generated.Attr as JSDOM.Attr+        , JSDOM.Generated.AudioBuffer as JSDOM.AudioBuffer+        , JSDOM.Generated.AudioBufferCallback as JSDOM.AudioBufferCallback+        , JSDOM.Generated.AudioBufferSourceNode as JSDOM.AudioBufferSourceNode+        , JSDOM.Generated.AudioDestinationNode as JSDOM.AudioDestinationNode+        , JSDOM.Generated.AudioListener as JSDOM.AudioListener+        , JSDOM.Generated.AudioNode as JSDOM.AudioNode+        , JSDOM.Generated.AudioParam as JSDOM.AudioParam+        , JSDOM.Generated.AudioProcessingEvent as JSDOM.AudioProcessingEvent+        , JSDOM.Generated.AudioStreamTrack as JSDOM.AudioStreamTrack+        , JSDOM.Generated.AudioTrack as JSDOM.AudioTrack+        , JSDOM.Generated.AudioTrackList as JSDOM.AudioTrackList+        , JSDOM.Generated.AutocompleteErrorEvent as JSDOM.AutocompleteErrorEvent+        , JSDOM.Generated.BarProp as JSDOM.BarProp+        , JSDOM.Generated.BatteryManager as JSDOM.BatteryManager+        , JSDOM.Generated.BeforeLoadEvent as JSDOM.BeforeLoadEvent+        , JSDOM.Generated.BeforeUnloadEvent as JSDOM.BeforeUnloadEvent+        , JSDOM.Generated.BiquadFilterNode as JSDOM.BiquadFilterNode+        , JSDOM.Generated.Blob as JSDOM.Blob+        , JSDOM.Generated.CSSCharsetRule as JSDOM.CSSCharsetRule+        , JSDOM.Generated.CSSFontFaceLoadEvent as JSDOM.CSSFontFaceLoadEvent+        , JSDOM.Generated.CSSFontFaceRule as JSDOM.CSSFontFaceRule+        , JSDOM.Generated.CSSImportRule as JSDOM.CSSImportRule+        , JSDOM.Generated.CSSKeyframeRule as JSDOM.CSSKeyframeRule+        , JSDOM.Generated.CSSKeyframesRule as JSDOM.CSSKeyframesRule+        , JSDOM.Generated.CSSMediaRule as JSDOM.CSSMediaRule+        , JSDOM.Generated.CSSPageRule as JSDOM.CSSPageRule+        , JSDOM.Generated.CSSPrimitiveValue as JSDOM.CSSPrimitiveValue+        , JSDOM.Generated.CSSRule as JSDOM.CSSRule+        , JSDOM.Generated.CSSRuleList as JSDOM.CSSRuleList+        , JSDOM.Generated.CSSStyleDeclaration as JSDOM.CSSStyleDeclaration+        , JSDOM.Generated.CSSStyleRule as JSDOM.CSSStyleRule+        , JSDOM.Generated.CSSStyleSheet as JSDOM.CSSStyleSheet+        , JSDOM.Generated.CSSSupportsRule as JSDOM.CSSSupportsRule+        , JSDOM.Generated.CSSValue as JSDOM.CSSValue+        , JSDOM.Generated.CSSValueList as JSDOM.CSSValueList+        , JSDOM.Generated.CanvasGradient as JSDOM.CanvasGradient+        , JSDOM.Generated.CanvasRenderingContext as JSDOM.CanvasRenderingContext+        , JSDOM.Generated.CanvasRenderingContext2D as JSDOM.CanvasRenderingContext2D+        , JSDOM.Generated.CapabilityRange as JSDOM.CapabilityRange+        , JSDOM.Generated.CharacterData as JSDOM.CharacterData+        , JSDOM.Generated.ChildNode as JSDOM.ChildNode+        , JSDOM.Generated.ClientRect as JSDOM.ClientRect+        , JSDOM.Generated.ClientRectList as JSDOM.ClientRectList+        , JSDOM.Generated.CloseEvent as JSDOM.CloseEvent+        , JSDOM.Generated.CommandLineAPIHost as JSDOM.CommandLineAPIHost+        , JSDOM.Generated.Comment as JSDOM.Comment+        , JSDOM.Generated.CompositionEvent as JSDOM.CompositionEvent+        , JSDOM.Generated.ConvolverNode as JSDOM.ConvolverNode+        , JSDOM.Generated.Coordinates as JSDOM.Coordinates+        , JSDOM.Generated.Counter as JSDOM.Counter+        , JSDOM.Generated.Crypto as JSDOM.Crypto+        , JSDOM.Generated.CryptoKey as JSDOM.CryptoKey+        , JSDOM.Generated.CryptoKeyPair as JSDOM.CryptoKeyPair+        , JSDOM.Generated.CustomEvent as JSDOM.CustomEvent+        , JSDOM.Generated.ApplicationCache as JSDOM.ApplicationCache+        , JSDOM.Generated.FormData as JSDOM.FormData+        , JSDOM.Generated.DOMImplementation as JSDOM.DOMImplementation+        , JSDOM.Generated.MimeType as JSDOM.MimeType+        , JSDOM.Generated.MimeTypeArray as JSDOM.MimeTypeArray+        , JSDOM.Generated.DOMNamedFlowCollection as JSDOM.DOMNamedFlowCollection+        , JSDOM.Generated.DOMParser as JSDOM.DOMParser+        , JSDOM.Generated.Path2D as JSDOM.Path2D+        , JSDOM.Generated.Plugin as JSDOM.Plugin+        , JSDOM.Generated.PluginArray as JSDOM.PluginArray+        , JSDOM.Generated.SecurityPolicy as JSDOM.SecurityPolicy+        , JSDOM.Generated.Selection as JSDOM.Selection+        , JSDOM.Generated.DOMSettableTokenList as JSDOM.DOMSettableTokenList+        , JSDOM.Generated.DOMStringList as JSDOM.DOMStringList+        , JSDOM.Generated.DOMTokenList as JSDOM.DOMTokenList+        , JSDOM.Generated.URL as JSDOM.URL+        , JSDOM.Generated.CSS as JSDOM.CSS+        , JSDOM.Generated.DataCue as JSDOM.DataCue+        , JSDOM.Generated.DataTransfer as JSDOM.DataTransfer+        , JSDOM.Generated.DataTransferItem as JSDOM.DataTransferItem+        , JSDOM.Generated.DataTransferItemList as JSDOM.DataTransferItemList+        , JSDOM.Generated.DatabaseCallback as JSDOM.DatabaseCallback+        , JSDOM.Generated.DedicatedWorkerGlobalScope as JSDOM.DedicatedWorkerGlobalScope+        , JSDOM.Generated.DelayNode as JSDOM.DelayNode+        , JSDOM.Generated.DeviceMotionEvent as JSDOM.DeviceMotionEvent+        , JSDOM.Generated.DeviceOrientationEvent as JSDOM.DeviceOrientationEvent+        , JSDOM.Generated.DeviceProximityEvent as JSDOM.DeviceProximityEvent+        , JSDOM.Generated.Document as JSDOM.Document+        , JSDOM.Generated.DocumentFragment as JSDOM.DocumentFragment+        , JSDOM.Generated.DocumentType as JSDOM.DocumentType+        , JSDOM.Generated.DynamicsCompressorNode as JSDOM.DynamicsCompressorNode+        , JSDOM.Generated.EXTBlendMinMax as JSDOM.EXTBlendMinMax+        , JSDOM.Generated.EXTsRGB as JSDOM.EXTsRGB+        , JSDOM.Generated.EXTTextureFilterAnisotropic as JSDOM.EXTTextureFilterAnisotropic+        , JSDOM.Generated.Element as JSDOM.Element+        , JSDOM.Generated.Entity as JSDOM.Entity+        , JSDOM.Generated.ErrorEvent as JSDOM.ErrorEvent+        , JSDOM.Generated.Event as JSDOM.Event+        , JSDOM.Generated.EventListener as JSDOM.EventListener+        , JSDOM.Generated.EventSource as JSDOM.EventSource+        , JSDOM.Generated.EventTarget as JSDOM.EventTarget+        , JSDOM.Generated.File as JSDOM.File+        , JSDOM.Generated.FileError as JSDOM.FileError+        , JSDOM.Generated.FileList as JSDOM.FileList+        , JSDOM.Generated.FileReader as JSDOM.FileReader+        , JSDOM.Generated.FileReaderSync as JSDOM.FileReaderSync+        , JSDOM.Generated.FocusEvent as JSDOM.FocusEvent+        , JSDOM.Generated.FontLoader as JSDOM.FontLoader+        , JSDOM.Generated.GainNode as JSDOM.GainNode+        , JSDOM.Generated.Gamepad as JSDOM.Gamepad+        , JSDOM.Generated.GamepadButton as JSDOM.GamepadButton+        , JSDOM.Generated.GamepadEvent as JSDOM.GamepadEvent+        , JSDOM.Generated.Geoposition as JSDOM.Geoposition+        , JSDOM.Generated.HTMLAllCollection as JSDOM.HTMLAllCollection+        , JSDOM.Generated.HTMLAnchorElement as JSDOM.HTMLAnchorElement+        , JSDOM.Generated.HTMLAppletElement as JSDOM.HTMLAppletElement+        , JSDOM.Generated.HTMLAreaElement as JSDOM.HTMLAreaElement+        , JSDOM.Generated.HTMLBRElement as JSDOM.HTMLBRElement+        , JSDOM.Generated.HTMLBaseElement as JSDOM.HTMLBaseElement+        , JSDOM.Generated.HTMLBaseFontElement as JSDOM.HTMLBaseFontElement+        , JSDOM.Generated.HTMLBodyElement as JSDOM.HTMLBodyElement+        , JSDOM.Generated.HTMLButtonElement as JSDOM.HTMLButtonElement+        , JSDOM.Generated.HTMLCanvasElement as JSDOM.HTMLCanvasElement+        , JSDOM.Generated.HTMLCollection as JSDOM.HTMLCollection+        , JSDOM.Generated.HTMLDListElement as JSDOM.HTMLDListElement+        , JSDOM.Generated.HTMLDataListElement as JSDOM.HTMLDataListElement+        , JSDOM.Generated.HTMLDetailsElement as JSDOM.HTMLDetailsElement+        , JSDOM.Generated.HTMLDirectoryElement as JSDOM.HTMLDirectoryElement+        , JSDOM.Generated.HTMLDivElement as JSDOM.HTMLDivElement+        , JSDOM.Generated.HTMLDocument as JSDOM.HTMLDocument+        , JSDOM.Generated.HTMLElement as JSDOM.HTMLElement+        , JSDOM.Generated.HTMLEmbedElement as JSDOM.HTMLEmbedElement+        , JSDOM.Generated.HTMLFieldSetElement as JSDOM.HTMLFieldSetElement+        , JSDOM.Generated.HTMLFontElement as JSDOM.HTMLFontElement+        , JSDOM.Generated.HTMLFormControlsCollection as JSDOM.HTMLFormControlsCollection+        , JSDOM.Generated.HTMLFormElement as JSDOM.HTMLFormElement+        , JSDOM.Generated.HTMLFrameElement as JSDOM.HTMLFrameElement+        , JSDOM.Generated.HTMLFrameSetElement as JSDOM.HTMLFrameSetElement+        , JSDOM.Generated.HTMLHRElement as JSDOM.HTMLHRElement+        , JSDOM.Generated.HTMLHeadElement as JSDOM.HTMLHeadElement+        , JSDOM.Generated.HTMLHeadingElement as JSDOM.HTMLHeadingElement+        , JSDOM.Generated.HTMLHtmlElement as JSDOM.HTMLHtmlElement+        , JSDOM.Generated.HTMLIFrameElement as JSDOM.HTMLIFrameElement+        , JSDOM.Generated.HTMLImageElement as JSDOM.HTMLImageElement+        , JSDOM.Generated.HTMLInputElement as JSDOM.HTMLInputElement+        , JSDOM.Generated.HTMLKeygenElement as JSDOM.HTMLKeygenElement+        , JSDOM.Generated.HTMLLIElement as JSDOM.HTMLLIElement+        , JSDOM.Generated.HTMLLabelElement as JSDOM.HTMLLabelElement+        , JSDOM.Generated.HTMLLegendElement as JSDOM.HTMLLegendElement+        , JSDOM.Generated.HTMLLinkElement as JSDOM.HTMLLinkElement+        , JSDOM.Generated.HTMLMapElement as JSDOM.HTMLMapElement+        , JSDOM.Generated.HTMLMarqueeElement as JSDOM.HTMLMarqueeElement+        , JSDOM.Generated.HTMLMediaElement as JSDOM.HTMLMediaElement+        , JSDOM.Generated.HTMLMenuElement as JSDOM.HTMLMenuElement+        , JSDOM.Generated.HTMLMetaElement as JSDOM.HTMLMetaElement+        , JSDOM.Generated.HTMLMeterElement as JSDOM.HTMLMeterElement+        , JSDOM.Generated.HTMLModElement as JSDOM.HTMLModElement+        , JSDOM.Generated.HTMLOListElement as JSDOM.HTMLOListElement+        , JSDOM.Generated.HTMLObjectElement as JSDOM.HTMLObjectElement+        , JSDOM.Generated.HTMLOptGroupElement as JSDOM.HTMLOptGroupElement+        , JSDOM.Generated.HTMLOptionElement as JSDOM.HTMLOptionElement+        , JSDOM.Generated.HTMLOptionsCollection as JSDOM.HTMLOptionsCollection+        , JSDOM.Generated.HTMLOutputElement as JSDOM.HTMLOutputElement+        , JSDOM.Generated.HTMLParagraphElement as JSDOM.HTMLParagraphElement+        , JSDOM.Generated.HTMLParamElement as JSDOM.HTMLParamElement+        , JSDOM.Generated.HTMLPreElement as JSDOM.HTMLPreElement+        , JSDOM.Generated.HTMLProgressElement as JSDOM.HTMLProgressElement+        , JSDOM.Generated.HTMLQuoteElement as JSDOM.HTMLQuoteElement+        , JSDOM.Generated.HTMLScriptElement as JSDOM.HTMLScriptElement+        , JSDOM.Generated.HTMLSelectElement as JSDOM.HTMLSelectElement+        , JSDOM.Generated.HTMLSourceElement as JSDOM.HTMLSourceElement+        , JSDOM.Generated.HTMLStyleElement as JSDOM.HTMLStyleElement+        , JSDOM.Generated.HTMLTableCaptionElement as JSDOM.HTMLTableCaptionElement+        , JSDOM.Generated.HTMLTableCellElement as JSDOM.HTMLTableCellElement+        , JSDOM.Generated.HTMLTableColElement as JSDOM.HTMLTableColElement+        , JSDOM.Generated.HTMLTableElement as JSDOM.HTMLTableElement+        , JSDOM.Generated.HTMLTableRowElement as JSDOM.HTMLTableRowElement+        , JSDOM.Generated.HTMLTableSectionElement as JSDOM.HTMLTableSectionElement+        , JSDOM.Generated.HTMLTemplateElement as JSDOM.HTMLTemplateElement+        , JSDOM.Generated.HTMLTextAreaElement as JSDOM.HTMLTextAreaElement+        , JSDOM.Generated.HTMLTitleElement as JSDOM.HTMLTitleElement+        , JSDOM.Generated.HTMLTrackElement as JSDOM.HTMLTrackElement+        , JSDOM.Generated.HTMLUListElement as JSDOM.HTMLUListElement+        , JSDOM.Generated.HTMLVideoElement as JSDOM.HTMLVideoElement+        , JSDOM.Generated.HashChangeEvent as JSDOM.HashChangeEvent+        , JSDOM.Generated.History as JSDOM.History+        , JSDOM.Generated.IDBCursor as JSDOM.IDBCursor+        , JSDOM.Generated.IDBCursorWithValue as JSDOM.IDBCursorWithValue+        , JSDOM.Generated.IDBDatabase as JSDOM.IDBDatabase+        , JSDOM.Generated.IDBFactory as JSDOM.IDBFactory+        , JSDOM.Generated.IDBIndex as JSDOM.IDBIndex+        , JSDOM.Generated.IDBKeyRange as JSDOM.IDBKeyRange+        , JSDOM.Generated.IDBObjectStore as JSDOM.IDBObjectStore+        , JSDOM.Generated.IDBOpenDBRequest as JSDOM.IDBOpenDBRequest+        , JSDOM.Generated.IDBRequest as JSDOM.IDBRequest+        , JSDOM.Generated.IDBTransaction as JSDOM.IDBTransaction+        , JSDOM.Generated.IDBVersionChangeEvent as JSDOM.IDBVersionChangeEvent+        , JSDOM.Generated.ImageData as JSDOM.ImageData+        , JSDOM.Generated.InspectorFrontendHost as JSDOM.InspectorFrontendHost+        , JSDOM.Generated.InternalSettings as JSDOM.InternalSettings+        , JSDOM.Generated.Internals as JSDOM.Internals+        , JSDOM.Generated.KeyboardEvent as JSDOM.KeyboardEvent+        , JSDOM.Generated.Location as JSDOM.Location+        , JSDOM.Generated.MallocStatistics as JSDOM.MallocStatistics+        , JSDOM.Generated.MediaController as JSDOM.MediaController+        , JSDOM.Generated.MediaControlsHost as JSDOM.MediaControlsHost+        , JSDOM.Generated.MediaElementAudioSourceNode as JSDOM.MediaElementAudioSourceNode+        , JSDOM.Generated.MediaError as JSDOM.MediaError+        , JSDOM.Generated.MediaKeyError as JSDOM.MediaKeyError+        , JSDOM.Generated.MediaKeyEvent as JSDOM.MediaKeyEvent+        , JSDOM.Generated.MediaKeyMessageEvent as JSDOM.MediaKeyMessageEvent+        , JSDOM.Generated.MediaKeyNeededEvent as JSDOM.MediaKeyNeededEvent+        , JSDOM.Generated.MediaKeySession as JSDOM.MediaKeySession+        , JSDOM.Generated.MediaKeys as JSDOM.MediaKeys+        , JSDOM.Generated.MediaList as JSDOM.MediaList+        , JSDOM.Generated.MediaQueryList as JSDOM.MediaQueryList+        , JSDOM.Generated.MediaQueryListListener as JSDOM.MediaQueryListListener+        , JSDOM.Generated.MediaSource as JSDOM.MediaSource+        , JSDOM.Generated.MediaSourceStates as JSDOM.MediaSourceStates+        , JSDOM.Generated.MediaStream as JSDOM.MediaStream+        , JSDOM.Generated.MediaStreamAudioDestinationNode as JSDOM.MediaStreamAudioDestinationNode+        , JSDOM.Generated.MediaStreamAudioSourceNode as JSDOM.MediaStreamAudioSourceNode+        , JSDOM.Generated.MediaStreamEvent as JSDOM.MediaStreamEvent+        , JSDOM.Generated.MediaStreamTrackEvent as JSDOM.MediaStreamTrackEvent+        , JSDOM.Generated.MediaStreamTrackSourcesCallback as JSDOM.MediaStreamTrackSourcesCallback+        , JSDOM.Generated.MediaTrackConstraints as JSDOM.MediaTrackConstraints+        , JSDOM.Generated.MemoryInfo as JSDOM.MemoryInfo+        , JSDOM.Generated.MessageChannel as JSDOM.MessageChannel+        , JSDOM.Generated.MessageEvent as JSDOM.MessageEvent+        , JSDOM.Generated.MessagePort as JSDOM.MessagePort+        , JSDOM.Generated.MouseEvent as JSDOM.MouseEvent+        , JSDOM.Generated.MutationEvent as JSDOM.MutationEvent+        , JSDOM.Generated.MutationObserver as JSDOM.MutationObserver+        , JSDOM.Generated.MutationRecord as JSDOM.MutationRecord+        , JSDOM.Generated.NamedNodeMap as JSDOM.NamedNodeMap+        , JSDOM.Generated.NavigatorUserMediaErrorCallback as JSDOM.NavigatorUserMediaErrorCallback+        , JSDOM.Generated.NavigatorUserMediaSuccessCallback as JSDOM.NavigatorUserMediaSuccessCallback+        , JSDOM.Generated.Node as JSDOM.Node+        , JSDOM.Generated.NodeFilter as JSDOM.NodeFilter+        , JSDOM.Generated.NodeIterator as JSDOM.NodeIterator+        , JSDOM.Generated.NodeList as JSDOM.NodeList+        , JSDOM.Generated.Notification as JSDOM.Notification+        , JSDOM.Generated.NotificationCenter as JSDOM.NotificationCenter+        , JSDOM.Generated.NotificationPermissionCallback as JSDOM.NotificationPermissionCallback+        , JSDOM.Generated.OESStandardDerivatives as JSDOM.OESStandardDerivatives+        , JSDOM.Generated.OESTextureHalfFloat as JSDOM.OESTextureHalfFloat+        , JSDOM.Generated.OESVertexArrayObject as JSDOM.OESVertexArrayObject+        , JSDOM.Generated.OfflineAudioCompletionEvent as JSDOM.OfflineAudioCompletionEvent+        , JSDOM.Generated.OfflineAudioContext as JSDOM.OfflineAudioContext+        , JSDOM.Generated.OscillatorNode as JSDOM.OscillatorNode+        , JSDOM.Generated.OverflowEvent as JSDOM.OverflowEvent+        , JSDOM.Generated.PageTransitionEvent as JSDOM.PageTransitionEvent+        , JSDOM.Generated.PannerNode as JSDOM.PannerNode+        , JSDOM.Generated.Performance as JSDOM.Performance+        , JSDOM.Generated.PerformanceEntry as JSDOM.PerformanceEntry+        , JSDOM.Generated.PerformanceEntryList as JSDOM.PerformanceEntryList+        , JSDOM.Generated.PerformanceNavigation as JSDOM.PerformanceNavigation+        , JSDOM.Generated.PerformanceResourceTiming as JSDOM.PerformanceResourceTiming+        , JSDOM.Generated.PerformanceTiming as JSDOM.PerformanceTiming+        , JSDOM.Generated.PopStateEvent as JSDOM.PopStateEvent+        , JSDOM.Generated.PositionCallback as JSDOM.PositionCallback+        , JSDOM.Generated.PositionErrorCallback as JSDOM.PositionErrorCallback+        , JSDOM.Generated.ProcessingInstruction as JSDOM.ProcessingInstruction+        , JSDOM.Generated.ProgressEvent as JSDOM.ProgressEvent+        , JSDOM.Generated.QuickTimePluginReplacement as JSDOM.QuickTimePluginReplacement+        , JSDOM.Generated.RGBColor as JSDOM.RGBColor+        , JSDOM.Generated.RTCConfiguration as JSDOM.RTCConfiguration+        , JSDOM.Generated.RTCDTMFSender as JSDOM.RTCDTMFSender+        , JSDOM.Generated.RTCDTMFToneChangeEvent as JSDOM.RTCDTMFToneChangeEvent+        , JSDOM.Generated.RTCDataChannel as JSDOM.RTCDataChannel+        , JSDOM.Generated.RTCDataChannelEvent as JSDOM.RTCDataChannelEvent+        , JSDOM.Generated.RTCIceCandidate as JSDOM.RTCIceCandidate+        , JSDOM.Generated.RTCIceCandidateEvent as JSDOM.RTCIceCandidateEvent+        , JSDOM.Generated.RTCIceServer as JSDOM.RTCIceServer+        , JSDOM.Generated.RTCPeerConnectionErrorCallback as JSDOM.RTCPeerConnectionErrorCallback+        , JSDOM.Generated.RTCSessionDescription as JSDOM.RTCSessionDescription+        , JSDOM.Generated.RTCSessionDescriptionCallback as JSDOM.RTCSessionDescriptionCallback+        , JSDOM.Generated.RTCStatsCallback as JSDOM.RTCStatsCallback+        , JSDOM.Generated.RTCStatsReport as JSDOM.RTCStatsReport+        , JSDOM.Generated.RTCStatsResponse as JSDOM.RTCStatsResponse+        , JSDOM.Generated.RadioNodeList as JSDOM.RadioNodeList+        , JSDOM.Generated.Range as JSDOM.Range+        , JSDOM.Generated.ReadableStream as JSDOM.ReadableStream+        , JSDOM.Generated.Rect as JSDOM.Rect+        , JSDOM.Generated.RequestAnimationFrameCallback as JSDOM.RequestAnimationFrameCallback+        , JSDOM.Generated.SQLResultSet as JSDOM.SQLResultSet+        , JSDOM.Generated.SQLResultSetRowList as JSDOM.SQLResultSetRowList+        , JSDOM.Generated.SQLStatementCallback as JSDOM.SQLStatementCallback+        , JSDOM.Generated.SQLStatementErrorCallback as JSDOM.SQLStatementErrorCallback+        , JSDOM.Generated.SQLTransactionCallback as JSDOM.SQLTransactionCallback+        , JSDOM.Generated.SQLTransactionErrorCallback as JSDOM.SQLTransactionErrorCallback+        , JSDOM.Generated.SVGAElement as JSDOM.SVGAElement+        , JSDOM.Generated.SVGAltGlyphElement as JSDOM.SVGAltGlyphElement+        , JSDOM.Generated.SVGAngle as JSDOM.SVGAngle+        , JSDOM.Generated.SVGAnimatedAngle as JSDOM.SVGAnimatedAngle+        , JSDOM.Generated.SVGAnimatedBoolean as JSDOM.SVGAnimatedBoolean+        , JSDOM.Generated.SVGAnimatedEnumeration as JSDOM.SVGAnimatedEnumeration+        , JSDOM.Generated.SVGAnimatedInteger as JSDOM.SVGAnimatedInteger+        , JSDOM.Generated.SVGAnimatedLength as JSDOM.SVGAnimatedLength+        , JSDOM.Generated.SVGAnimatedLengthList as JSDOM.SVGAnimatedLengthList+        , JSDOM.Generated.SVGAnimatedNumber as JSDOM.SVGAnimatedNumber+        , JSDOM.Generated.SVGAnimatedNumberList as JSDOM.SVGAnimatedNumberList+        , JSDOM.Generated.SVGAnimatedPreserveAspectRatio as JSDOM.SVGAnimatedPreserveAspectRatio+        , JSDOM.Generated.SVGAnimatedRect as JSDOM.SVGAnimatedRect+        , JSDOM.Generated.SVGAnimatedString as JSDOM.SVGAnimatedString+        , JSDOM.Generated.SVGAnimatedTransformList as JSDOM.SVGAnimatedTransformList+        , JSDOM.Generated.SVGAnimationElement as JSDOM.SVGAnimationElement+        , JSDOM.Generated.SVGCircleElement as JSDOM.SVGCircleElement+        , JSDOM.Generated.SVGClipPathElement as JSDOM.SVGClipPathElement+        , JSDOM.Generated.SVGColor as JSDOM.SVGColor+        , JSDOM.Generated.SVGComponentTransferFunctionElement as JSDOM.SVGComponentTransferFunctionElement+        , JSDOM.Generated.SVGCursorElement as JSDOM.SVGCursorElement+        , JSDOM.Generated.SVGDocument as JSDOM.SVGDocument+        , JSDOM.Generated.SVGElement as JSDOM.SVGElement+        , JSDOM.Generated.SVGEllipseElement as JSDOM.SVGEllipseElement+        , JSDOM.Generated.SVGExternalResourcesRequired as JSDOM.SVGExternalResourcesRequired+        , JSDOM.Generated.SVGFEBlendElement as JSDOM.SVGFEBlendElement+        , JSDOM.Generated.SVGFEColorMatrixElement as JSDOM.SVGFEColorMatrixElement+        , JSDOM.Generated.SVGFEComponentTransferElement as JSDOM.SVGFEComponentTransferElement+        , JSDOM.Generated.SVGFECompositeElement as JSDOM.SVGFECompositeElement+        , JSDOM.Generated.SVGFEConvolveMatrixElement as JSDOM.SVGFEConvolveMatrixElement+        , JSDOM.Generated.SVGFEDiffuseLightingElement as JSDOM.SVGFEDiffuseLightingElement+        , JSDOM.Generated.SVGFEDisplacementMapElement as JSDOM.SVGFEDisplacementMapElement+        , JSDOM.Generated.SVGFEDistantLightElement as JSDOM.SVGFEDistantLightElement+        , JSDOM.Generated.SVGFEDropShadowElement as JSDOM.SVGFEDropShadowElement+        , JSDOM.Generated.SVGFEGaussianBlurElement as JSDOM.SVGFEGaussianBlurElement+        , JSDOM.Generated.SVGFEImageElement as JSDOM.SVGFEImageElement+        , JSDOM.Generated.SVGFEMergeNodeElement as JSDOM.SVGFEMergeNodeElement+        , JSDOM.Generated.SVGFEMorphologyElement as JSDOM.SVGFEMorphologyElement+        , JSDOM.Generated.SVGFEOffsetElement as JSDOM.SVGFEOffsetElement+        , JSDOM.Generated.SVGFEPointLightElement as JSDOM.SVGFEPointLightElement+        , JSDOM.Generated.SVGFESpecularLightingElement as JSDOM.SVGFESpecularLightingElement+        , JSDOM.Generated.SVGFESpotLightElement as JSDOM.SVGFESpotLightElement+        , JSDOM.Generated.SVGFETileElement as JSDOM.SVGFETileElement+        , JSDOM.Generated.SVGFETurbulenceElement as JSDOM.SVGFETurbulenceElement+        , JSDOM.Generated.SVGFilterElement as JSDOM.SVGFilterElement+        , JSDOM.Generated.SVGFilterPrimitiveStandardAttributes as JSDOM.SVGFilterPrimitiveStandardAttributes+        , JSDOM.Generated.SVGFitToViewBox as JSDOM.SVGFitToViewBox+        , JSDOM.Generated.SVGForeignObjectElement as JSDOM.SVGForeignObjectElement+        , JSDOM.Generated.SVGGlyphRefElement as JSDOM.SVGGlyphRefElement+        , JSDOM.Generated.SVGGradientElement as JSDOM.SVGGradientElement+        , JSDOM.Generated.SVGGraphicsElement as JSDOM.SVGGraphicsElement+        , JSDOM.Generated.SVGImageElement as JSDOM.SVGImageElement+        , JSDOM.Generated.SVGLength as JSDOM.SVGLength+        , JSDOM.Generated.SVGLengthList as JSDOM.SVGLengthList+        , JSDOM.Generated.SVGLineElement as JSDOM.SVGLineElement+        , JSDOM.Generated.SVGLinearGradientElement as JSDOM.SVGLinearGradientElement+        , JSDOM.Generated.SVGMarkerElement as JSDOM.SVGMarkerElement+        , JSDOM.Generated.SVGMaskElement as JSDOM.SVGMaskElement+        , JSDOM.Generated.SVGMatrix as JSDOM.SVGMatrix+        , JSDOM.Generated.SVGNumber as JSDOM.SVGNumber+        , JSDOM.Generated.SVGNumberList as JSDOM.SVGNumberList+        , JSDOM.Generated.SVGPaint as JSDOM.SVGPaint+        , JSDOM.Generated.SVGPathElement as JSDOM.SVGPathElement+        , JSDOM.Generated.SVGPathSeg as JSDOM.SVGPathSeg+        , JSDOM.Generated.SVGPathSegArcAbs as JSDOM.SVGPathSegArcAbs+        , JSDOM.Generated.SVGPathSegArcRel as JSDOM.SVGPathSegArcRel+        , JSDOM.Generated.SVGPathSegCurvetoCubicAbs as JSDOM.SVGPathSegCurvetoCubicAbs+        , JSDOM.Generated.SVGPathSegCurvetoCubicRel as JSDOM.SVGPathSegCurvetoCubicRel+        , JSDOM.Generated.SVGPathSegCurvetoCubicSmoothAbs as JSDOM.SVGPathSegCurvetoCubicSmoothAbs+        , JSDOM.Generated.SVGPathSegCurvetoCubicSmoothRel as JSDOM.SVGPathSegCurvetoCubicSmoothRel+        , JSDOM.Generated.SVGPathSegCurvetoQuadraticAbs as JSDOM.SVGPathSegCurvetoQuadraticAbs+        , JSDOM.Generated.SVGPathSegCurvetoQuadraticRel as JSDOM.SVGPathSegCurvetoQuadraticRel+        , JSDOM.Generated.SVGPathSegCurvetoQuadraticSmoothAbs as JSDOM.SVGPathSegCurvetoQuadraticSmoothAbs+        , JSDOM.Generated.SVGPathSegCurvetoQuadraticSmoothRel as JSDOM.SVGPathSegCurvetoQuadraticSmoothRel+        , JSDOM.Generated.SVGPathSegLinetoAbs as JSDOM.SVGPathSegLinetoAbs+        , JSDOM.Generated.SVGPathSegLinetoHorizontalAbs as JSDOM.SVGPathSegLinetoHorizontalAbs+        , JSDOM.Generated.SVGPathSegLinetoHorizontalRel as JSDOM.SVGPathSegLinetoHorizontalRel+        , JSDOM.Generated.SVGPathSegLinetoRel as JSDOM.SVGPathSegLinetoRel+        , JSDOM.Generated.SVGPathSegLinetoVerticalAbs as JSDOM.SVGPathSegLinetoVerticalAbs+        , JSDOM.Generated.SVGPathSegLinetoVerticalRel as JSDOM.SVGPathSegLinetoVerticalRel+        , JSDOM.Generated.SVGPathSegList as JSDOM.SVGPathSegList+        , JSDOM.Generated.SVGPathSegMovetoAbs as JSDOM.SVGPathSegMovetoAbs+        , JSDOM.Generated.SVGPathSegMovetoRel as JSDOM.SVGPathSegMovetoRel+        , JSDOM.Generated.SVGPatternElement as JSDOM.SVGPatternElement+        , JSDOM.Generated.SVGPoint as JSDOM.SVGPoint+        , JSDOM.Generated.SVGPointList as JSDOM.SVGPointList+        , JSDOM.Generated.SVGPolygonElement as JSDOM.SVGPolygonElement+        , JSDOM.Generated.SVGPolylineElement as JSDOM.SVGPolylineElement+        , JSDOM.Generated.SVGPreserveAspectRatio as JSDOM.SVGPreserveAspectRatio+        , JSDOM.Generated.SVGRadialGradientElement as JSDOM.SVGRadialGradientElement+        , JSDOM.Generated.SVGRect as JSDOM.SVGRect+        , JSDOM.Generated.SVGRectElement as JSDOM.SVGRectElement+        , JSDOM.Generated.SVGRenderingIntent as JSDOM.SVGRenderingIntent+        , JSDOM.Generated.SVGScriptElement as JSDOM.SVGScriptElement+        , JSDOM.Generated.SVGSVGElement as JSDOM.SVGSVGElement+        , JSDOM.Generated.SVGStopElement as JSDOM.SVGStopElement+        , JSDOM.Generated.SVGStringList as JSDOM.SVGStringList+        , JSDOM.Generated.SVGStyleElement as JSDOM.SVGStyleElement+        , JSDOM.Generated.SVGTests as JSDOM.SVGTests+        , JSDOM.Generated.SVGTextContentElement as JSDOM.SVGTextContentElement+        , JSDOM.Generated.SVGTextPathElement as JSDOM.SVGTextPathElement+        , JSDOM.Generated.SVGTextPositioningElement as JSDOM.SVGTextPositioningElement+        , JSDOM.Generated.SVGTransform as JSDOM.SVGTransform+        , JSDOM.Generated.SVGTransformList as JSDOM.SVGTransformList+        , JSDOM.Generated.SVGURIReference as JSDOM.SVGURIReference+        , JSDOM.Generated.SVGUnitTypes as JSDOM.SVGUnitTypes+        , JSDOM.Generated.SVGUseElement as JSDOM.SVGUseElement+        , JSDOM.Generated.SVGViewElement as JSDOM.SVGViewElement+        , JSDOM.Generated.SVGViewSpec as JSDOM.SVGViewSpec+        , JSDOM.Generated.SVGZoomAndPan as JSDOM.SVGZoomAndPan+        , JSDOM.Generated.SVGZoomEvent as JSDOM.SVGZoomEvent+        , JSDOM.Generated.Screen as JSDOM.Screen+        , JSDOM.Generated.ScriptProcessorNode as JSDOM.ScriptProcessorNode+        , JSDOM.Generated.ScriptProfile as JSDOM.ScriptProfile+        , JSDOM.Generated.ScriptProfileNode as JSDOM.ScriptProfileNode+        , JSDOM.Generated.SecurityPolicyViolationEvent as JSDOM.SecurityPolicyViolationEvent+        , JSDOM.Generated.SourceBuffer as JSDOM.SourceBuffer+        , JSDOM.Generated.SourceBufferList as JSDOM.SourceBufferList+        , JSDOM.Generated.SourceInfo as JSDOM.SourceInfo+        , JSDOM.Generated.SpeechSynthesis as JSDOM.SpeechSynthesis+        , JSDOM.Generated.SpeechSynthesisEvent as JSDOM.SpeechSynthesisEvent+        , JSDOM.Generated.SpeechSynthesisUtterance as JSDOM.SpeechSynthesisUtterance+        , JSDOM.Generated.SpeechSynthesisVoice as JSDOM.SpeechSynthesisVoice+        , JSDOM.Generated.Storage as JSDOM.Storage+        , JSDOM.Generated.StorageErrorCallback as JSDOM.StorageErrorCallback+        , JSDOM.Generated.StorageEvent as JSDOM.StorageEvent+        , JSDOM.Generated.StorageInfo as JSDOM.StorageInfo+        , JSDOM.Generated.StorageQuota as JSDOM.StorageQuota+        , JSDOM.Generated.StorageQuotaCallback as JSDOM.StorageQuotaCallback+        , JSDOM.Generated.StorageUsageCallback as JSDOM.StorageUsageCallback+        , JSDOM.Generated.StringCallback as JSDOM.StringCallback+        , JSDOM.Generated.StyleMedia as JSDOM.StyleMedia+        , JSDOM.Generated.StyleSheet as JSDOM.StyleSheet+        , JSDOM.Generated.StyleSheetList as JSDOM.StyleSheetList+        , JSDOM.Generated.SubtleCrypto as JSDOM.SubtleCrypto+        , JSDOM.Generated.Text as JSDOM.Text+        , JSDOM.Generated.TextEvent as JSDOM.TextEvent+        , JSDOM.Generated.TextMetrics as JSDOM.TextMetrics+        , JSDOM.Generated.TextTrack as JSDOM.TextTrack+        , JSDOM.Generated.TextTrackCue as JSDOM.TextTrackCue+        , JSDOM.Generated.TextTrackCueList as JSDOM.TextTrackCueList+        , JSDOM.Generated.TextTrackList as JSDOM.TextTrackList+        , JSDOM.Generated.TimeRanges as JSDOM.TimeRanges+        , JSDOM.Generated.Touch as JSDOM.Touch+        , JSDOM.Generated.TouchEvent as JSDOM.TouchEvent+        , JSDOM.Generated.TouchList as JSDOM.TouchList+        , JSDOM.Generated.TrackEvent as JSDOM.TrackEvent+        , JSDOM.Generated.TransitionEvent as JSDOM.TransitionEvent+        , JSDOM.Generated.TreeWalker as JSDOM.TreeWalker+        , JSDOM.Generated.TypeConversions as JSDOM.TypeConversions+        , JSDOM.Generated.UIEvent as JSDOM.UIEvent+        , JSDOM.Generated.UIRequestEvent as JSDOM.UIRequestEvent+        , JSDOM.Generated.URLUtils as JSDOM.URLUtils+        , JSDOM.Generated.UserMessageHandler as JSDOM.UserMessageHandler+        , JSDOM.Generated.VTTCue as JSDOM.VTTCue+        , JSDOM.Generated.VTTRegion as JSDOM.VTTRegion+        , JSDOM.Generated.VTTRegionList as JSDOM.VTTRegionList+        , JSDOM.Generated.ValidityState as JSDOM.ValidityState+        , JSDOM.Generated.VideoPlaybackQuality as JSDOM.VideoPlaybackQuality+        , JSDOM.Generated.VideoStreamTrack as JSDOM.VideoStreamTrack+        , JSDOM.Generated.VideoTrack as JSDOM.VideoTrack+        , JSDOM.Generated.VideoTrackList as JSDOM.VideoTrackList+        , JSDOM.Generated.VoidCallback as JSDOM.VoidCallback+        , JSDOM.Generated.WaveShaperNode as JSDOM.WaveShaperNode+        , JSDOM.Generated.WebGL2RenderingContext as JSDOM.WebGL2RenderingContext+        , JSDOM.Generated.WebGLActiveInfo as JSDOM.WebGLActiveInfo+        , JSDOM.Generated.WebGLCompressedTextureATC as JSDOM.WebGLCompressedTextureATC+        , JSDOM.Generated.WebGLCompressedTexturePVRTC as JSDOM.WebGLCompressedTexturePVRTC+        , JSDOM.Generated.WebGLCompressedTextureS3TC as JSDOM.WebGLCompressedTextureS3TC+        , JSDOM.Generated.WebGLContextAttributes as JSDOM.WebGLContextAttributes+        , JSDOM.Generated.WebGLContextEvent as JSDOM.WebGLContextEvent+        , JSDOM.Generated.WebGLDebugRendererInfo as JSDOM.WebGLDebugRendererInfo+        , JSDOM.Generated.WebGLDebugShaders as JSDOM.WebGLDebugShaders+        , JSDOM.Generated.WebGLDepthTexture as JSDOM.WebGLDepthTexture+        , JSDOM.Generated.WebGLDrawBuffers as JSDOM.WebGLDrawBuffers+        , JSDOM.Generated.WebGLLoseContext as JSDOM.WebGLLoseContext+        , JSDOM.Generated.WebGLRenderingContextBase as JSDOM.WebGLRenderingContextBase+        , JSDOM.Generated.WebGLShaderPrecisionFormat as JSDOM.WebGLShaderPrecisionFormat+        , JSDOM.Generated.WebKitAnimationEvent as JSDOM.WebKitAnimationEvent+        , JSDOM.Generated.WebKitCSSFilterValue as JSDOM.WebKitCSSFilterValue+        , JSDOM.Generated.WebKitCSSMatrix as JSDOM.WebKitCSSMatrix+        , JSDOM.Generated.WebKitCSSRegionRule as JSDOM.WebKitCSSRegionRule+        , JSDOM.Generated.WebKitCSSTransformValue as JSDOM.WebKitCSSTransformValue+        , JSDOM.Generated.WebKitCSSViewportRule as JSDOM.WebKitCSSViewportRule+        , JSDOM.Generated.WebKitNamedFlow as JSDOM.WebKitNamedFlow+        , JSDOM.Generated.WebKitNamespace as JSDOM.WebKitNamespace+        , JSDOM.Generated.WebKitPlaybackTargetAvailabilityEvent as JSDOM.WebKitPlaybackTargetAvailabilityEvent+        , JSDOM.Generated.WebKitPoint as JSDOM.WebKitPoint+        , JSDOM.Generated.WebKitTransitionEvent as JSDOM.WebKitTransitionEvent+        , JSDOM.Generated.WebSocket as JSDOM.WebSocket+        , JSDOM.Generated.WheelEvent as JSDOM.WheelEvent+        , JSDOM.Generated.WindowBase64 as JSDOM.WindowBase64+        , JSDOM.Generated.WindowTimers as JSDOM.WindowTimers+        , JSDOM.Generated.Worker as JSDOM.Worker+        , JSDOM.Generated.WorkerGlobalScope as JSDOM.WorkerGlobalScope+        , JSDOM.Generated.WorkerLocation as JSDOM.WorkerLocation+        , JSDOM.Generated.WorkerNavigator as JSDOM.WorkerNavigator+        , JSDOM.Generated.XMLHttpRequestProgressEvent as JSDOM.XMLHttpRequestProgressEvent+        , JSDOM.Generated.XMLHttpRequestUpload as JSDOM.XMLHttpRequestUpload+        , JSDOM.Generated.XMLSerializer as JSDOM.XMLSerializer+        , JSDOM.Generated.XPathEvaluator as JSDOM.XPathEvaluator+        , JSDOM.Generated.XPathExpression as JSDOM.XPathExpression+        , JSDOM.Generated.XPathNSResolver as JSDOM.XPathNSResolver+        , JSDOM.Generated.XPathResult as JSDOM.XPathResult+        , JSDOM.Generated.XSLTProcessor as JSDOM.XSLTProcessor     build-depends:         base >=4.7.0.0 && <5,         base-compat >=0.9.0 && <0.10,
+ src/JSDOM.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE CPP, OverloadedStrings, PatternSynonyms #-}+module JSDOM (+  currentWindow+, currentDocument+, WebView+, runWebGUI+, enableInspector+) where++import qualified Data.Text as T+import Data.Monoid ((<>))+#ifdef ghcjs_HOST_OS+import GHCJS.Types (JSVal(..))+import GHCJS.Nullable (Nullable(..), nullableToMaybe)+import Control.Applicative ((<$>))+#else+import GI.WebKit.Objects.WebView+       (getWebViewSettings, onWebViewLoadFinished, setWebViewSettings,+        webViewSetSettings, webViewGetSettings, webViewLoadUri, webViewNew,+        webViewGetDomDocument, webViewGetInspector, WebView(..))+import GI.Gtk+       (widgetShowAll, mainQuit,+        WindowPosition(..), containerAdd, scrolledWindowNew,+        windowSetPosition, windowSetDefaultSize, windowNew)+import qualified GI.Gtk.Functions as Gtk (init, main)+import GI.WebKit.Objects.WebSettings+       (setWebSettingsMonospaceFontFamily,+        setWebSettingsEnableDeveloperExtras, setWebSettingsUserAgent,+        getWebSettingsUserAgent)+import GI.Gtk.Objects.Widget (onWidgetDestroy)+import GI.WebKit.Objects.WebInspector+       (onWebInspectorShowWindow, onWebInspectorInspectWebView)+import GI.Gtk.Enums (WindowType(..))+import GI.GLib.Functions (timeoutAdd)+import GI.GLib.Constants (pattern PRIORITY_LOW)+import GI.Gtk.Objects.Adjustment (noAdjustment)+import Control.Monad.IO.Class (liftIO)+#endif++import JSDOM.Generated.Window (getNavigator, getDocument)+import JSDOM.Generated.Navigator (getUserAgent)+import Foreign (ForeignPtr, nullPtr, Ptr)+import Control.Monad (unless, forever, liftM)+import Control.Concurrent+       (yield, threadDelay, takeMVar, newEmptyMVar)+import System.Environment (getArgs)+import Data.List (isSuffixOf)+import Language.Javascript.JSaddle (runJSaddle, JSM, jsg)+import JSDOM.Types+       (FromJSVal(..), MonadDOM(..), MonadDOM, Document(..), Window(..))+import Control.Monad.IO.Class (MonadIO)++#ifdef ghcjs_HOST_OS+foreign import javascript unsafe "$r = window"+  ghcjs_currentWindow :: IO JSVal++data WebView = WebView+#endif++currentWindow :: MonadDOM m => m (Maybe Window)+currentWindow = liftDOM $ jsg ("window" :: String) >>= fromJSVal++currentDocument :: MonadDOM m => m (Maybe Document)+currentDocument = liftDOM $ jsg ("document" :: String) >>= fromJSVal++runWebGUI :: (WebView -> JSM ()) -> IO ()+runWebGUI = runWebGUI' "GHCJS"++runWebGUI' :: T.Text -> (WebView -> JSM ()) -> IO ()+runWebGUI' userAgentKey main = do+#ifdef ghcjs_HOST_OS+  window <- Window <$> ghcjs_currentWindow+  runJSaddle window $ main WebView+#else+  Gtk.init Nothing+  window <- windowNew WindowTypeToplevel+  timeoutAdd PRIORITY_LOW 10 (yield >> return True)+  windowSetDefaultSize window 900 600+  windowSetPosition window WindowPositionCenter+  scrollWin <- scrolledWindowNew noAdjustment noAdjustment+  webView <- webViewNew+  settings <- getWebViewSettings webView+  userAgent <- getWebSettingsUserAgent settings+  setWebSettingsUserAgent settings $ userAgent <> " " <> userAgentKey+  setWebViewSettings webView settings+  window `containerAdd` scrollWin+  scrollWin `containerAdd` webView+  onWidgetDestroy window $ liftIO mainQuit+  widgetShowAll window+  onWebViewLoadFinished webView $ \frame ->+    runJSaddle webView $ main webView+  args <- getArgs+  case args of+    uri:_ -> webViewLoadUri webView (T.pack uri)+    []    -> runJSaddle webView $ main webView+  Gtk.main+#endif++enableInspector :: MonadIO m => WebView -> m ()+#ifdef ghcjs_HOST_OS+enableInspector _ = return ()+#else+enableInspector webView = liftIO $ do+  settings <- getWebViewSettings webView+  setWebSettingsEnableDeveloperExtras settings True+  setWebViewSettings webView settings+  inspector <- webViewGetInspector webView+  window <- windowNew WindowTypeToplevel+  windowSetDefaultSize window 900 300+  scrollWin <- scrolledWindowNew noAdjustment noAdjustment+  onWebInspectorInspectWebView inspector $ \view -> do+    inspectorView <- webViewNew+    settings <- getWebViewSettings inspectorView+    setWebSettingsMonospaceFontFamily settings "Consolas"+    setWebViewSettings inspectorView settings+    scrollWin `containerAdd` inspectorView+    window `containerAdd` scrollWin+    widgetShowAll window+    return inspectorView+  onWebInspectorShowWindow inspector $ do+    widgetShowAll window+    return True+  return ()+#endif
+ src/JSDOM/Custom/AudioContext.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Custom.AudioContext (+    module Generated+  , DecodeAudioError(..)+  , decodeAudioData+) where++import Prelude ()+import Prelude.Compat+import Data.Typeable (Typeable)+import Control.Exception (Exception(..), throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import JSDOM.Types++import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)+import JSDOM.Generated.AudioBufferCallback+       (newAudioBufferCallback)+import JSDOM.Generated.AudioContext as Generated hiding (decodeAudioData)+import qualified JSDOM.Generated.AudioContext+       as Generated (decodeAudioData)++data DecodeAudioError = DecodeAudioError deriving (Show, Eq, Typeable)++instance Exception DecodeAudioError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>+decodeAudioData :: (MonadDOM m, IsAudioContext self, IsArrayBuffer audioData) =>+                   self -> audioData -> m AudioBuffer+decodeAudioData self audioData = do+    result <- liftIO newEmptyMVar+    success <- newAudioBufferCallback $ \buffer -> liftIO $ putMVar result buffer+    error <- newAudioBufferCallback . const . liftIO $ putMVar result Nothing+    Generated.decodeAudioData self (Just audioData) (Just success) (Just error)+    liftIO $ takeMVar result >>= maybe (throwIO DecodeAudioError) return
+ src/JSDOM/Custom/DOMError.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Custom.DOMError (+    module Generated+  , DOMErrorException(..)+  , throwDOMErrorException+) where++import Prelude ()+import Prelude.Compat+import Data.Typeable (Typeable)+import Control.Exception (Exception, throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import JSDOM.Types (MonadDOM)+import JSDOM.Generated.DOMError as Generated++data DOMErrorException = DOMErrorException { domErrorName :: String } deriving (Show, Eq, Typeable)++instance Exception DOMErrorException++throwDOMErrorException :: MonadDOM m => DOMError -> m a+throwDOMErrorException error = do+    domErrorName <- getName error+    liftIO $ throwIO DOMErrorException{..}
+ src/JSDOM/Custom/Database.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE FlexibleContexts #-}+module JSDOM.Custom.Database (+    module Generated+  , changeVersion'+  , changeVersion+  , transaction'+  , transaction+  , readTransaction'+  , readTransaction+) where++import Data.Maybe (fromJust, maybe)++import Control.Monad.IO.Class (MonadIO(..))+import Control.Exception (Exception, bracket)++import Language.Javascript.JSaddle (JSM, postGUIAsyncJS)+import JSDOM.Types+       (MonadDOM, SQLTransaction, SQLError,+        SQLTransactionCallback(..), ToJSString(..), Callback(..), withCallback,+        SQLTransactionErrorCallback(..), VoidCallback(..))++import JSDOM.Custom.SQLError (throwSQLException)+import JSDOM.Generated.SQLTransactionCallback (newSQLTransactionCallbackSync)+import JSDOM.Generated.Database as Generated hiding (changeVersion, transaction, readTransaction)+import qualified JSDOM.Generated.Database as Generated (changeVersion, transaction, readTransaction)+import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)+import JSDOM.Generated.SQLTransactionErrorCallback+       (newSQLTransactionErrorCallback)+import JSDOM.Generated.VoidCallback+       (newVoidCallback)+import Data.Coerce (Coercible, coerce)+import Control.Monad.Trans.Reader (ReaderT(..), ask)++withSQLTransactionCallback :: MonadDOM m => (SQLTransaction -> JSM ()) -> (SQLTransactionCallback -> JSM a) -> m a+withSQLTransactionCallback callback = withCallback (newSQLTransactionCallbackSync (callback . fromJust))++withSQLErrorCallbacks :: MonadDOM m => (Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> JSM ()) -> m (Maybe SQLError)+withSQLErrorCallbacks f = do+    result <- liftIO newEmptyMVar+    withCallback (newSQLTransactionErrorCallback (liftIO . putMVar result)) $ \error ->+        withCallback (newVoidCallback $ liftIO $ putMVar result Nothing) $ \success -> do+            postGUIAsyncJS $ f (Just error) (Just success)+            liftIO $ takeMVar result++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>+changeVersion' :: (MonadDOM m, ToJSString oldVersion, ToJSString newVersion) =>+                  Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> JSM ()) -> m (Maybe SQLError)+changeVersion' self oldVersion newVersion Nothing = withSQLErrorCallbacks $ Generated.changeVersion self oldVersion newVersion Nothing+changeVersion' self oldVersion newVersion (Just callback) =+    withSQLTransactionCallback callback $ \transaction ->+        withSQLErrorCallbacks $ \e s ->+            Generated.changeVersion self oldVersion newVersion (Just transaction) e s++changeVersion :: (MonadDOM m, ToJSString oldVersion, ToJSString newVersion) =>+                 Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> JSM ()) -> m ()+changeVersion self oldVersion newVersion callback =+    changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>+transaction' :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m (Maybe SQLError)+transaction' self callback =+    withSQLTransactionCallback callback $ \transaction ->+        withSQLErrorCallbacks $ \e s ->+            Generated.transaction self (Just transaction) e s++transaction :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m ()+transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>+readTransaction' :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m (Maybe SQLError)+readTransaction' self callback =+    withSQLTransactionCallback callback $ \transaction ->+        withSQLErrorCallbacks $ \e s ->+            Generated.readTransaction self (Just transaction) e s++readTransaction :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m ()+readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
+ src/JSDOM/Custom/Geolocation.hs view
@@ -0,0 +1,39 @@+module JSDOM.Custom.Geolocation (+    module Generated+  , getCurrentPosition'+  , getCurrentPosition+) where++import Data.Maybe (fromJust)++import Control.Monad.IO.Class (MonadIO(..))+import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)++import Language.Javascript.JSaddle (postGUIAsyncJS)+import JSDOM.Types++import JSDOM.Custom.PositionError (throwPositionException)++import JSDOM.Generated.PositionCallback+       (newPositionCallback)+import JSDOM.Generated.PositionErrorCallback+       (newPositionErrorCallback)++import JSDOM.Generated.Geolocation as Generated hiding (getCurrentPosition)+import qualified+       JSDOM.Generated.Geolocation as Generated+       (getCurrentPosition)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation>+getCurrentPosition' :: MonadDOM m => Geolocation -> Maybe PositionOptions -> m (Either PositionError Geoposition)+getCurrentPosition' self options = do+    result <- liftIO newEmptyMVar+    withCallback (newPositionCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->+        withCallback (newPositionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do+            postGUIAsyncJS $ Generated.getCurrentPosition self (Just success) (Just error) options+            liftIO $ takeMVar result++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation>+getCurrentPosition :: MonadDOM m => Geolocation -> Maybe PositionOptions -> m Geoposition+getCurrentPosition self options =+    getCurrentPosition' self options >>= either throwPositionException return
+ src/JSDOM/Custom/MediaStreamTrack.hs view
@@ -0,0 +1,29 @@+module JSDOM.Custom.MediaStreamTrack (+    module Generated+  , getSources+) where++import Control.Monad.IO.Class (MonadIO(..))+import Control.Concurrent.MVar (newEmptyMVar, takeMVar, putMVar)++import Language.Javascript.JSaddle (postGUIAsyncJS)+import JSDOM.Types+       (withCallback, Callback(..), SourceInfo(..), MonadDOM, MediaStreamTrackSourcesCallback(..))++import JSDOM.Generated.MediaStreamTrackSourcesCallback+       (newMediaStreamTrackSourcesCallback)++import JSDOM.Generated.MediaStreamTrack as Generated hiding (getSources)+import qualified+       JSDOM.Generated.MediaStreamTrack+       as Generated (getSources)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSources Mozilla MediaStreamTrack.getSources documentation>+getSources :: (MonadDOM m, IsMediaStreamTrack self) => self -> m [Maybe SourceInfo]+getSources self = do+    result <- liftIO newEmptyMVar+    withCallback (newMediaStreamTrackSourcesCallback (liftIO . putMVar result)) $ \callback -> do+        postGUIAsyncJS $ Generated.getSources self (Just callback)+        liftIO $ takeMVar result++
+ src/JSDOM/Custom/Navigator.hs view
@@ -0,0 +1,38 @@+module JSDOM.Custom.Navigator (+    module Generated+  , getUserMedia+) where++import Data.Maybe (fromJust)++import Control.Monad.IO.Class (MonadIO(..))+import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)++import Language.Javascript.JSaddle (postGUIAsyncJS)+import JSDOM.Types+       (withCallback, Callback(..), MediaStream(..), NavigatorUserMediaError(..),+        Dictionary(..), MonadDOM, NavigatorUserMediaSuccessCallback(..),+        NavigatorUserMediaErrorCallback(..))++import JSDOM.Custom.NavigatorUserMediaError (throwUserMediaException)++import JSDOM.Generated.NavigatorUserMediaSuccessCallback+       (newNavigatorUserMediaSuccessCallback)+import JSDOM.Generated.NavigatorUserMediaErrorCallback+       (newNavigatorUserMediaErrorCallback)++import JSDOM.Generated.Navigator as Generated hiding (getUserMedia)+import qualified JSDOM.Generated.Navigator+       as Generated (webkitGetUserMedia)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitGetUserMedia Mozilla Navigator.webkitGetUserMedia documentation>+getUserMedia' :: MonadDOM m => Navigator -> Maybe Dictionary -> m (Either NavigatorUserMediaError MediaStream)+getUserMedia' self options = do+    result <- liftIO newEmptyMVar+    withCallback (newNavigatorUserMediaSuccessCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->+        withCallback (newNavigatorUserMediaErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do+            postGUIAsyncJS $ Generated.webkitGetUserMedia self options (Just success) (Just error)+            liftIO $ takeMVar result++getUserMedia :: MonadDOM m => Navigator -> Maybe Dictionary -> m MediaStream+getUserMedia self options = getUserMedia' self options >>= either throwUserMediaException return
+ src/JSDOM/Custom/NavigatorUserMediaError.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Custom.NavigatorUserMediaError (+    module Generated+  , UserMediaException(..)+  , throwUserMediaException+) where++import Data.Typeable (Typeable)+import Control.Exception (Exception, throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import JSDOM.Types (MonadDOM)++import JSDOM.Custom.DOMError (getName)+import JSDOM.Generated.NavigatorUserMediaError as Generated++data UserMediaException = UserMediaException {+        userMediaErrorName           :: String,+        userMediaErrorConstraintName :: String } deriving (Show, Eq, Typeable)++instance Exception UserMediaException++throwUserMediaException :: MonadDOM m => NavigatorUserMediaError -> m a+throwUserMediaException error = do+    userMediaErrorName           <- getName           error+    userMediaErrorConstraintName <- getConstraintName error+    liftIO $ throwIO (UserMediaException{..})+++
+ src/JSDOM/Custom/PositionError.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Custom.PositionError (+    module Generated+  , PositionErrorCode(..)+  , PositionException(..)+  , throwPositionException+) where++import Prelude ()+import Prelude.Compat+import Data.Typeable (Typeable)+import Control.Exception (Exception, throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import JSDOM.Types (MonadDOM)++import JSDOM.Generated.PositionError as Generated++data PositionErrorCode = PositionPermissionDenied | PositionUnavailable | PositionTimeout deriving (Show, Eq, Enum)+data PositionException = PositionException {+        positionErrorCode    :: PositionErrorCode,+        positionErrorMessage :: String } deriving (Show, Eq, Typeable)++instance Exception PositionException++throwPositionException :: MonadDOM m => PositionError -> m a+throwPositionException error = do+    positionErrorCode    <- (toEnum . subtract 1 . fromIntegral) <$> getCode error+    positionErrorMessage <- getMessage error+    liftIO $ throwIO (PositionException{..})+
+ src/JSDOM/Custom/RTCPeerConnection.hs view
@@ -0,0 +1,116 @@+module JSDOM.Custom.RTCPeerConnection (+    module Generated+  , createOffer'+  , createOffer+  , createAnswer'+  , createAnswer+  , setLocalDescription'+  , setLocalDescription+  , setRemoteDescription'+  , setRemoteDescription+) where++import Data.Maybe (fromJust)++import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)+import Control.Monad.IO.Class (MonadIO(..))++import Language.Javascript.JSaddle (postGUIAsyncJS)+import JSDOM.Types+       (RTCStatsResponse(..), IsMediaStreamTrack, RTCIceCandidate(..),+        withCallback, Callback(..), RTCSessionDescription(..), DOMError(..),+        Dictionary(..), RTCPeerConnection(..), MonadDOM,+        RTCSessionDescriptionCallback(..),+        RTCPeerConnectionErrorCallback(..),+        RTCStatsCallback(..), VoidCallback(..))++import JSDOM.Custom.DOMError (throwDOMErrorException)++import JSDOM.Generated.RTCSessionDescriptionCallback+       (newRTCSessionDescriptionCallback)+import JSDOM.Generated.RTCPeerConnectionErrorCallback+       (newRTCPeerConnectionErrorCallback)+import JSDOM.Generated.VoidCallback+       (newVoidCallback)+import JSDOM.Generated.RTCStatsCallback+       (newRTCStatsCallback)++import JSDOM.Generated.Geolocation as Generated hiding (getCurrentPosition)+import qualified+       JSDOM.Generated.RTCPeerConnection+       as Generated+       (getStats, addIceCandidate, setRemoteDescription,+        setLocalDescription, createAnswer, createOffer)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#createOffer Mozilla webkitRTCPeerConnection.createOffer documentation>+createOffer' :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m (Either DOMError RTCSessionDescription)+createOffer' self offerOptions = do+    result <- liftIO newEmptyMVar+    withCallback (newRTCSessionDescriptionCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->+        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do+            postGUIAsyncJS $ Generated.createOffer self (Just success) (Just error) offerOptions+            liftIO $ takeMVar result++createOffer :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m RTCSessionDescription+createOffer self offerOptions = createOffer' self offerOptions >>= either throwDOMErrorException return++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation>+createAnswer' :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m (Either DOMError RTCSessionDescription)+createAnswer' self answerOptions = do+    result <- liftIO newEmptyMVar+    withCallback (newRTCSessionDescriptionCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->+        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do+            postGUIAsyncJS $ Generated.createAnswer self (Just success) (Just error) answerOptions+            liftIO $ takeMVar result++createAnswer :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m RTCSessionDescription+createAnswer self answerOptions = createAnswer' self answerOptions >>= either throwDOMErrorException return++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation>+setLocalDescription' :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m (Maybe DOMError)+setLocalDescription' self description = do+    result <- liftIO newEmptyMVar+    withCallback (newVoidCallback (liftIO $ putMVar result Nothing)) $ \success ->+        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result)) $ \error -> do+            postGUIAsyncJS $ Generated.setLocalDescription self (Just description) (Just success) (Just error)+            liftIO $ takeMVar result++setLocalDescription :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m ()+setLocalDescription self description = setLocalDescription' self description >>= maybe (return ()) throwDOMErrorException++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation>+setRemoteDescription' :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m (Maybe DOMError)+setRemoteDescription' self description = do+    result <- liftIO newEmptyMVar+    withCallback (newVoidCallback (liftIO $ putMVar result Nothing)) $ \success ->+        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result)) $ \error -> do+            postGUIAsyncJS $ Generated.setRemoteDescription self (Just description) (Just success) (Just error)+            liftIO $ takeMVar result++setRemoteDescription :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m ()+setRemoteDescription self description = setRemoteDescription' self description >>= maybe (return ()) throwDOMErrorException++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation>+addIceCandidate' :: MonadDOM m => RTCPeerConnection -> RTCIceCandidate -> m (Maybe DOMError)+addIceCandidate' self candidate = do+    result <- liftIO newEmptyMVar+    withCallback (newVoidCallback (liftIO $ putMVar result Nothing)) $ \success ->+        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result)) $ \error -> do+            postGUIAsyncJS $ Generated.addIceCandidate self (Just candidate) (Just success) (Just error)+            liftIO $ takeMVar result++addIceCandidate :: MonadDOM m => RTCPeerConnection -> RTCIceCandidate -> m ()+addIceCandidate self candidate = addIceCandidate' self candidate >>= maybe (return ()) throwDOMErrorException++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#getStats Mozilla webkitRTCPeerConnection.getStats documentation>+getStats' :: (MonadDOM m, IsMediaStreamTrack selector) => RTCPeerConnection -> Maybe selector -> m (Either DOMError RTCStatsResponse)+getStats' self selector = do+    result <- liftIO newEmptyMVar+    withCallback (newRTCStatsCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->+        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do+            postGUIAsyncJS $ Generated.getStats self (Just success) (Just error) selector+            liftIO $ takeMVar result++getStats :: (MonadDOM m, IsMediaStreamTrack selector) => RTCPeerConnection -> Maybe selector -> m RTCStatsResponse+getStats self selector = getStats' self selector >>= either throwDOMErrorException return+
+ src/JSDOM/Custom/RTCPeerConnectionError.hs view
@@ -0,0 +1,6 @@+module JSDOM.Custom.RTCPeerConnectionError (++) where+++
+ src/JSDOM/Custom/SQLError.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Custom.SQLError (+    module Generated+  , SQLErrorCode(..)+  , SQLException(..)+  , throwSQLException+) where++import Prelude ()+import Prelude.Compat+import Data.Typeable (Typeable)+import Control.Exception (Exception, throwIO)+import Control.Monad.IO.Class (MonadIO(..))++import JSDOM.Types (MonadDOM(..))++import JSDOM.Generated.SQLError as Generated++data SQLErrorCode = SQLErrorUnknown+                  | SQLErrorDatabase+                  | SQLErrorVersion+                  | SQLErrorTooLarge+                  | SQLErrorQuota+                  | SQLErrorSyntax+                  | SQLErrorConstraint+                  | SQLErrorTimeout+                  deriving (Show, Eq, Enum, Typeable)+data SQLException = SQLException { sqlErrorCode :: SQLErrorCode, sqlErrorMessage :: String } deriving (Show, Eq, Typeable)++instance Exception SQLException++throwSQLException :: MonadDOM m => SQLError -> m a+throwSQLException error = do+    sqlErrorCode <- (toEnum . subtract 1 . fromIntegral) <$> getCode error+    sqlErrorMessage <- getMessage error+    liftIO $ throwIO (SQLException{..})+
+ src/JSDOM/Custom/SQLTransaction.hs view
@@ -0,0 +1,47 @@+module JSDOM.Custom.SQLTransaction (+    module Generated+  , executeSql'+  , executeSql+  , executeSql_+) where++import Data.Maybe (fromJust)++import Control.Monad (void)+import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)+import Control.Monad.IO.Class (MonadIO(..))++import Language.Javascript.JSaddle (postGUIAsyncJS)+import JSDOM.Types+       (withCallback, Callback(..), SQLResultSet(..), SQLError(..), IsObjectArray,+        MonadDOM, ToJSString, SQLStatementCallback(..),+        SQLStatementErrorCallback(..))++import JSDOM.Custom.SQLError (throwSQLException)++import JSDOM.Generated.SQLStatementCallback+       (newSQLStatementCallback)+import JSDOM.Generated.SQLStatementErrorCallback+       (newSQLStatementErrorCallback)++import JSDOM.Generated.SQLTransaction as Generated hiding (executeSql)+import qualified+       JSDOM.Generated.SQLTransaction+       as Generated (executeSql)++executeSql' :: (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>+              SQLTransaction -> sqlStatement -> Maybe arguments -> m (Either SQLError SQLResultSet)+executeSql' self sqlStatement arguments = do+    result <- liftIO newEmptyMVar+    withCallback (newSQLStatementCallback (\tx rs -> liftIO . putMVar result . Right $ fromJust rs)) $ \success ->+        withCallback (newSQLStatementErrorCallback (\tx e -> liftIO . putMVar result . Left $ fromJust e)) $ \error -> do+            postGUIAsyncJS $ Generated.executeSql self sqlStatement arguments (Just success) (Just error)+            liftIO $ takeMVar result++executeSql :: (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>+              SQLTransaction -> sqlStatement -> Maybe arguments -> m SQLResultSet+executeSql self sqlStatement arguments = executeSql' self sqlStatement arguments >>= either throwSQLException return++executeSql_ :: (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>+              SQLTransaction -> sqlStatement -> Maybe arguments -> m ()+executeSql_ self sqlStatement arguments = void $ executeSql self sqlStatement arguments
+ src/JSDOM/Custom/Window.hs view
@@ -0,0 +1,29 @@+module JSDOM.Custom.Window (+    module Generated+  , openDatabase+) where++import Prelude ()+import Prelude.Compat+import Control.Monad.IO.Class (MonadIO(..))++import JSDOM.Types+       (withCallback, Callback(..), MonadDOM, ToJSString, Database, DatabaseCallback(..))++import Language.Javascript.JSaddle.Monad (postGUISyncJS)+import JSDOM.Generated.Window as Generated hiding (openDatabase)+import qualified JSDOM.Generated.Window+       as Generated (openDatabase)+import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)+import JSDOM.Generated.DatabaseCallback+       (newDatabaseCallback)+import Data.Maybe (fromJust)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.openDatabase Mozilla Window.openDatabase documentation>+openDatabase :: (MonadDOM m, ToJSString name, ToJSString version, ToJSString displayName) =>+                Window -> name -> version -> displayName -> Word -> m Database+openDatabase self name version displayName estimatedSize = do+    result <- liftIO newEmptyMVar+    withCallback (newDatabaseCallback (liftIO . putMVar result)) $ \creationCallback ->+        postGUISyncJS $ Generated.openDatabase self name version displayName estimatedSize (Just creationCallback)+            >>= maybe (fromJust <$> liftIO (takeMVar result)) return
+ src/JSDOM/Custom/XMLHttpRequest.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Custom.XMLHttpRequest (+    module Generated+  , XHRError(..)+  , send+  , sendString+  , sendArrayBuffer+  , sendBlob+  , sendDocument+  , sendFormData+) where++import Prelude ()+import Prelude.Compat+import Data.Typeable (Typeable)+import Control.Concurrent.MVar (takeMVar, newEmptyMVar, putMVar)+import Control.Monad.IO.Class (MonadIO(..))+import Control.Exception (Exception(..), throwIO)+import Control.Lens.Operators ((^.))++import Language.Javascript.JSaddle+       (valToText, valToStr, JSM, js0, js1, postGUIAsyncJS, bracket,+        ToJSString, ToJSVal(..), JSVal)+import JSDOM.Types+       (MonadDOM(..), FormData(..), IsDocument, IsBlob, IsArrayBufferView)+import JSDOM.EventM (on)++import JSDOM.Generated.XMLHttpRequest as Generated hiding (send)+import Control.Monad (void)+import qualified Data.Text as T (unpack)++data XHRError = XHRError+              | XHRAborted+              deriving (Show, Eq, Typeable)++instance Exception XHRError++throwXHRError :: MonadDOM m => Maybe XHRError -> m ()+throwXHRError = maybe (return ()) (liftIO . throwIO)++withEvent :: JSM (JSM ()) -> JSM a -> JSM a+withEvent aquire = bracket aquire id . const++send' :: (MonadDOM m) => XMLHttpRequest -> Maybe JSVal -> m (Maybe XHRError)+send' self mbVal = do+    result <- liftIO newEmptyMVar+    liftDOM $+        withEvent (on self Generated.error . liftIO $ putMVar result (Just XHRError)) $+            withEvent (on self abortEvent . liftIO $ putMVar result (Just XHRAborted)) $+                withEvent (on self load . liftIO $ putMVar result Nothing) $ do+                    postGUIAsyncJS . void $+                        case mbVal of+                            Nothing  -> self ^. js0 "send"+                            Just val -> self ^. js1 "send" val+                    liftIO $ takeMVar result++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>+send :: (MonadDOM m) => XMLHttpRequest -> m ()+send self = send' self Nothing >>= throwXHRError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>+sendString :: (MonadDOM m, ToJSString str) => XMLHttpRequest -> str -> m ()+sendString self str = liftDOM $ toJSVal str >>= send' self . Just >>= throwXHRError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>+sendArrayBuffer :: (MonadDOM m, IsArrayBufferView view) => XMLHttpRequest -> view -> m ()+sendArrayBuffer self view = liftDOM $ toJSVal view >>= send' self . Just >>= throwXHRError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>+sendBlob :: (MonadDOM m, IsBlob blob) => XMLHttpRequest -> blob -> m ()+sendBlob self blob = liftDOM $ toJSVal blob >>= send' self . Just >>= throwXHRError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>+sendDocument :: (MonadDOM m, IsDocument doc) => XMLHttpRequest -> doc -> m ()+sendDocument self doc = liftDOM $ toJSVal doc >>= send' self . Just >>= throwXHRError++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>+sendFormData :: (MonadDOM m) => XMLHttpRequest -> FormData -> m ()+sendFormData self formData = liftDOM $ toJSVal formData >>= send' self . Just >>= throwXHRError
+ src/JSDOM/Enums.hs view
@@ -0,0 +1,4 @@+module JSDOM.Enums (+  module JSDOM.Generated.Enums+  ) where+import JSDOM.Generated.Enums
+ src/JSDOM/EventM.hs view
@@ -0,0 +1,296 @@+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE ConstraintKinds #-}+module JSDOM.EventM+(+  EventM(..)+, SaferEventListener(..)+, EventName+, newListener+, newListenerSync+, newListenerAsync+, addListener+, removeListener+, releaseListener+, on+, event+, eventTarget+, target+, eventCurrentTarget+, eventPhase+, bubbles+, cancelable+, timeStamp+, stopPropagation+, preventDefault+, defaultPrevented+, stopImmediatePropagation+, srcElement+, getCancelBubble+, cancelBubble+, getReturnValue+, returnValue+, uiView+, uiDetail+, uiKeyCode+, uiCharCode+, uiLayerX+, uiLayerY+, uiLayerXY+, uiPageX+, uiPageY+, uiPageXY+, uiWhich+, mouseScreenX+, mouseScreenY+, mouseScreenXY+, mouseClientX+, mouseClientY+, mouseClientXY+, mouseMovementX+, mouseMovementY+, mouseMovementXY+, mouseCtrlKey+, mouseShiftKey+, mouseAltKey+, mouseMetaKey+, mouseButton+, mouseRelatedTarget+, mouseOffsetX+, mouseOffsetY+, mouseOffsetXY+, mouseX+, mouseY+, mouseXY+, mouseFromElement+, mouseToElement+)+where+import           Control.Applicative ((<$>))+import           Control.Monad.Trans.Class (MonadTrans(..))+import           Control.Monad.Trans.Reader (ReaderT, ask, runReaderT)+import           Control.Monad.IO.Class (MonadIO(..))+import           JSDOM.Types+import qualified JSDOM.Generated.Event as Event+import qualified JSDOM.Generated.UIEvent as UIEvent+import qualified JSDOM.Generated.MouseEvent as MouseEvent+import           JSDOM.Generated.EventTarget+import           JSDOM.EventTargetClosures+import           Data.Word (Word)+import           Language.Javascript.JSaddle (JSM)++type EventM t e = ReaderT e JSM++instance MonadDOM (ReaderT e JSM) where+    liftDOM = lift++newListener :: (IsEvent e) => EventM t e () -> JSM (SaferEventListener t e)+newListener f = eventListenerNew (runReaderT f)++newListenerSync :: (IsEvent e) => EventM t e () -> JSM (SaferEventListener t e)+newListenerSync f = eventListenerNewSync (runReaderT f)++newListenerAsync :: (IsEvent e) => EventM t e () -> JSM (SaferEventListener t e)+newListenerAsync f = eventListenerNewAsync (runReaderT f)++addListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> JSM ()+addListener target (EventName eventName) l useCapture = do+    raw <- EventListener <$> toJSVal l+    addEventListener target eventName (Just raw) useCapture++removeListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> JSM ()+removeListener target (EventName eventName) l useCapture = do+    raw <- EventListener <$> toJSVal l+    removeEventListener target eventName (Just raw) useCapture++releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> JSM ()+releaseListener = eventListenerRelease++on :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> EventM t e () -> JSM (JSM ())+on target eventName callback = do+    l <- newListener callback+    addListener target eventName l False+    return $ do+        removeListener target eventName l False+        releaseListener l++event :: EventM t e e+event = ask++eventTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventTarget = event >>= (lift . Event.getTarget)++target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t)+target = fmap (unsafeCastGObject . toGObject) <$> eventTarget++eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget)+eventCurrentTarget = event >>= (lift . Event.getCurrentTarget)++eventPhase :: IsEvent e => EventM t e Word+eventPhase = event >>= (lift . Event.getEventPhase)++bubbles :: IsEvent e => EventM t e Bool+bubbles = event >>= (lift . Event.getBubbles)++cancelable :: IsEvent e => EventM t e Bool+cancelable = event >>= (lift . Event.getCancelable)++timeStamp :: IsEvent e => EventM t e Word+timeStamp = event >>= (lift . Event.getTimeStamp)++stopPropagation :: IsEvent e => EventM t e ()+stopPropagation = event >>= (lift . Event.stopPropagation)++preventDefault :: IsEvent e => EventM t e ()+preventDefault = event >>= (lift . Event.preventDefault)++defaultPrevented :: IsEvent e => EventM t e Bool+defaultPrevented = event >>= (lift . Event.getDefaultPrevented)++stopImmediatePropagation :: IsEvent e => EventM t e ()+stopImmediatePropagation = event >>= (lift . Event.stopImmediatePropagation)++srcElement :: IsEvent e => EventM t e (Maybe EventTarget)+srcElement = event >>= (lift . Event.getSrcElement)++getCancelBubble :: IsEvent e => EventM t e Bool+getCancelBubble = event >>= (lift . Event.getCancelBubble)++cancelBubble :: IsEvent e => Bool -> EventM t e ()+cancelBubble f = event >>= (lift . flip Event.setCancelBubble f)++getReturnValue :: IsEvent e => EventM t e Bool+getReturnValue = event >>= (lift . Event.getReturnValue)++returnValue :: IsEvent e => Bool -> EventM t e ()+returnValue f = event >>= (lift . flip Event.setReturnValue f)++uiView :: IsUIEvent e => EventM t e (Maybe Window)+uiView = event >>= (lift . UIEvent.getView)++uiDetail :: IsUIEvent e => EventM t e Int+uiDetail = event >>= (lift . UIEvent.getDetail)++uiKeyCode :: IsUIEvent e => EventM t e Int+uiKeyCode = event >>= (lift . UIEvent.getKeyCode)++uiCharCode :: IsUIEvent e => EventM t e Int+uiCharCode = event >>= (lift . UIEvent.getCharCode)++uiLayerX :: IsUIEvent e => EventM t e Int+uiLayerX = event >>= (lift . UIEvent.getLayerX)++uiLayerY :: IsUIEvent e => EventM t e Int+uiLayerY = event >>= (lift . UIEvent.getLayerY)++uiLayerXY :: IsUIEvent e => EventM t e (Int, Int)+uiLayerXY = do+    e <- event+    x <- lift $ UIEvent.getLayerX e+    y <- lift $ UIEvent.getLayerY e+    return (x, y)++uiPageX :: IsUIEvent e => EventM t e Int+uiPageX = event >>= (lift . UIEvent.getPageX)++uiPageY :: IsUIEvent e => EventM t e Int+uiPageY = event >>= (lift . UIEvent.getPageY)++uiPageXY :: IsUIEvent e => EventM t e (Int, Int)+uiPageXY = do+    e <- event+    x <- lift $ UIEvent.getPageX e+    y <- lift $ UIEvent.getPageY e+    return (x, y)++uiWhich :: IsUIEvent e => EventM t e Int+uiWhich = event >>= (lift . UIEvent.getWhich)++mouseScreenX :: IsMouseEvent e => EventM t e Int+mouseScreenX = event >>= (lift . MouseEvent.getScreenX)++mouseScreenY :: IsMouseEvent e => EventM t e Int+mouseScreenY = event >>= (lift . MouseEvent.getScreenY)++mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseScreenXY = do+    e <- event+    x <- lift $ MouseEvent.getScreenX e+    y <- lift $ MouseEvent.getScreenY e+    return (x, y)++mouseClientX :: IsMouseEvent e => EventM t e Int+mouseClientX = event >>= (lift . MouseEvent.getClientX)++mouseClientY :: IsMouseEvent e => EventM t e Int+mouseClientY = event >>= (lift . MouseEvent.getClientY)++mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseClientXY = do+    e <- event+    x <- lift $ MouseEvent.getClientX e+    y <- lift $ MouseEvent.getClientY e+    return (x, y)++mouseMovementX :: IsMouseEvent e => EventM t e Int+mouseMovementX = event >>= (lift . MouseEvent.getMovementX)++mouseMovementY :: IsMouseEvent e => EventM t e Int+mouseMovementY = event >>= (lift . MouseEvent.getMovementY)++mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseMovementXY = do+    e <- event+    x <- lift $ MouseEvent.getMovementX e+    y <- lift $ MouseEvent.getMovementY e+    return (x, y)++mouseCtrlKey :: IsMouseEvent e => EventM t e Bool+mouseCtrlKey = event >>= (lift . MouseEvent.getCtrlKey)++mouseShiftKey :: IsMouseEvent e => EventM t e Bool+mouseShiftKey = event >>= (lift . MouseEvent.getShiftKey)++mouseAltKey :: IsMouseEvent e => EventM t e Bool+mouseAltKey = event >>= (lift . MouseEvent.getAltKey)++mouseMetaKey :: IsMouseEvent e => EventM t e Bool+mouseMetaKey = event >>= (lift . MouseEvent.getMetaKey)++mouseButton :: IsMouseEvent e => EventM t e Word+mouseButton = event >>= (lift . MouseEvent.getButton)++mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget)+mouseRelatedTarget = event >>= (lift . MouseEvent.getRelatedTarget)++mouseOffsetX :: IsMouseEvent e => EventM t e Int+mouseOffsetX = event >>= (lift . MouseEvent.getOffsetX)++mouseOffsetY :: IsMouseEvent e => EventM t e Int+mouseOffsetY = event >>= (lift . MouseEvent.getOffsetY)++mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseOffsetXY = do+    e <- event+    x <- lift $ MouseEvent.getOffsetX e+    y <- lift $ MouseEvent.getOffsetY e+    return (x, y)++mouseX :: IsMouseEvent e => EventM t e Int+mouseX = event >>= (lift . MouseEvent.getX)++mouseY :: IsMouseEvent e => EventM t e Int+mouseY = event >>= (lift . MouseEvent.getY)++mouseXY :: IsMouseEvent e => EventM t e (Int, Int)+mouseXY = do+    e <- event+    x <- lift $ MouseEvent.getX e+    y <- lift $ MouseEvent.getY e+    return (x, y)++mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node)+mouseFromElement = event >>= (lift . MouseEvent.getFromElement)++mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node)+mouseToElement = event >>= (lift . MouseEvent.getToElement)+
+ src/JSDOM/EventTargetClosures.hs view
@@ -0,0 +1,33 @@+module JSDOM.EventTargetClosures+       (EventName(..), SaferEventListener(..), unsafeEventName, eventListenerNew, eventListenerNewSync, eventListenerNewAsync, eventListenerRelease) where++import Control.Applicative ((<$>))+import JSDOM.Types+import Language.Javascript.JSaddle (JSUndefined, function, JSM, Function(..), freeFunction)+import Control.Monad.IO.Class (MonadIO(..))++newtype EventName t e = EventName DOMString+newtype SaferEventListener t e = SaferEventListener Function++instance ToJSVal (SaferEventListener t e) where+    toJSVal (SaferEventListener l) = toJSVal l+    {-# INLINE toJSVal #-}++--instance FromJSVal (SaferEventListener t e) where+--    fromJSVal l = fmap SaferEventListener <$> fromJSVal l+--    {-# INLINE fromJSVal #-}++unsafeEventName :: DOMString -> EventName t e+unsafeEventName = EventName++eventListenerNew :: (IsEvent e) => (e -> JSM ()) -> JSM (SaferEventListener t e)+eventListenerNew callback = SaferEventListener <$> function "listener" (\_ _ [e] -> fromJSValUnchecked e >>= callback)++eventListenerNewSync :: (IsEvent e) => (e -> JSM ()) -> JSM (SaferEventListener t e)+eventListenerNewSync callback = SaferEventListener <$> function "listener" (\_ _ [e] -> fromJSValUnchecked e >>= callback)++eventListenerNewAsync :: (IsEvent e) => (e -> JSM ()) -> JSM (SaferEventListener t e)+eventListenerNewAsync callback = SaferEventListener <$> function "listener" (\_ _ [e] -> fromJSValUnchecked e >>= callback)++eventListenerRelease :: SaferEventListener t e -> JSM ()+eventListenerRelease (SaferEventListener f) = freeFunction f
+ src/JSDOM/Generated/ANGLEInstancedArrays.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ANGLEInstancedArrays+       (drawArraysInstancedANGLE, drawElementsInstancedANGLE,+        vertexAttribDivisorANGLE,+        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLEInstancedArrays,+        castToANGLEInstancedArrays, gTypeANGLEInstancedArrays)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation> +drawArraysInstancedANGLE ::+                         (MonadDOM m) =>+                           ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m ()+drawArraysInstancedANGLE self mode first count primcount+  = liftDOM+      (void+         (self ^. jsf "drawArraysInstancedANGLE"+            [toJSVal mode, toJSVal first, toJSVal count, toJSVal primcount]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> +drawElementsInstancedANGLE ::+                           (MonadDOM m) =>+                             ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m ()+drawElementsInstancedANGLE self mode count type' offset primcount+  = liftDOM+      (void+         (self ^. jsf "drawElementsInstancedANGLE"+            [toJSVal mode, toJSVal count, toJSVal type', toJSVal offset,+             toJSVal primcount]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation> +vertexAttribDivisorANGLE ::+                         (MonadDOM m) => ANGLEInstancedArrays -> Word -> Word -> m ()+vertexAttribDivisorANGLE self index divisor+  = liftDOM+      (void+         (self ^. jsf "vertexAttribDivisorANGLE"+            [toJSVal index, toJSVal divisor]))+pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
+ src/JSDOM/Generated/AbstractView.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AbstractView+       (getDocument, getStyleMedia, AbstractView, castToAbstractView,+        gTypeAbstractView)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> +getDocument :: (MonadDOM m) => AbstractView -> m (Maybe Document)+getDocument self = liftDOM ((self ^. js "document") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> +getStyleMedia ::+              (MonadDOM m) => AbstractView -> m (Maybe StyleMedia)+getStyleMedia self+  = liftDOM ((self ^. js "styleMedia") >>= fromJSVal)
+ src/JSDOM/Generated/AbstractWorker.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AbstractWorker+       (error, AbstractWorker, castToAbstractWorker, gTypeAbstractWorker)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker.onerror Mozilla AbstractWorker.onerror documentation> +error :: EventName AbstractWorker UIEvent+error = unsafeEventName (toJSString "error")
+ src/JSDOM/Generated/AllAudioCapabilities.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AllAudioCapabilities+       (getSourceId, getVolume, AllAudioCapabilities,+        castToAllAudioCapabilities, gTypeAllAudioCapabilities)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.sourceId Mozilla AllAudioCapabilities.sourceId documentation> +getSourceId ::+            (MonadDOM m, FromJSString result) =>+              AllAudioCapabilities -> m [result]+getSourceId self+  = liftDOM ((self ^. js "sourceId") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> +getVolume ::+          (MonadDOM m) => AllAudioCapabilities -> m (Maybe CapabilityRange)+getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal)
+ src/JSDOM/Generated/AllVideoCapabilities.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AllVideoCapabilities+       (getSourceType, getSourceId, getWidth, getHeight, getFrameRate,+        getAspectRatio, getFacingMode, AllVideoCapabilities,+        castToAllVideoCapabilities, gTypeAllVideoCapabilities)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceType Mozilla AllVideoCapabilities.sourceType documentation> +getSourceType ::+              (MonadDOM m, FromJSString result) =>+                AllVideoCapabilities -> m [result]+getSourceType self+  = liftDOM ((self ^. js "sourceType") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceId Mozilla AllVideoCapabilities.sourceId documentation> +getSourceId ::+            (MonadDOM m, FromJSString result) =>+              AllVideoCapabilities -> m [result]+getSourceId self+  = liftDOM ((self ^. js "sourceId") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> +getWidth ::+         (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> +getHeight ::+          (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> +getFrameRate ::+             (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getFrameRate self+  = liftDOM ((self ^. js "frameRate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> +getAspectRatio ::+               (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)+getAspectRatio self+  = liftDOM ((self ^. js "aspectRatio") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.facingMode Mozilla AllVideoCapabilities.facingMode documentation> +getFacingMode ::+              (MonadDOM m, FromJSString result) =>+                AllVideoCapabilities -> m [result]+getFacingMode self+  = liftDOM ((self ^. js "facingMode") >>= fromJSArrayUnchecked)
+ src/JSDOM/Generated/AnalyserNode.hs view
@@ -0,0 +1,91 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AnalyserNode+       (getFloatFrequencyData, getByteFrequencyData,+        getByteTimeDomainData, setFftSize, getFftSize,+        getFrequencyBinCount, setMinDecibels, getMinDecibels,+        setMaxDecibels, getMaxDecibels, setSmoothingTimeConstant,+        getSmoothingTimeConstant, AnalyserNode, castToAnalyserNode,+        gTypeAnalyserNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation> +getFloatFrequencyData ::+                      (MonadDOM m, IsFloat32Array array) =>+                        AnalyserNode -> Maybe array -> m ()+getFloatFrequencyData self array+  = liftDOM+      (void (self ^. jsf "getFloatFrequencyData" [toJSVal array]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation> +getByteFrequencyData ::+                     (MonadDOM m, IsUint8Array array) =>+                       AnalyserNode -> Maybe array -> m ()+getByteFrequencyData self array+  = liftDOM+      (void (self ^. jsf "getByteFrequencyData" [toJSVal array]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation> +getByteTimeDomainData ::+                      (MonadDOM m, IsUint8Array array) =>+                        AnalyserNode -> Maybe array -> m ()+getByteTimeDomainData self array+  = liftDOM+      (void (self ^. jsf "getByteTimeDomainData" [toJSVal array]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> +setFftSize :: (MonadDOM m) => AnalyserNode -> Word -> m ()+setFftSize self val = liftDOM (self ^. jss "fftSize" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> +getFftSize :: (MonadDOM m) => AnalyserNode -> m Word+getFftSize self+  = liftDOM (round <$> ((self ^. js "fftSize") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.frequencyBinCount Mozilla AnalyserNode.frequencyBinCount documentation> +getFrequencyBinCount :: (MonadDOM m) => AnalyserNode -> m Word+getFrequencyBinCount self+  = liftDOM+      (round <$> ((self ^. js "frequencyBinCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> +setMinDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setMinDecibels self val+  = liftDOM (self ^. jss "minDecibels" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> +getMinDecibels :: (MonadDOM m) => AnalyserNode -> m Double+getMinDecibels self+  = liftDOM ((self ^. js "minDecibels") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> +setMaxDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()+setMaxDecibels self val+  = liftDOM (self ^. jss "maxDecibels" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> +getMaxDecibels :: (MonadDOM m) => AnalyserNode -> m Double+getMaxDecibels self+  = liftDOM ((self ^. js "maxDecibels") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> +setSmoothingTimeConstant ::+                         (MonadDOM m) => AnalyserNode -> Double -> m ()+setSmoothingTimeConstant self val+  = liftDOM (self ^. jss "smoothingTimeConstant" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> +getSmoothingTimeConstant ::+                         (MonadDOM m) => AnalyserNode -> m Double+getSmoothingTimeConstant self+  = liftDOM ((self ^. js "smoothingTimeConstant") >>= valToNumber)
+ src/JSDOM/Generated/AnimationEvent.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AnimationEvent+       (getAnimationName, getElapsedTime, AnimationEvent,+        castToAnimationEvent, gTypeAnimationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.animationName Mozilla AnimationEvent.animationName documentation> +getAnimationName ::+                 (MonadDOM m, FromJSString result) => AnimationEvent -> m result+getAnimationName self+  = liftDOM ((self ^. js "animationName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.elapsedTime Mozilla AnimationEvent.elapsedTime documentation> +getElapsedTime :: (MonadDOM m) => AnimationEvent -> m Double+getElapsedTime self+  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)
+ src/JSDOM/Generated/ApplicationCache.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ApplicationCache+       (update, swapCache, abort, pattern UNCACHED, pattern IDLE,+        pattern CHECKING, pattern DOWNLOADING, pattern UPDATEREADY,+        pattern OBSOLETE, getStatus, checking, error, noUpdate,+        downloading, progress, updateReady, cached, obsolete,+        ApplicationCache, castToApplicationCache, gTypeApplicationCache)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation> +update :: (MonadDOM m) => ApplicationCache -> m ()+update self = liftDOM (void (self ^. js "update"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation> +swapCache :: (MonadDOM m) => ApplicationCache -> m ()+swapCache self = liftDOM (void (self ^. js "swapCache"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation> +abort :: (MonadDOM m) => ApplicationCache -> m ()+abort self = liftDOM (void (self ^. js "abort"))+pattern UNCACHED = 0+pattern IDLE = 1+pattern CHECKING = 2+pattern DOWNLOADING = 3+pattern UPDATEREADY = 4+pattern OBSOLETE = 5++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation> +getStatus :: (MonadDOM m) => ApplicationCache -> m Word+getStatus self+  = liftDOM (round <$> ((self ^. js "status") >>= valToNumber))++-- | <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 = unsafeEventName (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 = unsafeEventName (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/JSDOM/Generated/Attr.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Attr+       (getName, getSpecified, setValue, getValue, getOwnerElement,+        getIsId, Attr, castToAttr, gTypeAttr)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)+getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation> +getSpecified :: (MonadDOM m) => Attr -> m Bool+getSpecified self+  = liftDOM ((self ^. js "specified") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) => Attr -> Maybe val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)+getValue self+  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> +getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element)+getOwnerElement self+  = liftDOM ((self ^. js "ownerElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.isId Mozilla Attr.isId documentation> +getIsId :: (MonadDOM m) => Attr -> m Bool+getIsId self = liftDOM ((self ^. js "isId") >>= valToBool)
+ src/JSDOM/Generated/AudioBuffer.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioBuffer+       (getChannelData, getLength, getDuration, getSampleRate, setGain,+        getGain, getNumberOfChannels, AudioBuffer, castToAudioBuffer,+        gTypeAudioBuffer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> +getChannelData ::+               (MonadDOM m) => AudioBuffer -> Word -> m (Maybe Float32Array)+getChannelData self channelIndex+  = liftDOM+      ((self ^. jsf "getChannelData" [toJSVal channelIndex]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.length Mozilla AudioBuffer.length documentation> +getLength :: (MonadDOM m) => AudioBuffer -> m Int+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.duration Mozilla AudioBuffer.duration documentation> +getDuration :: (MonadDOM m) => AudioBuffer -> m Float+getDuration self+  = liftDOM+      (realToFrac <$> ((self ^. js "duration") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.sampleRate Mozilla AudioBuffer.sampleRate documentation> +getSampleRate :: (MonadDOM m) => AudioBuffer -> m Float+getSampleRate self+  = liftDOM+      (realToFrac <$> ((self ^. js "sampleRate") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> +setGain :: (MonadDOM m) => AudioBuffer -> Float -> m ()+setGain self val = liftDOM (self ^. jss "gain" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> +getGain :: (MonadDOM m) => AudioBuffer -> m Float+getGain self+  = liftDOM (realToFrac <$> ((self ^. js "gain") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation> +getNumberOfChannels :: (MonadDOM m) => AudioBuffer -> m Word+getNumberOfChannels self+  = liftDOM+      (round <$> ((self ^. js "numberOfChannels") >>= valToNumber))
+ src/JSDOM/Generated/AudioBufferCallback.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioBufferCallback+       (newAudioBufferCallback, newAudioBufferCallbackSync,+        newAudioBufferCallbackAsync, AudioBufferCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallback ::+                       (MonadDOM m) =>+                         (Maybe AudioBuffer -> JSM ()) -> m AudioBufferCallback+newAudioBufferCallback callback+  = liftDOM+      (AudioBufferCallback . Callback <$>+         function ""+           (\ _ _ [audioBuffer] ->+              fromJSVal audioBuffer >>= \ audioBuffer' -> callback audioBuffer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallbackSync ::+                           (MonadDOM m) =>+                             (Maybe AudioBuffer -> JSM ()) -> m AudioBufferCallback+newAudioBufferCallbackSync callback+  = liftDOM+      (AudioBufferCallback . Callback <$>+         function ""+           (\ _ _ [audioBuffer] ->+              fromJSVal audioBuffer >>= \ audioBuffer' -> callback audioBuffer'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> +newAudioBufferCallbackAsync ::+                            (MonadDOM m) =>+                              (Maybe AudioBuffer -> JSM ()) -> m AudioBufferCallback+newAudioBufferCallbackAsync callback+  = liftDOM+      (AudioBufferCallback . Callback <$>+         function ""+           (\ _ _ [audioBuffer] ->+              fromJSVal audioBuffer >>= \ audioBuffer' -> callback audioBuffer'))
+ src/JSDOM/Generated/AudioBufferSourceNode.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioBufferSourceNode+       (start, stop, noteOn, noteGrainOn, noteOff,+        pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,+        pattern PLAYING_STATE, pattern FINISHED_STATE, setBuffer,+        getBuffer, getPlaybackState, getGain, getPlaybackRate, setLoop,+        getLoop, setLoopStart, getLoopStart, setLoopEnd, getLoopEnd,+        setLooping, getLooping, ended, AudioBufferSourceNode,+        castToAudioBufferSourceNode, gTypeAudioBufferSourceNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation> +start ::+      (MonadDOM m) =>+        AudioBufferSourceNode -> Double -> Double -> Double -> m ()+start self when grainOffset grainDuration+  = liftDOM+      (void+         (self ^. jsf "start"+            [toJSVal when, toJSVal grainOffset, toJSVal grainDuration]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.stop Mozilla AudioBufferSourceNode.stop documentation> +stop :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+stop self when = liftDOM (void (self ^. jsf "stop" [toJSVal when]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOn Mozilla AudioBufferSourceNode.noteOn documentation> +noteOn :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+noteOn self when+  = liftDOM (void (self ^. jsf "noteOn" [toJSVal when]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteGrainOn Mozilla AudioBufferSourceNode.noteGrainOn documentation> +noteGrainOn ::+            (MonadDOM m) =>+              AudioBufferSourceNode -> Double -> Double -> Double -> m ()+noteGrainOn self when grainOffset grainDuration+  = liftDOM+      (void+         (self ^. jsf "noteGrainOn"+            [toJSVal when, toJSVal grainOffset, toJSVal grainDuration]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOff Mozilla AudioBufferSourceNode.noteOff documentation> +noteOff :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+noteOff self when+  = liftDOM (void (self ^. jsf "noteOff" [toJSVal when]))+pattern UNSCHEDULED_STATE = 0+pattern SCHEDULED_STATE = 1+pattern PLAYING_STATE = 2+pattern FINISHED_STATE = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> +setBuffer ::+          (MonadDOM m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (self ^. jss "buffer" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> +getBuffer ::+          (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)+getBuffer self = liftDOM ((self ^. js "buffer") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackState Mozilla AudioBufferSourceNode.playbackState documentation> +getPlaybackState :: (MonadDOM m) => AudioBufferSourceNode -> m Word+getPlaybackState self+  = liftDOM+      (round <$> ((self ^. js "playbackState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> +getGain ::+        (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioParam)+getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> +getPlaybackRate ::+                (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioParam)+getPlaybackRate self+  = liftDOM ((self ^. js "playbackRate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> +setLoop :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m ()+setLoop self val = liftDOM (self ^. jss "loop" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> +getLoop :: (MonadDOM m) => AudioBufferSourceNode -> m Bool+getLoop self = liftDOM ((self ^. js "loop") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> +setLoopStart ::+             (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+setLoopStart self val+  = liftDOM (self ^. jss "loopStart" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> +getLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> m Double+getLoopStart self+  = liftDOM ((self ^. js "loopStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> +setLoopEnd ::+           (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()+setLoopEnd self val = liftDOM (self ^. jss "loopEnd" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> +getLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> m Double+getLoopEnd self = liftDOM ((self ^. js "loopEnd") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation> +setLooping :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m ()+setLooping self val = liftDOM (self ^. jss "looping" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation> +getLooping :: (MonadDOM m) => AudioBufferSourceNode -> m Bool+getLooping self = liftDOM ((self ^. js "looping") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation> +ended :: EventName AudioBufferSourceNode Event+ended = unsafeEventName (toJSString "ended")
+ src/JSDOM/Generated/AudioContext.hs view
@@ -0,0 +1,296 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioContext+       (newAudioContext, createBuffer, createBufferFromArrayBuffer,+        decodeAudioData, createBufferSource, createMediaElementSource,+        createMediaStreamSource, createMediaStreamDestination, createGain,+        createDelay, createBiquadFilter, createWaveShaper, createPanner,+        createConvolver, createDynamicsCompressor, createAnalyser,+        createScriptProcessor, createOscillator, createPeriodicWave,+        createChannelSplitter, createChannelMerger, startRendering,+        createGainNode, createDelayNode, createJavaScriptNode,+        getDestination, getCurrentTime, getSampleRate, getListener,+        getActiveSourceCount, complete, AudioContext, castToAudioContext,+        gTypeAudioContext, IsAudioContext, toAudioContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation> +newAudioContext :: (MonadDOM m) => m AudioContext+newAudioContext+  = liftDOM (AudioContext <$> new (jsg "AudioContext") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBuffer ::+             (MonadDOM m, IsAudioContext self) =>+               self -> Word -> Word -> Float -> m (Maybe AudioBuffer)+createBuffer self numberOfChannels numberOfFrames sampleRate+  = liftDOM+      (((toAudioContext self) ^. jsf "createBuffer"+          [toJSVal numberOfChannels, toJSVal numberOfFrames,+           toJSVal sampleRate])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferFromArrayBuffer ::+                            (MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) =>+                              self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer)+createBufferFromArrayBuffer self buffer mixToMono+  = liftDOM+      (((toAudioContext self) ^. jsf "createBuffer"+          [toJSVal buffer, toJSVal mixToMono])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation> +decodeAudioData ::+                (MonadDOM m, IsAudioContext self, IsArrayBuffer audioData) =>+                  self ->+                    Maybe audioData ->+                      Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m ()+decodeAudioData self audioData successCallback errorCallback+  = liftDOM+      (void+         ((toAudioContext self) ^. jsf "decodeAudioData"+            [toJSVal audioData, toJSVal successCallback,+             toJSVal errorCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> +createBufferSource ::+                   (MonadDOM m, IsAudioContext self) =>+                     self -> m (Maybe AudioBufferSourceNode)+createBufferSource self+  = liftDOM+      (((toAudioContext self) ^. js "createBufferSource") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> +createMediaElementSource ::+                         (MonadDOM m, IsAudioContext self,+                          IsHTMLMediaElement mediaElement) =>+                           self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode)+createMediaElementSource self mediaElement+  = liftDOM+      (((toAudioContext self) ^. jsf "createMediaElementSource"+          [toJSVal mediaElement])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> +createMediaStreamSource ::+                        (MonadDOM m, IsAudioContext self) =>+                          self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode)+createMediaStreamSource self mediaStream+  = liftDOM+      (((toAudioContext self) ^. jsf "createMediaStreamSource"+          [toJSVal mediaStream])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> +createMediaStreamDestination ::+                             (MonadDOM m, IsAudioContext self) =>+                               self -> m (Maybe MediaStreamAudioDestinationNode)+createMediaStreamDestination self+  = liftDOM+      (((toAudioContext self) ^. js "createMediaStreamDestination") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> +createGain ::+           (MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode)+createGain self+  = liftDOM+      (((toAudioContext self) ^. js "createGain") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> +createDelay ::+            (MonadDOM m, IsAudioContext self) =>+              self -> Double -> m (Maybe DelayNode)+createDelay self maxDelayTime+  = liftDOM+      (((toAudioContext self) ^. jsf "createDelay"+          [toJSVal maxDelayTime])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> +createBiquadFilter ::+                   (MonadDOM m, IsAudioContext self) =>+                     self -> m (Maybe BiquadFilterNode)+createBiquadFilter self+  = liftDOM+      (((toAudioContext self) ^. js "createBiquadFilter") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> +createWaveShaper ::+                 (MonadDOM m, IsAudioContext self) =>+                   self -> m (Maybe WaveShaperNode)+createWaveShaper self+  = liftDOM+      (((toAudioContext self) ^. js "createWaveShaper") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> +createPanner ::+             (MonadDOM m, IsAudioContext self) => self -> m (Maybe PannerNode)+createPanner self+  = liftDOM+      (((toAudioContext self) ^. js "createPanner") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> +createConvolver ::+                (MonadDOM m, IsAudioContext self) =>+                  self -> m (Maybe ConvolverNode)+createConvolver self+  = liftDOM+      (((toAudioContext self) ^. js "createConvolver") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> +createDynamicsCompressor ::+                         (MonadDOM m, IsAudioContext self) =>+                           self -> m (Maybe DynamicsCompressorNode)+createDynamicsCompressor self+  = liftDOM+      (((toAudioContext self) ^. js "createDynamicsCompressor") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> +createAnalyser ::+               (MonadDOM m, IsAudioContext self) => self -> m (Maybe AnalyserNode)+createAnalyser self+  = liftDOM+      (((toAudioContext self) ^. js "createAnalyser") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> +createScriptProcessor ::+                      (MonadDOM m, IsAudioContext self) =>+                        self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)+createScriptProcessor self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftDOM+      (((toAudioContext self) ^. jsf "createScriptProcessor"+          [toJSVal bufferSize, toJSVal numberOfInputChannels,+           toJSVal numberOfOutputChannels])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> +createOscillator ::+                 (MonadDOM m, IsAudioContext self) =>+                   self -> m (Maybe OscillatorNode)+createOscillator self+  = liftDOM+      (((toAudioContext self) ^. js "createOscillator") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> +createPeriodicWave ::+                   (MonadDOM m, IsAudioContext self, IsFloat32Array real,+                    IsFloat32Array imag) =>+                     self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave)+createPeriodicWave self real imag+  = liftDOM+      (((toAudioContext self) ^. jsf "createPeriodicWave"+          [toJSVal real, toJSVal imag])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> +createChannelSplitter ::+                      (MonadDOM m, IsAudioContext self) =>+                        self -> Word -> m (Maybe ChannelSplitterNode)+createChannelSplitter self numberOfOutputs+  = liftDOM+      (((toAudioContext self) ^. jsf "createChannelSplitter"+          [toJSVal numberOfOutputs])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> +createChannelMerger ::+                    (MonadDOM m, IsAudioContext self) =>+                      self -> Word -> m (Maybe ChannelMergerNode)+createChannelMerger self numberOfInputs+  = liftDOM+      (((toAudioContext self) ^. jsf "createChannelMerger"+          [toJSVal numberOfInputs])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.startRendering Mozilla AudioContext.startRendering documentation> +startRendering :: (MonadDOM m, IsAudioContext self) => self -> m ()+startRendering self+  = liftDOM (void ((toAudioContext self) ^. js "startRendering"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> +createGainNode ::+               (MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode)+createGainNode self+  = liftDOM+      (((toAudioContext self) ^. js "createGainNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> +createDelayNode ::+                (MonadDOM m, IsAudioContext self) =>+                  self -> Double -> m (Maybe DelayNode)+createDelayNode self maxDelayTime+  = liftDOM+      (((toAudioContext self) ^. jsf "createDelayNode"+          [toJSVal maxDelayTime])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> +createJavaScriptNode ::+                     (MonadDOM m, IsAudioContext self) =>+                       self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)+createJavaScriptNode self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftDOM+      (((toAudioContext self) ^. jsf "createJavaScriptNode"+          [toJSVal bufferSize, toJSVal numberOfInputChannels,+           toJSVal numberOfOutputChannels])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> +getDestination ::+               (MonadDOM m, IsAudioContext self) =>+                 self -> m (Maybe AudioDestinationNode)+getDestination self+  = liftDOM+      (((toAudioContext self) ^. js "destination") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.currentTime Mozilla AudioContext.currentTime documentation> +getCurrentTime ::+               (MonadDOM m, IsAudioContext self) => self -> m Double+getCurrentTime self+  = liftDOM+      (((toAudioContext self) ^. js "currentTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.sampleRate Mozilla AudioContext.sampleRate documentation> +getSampleRate ::+              (MonadDOM m, IsAudioContext self) => self -> m Float+getSampleRate self+  = liftDOM+      (realToFrac <$>+         (((toAudioContext self) ^. js "sampleRate") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> +getListener ::+            (MonadDOM m, IsAudioContext self) =>+              self -> m (Maybe AudioListener)+getListener self+  = liftDOM (((toAudioContext self) ^. js "listener") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.activeSourceCount Mozilla AudioContext.activeSourceCount documentation> +getActiveSourceCount ::+                     (MonadDOM m, IsAudioContext self) => self -> m Word+getActiveSourceCount self+  = liftDOM+      (round <$>+         (((toAudioContext self) ^. js "activeSourceCount") >>=+            valToNumber))++-- | <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")
+ src/JSDOM/Generated/AudioDestinationNode.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioDestinationNode+       (getMaxChannelCount, AudioDestinationNode,+        castToAudioDestinationNode, gTypeAudioDestinationNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation> +getMaxChannelCount ::+                   (MonadDOM m) => AudioDestinationNode -> m Word+getMaxChannelCount self+  = liftDOM+      (round <$> ((self ^. js "maxChannelCount") >>= valToNumber))
+ src/JSDOM/Generated/AudioListener.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioListener+       (setPosition, setOrientation, setVelocity, setDopplerFactor,+        getDopplerFactor, setSpeedOfSound, getSpeedOfSound, AudioListener,+        castToAudioListener, gTypeAudioListener)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setPosition Mozilla AudioListener.setPosition documentation> +setPosition ::+            (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m ()+setPosition self x y z+  = liftDOM+      (void+         (self ^. jsf "setPosition" [toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setOrientation Mozilla AudioListener.setOrientation documentation> +setOrientation ::+               (MonadDOM m) =>+                 AudioListener ->+                   Float -> Float -> Float -> Float -> Float -> Float -> m ()+setOrientation self x y z xUp yUp zUp+  = liftDOM+      (void+         (self ^. jsf "setOrientation"+            [toJSVal x, toJSVal y, toJSVal z, toJSVal xUp, toJSVal yUp,+             toJSVal zUp]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setVelocity Mozilla AudioListener.setVelocity documentation> +setVelocity ::+            (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m ()+setVelocity self x y z+  = liftDOM+      (void+         (self ^. jsf "setVelocity" [toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> +setDopplerFactor :: (MonadDOM m) => AudioListener -> Float -> m ()+setDopplerFactor self val+  = liftDOM (self ^. jss "dopplerFactor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> +getDopplerFactor :: (MonadDOM m) => AudioListener -> m Float+getDopplerFactor self+  = liftDOM+      (realToFrac <$> ((self ^. js "dopplerFactor") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> +setSpeedOfSound :: (MonadDOM m) => AudioListener -> Float -> m ()+setSpeedOfSound self val+  = liftDOM (self ^. jss "speedOfSound" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> +getSpeedOfSound :: (MonadDOM m) => AudioListener -> m Float+getSpeedOfSound self+  = liftDOM+      (realToFrac <$> ((self ^. js "speedOfSound") >>= valToNumber))
+ src/JSDOM/Generated/AudioNode.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioNode+       (connect, connectParam, disconnect, getContext, getNumberOfInputs,+        getNumberOfOutputs, setChannelCount, getChannelCount,+        setChannelCountMode, getChannelCountMode, setChannelInterpretation,+        getChannelInterpretation, AudioNode, castToAudioNode,+        gTypeAudioNode, IsAudioNode, toAudioNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> +connect ::+        (MonadDOM m, IsAudioNode self, IsAudioNode destination) =>+          self -> Maybe destination -> Word -> Word -> m ()+connect self destination output input+  = liftDOM+      (void+         ((toAudioNode self) ^. jsf "connect"+            [toJSVal destination, toJSVal output, toJSVal input]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> +connectParam ::+             (MonadDOM m, IsAudioNode self) =>+               self -> Maybe AudioParam -> Word -> m ()+connectParam self destination output+  = liftDOM+      (void+         ((toAudioNode self) ^. jsf "connect"+            [toJSVal destination, toJSVal output]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.disconnect Mozilla AudioNode.disconnect documentation> +disconnect ::+           (MonadDOM m, IsAudioNode self) => self -> Word -> m ()+disconnect self output+  = liftDOM+      (void ((toAudioNode self) ^. jsf "disconnect" [toJSVal output]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> +getContext ::+           (MonadDOM m, IsAudioNode self) => self -> m (Maybe AudioContext)+getContext self+  = liftDOM (((toAudioNode self) ^. js "context") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfInputs Mozilla AudioNode.numberOfInputs documentation> +getNumberOfInputs ::+                  (MonadDOM m, IsAudioNode self) => self -> m Word+getNumberOfInputs self+  = liftDOM+      (round <$>+         (((toAudioNode self) ^. js "numberOfInputs") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfOutputs Mozilla AudioNode.numberOfOutputs documentation> +getNumberOfOutputs ::+                   (MonadDOM m, IsAudioNode self) => self -> m Word+getNumberOfOutputs self+  = liftDOM+      (round <$>+         (((toAudioNode self) ^. js "numberOfOutputs") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> +setChannelCount ::+                (MonadDOM m, IsAudioNode self) => self -> Word -> m ()+setChannelCount self val+  = liftDOM ((toAudioNode self) ^. jss "channelCount" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> +getChannelCount :: (MonadDOM m, IsAudioNode self) => self -> m Word+getChannelCount self+  = liftDOM+      (round <$>+         (((toAudioNode self) ^. js "channelCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> +setChannelCountMode ::+                    (MonadDOM m, IsAudioNode self, ToJSString val) =>+                      self -> val -> m ()+setChannelCountMode self val+  = liftDOM+      ((toAudioNode self) ^. jss "channelCountMode" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> +getChannelCountMode ::+                    (MonadDOM m, IsAudioNode self, FromJSString result) =>+                      self -> m result+getChannelCountMode self+  = liftDOM+      (((toAudioNode self) ^. js "channelCountMode") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> +setChannelInterpretation ::+                         (MonadDOM m, IsAudioNode self, ToJSString val) =>+                           self -> val -> m ()+setChannelInterpretation self val+  = liftDOM+      ((toAudioNode self) ^. jss "channelInterpretation" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> +getChannelInterpretation ::+                         (MonadDOM m, IsAudioNode self, FromJSString result) =>+                           self -> m result+getChannelInterpretation self+  = liftDOM+      (((toAudioNode self) ^. js "channelInterpretation") >>=+         fromJSValUnchecked)
+ src/JSDOM/Generated/AudioParam.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioParam+       (setValueAtTime, linearRampToValueAtTime,+        exponentialRampToValueAtTime, setTargetAtTime, setValueCurveAtTime,+        cancelScheduledValues, setTargetValueAtTime, setValue, getValue,+        getMinValue, getMaxValue, getDefaultValue, getName, getUnits,+        AudioParam, castToAudioParam, gTypeAudioParam)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation> +setValueAtTime ::+               (MonadDOM m) => AudioParam -> Float -> Float -> m ()+setValueAtTime self value time+  = liftDOM+      (void (self ^. jsf "setValueAtTime" [toJSVal value, toJSVal time]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.linearRampToValueAtTime Mozilla AudioParam.linearRampToValueAtTime documentation> +linearRampToValueAtTime ::+                        (MonadDOM m) => AudioParam -> Float -> Float -> m ()+linearRampToValueAtTime self value time+  = liftDOM+      (void+         (self ^. jsf "linearRampToValueAtTime"+            [toJSVal value, toJSVal time]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.exponentialRampToValueAtTime Mozilla AudioParam.exponentialRampToValueAtTime documentation> +exponentialRampToValueAtTime ::+                             (MonadDOM m) => AudioParam -> Float -> Float -> m ()+exponentialRampToValueAtTime self value time+  = liftDOM+      (void+         (self ^. jsf "exponentialRampToValueAtTime"+            [toJSVal value, toJSVal time]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetAtTime Mozilla AudioParam.setTargetAtTime documentation> +setTargetAtTime ::+                (MonadDOM m) => AudioParam -> Float -> Float -> Float -> m ()+setTargetAtTime self target time timeConstant+  = liftDOM+      (void+         (self ^. jsf "setTargetAtTime"+            [toJSVal target, toJSVal time, toJSVal timeConstant]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation> +setValueCurveAtTime ::+                    (MonadDOM m, IsFloat32Array values) =>+                      AudioParam -> Maybe values -> Float -> Float -> m ()+setValueCurveAtTime self values time duration+  = liftDOM+      (void+         (self ^. jsf "setValueCurveAtTime"+            [toJSVal values, toJSVal time, toJSVal duration]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.cancelScheduledValues Mozilla AudioParam.cancelScheduledValues documentation> +cancelScheduledValues ::+                      (MonadDOM m) => AudioParam -> Float -> m ()+cancelScheduledValues self startTime+  = liftDOM+      (void (self ^. jsf "cancelScheduledValues" [toJSVal startTime]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetValueAtTime Mozilla AudioParam.setTargetValueAtTime documentation> +setTargetValueAtTime ::+                     (MonadDOM m) => AudioParam -> Float -> Float -> Float -> m ()+setTargetValueAtTime self targetValue time timeConstant+  = liftDOM+      (void+         (self ^. jsf "setTargetValueAtTime"+            [toJSVal targetValue, toJSVal time, toJSVal timeConstant]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> +setValue :: (MonadDOM m) => AudioParam -> Float -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> +getValue :: (MonadDOM m) => AudioParam -> m Float+getValue self+  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.minValue Mozilla AudioParam.minValue documentation> +getMinValue :: (MonadDOM m) => AudioParam -> m Float+getMinValue self+  = liftDOM+      (realToFrac <$> ((self ^. js "minValue") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.maxValue Mozilla AudioParam.maxValue documentation> +getMaxValue :: (MonadDOM m) => AudioParam -> m Float+getMaxValue self+  = liftDOM+      (realToFrac <$> ((self ^. js "maxValue") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation> +getDefaultValue :: (MonadDOM m) => AudioParam -> m Float+getDefaultValue self+  = liftDOM+      (realToFrac <$> ((self ^. js "defaultValue") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.name Mozilla AudioParam.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => AudioParam -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.units Mozilla AudioParam.units documentation> +getUnits :: (MonadDOM m) => AudioParam -> m Word+getUnits self+  = liftDOM (round <$> ((self ^. js "units") >>= valToNumber))
+ src/JSDOM/Generated/AudioProcessingEvent.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioProcessingEvent+       (getPlaybackTime, getInputBuffer, getOutputBuffer,+        AudioProcessingEvent, castToAudioProcessingEvent,+        gTypeAudioProcessingEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.playbackTime Mozilla AudioProcessingEvent.playbackTime documentation> +getPlaybackTime :: (MonadDOM m) => AudioProcessingEvent -> m Double+getPlaybackTime self+  = liftDOM ((self ^. js "playbackTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> +getInputBuffer ::+               (MonadDOM m) => AudioProcessingEvent -> m (Maybe AudioBuffer)+getInputBuffer self+  = liftDOM ((self ^. js "inputBuffer") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> +getOutputBuffer ::+                (MonadDOM m) => AudioProcessingEvent -> m (Maybe AudioBuffer)+getOutputBuffer self+  = liftDOM ((self ^. js "outputBuffer") >>= fromJSVal)
+ src/JSDOM/Generated/AudioStreamTrack.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioStreamTrack+       (newAudioStreamTrack, AudioStreamTrack, castToAudioStreamTrack,+        gTypeAudioStreamTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioStreamTrack Mozilla AudioStreamTrack documentation> +newAudioStreamTrack ::+                    (MonadDOM m, IsDictionary audioConstraints) =>+                      Maybe audioConstraints -> m AudioStreamTrack+newAudioStreamTrack audioConstraints+  = liftDOM+      (AudioStreamTrack <$>+         new (jsg "AudioStreamTrack") [toJSVal audioConstraints])
+ src/JSDOM/Generated/AudioTrack.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioTrack+       (getId, setKind, getKind, getLabel, setLanguage, getLanguage,+        setEnabled, getEnabled, getSourceBuffer, AudioTrack,+        castToAudioTrack, gTypeAudioTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation> +getId ::+      (MonadDOM m, FromJSString result) => AudioTrack -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> +setKind ::+        (MonadDOM m, ToJSString val) => AudioTrack -> val -> m ()+setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> +getKind ::+        (MonadDOM m, FromJSString result) => AudioTrack -> m result+getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.label Mozilla AudioTrack.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => AudioTrack -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> +setLanguage ::+            (MonadDOM m, ToJSString val) => AudioTrack -> val -> m ()+setLanguage self val+  = liftDOM (self ^. jss "language" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> +getLanguage ::+            (MonadDOM m, FromJSString result) => AudioTrack -> m result+getLanguage self+  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> +setEnabled :: (MonadDOM m) => AudioTrack -> Bool -> m ()+setEnabled self val = liftDOM (self ^. jss "enabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> +getEnabled :: (MonadDOM m) => AudioTrack -> m Bool+getEnabled self = liftDOM ((self ^. js "enabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> +getSourceBuffer ::+                (MonadDOM m) => AudioTrack -> m (Maybe SourceBuffer)+getSourceBuffer self+  = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal)
+ src/JSDOM/Generated/AudioTrackList.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AudioTrackList+       (item, getTrackById, getLength, change, addTrack, removeTrack,+        AudioTrackList, castToAudioTrackList, gTypeAudioTrackList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> +item ::+     (MonadDOM m) => AudioTrackList -> Word -> m (Maybe AudioTrack)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> +getTrackById ::+             (MonadDOM m, ToJSString id) =>+               AudioTrackList -> id -> m (Maybe AudioTrack)+getTrackById self id+  = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.length Mozilla AudioTrackList.length documentation> +getLength :: (MonadDOM m) => AudioTrackList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onchange Mozilla AudioTrackList.onchange documentation> +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+addTrack = unsafeEventName (toJSString "addtrack")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onremovetrack Mozilla AudioTrackList.onremovetrack documentation> +removeTrack :: EventName AudioTrackList Event+removeTrack = unsafeEventName (toJSString "removetrack")
+ src/JSDOM/Generated/AutocompleteErrorEvent.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.AutocompleteErrorEvent+       (getReason, AutocompleteErrorEvent, castToAutocompleteErrorEvent,+        gTypeAutocompleteErrorEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation> +getReason ::+          (MonadDOM m, FromJSString result) =>+            AutocompleteErrorEvent -> m result+getReason self+  = liftDOM ((self ^. js "reason") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/BarProp.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.BarProp+       (getVisible, BarProp, castToBarProp, gTypeBarProp) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation> +getVisible :: (MonadDOM m) => BarProp -> m Bool+getVisible self = liftDOM ((self ^. js "visible") >>= valToBool)
+ src/JSDOM/Generated/BatteryManager.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.BatteryManager+       (getCharging, getChargingTime, getDischargingTime, getLevel,+        chargingChange, chargingTimeChange, dischargingTimeChange,+        levelChange, BatteryManager, castToBatteryManager,+        gTypeBatteryManager)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.charging Mozilla BatteryManager.charging documentation> +getCharging :: (MonadDOM m) => BatteryManager -> m Bool+getCharging self = liftDOM ((self ^. js "charging") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.chargingTime Mozilla BatteryManager.chargingTime documentation> +getChargingTime :: (MonadDOM m) => BatteryManager -> m Double+getChargingTime self+  = liftDOM ((self ^. js "chargingTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.dischargingTime Mozilla BatteryManager.dischargingTime documentation> +getDischargingTime :: (MonadDOM m) => BatteryManager -> m Double+getDischargingTime self+  = liftDOM ((self ^. js "dischargingTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.level Mozilla BatteryManager.level documentation> +getLevel :: (MonadDOM m) => BatteryManager -> m Double+getLevel self = liftDOM ((self ^. js "level") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onchargingchange Mozilla BatteryManager.onchargingchange documentation> +chargingChange :: EventName BatteryManager Event+chargingChange = unsafeEventName (toJSString "chargingchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onchargingtimechange Mozilla BatteryManager.onchargingtimechange documentation> +chargingTimeChange :: EventName BatteryManager Event+chargingTimeChange+  = unsafeEventName (toJSString "chargingtimechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.ondischargingtimechange Mozilla BatteryManager.ondischargingtimechange documentation> +dischargingTimeChange :: EventName BatteryManager Event+dischargingTimeChange+  = unsafeEventName (toJSString "dischargingtimechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onlevelchange Mozilla BatteryManager.onlevelchange documentation> +levelChange :: EventName BatteryManager Event+levelChange = unsafeEventName (toJSString "levelchange")
+ src/JSDOM/Generated/BeforeLoadEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.BeforeLoadEvent+       (getUrl, BeforeLoadEvent, castToBeforeLoadEvent,+        gTypeBeforeLoadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation> +getUrl ::+       (MonadDOM m, FromJSString result) => BeforeLoadEvent -> m result+getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/BeforeUnloadEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.BeforeUnloadEvent+       (setReturnValue, getReturnValue, BeforeUnloadEvent,+        castToBeforeUnloadEvent, gTypeBeforeUnloadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> +setReturnValue ::+               (MonadDOM m, ToJSString val) => BeforeUnloadEvent -> val -> m ()+setReturnValue self val+  = liftDOM (self ^. jss "returnValue" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> +getReturnValue ::+               (MonadDOM m, FromJSString result) => BeforeUnloadEvent -> m result+getReturnValue self+  = liftDOM ((self ^. js "returnValue") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/BiquadFilterNode.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.BiquadFilterNode+       (getFrequencyResponse, pattern LOWPASS, pattern HIGHPASS,+        pattern BANDPASS, pattern LOWSHELF, pattern HIGHSHELF,+        pattern PEAKING, pattern NOTCH, pattern ALLPASS, setType, getType,+        getFrequency, getDetune, getQ, getGain, BiquadFilterNode,+        castToBiquadFilterNode, gTypeBiquadFilterNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation> +getFrequencyResponse ::+                     (MonadDOM m, IsFloat32Array frequencyHz,+                      IsFloat32Array magResponse, IsFloat32Array phaseResponse) =>+                       BiquadFilterNode ->+                         Maybe frequencyHz ->+                           Maybe magResponse -> Maybe phaseResponse -> m ()+getFrequencyResponse self frequencyHz magResponse phaseResponse+  = liftDOM+      (void+         (self ^. jsf "getFrequencyResponse"+            [toJSVal frequencyHz, toJSVal magResponse, toJSVal phaseResponse]))+pattern LOWPASS = 0+pattern HIGHPASS = 1+pattern BANDPASS = 2+pattern LOWSHELF = 3+pattern HIGHSHELF = 4+pattern PEAKING = 5+pattern NOTCH = 6+pattern ALLPASS = 7++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => BiquadFilterNode -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => BiquadFilterNode -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> +getFrequency ::+             (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)+getFrequency self+  = liftDOM ((self ^. js "frequency") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> +getDetune ::+          (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)+getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> +getQ :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)+getQ self = liftDOM ((self ^. js "Q") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> +getGain :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)+getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)
+ src/JSDOM/Generated/Blob.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Blob+       (newBlob, newBlob', slice, getSize, getType, Blob, castToBlob,+        gTypeBlob, IsBlob, toBlob)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> +newBlob :: (MonadDOM m) => m Blob+newBlob = liftDOM (Blob <$> new (jsg "Blob") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> +newBlob' ::+         (MonadDOM m, IsBlobPropertyBag options) =>+           [JSVal] -> Maybe options -> m Blob+newBlob' blobParts options+  = liftDOM+      (Blob <$>+         new (jsg "Blob") [toJSVal (array blobParts), toJSVal options])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> +slice ::+      (MonadDOM m, IsBlob self, ToJSString contentType) =>+        self -> Int64 -> Int64 -> Maybe contentType -> m (Maybe Blob)+slice self start end contentType+  = liftDOM+      (((toBlob self) ^. jsf "slice"+          [toJSVal start, toJSVal end, toJSVal contentType])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.size Mozilla Blob.size documentation> +getSize :: (MonadDOM m, IsBlob self) => self -> m Word64+getSize self+  = liftDOM+      (round <$> (((toBlob self) ^. js "size") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.type Mozilla Blob.type documentation> +getType ::+        (MonadDOM m, IsBlob self, FromJSString result) => self -> m result+getType self+  = liftDOM (((toBlob self) ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/CSS.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSS+       (supports2, supports, CSS, castToCSS, gTypeCSS) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> +supports2 ::+          (MonadDOM m, ToJSString property, ToJSString value) =>+            CSS -> property -> value -> m Bool+supports2 self property value+  = liftDOM+      ((self ^. jsf "supports" [toJSVal property, toJSVal value]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> +supports ::+         (MonadDOM m, ToJSString conditionText) =>+           CSS -> conditionText -> m Bool+supports self conditionText+  = liftDOM+      ((self ^. jsf "supports" [toJSVal conditionText]) >>= valToBool)
+ src/JSDOM/Generated/CSSCharsetRule.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSCharsetRule+       (setEncoding, getEncoding, CSSCharsetRule, castToCSSCharsetRule,+        gTypeCSSCharsetRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> +setEncoding ::+            (MonadDOM m, ToJSString val) => CSSCharsetRule -> Maybe val -> m ()+setEncoding self val+  = liftDOM (self ^. jss "encoding" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> +getEncoding ::+            (MonadDOM m, FromJSString result) =>+              CSSCharsetRule -> m (Maybe result)+getEncoding self+  = liftDOM ((self ^. js "encoding") >>= fromMaybeJSString)
+ src/JSDOM/Generated/CSSFontFaceLoadEvent.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSFontFaceLoadEvent+       (getFontface, getError, CSSFontFaceLoadEvent,+        castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> +getFontface ::+            (MonadDOM m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule)+getFontface self = liftDOM ((self ^. js "fontface") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> +getError ::+         (MonadDOM m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)+getError self = liftDOM ((self ^. js "error") >>= fromJSVal)
+ src/JSDOM/Generated/CSSFontFaceRule.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSFontFaceRule+       (getStyle, CSSFontFaceRule, castToCSSFontFaceRule,+        gTypeCSSFontFaceRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> +getStyle ::+         (MonadDOM m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration)+getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
+ src/JSDOM/Generated/CSSImportRule.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSImportRule+       (getHref, getMedia, getStyleSheet, CSSImportRule,+        castToCSSImportRule, gTypeCSSImportRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) =>+          CSSImportRule -> m (Maybe result)+getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> +getMedia :: (MonadDOM m) => CSSImportRule -> m (Maybe MediaList)+getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> +getStyleSheet ::+              (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet)+getStyleSheet self+  = liftDOM ((self ^. js "styleSheet") >>= fromJSVal)
+ src/JSDOM/Generated/CSSKeyframeRule.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSKeyframeRule+       (setKeyText, getKeyText, getStyle, CSSKeyframeRule,+        castToCSSKeyframeRule, gTypeCSSKeyframeRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> +setKeyText ::+           (MonadDOM m, ToJSString val) => CSSKeyframeRule -> val -> m ()+setKeyText self val = liftDOM (self ^. jss "keyText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> +getKeyText ::+           (MonadDOM m, FromJSString result) => CSSKeyframeRule -> m result+getKeyText self+  = liftDOM ((self ^. js "keyText") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> +getStyle ::+         (MonadDOM m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration)+getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
+ src/JSDOM/Generated/CSSKeyframesRule.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSKeyframesRule+       (insertRule, appendRule, deleteRule, findRule, _get, setName,+        getName, getCssRules, CSSKeyframesRule, castToCSSKeyframesRule,+        gTypeCSSKeyframesRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation> +insertRule ::+           (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+insertRule self rule+  = liftDOM (void (self ^. jsf "insertRule" [toJSVal rule]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.appendRule Mozilla CSSKeyframesRule.appendRule documentation> +appendRule ::+           (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()+appendRule self rule+  = liftDOM (void (self ^. jsf "appendRule" [toJSVal rule]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation> +deleteRule ::+           (MonadDOM m, ToJSString key) => CSSKeyframesRule -> key -> m ()+deleteRule self key+  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal key]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> +findRule ::+         (MonadDOM m, ToJSString key) =>+           CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule)+findRule self key+  = liftDOM ((self ^. jsf "findRule" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> +_get ::+     (MonadDOM m) =>+       CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule)+_get self index+  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> +setName ::+        (MonadDOM m, ToJSString val) =>+          CSSKeyframesRule -> Maybe val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> +getName ::+        (MonadDOM m, FromJSString result) =>+          CSSKeyframesRule -> m (Maybe result)+getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> +getCssRules ::+            (MonadDOM m) => CSSKeyframesRule -> m (Maybe CSSRuleList)+getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
+ src/JSDOM/Generated/CSSMediaRule.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSMediaRule+       (insertRule, deleteRule, getMedia, getCssRules, CSSMediaRule,+        castToCSSMediaRule, gTypeCSSMediaRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> +insertRule ::+           (MonadDOM m, ToJSString rule) =>+             CSSMediaRule -> rule -> Word -> m Word+insertRule self rule index+  = liftDOM+      (round <$>+         ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation> +deleteRule :: (MonadDOM m) => CSSMediaRule -> Word -> m ()+deleteRule self index+  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> +getMedia :: (MonadDOM m) => CSSMediaRule -> m (Maybe MediaList)+getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> +getCssRules ::+            (MonadDOM m) => CSSMediaRule -> m (Maybe CSSRuleList)+getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
+ src/JSDOM/Generated/CSSPageRule.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSPageRule+       (setSelectorText, getSelectorText, getStyle, CSSPageRule,+        castToCSSPageRule, gTypeCSSPageRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +setSelectorText ::+                (MonadDOM m, ToJSString val) => CSSPageRule -> Maybe val -> m ()+setSelectorText self val+  = liftDOM (self ^. jss "selectorText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +getSelectorText ::+                (MonadDOM m, FromJSString result) =>+                  CSSPageRule -> m (Maybe result)+getSelectorText self+  = liftDOM ((self ^. js "selectorText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> +getStyle ::+         (MonadDOM m) => CSSPageRule -> m (Maybe CSSStyleDeclaration)+getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
+ src/JSDOM/Generated/CSSPrimitiveValue.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSPrimitiveValue+       (setFloatValue, getFloatValue, setStringValue, getStringValue,+        getCounterValue, getRectValue, getRGBColorValue,+        pattern CSS_UNKNOWN, pattern CSS_NUMBER, pattern CSS_PERCENTAGE,+        pattern CSS_EMS, pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM,+        pattern CSS_MM, pattern CSS_IN, pattern CSS_PT, pattern CSS_PC,+        pattern CSS_DEG, pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS,+        pattern CSS_S, pattern CSS_HZ, pattern CSS_KHZ,+        pattern CSS_DIMENSION, pattern CSS_STRING, pattern CSS_URI,+        pattern CSS_IDENT, pattern CSS_ATTR, pattern CSS_COUNTER,+        pattern CSS_RECT, pattern CSS_RGBCOLOR, pattern CSS_VW,+        pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,+        getPrimitiveType, CSSPrimitiveValue, castToCSSPrimitiveValue,+        gTypeCSSPrimitiveValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation> +setFloatValue ::+              (MonadDOM m) => CSSPrimitiveValue -> Word -> Float -> m ()+setFloatValue self unitType floatValue+  = liftDOM+      (void+         (self ^. jsf "setFloatValue"+            [toJSVal unitType, toJSVal floatValue]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> +getFloatValue ::+              (MonadDOM m) => CSSPrimitiveValue -> Word -> m Float+getFloatValue self unitType+  = liftDOM+      (realToFrac <$>+         ((self ^. jsf "getFloatValue" [toJSVal unitType]) >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation> +setStringValue ::+               (MonadDOM m, ToJSString stringValue) =>+                 CSSPrimitiveValue -> Word -> stringValue -> m ()+setStringValue self stringType stringValue+  = liftDOM+      (void+         (self ^. jsf "setStringValue"+            [toJSVal stringType, toJSVal stringValue]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> +getStringValue ::+               (MonadDOM m, FromJSString result) => CSSPrimitiveValue -> m result+getStringValue self+  = liftDOM ((self ^. js "getStringValue") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> +getCounterValue ::+                (MonadDOM m) => CSSPrimitiveValue -> m (Maybe Counter)+getCounterValue self+  = liftDOM ((self ^. js "getCounterValue") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> +getRectValue :: (MonadDOM m) => CSSPrimitiveValue -> m (Maybe Rect)+getRectValue self+  = liftDOM ((self ^. js "getRectValue") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> +getRGBColorValue ::+                 (MonadDOM m) => CSSPrimitiveValue -> m (Maybe RGBColor)+getRGBColorValue self+  = liftDOM ((self ^. js "getRGBColorValue") >>= fromJSVal)+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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation> +getPrimitiveType :: (MonadDOM m) => CSSPrimitiveValue -> m Word+getPrimitiveType self+  = liftDOM+      (round <$> ((self ^. js "primitiveType") >>= valToNumber))
+ src/JSDOM/Generated/CSSRule.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.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 SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE,+        pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE,+        pattern WEBKIT_KEYFRAME_RULE, getType, setCssText, getCssText,+        getParentStyleSheet, getParentRule, CSSRule, castToCSSRule,+        gTypeCSSRule, IsCSSRule, toCSSRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+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 SUPPORTS_RULE = 12+pattern WEBKIT_VIEWPORT_RULE = 15+pattern WEBKIT_REGION_RULE = 16+pattern WEBKIT_KEYFRAMES_RULE = 7+pattern WEBKIT_KEYFRAME_RULE = 8++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation> +getType :: (MonadDOM m, IsCSSRule self) => self -> m Word+getType self+  = liftDOM+      (round <$> (((toCSSRule self) ^. js "type") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> +setCssText ::+           (MonadDOM m, IsCSSRule self, ToJSString val) =>+             self -> Maybe val -> m ()+setCssText self val+  = liftDOM ((toCSSRule self) ^. jss "cssText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> +getCssText ::+           (MonadDOM m, IsCSSRule self, FromJSString result) =>+             self -> m (Maybe result)+getCssText self+  = liftDOM+      (((toCSSRule self) ^. js "cssText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> +getParentStyleSheet ::+                    (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)+getParentStyleSheet self+  = liftDOM+      (((toCSSRule self) ^. js "parentStyleSheet") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> +getParentRule ::+              (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSRule)+getParentRule self+  = liftDOM (((toCSSRule self) ^. js "parentRule") >>= fromJSVal)
+ src/JSDOM/Generated/CSSRuleList.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSRuleList+       (item, getLength, CSSRuleList, castToCSSRuleList, gTypeCSSRuleList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> +item :: (MonadDOM m) => CSSRuleList -> Word -> m (Maybe CSSRule)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.length Mozilla CSSRuleList.length documentation> +getLength :: (MonadDOM m) => CSSRuleList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/CSSStyleDeclaration.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSStyleDeclaration+       (getPropertyValue, getPropertyCSSValue, removeProperty,+        getPropertyPriority, setProperty, item, getPropertyShorthand,+        isPropertyImplicit, setCssText, getCssText, getLength,+        getParentRule, CSSStyleDeclaration, castToCSSStyleDeclaration,+        gTypeCSSStyleDeclaration)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> +getPropertyValue ::+                 (MonadDOM m, ToJSString propertyName, FromJSString result) =>+                   CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyValue self propertyName+  = liftDOM+      ((self ^. jsf "getPropertyValue" [toJSVal propertyName]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> +getPropertyCSSValue ::+                    (MonadDOM m, ToJSString propertyName) =>+                      CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue)+getPropertyCSSValue self propertyName+  = liftDOM+      ((self ^. jsf "getPropertyCSSValue" [toJSVal propertyName]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> +removeProperty ::+               (MonadDOM m, ToJSString propertyName, FromJSString result) =>+                 CSSStyleDeclaration -> propertyName -> m (Maybe result)+removeProperty self propertyName+  = liftDOM+      ((self ^. jsf "removeProperty" [toJSVal propertyName]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> +getPropertyPriority ::+                    (MonadDOM m, ToJSString propertyName, FromJSString result) =>+                      CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyPriority self propertyName+  = liftDOM+      ((self ^. jsf "getPropertyPriority" [toJSVal propertyName]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation> +setProperty ::+            (MonadDOM m, ToJSString propertyName, ToJSString value,+             ToJSString priority) =>+              CSSStyleDeclaration ->+                propertyName -> Maybe value -> priority -> m ()+setProperty self propertyName value priority+  = liftDOM+      (void+         (self ^. jsf "setProperty"+            [toJSVal propertyName, toJSVal value, toJSVal priority]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> +item ::+     (MonadDOM m, FromJSString result) =>+       CSSStyleDeclaration -> Word -> m result+item self index+  = liftDOM+      ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> +getPropertyShorthand ::+                     (MonadDOM m, ToJSString propertyName, FromJSString result) =>+                       CSSStyleDeclaration -> propertyName -> m (Maybe result)+getPropertyShorthand self propertyName+  = liftDOM+      ((self ^. jsf "getPropertyShorthand" [toJSVal propertyName]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> +isPropertyImplicit ::+                   (MonadDOM m, ToJSString propertyName) =>+                     CSSStyleDeclaration -> propertyName -> m Bool+isPropertyImplicit self propertyName+  = liftDOM+      ((self ^. jsf "isPropertyImplicit" [toJSVal propertyName]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> +setCssText ::+           (MonadDOM m, ToJSString val) =>+             CSSStyleDeclaration -> Maybe val -> m ()+setCssText self val = liftDOM (self ^. jss "cssText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> +getCssText ::+           (MonadDOM m, FromJSString result) =>+             CSSStyleDeclaration -> m (Maybe result)+getCssText self+  = liftDOM ((self ^. js "cssText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.length Mozilla CSSStyleDeclaration.length documentation> +getLength :: (MonadDOM m) => CSSStyleDeclaration -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> +getParentRule ::+              (MonadDOM m) => CSSStyleDeclaration -> m (Maybe CSSRule)+getParentRule self+  = liftDOM ((self ^. js "parentRule") >>= fromJSVal)
+ src/JSDOM/Generated/CSSStyleRule.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSStyleRule+       (setSelectorText, getSelectorText, getStyle, CSSStyleRule,+        castToCSSStyleRule, gTypeCSSStyleRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +setSelectorText ::+                (MonadDOM m, ToJSString val) => CSSStyleRule -> Maybe val -> m ()+setSelectorText self val+  = liftDOM (self ^. jss "selectorText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +getSelectorText ::+                (MonadDOM m, FromJSString result) =>+                  CSSStyleRule -> m (Maybe result)+getSelectorText self+  = liftDOM ((self ^. js "selectorText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> +getStyle ::+         (MonadDOM m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration)+getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
+ src/JSDOM/Generated/CSSStyleSheet.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSStyleSheet+       (insertRule, deleteRule, addRule, removeRule, getOwnerRule,+        getCssRules, getRules, CSSStyleSheet, castToCSSStyleSheet,+        gTypeCSSStyleSheet)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> +insertRule ::+           (MonadDOM m, ToJSString rule) =>+             CSSStyleSheet -> rule -> Word -> m Word+insertRule self rule index+  = liftDOM+      (round <$>+         ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.deleteRule Mozilla CSSStyleSheet.deleteRule documentation> +deleteRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m ()+deleteRule self index+  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> +addRule ::+        (MonadDOM m, ToJSString selector, ToJSString style) =>+          CSSStyleSheet -> selector -> style -> Word -> m Int+addRule self selector style index+  = liftDOM+      (round <$>+         ((self ^. jsf "addRule"+             [toJSVal selector, toJSVal style, toJSVal index])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.removeRule Mozilla CSSStyleSheet.removeRule documentation> +removeRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m ()+removeRule self index+  = liftDOM (void (self ^. jsf "removeRule" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> +getOwnerRule :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRule)+getOwnerRule self+  = liftDOM ((self ^. js "ownerRule") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> +getCssRules ::+            (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRuleList)+getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> +getRules :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRuleList)+getRules self = liftDOM ((self ^. js "rules") >>= fromJSVal)
+ src/JSDOM/Generated/CSSSupportsRule.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSSupportsRule+       (insertRule, deleteRule, getCssRules, getConditionText,+        CSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> +insertRule ::+           (MonadDOM m, ToJSString rule) =>+             CSSSupportsRule -> rule -> Word -> m Word+insertRule self rule index+  = liftDOM+      (round <$>+         ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation> +deleteRule :: (MonadDOM m) => CSSSupportsRule -> Word -> m ()+deleteRule self index+  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> +getCssRules ::+            (MonadDOM m) => CSSSupportsRule -> m (Maybe CSSRuleList)+getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation> +getConditionText ::+                 (MonadDOM m, FromJSString result) => CSSSupportsRule -> m result+getConditionText self+  = liftDOM ((self ^. js "conditionText") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/CSSValue.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSValue+       (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE,+        pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, setCssText, getCssText,+        getCssValueType, CSSValue, castToCSSValue, gTypeCSSValue,+        IsCSSValue, toCSSValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern CSS_INHERIT = 0+pattern CSS_PRIMITIVE_VALUE = 1+pattern CSS_VALUE_LIST = 2+pattern CSS_CUSTOM = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +setCssText ::+           (MonadDOM m, IsCSSValue self, ToJSString val) =>+             self -> Maybe val -> m ()+setCssText self val+  = liftDOM ((toCSSValue self) ^. jss "cssText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +getCssText ::+           (MonadDOM m, IsCSSValue self, FromJSString result) =>+             self -> m (Maybe result)+getCssText self+  = liftDOM+      (((toCSSValue self) ^. js "cssText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation> +getCssValueType :: (MonadDOM m, IsCSSValue self) => self -> m Word+getCssValueType self+  = liftDOM+      (round <$>+         (((toCSSValue self) ^. js "cssValueType") >>= valToNumber))
+ src/JSDOM/Generated/CSSValueList.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CSSValueList+       (item, getLength, CSSValueList, castToCSSValueList,+        gTypeCSSValueList, IsCSSValueList, toCSSValueList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> +item ::+     (MonadDOM m, IsCSSValueList self) =>+       self -> Word -> m (Maybe CSSValue)+item self index+  = liftDOM+      (((toCSSValueList self) ^. jsf "item" [toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation> +getLength :: (MonadDOM m, IsCSSValueList self) => self -> m Word+getLength self+  = liftDOM+      (round <$>+         (((toCSSValueList self) ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/CanvasGradient.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CanvasGradient+       (addColorStop, CanvasGradient, castToCanvasGradient,+        gTypeCanvasGradient)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation> +addColorStop ::+             (MonadDOM m, ToJSString color) =>+               CanvasGradient -> Float -> color -> m ()+addColorStop self offset color+  = liftDOM+      (void (self ^. jsf "addColorStop" [toJSVal offset, toJSVal color]))
+ src/JSDOM/Generated/CanvasRenderingContext.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CanvasRenderingContext+       (getCanvas, CanvasRenderingContext, castToCanvasRenderingContext,+        gTypeCanvasRenderingContext, IsCanvasRenderingContext,+        toCanvasRenderingContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> +getCanvas ::+          (MonadDOM m, IsCanvasRenderingContext self) =>+            self -> m (Maybe HTMLCanvasElement)+getCanvas self+  = liftDOM+      (((toCanvasRenderingContext self) ^. js "canvas") >>= fromJSVal)
+ src/JSDOM/Generated/CanvasRenderingContext2D.hs view
@@ -0,0 +1,1059 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CanvasRenderingContext2D+       (save, restore, scale, rotate, translate, transform, setTransform,+        createLinearGradient, createRadialGradient, setLineDash,+        getLineDash, clearRect, fillRect, beginPath, closePath, moveTo,+        lineTo, quadraticCurveTo, bezierCurveTo, arcTo, rect, arc,+        fillPath, strokePath, clipPath, fill, stroke, clip,+        isPointInPathPath, isPointInStrokePath, isPointInPath,+        isPointInStroke, measureText, setAlpha, setCompositeOperation,+        setLineWidthFunction, setLineCapFunction, setLineJoinFunction,+        setMiterLimitFunction, clearShadow, fillText, strokeText,+        setStrokeColor, setStrokeColorGray, setStrokeColorRGB,+        setStrokeColorCYMK, setFillColor, setFillColorGray,+        setFillColorRGB, setFillColorCYMK, strokeRect, drawImage,+        drawImageScaled, drawImagePart, drawImageFromCanvas,+        drawImageFromCanvasScaled, drawImageFromCanvasPart,+        drawImageFromVideo, drawImageFromVideoScaled,+        drawImageFromVideoPart, drawImageFromRect, setShadow,+        setShadowGray, setShadowRGB, setShadowCYMK, putImageData,+        putImageDataDirty, webkitPutImageDataHD, webkitPutImageDataHDDirty,+        createPatternFromCanvas, createPattern, createImageData,+        createImageDataSize, getImageData, webkitGetImageDataHD,+        drawFocusIfNeeded, drawFocusIfNeededPath, setGlobalAlpha,+        getGlobalAlpha, setGlobalCompositeOperation,+        getGlobalCompositeOperation, setLineWidth, getLineWidth,+        setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit,+        getMiterLimit, setShadowOffsetX, getShadowOffsetX,+        setShadowOffsetY, getShadowOffsetY, setShadowBlur, getShadowBlur,+        setShadowColor, getShadowColor, setLineDashOffset,+        getLineDashOffset, setWebkitLineDash, getWebkitLineDash,+        setWebkitLineDashOffset, getWebkitLineDashOffset, setFont, getFont,+        setTextAlign, getTextAlign, setTextBaseline, getTextBaseline,+        setDirection, getDirection, setStrokeStyle, getStrokeStyle,+        setFillStyle, getFillStyle, getWebkitBackingStorePixelRatio,+        setWebkitImageSmoothingEnabled, getWebkitImageSmoothingEnabled,+        CanvasRenderingContext2D, castToCanvasRenderingContext2D,+        gTypeCanvasRenderingContext2D)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation> +save :: (MonadDOM m) => CanvasRenderingContext2D -> m ()+save self = liftDOM (void (self ^. js "save"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation> +restore :: (MonadDOM m) => CanvasRenderingContext2D -> m ()+restore self = liftDOM (void (self ^. js "restore"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation> +scale ::+      (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()+scale self sx sy+  = liftDOM (void (self ^. jsf "scale" [toJSVal sx, toJSVal sy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation> +rotate :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+rotate self angle+  = liftDOM (void (self ^. jsf "rotate" [toJSVal angle]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation> +translate ::+          (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()+translate self tx ty+  = liftDOM (void (self ^. jsf "translate" [toJSVal tx, toJSVal ty]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> +transform ::+          (MonadDOM m) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Float -> Float -> Float -> m ()+transform self m11 m12 m21 m22 dx dy+  = liftDOM+      (void+         (self ^. jsf "transform"+            [toJSVal m11, toJSVal m12, toJSVal m21, toJSVal m22, toJSVal dx,+             toJSVal dy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> +setTransform ::+             (MonadDOM m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> Float -> Float -> m ()+setTransform self m11 m12 m21 m22 dx dy+  = liftDOM+      (void+         (self ^. jsf "setTransform"+            [toJSVal m11, toJSVal m12, toJSVal m21, toJSVal m22, toJSVal dx,+             toJSVal dy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradient ::+                     (MonadDOM m) =>+                       CanvasRenderingContext2D ->+                         Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)+createLinearGradient self x0 y0 x1 y1+  = liftDOM+      ((self ^. jsf "createLinearGradient"+          [toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradient ::+                     (MonadDOM m) =>+                       CanvasRenderingContext2D ->+                         Float ->+                           Float ->+                             Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)+createRadialGradient self x0 y0 r0 x1 y1 r1+  = liftDOM+      ((self ^. jsf "createRadialGradient"+          [toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1,+           toJSVal r1])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation> +setLineDash ::+            (MonadDOM m) => CanvasRenderingContext2D -> [Float] -> m ()+setLineDash self dash+  = liftDOM (void (self ^. jsf "setLineDash" [toJSVal (array dash)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> +getLineDash ::+            (MonadDOM m) => CanvasRenderingContext2D -> m [Float]+getLineDash self+  = liftDOM ((self ^. js "getLineDash") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> +clearRect ::+          (MonadDOM m) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> Float -> m ()+clearRect self x y width height+  = liftDOM+      (void+         (self ^. jsf "clearRect"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> +fillRect ::+         (MonadDOM m) =>+           CanvasRenderingContext2D ->+             Float -> Float -> Float -> Float -> m ()+fillRect self x y width height+  = liftDOM+      (void+         (self ^. jsf "fillRect"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation> +beginPath :: (MonadDOM m) => CanvasRenderingContext2D -> m ()+beginPath self = liftDOM (void (self ^. js "beginPath"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.closePath Mozilla CanvasRenderingContext2D.closePath documentation> +closePath :: (MonadDOM m) => CanvasRenderingContext2D -> m ()+closePath self = liftDOM (void (self ^. js "closePath"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.moveTo Mozilla CanvasRenderingContext2D.moveTo documentation> +moveTo ::+       (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()+moveTo self x y+  = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineTo Mozilla CanvasRenderingContext2D.lineTo documentation> +lineTo ::+       (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()+lineTo self x y+  = liftDOM (void (self ^. jsf "lineTo" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.quadraticCurveTo Mozilla CanvasRenderingContext2D.quadraticCurveTo documentation> +quadraticCurveTo ::+                 (MonadDOM m) =>+                   CanvasRenderingContext2D ->+                     Float -> Float -> Float -> Float -> m ()+quadraticCurveTo self cpx cpy x y+  = liftDOM+      (void+         (self ^. jsf "quadraticCurveTo"+            [toJSVal cpx, toJSVal cpy, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.bezierCurveTo Mozilla CanvasRenderingContext2D.bezierCurveTo documentation> +bezierCurveTo ::+              (MonadDOM m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> Float -> Float -> m ()+bezierCurveTo self cp1x cp1y cp2x cp2y x y+  = liftDOM+      (void+         (self ^. jsf "bezierCurveTo"+            [toJSVal cp1x, toJSVal cp1y, toJSVal cp2x, toJSVal cp2y, toJSVal x,+             toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arcTo Mozilla CanvasRenderingContext2D.arcTo documentation> +arcTo ::+      (MonadDOM m) =>+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> Float -> m ()+arcTo self x1 y1 x2 y2 radius+  = liftDOM+      (void+         (self ^. jsf "arcTo"+            [toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2, toJSVal radius]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rect Mozilla CanvasRenderingContext2D.rect documentation> +rect ::+     (MonadDOM m) =>+       CanvasRenderingContext2D ->+         Float -> Float -> Float -> Float -> m ()+rect self x y width height+  = liftDOM+      (void+         (self ^. jsf "rect"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arc Mozilla CanvasRenderingContext2D.arc documentation> +arc ::+    (MonadDOM m) =>+      CanvasRenderingContext2D ->+        Float -> Float -> Float -> Float -> Float -> Bool -> m ()+arc self x y radius startAngle endAngle anticlockwise+  = liftDOM+      (void+         (self ^. jsf "arc"+            [toJSVal x, toJSVal y, toJSVal radius, toJSVal startAngle,+             toJSVal endAngle, toJSVal anticlockwise]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> +fillPath ::+         (MonadDOM m) =>+           CanvasRenderingContext2D ->+             Maybe Path2D -> CanvasWindingRule -> m ()+fillPath self path winding+  = liftDOM+      (void (self ^. jsf "fill" [toJSVal path, toJSVal winding]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> +strokePath ::+           (MonadDOM m) => CanvasRenderingContext2D -> Maybe Path2D -> m ()+strokePath self path+  = liftDOM (void (self ^. jsf "stroke" [toJSVal path]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> +clipPath ::+         (MonadDOM m) =>+           CanvasRenderingContext2D ->+             Maybe Path2D -> CanvasWindingRule -> m ()+clipPath self path winding+  = liftDOM+      (void (self ^. jsf "clip" [toJSVal path, toJSVal winding]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> +fill ::+     (MonadDOM m) =>+       CanvasRenderingContext2D -> CanvasWindingRule -> m ()+fill self winding+  = liftDOM (void (self ^. jsf "fill" [toJSVal winding]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> +stroke :: (MonadDOM m) => CanvasRenderingContext2D -> m ()+stroke self = liftDOM (void (self ^. js "stroke"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> +clip ::+     (MonadDOM m) =>+       CanvasRenderingContext2D -> CanvasWindingRule -> m ()+clip self winding+  = liftDOM (void (self ^. jsf "clip" [toJSVal winding]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPathPath ::+                  (MonadDOM m) =>+                    CanvasRenderingContext2D ->+                      Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool+isPointInPathPath self path x y winding+  = liftDOM+      ((self ^. jsf "isPointInPath"+          [toJSVal path, toJSVal x, toJSVal y, toJSVal winding])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStrokePath ::+                    (MonadDOM m) =>+                      CanvasRenderingContext2D ->+                        Maybe Path2D -> Float -> Float -> m Bool+isPointInStrokePath self path x y+  = liftDOM+      ((self ^. jsf "isPointInStroke"+          [toJSVal path, toJSVal x, toJSVal y])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPath ::+              (MonadDOM m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> CanvasWindingRule -> m Bool+isPointInPath self x y winding+  = liftDOM+      ((self ^. jsf "isPointInPath"+          [toJSVal x, toJSVal y, toJSVal winding])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStroke ::+                (MonadDOM m) =>+                  CanvasRenderingContext2D -> Float -> Float -> m Bool+isPointInStroke self x y+  = liftDOM+      ((self ^. jsf "isPointInStroke" [toJSVal x, toJSVal y]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureText ::+            (MonadDOM m, ToJSString text) =>+              CanvasRenderingContext2D -> text -> m (Maybe TextMetrics)+measureText self text+  = liftDOM+      ((self ^. jsf "measureText" [toJSVal text]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation> +setAlpha ::+         (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setAlpha self alpha+  = liftDOM (void (self ^. jsf "setAlpha" [toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation> +setCompositeOperation ::+                      (MonadDOM m, ToJSString compositeOperation) =>+                        CanvasRenderingContext2D -> compositeOperation -> m ()+setCompositeOperation self compositeOperation+  = liftDOM+      (void+         (self ^. jsf "setCompositeOperation" [toJSVal compositeOperation]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation> +setLineWidthFunction ::+                     (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setLineWidthFunction self width+  = liftDOM (void (self ^. jsf "setLineWidth" [toJSVal width]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation> +setLineCapFunction ::+                   (MonadDOM m, ToJSString cap) =>+                     CanvasRenderingContext2D -> cap -> m ()+setLineCapFunction self cap+  = liftDOM (void (self ^. jsf "setLineCap" [toJSVal cap]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation> +setLineJoinFunction ::+                    (MonadDOM m, ToJSString join) =>+                      CanvasRenderingContext2D -> join -> m ()+setLineJoinFunction self join+  = liftDOM (void (self ^. jsf "setLineJoin" [toJSVal join]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation> +setMiterLimitFunction ::+                      (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setMiterLimitFunction self limit+  = liftDOM (void (self ^. jsf "setMiterLimit" [toJSVal limit]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation> +clearShadow :: (MonadDOM m) => CanvasRenderingContext2D -> m ()+clearShadow self = liftDOM (void (self ^. js "clearShadow"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> +fillText ::+         (MonadDOM m, ToJSString text) =>+           CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()+fillText self text x y maxWidth+  = liftDOM+      (void+         (self ^. jsf "fillText"+            [toJSVal text, toJSVal x, toJSVal y, toJSVal maxWidth]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> +strokeText ::+           (MonadDOM m, ToJSString text) =>+             CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()+strokeText self text x y maxWidth+  = liftDOM+      (void+         (self ^. jsf "strokeText"+            [toJSVal text, toJSVal x, toJSVal y, toJSVal maxWidth]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColor ::+               (MonadDOM m, ToJSString color) =>+                 CanvasRenderingContext2D -> color -> Float -> m ()+setStrokeColor self color alpha+  = liftDOM+      (void+         (self ^. jsf "setStrokeColor" [toJSVal color, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorGray ::+                   (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()+setStrokeColorGray self grayLevel alpha+  = liftDOM+      (void+         (self ^. jsf "setStrokeColor" [toJSVal grayLevel, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorRGB ::+                  (MonadDOM m) =>+                    CanvasRenderingContext2D ->+                      Float -> Float -> Float -> Float -> m ()+setStrokeColorRGB self r g b a+  = liftDOM+      (void+         (self ^. jsf "setStrokeColor"+            [toJSVal r, toJSVal g, toJSVal b, toJSVal a]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> +setStrokeColorCYMK ::+                   (MonadDOM m) =>+                     CanvasRenderingContext2D ->+                       Float -> Float -> Float -> Float -> Float -> m ()+setStrokeColorCYMK self c m y k a+  = liftDOM+      (void+         (self ^. jsf "setStrokeColor"+            [toJSVal c, toJSVal m, toJSVal y, toJSVal k, toJSVal a]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColor ::+             (MonadDOM m, ToJSString color) =>+               CanvasRenderingContext2D -> color -> Float -> m ()+setFillColor self color alpha+  = liftDOM+      (void (self ^. jsf "setFillColor" [toJSVal color, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorGray ::+                 (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()+setFillColorGray self grayLevel alpha+  = liftDOM+      (void+         (self ^. jsf "setFillColor" [toJSVal grayLevel, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorRGB ::+                (MonadDOM m) =>+                  CanvasRenderingContext2D ->+                    Float -> Float -> Float -> Float -> m ()+setFillColorRGB self r g b a+  = liftDOM+      (void+         (self ^. jsf "setFillColor"+            [toJSVal r, toJSVal g, toJSVal b, toJSVal a]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> +setFillColorCYMK ::+                 (MonadDOM m) =>+                   CanvasRenderingContext2D ->+                     Float -> Float -> Float -> Float -> Float -> m ()+setFillColorCYMK self c m y k a+  = liftDOM+      (void+         (self ^. jsf "setFillColor"+            [toJSVal c, toJSVal m, toJSVal y, toJSVal k, toJSVal a]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> +strokeRect ::+           (MonadDOM m) =>+             CanvasRenderingContext2D ->+               Float -> Float -> Float -> Float -> m ()+strokeRect self x y width height+  = liftDOM+      (void+         (self ^. jsf "strokeRect"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImage ::+          (MonadDOM m) =>+            CanvasRenderingContext2D ->+              Maybe HTMLImageElement -> Float -> Float -> m ()+drawImage self image x y+  = liftDOM+      (void+         (self ^. jsf "drawImage" [toJSVal image, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageScaled ::+                (MonadDOM m) =>+                  CanvasRenderingContext2D ->+                    Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m ()+drawImageScaled self image x y width height+  = liftDOM+      (void+         (self ^. jsf "drawImage"+            [toJSVal image, toJSVal x, toJSVal y, toJSVal width,+             toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImagePart ::+              (MonadDOM m) =>+                CanvasRenderingContext2D ->+                  Maybe HTMLImageElement ->+                    Float ->+                      Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImagePart self image sx sy sw sh dx dy dw dh+  = liftDOM+      (void+         (self ^. jsf "drawImage"+            [toJSVal image, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,+             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromCanvas ::+                    (MonadDOM m) =>+                      CanvasRenderingContext2D ->+                        Maybe HTMLCanvasElement -> Float -> Float -> m ()+drawImageFromCanvas self canvas x y+  = liftDOM+      (void+         (self ^. jsf "drawImage" [toJSVal canvas, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromCanvasScaled ::+                          (MonadDOM m) =>+                            CanvasRenderingContext2D ->+                              Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m ()+drawImageFromCanvasScaled self canvas x y width height+  = liftDOM+      (void+         (self ^. jsf "drawImage"+            [toJSVal canvas, toJSVal x, toJSVal y, toJSVal width,+             toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromCanvasPart ::+                        (MonadDOM m) =>+                          CanvasRenderingContext2D ->+                            Maybe HTMLCanvasElement ->+                              Float ->+                                Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh+  = liftDOM+      (void+         (self ^. jsf "drawImage"+            [toJSVal canvas, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,+             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromVideo ::+                   (MonadDOM m) =>+                     CanvasRenderingContext2D ->+                       Maybe HTMLVideoElement -> Float -> Float -> m ()+drawImageFromVideo self video x y+  = liftDOM+      (void+         (self ^. jsf "drawImage" [toJSVal video, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromVideoScaled ::+                         (MonadDOM m) =>+                           CanvasRenderingContext2D ->+                             Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m ()+drawImageFromVideoScaled self video x y width height+  = liftDOM+      (void+         (self ^. jsf "drawImage"+            [toJSVal video, toJSVal x, toJSVal y, toJSVal width,+             toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> +drawImageFromVideoPart ::+                       (MonadDOM m) =>+                         CanvasRenderingContext2D ->+                           Maybe HTMLVideoElement ->+                             Float ->+                               Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+drawImageFromVideoPart self video sx sy sw sh dx dy dw dh+  = liftDOM+      (void+         (self ^. jsf "drawImage"+            [toJSVal video, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,+             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImageFromRect Mozilla CanvasRenderingContext2D.drawImageFromRect documentation> +drawImageFromRect ::+                  (MonadDOM m, ToJSString compositeOperation) =>+                    CanvasRenderingContext2D ->+                      Maybe HTMLImageElement ->+                        Float ->+                          Float ->+                            Float ->+                              Float ->+                                Float -> Float -> Float -> Float -> compositeOperation -> m ()+drawImageFromRect self image sx sy sw sh dx dy dw dh+  compositeOperation+  = liftDOM+      (void+         (self ^. jsf "drawImageFromRect"+            [toJSVal image, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,+             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh,+             toJSVal compositeOperation]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadow ::+          (MonadDOM m, ToJSString color) =>+            CanvasRenderingContext2D ->+              Float -> Float -> Float -> color -> Float -> m ()+setShadow self width height blur color alpha+  = liftDOM+      (void+         (self ^. jsf "setShadow"+            [toJSVal width, toJSVal height, toJSVal blur, toJSVal color,+             toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowGray ::+              (MonadDOM m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> Float -> m ()+setShadowGray self width height blur grayLevel alpha+  = liftDOM+      (void+         (self ^. jsf "setShadow"+            [toJSVal width, toJSVal height, toJSVal blur, toJSVal grayLevel,+             toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowRGB ::+             (MonadDOM m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setShadowRGB self width height blur r g b a+  = liftDOM+      (void+         (self ^. jsf "setShadow"+            [toJSVal width, toJSVal height, toJSVal blur, toJSVal r, toJSVal g,+             toJSVal b, toJSVal a]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> +setShadowCYMK ::+              (MonadDOM m) =>+                CanvasRenderingContext2D ->+                  Float ->+                    Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()+setShadowCYMK self width height blur c m y k a+  = liftDOM+      (void+         (self ^. jsf "setShadow"+            [toJSVal width, toJSVal height, toJSVal blur, toJSVal c, toJSVal m,+             toJSVal y, toJSVal k, toJSVal a]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> +putImageData ::+             (MonadDOM m) =>+               CanvasRenderingContext2D ->+                 Maybe ImageData -> Float -> Float -> m ()+putImageData self imagedata dx dy+  = liftDOM+      (void+         (self ^. jsf "putImageData"+            [toJSVal imagedata, toJSVal dx, toJSVal dy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> +putImageDataDirty ::+                  (MonadDOM m) =>+                    CanvasRenderingContext2D ->+                      Maybe ImageData ->+                        Float -> Float -> Float -> Float -> Float -> Float -> m ()+putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth+  dirtyHeight+  = liftDOM+      (void+         (self ^. jsf "putImageData"+            [toJSVal imagedata, toJSVal dx, toJSVal dy, toJSVal dirtyX,+             toJSVal dirtyY, toJSVal dirtyWidth, toJSVal dirtyHeight]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> +webkitPutImageDataHD ::+                     (MonadDOM m) =>+                       CanvasRenderingContext2D ->+                         Maybe ImageData -> Float -> Float -> m ()+webkitPutImageDataHD self imagedata dx dy+  = liftDOM+      (void+         (self ^. jsf "webkitPutImageDataHD"+            [toJSVal imagedata, toJSVal dx, toJSVal dy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> +webkitPutImageDataHDDirty ::+                          (MonadDOM m) =>+                            CanvasRenderingContext2D ->+                              Maybe ImageData ->+                                Float -> Float -> Float -> Float -> Float -> Float -> m ()+webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY+  dirtyWidth dirtyHeight+  = liftDOM+      (void+         (self ^. jsf "webkitPutImageDataHD"+            [toJSVal imagedata, toJSVal dx, toJSVal dy, toJSVal dirtyX,+             toJSVal dirtyY, toJSVal dirtyWidth, toJSVal dirtyHeight]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternFromCanvas ::+                        (MonadDOM m, ToJSString repetitionType) =>+                          CanvasRenderingContext2D ->+                            Maybe HTMLCanvasElement ->+                              Maybe repetitionType -> m (Maybe CanvasPattern)+createPatternFromCanvas self canvas repetitionType+  = liftDOM+      ((self ^. jsf "createPattern"+          [toJSVal canvas, toJSVal repetitionType])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPattern ::+              (MonadDOM m, ToJSString repetitionType) =>+                CanvasRenderingContext2D ->+                  Maybe HTMLImageElement ->+                    Maybe repetitionType -> m (Maybe CanvasPattern)+createPattern self image repetitionType+  = liftDOM+      ((self ^. jsf "createPattern"+          [toJSVal image, toJSVal repetitionType])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageData ::+                (MonadDOM m) =>+                  CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData)+createImageData self imagedata+  = liftDOM+      ((self ^. jsf "createImageData" [toJSVal imagedata]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSize ::+                    (MonadDOM m) =>+                      CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData)+createImageDataSize self sw sh+  = liftDOM+      ((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageData ::+             (MonadDOM m) =>+               CanvasRenderingContext2D ->+                 Float -> Float -> Float -> Float -> m (Maybe ImageData)+getImageData self sx sy sw sh+  = liftDOM+      ((self ^. jsf "getImageData"+          [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHD ::+                     (MonadDOM m) =>+                       CanvasRenderingContext2D ->+                         Float -> Float -> Float -> Float -> m (Maybe ImageData)+webkitGetImageDataHD self sx sy sw sh+  = liftDOM+      ((self ^. jsf "webkitGetImageDataHD"+          [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> +drawFocusIfNeeded ::+                  (MonadDOM m, IsElement element) =>+                    CanvasRenderingContext2D -> Maybe element -> m ()+drawFocusIfNeeded self element+  = liftDOM+      (void (self ^. jsf "drawFocusIfNeeded" [toJSVal element]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> +drawFocusIfNeededPath ::+                      (MonadDOM m, IsElement element) =>+                        CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m ()+drawFocusIfNeededPath self path element+  = liftDOM+      (void+         (self ^. jsf "drawFocusIfNeeded" [toJSVal path, toJSVal element]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> +setGlobalAlpha ::+               (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setGlobalAlpha self val+  = liftDOM (self ^. jss "globalAlpha" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> +getGlobalAlpha ::+               (MonadDOM m) => CanvasRenderingContext2D -> m Float+getGlobalAlpha self+  = liftDOM+      (realToFrac <$> ((self ^. js "globalAlpha") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +setGlobalCompositeOperation ::+                            (MonadDOM m, ToJSString val) =>+                              CanvasRenderingContext2D -> Maybe val -> m ()+setGlobalCompositeOperation self val+  = liftDOM (self ^. jss "globalCompositeOperation" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +getGlobalCompositeOperation ::+                            (MonadDOM m, FromJSString result) =>+                              CanvasRenderingContext2D -> m (Maybe result)+getGlobalCompositeOperation self+  = liftDOM+      ((self ^. js "globalCompositeOperation") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> +setLineWidth ::+             (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setLineWidth self val+  = liftDOM (self ^. jss "lineWidth" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> +getLineWidth :: (MonadDOM m) => CanvasRenderingContext2D -> m Float+getLineWidth self+  = liftDOM+      (realToFrac <$> ((self ^. js "lineWidth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +setLineCap ::+           (MonadDOM m, ToJSString val) =>+             CanvasRenderingContext2D -> Maybe val -> m ()+setLineCap self val = liftDOM (self ^. jss "lineCap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +getLineCap ::+           (MonadDOM m, FromJSString result) =>+             CanvasRenderingContext2D -> m (Maybe result)+getLineCap self+  = liftDOM ((self ^. js "lineCap") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +setLineJoin ::+            (MonadDOM m, ToJSString val) =>+              CanvasRenderingContext2D -> Maybe val -> m ()+setLineJoin self val+  = liftDOM (self ^. jss "lineJoin" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +getLineJoin ::+            (MonadDOM m, FromJSString result) =>+              CanvasRenderingContext2D -> m (Maybe result)+getLineJoin self+  = liftDOM ((self ^. js "lineJoin") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> +setMiterLimit ::+              (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setMiterLimit self val+  = liftDOM (self ^. jss "miterLimit" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> +getMiterLimit ::+              (MonadDOM m) => CanvasRenderingContext2D -> m Float+getMiterLimit self+  = liftDOM+      (realToFrac <$> ((self ^. js "miterLimit") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> +setShadowOffsetX ::+                 (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setShadowOffsetX self val+  = liftDOM (self ^. jss "shadowOffsetX" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> +getShadowOffsetX ::+                 (MonadDOM m) => CanvasRenderingContext2D -> m Float+getShadowOffsetX self+  = liftDOM+      (realToFrac <$> ((self ^. js "shadowOffsetX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> +setShadowOffsetY ::+                 (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setShadowOffsetY self val+  = liftDOM (self ^. jss "shadowOffsetY" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> +getShadowOffsetY ::+                 (MonadDOM m) => CanvasRenderingContext2D -> m Float+getShadowOffsetY self+  = liftDOM+      (realToFrac <$> ((self ^. js "shadowOffsetY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> +setShadowBlur ::+              (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setShadowBlur self val+  = liftDOM (self ^. jss "shadowBlur" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> +getShadowBlur ::+              (MonadDOM m) => CanvasRenderingContext2D -> m Float+getShadowBlur self+  = liftDOM+      (realToFrac <$> ((self ^. js "shadowBlur") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +setShadowColor ::+               (MonadDOM m, ToJSString val) =>+                 CanvasRenderingContext2D -> Maybe val -> m ()+setShadowColor self val+  = liftDOM (self ^. jss "shadowColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +getShadowColor ::+               (MonadDOM m, FromJSString result) =>+                 CanvasRenderingContext2D -> m (Maybe result)+getShadowColor self+  = liftDOM ((self ^. js "shadowColor") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> +setLineDashOffset ::+                  (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setLineDashOffset self val+  = liftDOM (self ^. jss "lineDashOffset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> +getLineDashOffset ::+                  (MonadDOM m) => CanvasRenderingContext2D -> m Float+getLineDashOffset self+  = liftDOM+      (realToFrac <$> ((self ^. js "lineDashOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +setWebkitLineDash ::+                  (MonadDOM m, IsArray val) =>+                    CanvasRenderingContext2D -> Maybe val -> m ()+setWebkitLineDash self val+  = liftDOM (self ^. jss "webkitLineDash" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +getWebkitLineDash ::+                  (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe Array)+getWebkitLineDash self+  = liftDOM ((self ^. js "webkitLineDash") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> +setWebkitLineDashOffset ::+                        (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()+setWebkitLineDashOffset self val+  = liftDOM (self ^. jss "webkitLineDashOffset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> +getWebkitLineDashOffset ::+                        (MonadDOM m) => CanvasRenderingContext2D -> m Float+getWebkitLineDashOffset self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "webkitLineDashOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> +setFont ::+        (MonadDOM m, ToJSString val) =>+          CanvasRenderingContext2D -> val -> m ()+setFont self val = liftDOM (self ^. jss "font" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> +getFont ::+        (MonadDOM m, FromJSString result) =>+          CanvasRenderingContext2D -> m result+getFont self = liftDOM ((self ^. js "font") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> +setTextAlign ::+             (MonadDOM m, ToJSString val) =>+               CanvasRenderingContext2D -> val -> m ()+setTextAlign self val+  = liftDOM (self ^. jss "textAlign" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> +getTextAlign ::+             (MonadDOM m, FromJSString result) =>+               CanvasRenderingContext2D -> m result+getTextAlign self+  = liftDOM ((self ^. js "textAlign") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> +setTextBaseline ::+                (MonadDOM m, ToJSString val) =>+                  CanvasRenderingContext2D -> val -> m ()+setTextBaseline self val+  = liftDOM (self ^. jss "textBaseline" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> +getTextBaseline ::+                (MonadDOM m, FromJSString result) =>+                  CanvasRenderingContext2D -> m result+getTextBaseline self+  = liftDOM ((self ^. js "textBaseline") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> +setDirection ::+             (MonadDOM m, ToJSString val) =>+               CanvasRenderingContext2D -> val -> m ()+setDirection self val+  = liftDOM (self ^. jss "direction" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> +getDirection ::+             (MonadDOM m, FromJSString result) =>+               CanvasRenderingContext2D -> m result+getDirection self+  = liftDOM ((self ^. js "direction") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +setStrokeStyle ::+               (MonadDOM m, IsCanvasStyle val) =>+                 CanvasRenderingContext2D -> Maybe val -> m ()+setStrokeStyle self val+  = liftDOM (self ^. jss "strokeStyle" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +getStrokeStyle ::+               (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)+getStrokeStyle self+  = liftDOM ((self ^. js "strokeStyle") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +setFillStyle ::+             (MonadDOM m, IsCanvasStyle val) =>+               CanvasRenderingContext2D -> Maybe val -> m ()+setFillStyle self val+  = liftDOM (self ^. jss "fillStyle" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +getFillStyle ::+             (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)+getFillStyle self+  = liftDOM ((self ^. js "fillStyle") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation> +getWebkitBackingStorePixelRatio ::+                                (MonadDOM m) => CanvasRenderingContext2D -> m Float+getWebkitBackingStorePixelRatio self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "webkitBackingStorePixelRatio") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> +setWebkitImageSmoothingEnabled ::+                               (MonadDOM m) => CanvasRenderingContext2D -> Bool -> m ()+setWebkitImageSmoothingEnabled self val+  = liftDOM (self ^. jss "webkitImageSmoothingEnabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> +getWebkitImageSmoothingEnabled ::+                               (MonadDOM m) => CanvasRenderingContext2D -> m Bool+getWebkitImageSmoothingEnabled self+  = liftDOM+      ((self ^. js "webkitImageSmoothingEnabled") >>= valToBool)
+ src/JSDOM/Generated/CapabilityRange.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CapabilityRange+       (getMax, getMin, getSupported, CapabilityRange,+        castToCapabilityRange, gTypeCapabilityRange)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.max Mozilla CapabilityRange.max documentation> +getMax :: (MonadDOM m) => CapabilityRange -> m JSVal+getMax self = liftDOM ((self ^. js "max") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.min Mozilla CapabilityRange.min documentation> +getMin :: (MonadDOM m) => CapabilityRange -> m JSVal+getMin self = liftDOM ((self ^. js "min") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.supported Mozilla CapabilityRange.supported documentation> +getSupported :: (MonadDOM m) => CapabilityRange -> m Bool+getSupported self+  = liftDOM ((self ^. js "supported") >>= valToBool)
+ src/JSDOM/Generated/CharacterData.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CharacterData+       (substringData, appendData, insertData, deleteData, replaceData,+        setData, getData, getLength, CharacterData, castToCharacterData,+        gTypeCharacterData, IsCharacterData, toCharacterData)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> +substringData ::+              (MonadDOM m, IsCharacterData self, FromJSString result) =>+                self -> Word -> Word -> m (Maybe result)+substringData self offset length+  = liftDOM+      (((toCharacterData self) ^. jsf "substringData"+          [toJSVal offset, toJSVal length])+         >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation> +appendData ::+           (MonadDOM m, IsCharacterData self, ToJSString data') =>+             self -> data' -> m ()+appendData self data'+  = liftDOM+      (void ((toCharacterData self) ^. jsf "appendData" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.insertData Mozilla CharacterData.insertData documentation> +insertData ::+           (MonadDOM m, IsCharacterData self, ToJSString data') =>+             self -> Word -> data' -> m ()+insertData self offset data'+  = liftDOM+      (void+         ((toCharacterData self) ^. jsf "insertData"+            [toJSVal offset, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.deleteData Mozilla CharacterData.deleteData documentation> +deleteData ::+           (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()+deleteData self offset length+  = liftDOM+      (void+         ((toCharacterData self) ^. jsf "deleteData"+            [toJSVal offset, toJSVal length]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.replaceData Mozilla CharacterData.replaceData documentation> +replaceData ::+            (MonadDOM m, IsCharacterData self, ToJSString data') =>+              self -> Word -> Word -> data' -> m ()+replaceData self offset length data'+  = liftDOM+      (void+         ((toCharacterData self) ^. jsf "replaceData"+            [toJSVal offset, toJSVal length, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> +setData ::+        (MonadDOM m, IsCharacterData self, ToJSString val) =>+          self -> Maybe val -> m ()+setData self val+  = liftDOM ((toCharacterData self) ^. jss "data" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> +getData ::+        (MonadDOM m, IsCharacterData self, FromJSString result) =>+          self -> m (Maybe result)+getData self+  = liftDOM+      (((toCharacterData self) ^. js "data") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.length Mozilla CharacterData.length documentation> +getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word+getLength self+  = liftDOM+      (round <$>+         (((toCharacterData self) ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/ChildNode.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ChildNode+       (remove, ChildNode, castToChildNode, gTypeChildNode) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.remove Mozilla ChildNode.remove documentation> +remove :: (MonadDOM m) => ChildNode -> m ()+remove self = liftDOM (void (self ^. js "remove"))
+ src/JSDOM/Generated/ClientRect.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ClientRect+       (getTop, getRight, getBottom, getLeft, getWidth, getHeight,+        ClientRect, castToClientRect, gTypeClientRect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.top Mozilla ClientRect.top documentation> +getTop :: (MonadDOM m) => ClientRect -> m Float+getTop self+  = liftDOM (realToFrac <$> ((self ^. js "top") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.right Mozilla ClientRect.right documentation> +getRight :: (MonadDOM m) => ClientRect -> m Float+getRight self+  = liftDOM (realToFrac <$> ((self ^. js "right") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.bottom Mozilla ClientRect.bottom documentation> +getBottom :: (MonadDOM m) => ClientRect -> m Float+getBottom self+  = liftDOM (realToFrac <$> ((self ^. js "bottom") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.left Mozilla ClientRect.left documentation> +getLeft :: (MonadDOM m) => ClientRect -> m Float+getLeft self+  = liftDOM (realToFrac <$> ((self ^. js "left") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.width Mozilla ClientRect.width documentation> +getWidth :: (MonadDOM m) => ClientRect -> m Float+getWidth self+  = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.height Mozilla ClientRect.height documentation> +getHeight :: (MonadDOM m) => ClientRect -> m Float+getHeight self+  = liftDOM (realToFrac <$> ((self ^. js "height") >>= valToNumber))
+ src/JSDOM/Generated/ClientRectList.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ClientRectList+       (item, getLength, ClientRectList, castToClientRectList,+        gTypeClientRectList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> +item ::+     (MonadDOM m) => ClientRectList -> Word -> m (Maybe ClientRect)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.length Mozilla ClientRectList.length documentation> +getLength :: (MonadDOM m) => ClientRectList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/CloseEvent.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CloseEvent+       (getWasClean, getCode, getReason, CloseEvent, castToCloseEvent,+        gTypeCloseEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.wasClean Mozilla CloseEvent.wasClean documentation> +getWasClean :: (MonadDOM m) => CloseEvent -> m Bool+getWasClean self = liftDOM ((self ^. js "wasClean") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.code Mozilla CloseEvent.code documentation> +getCode :: (MonadDOM m) => CloseEvent -> m Word+getCode self+  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.reason Mozilla CloseEvent.reason documentation> +getReason ::+          (MonadDOM m, FromJSString result) => CloseEvent -> m result+getReason self+  = liftDOM ((self ^. js "reason") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/CommandLineAPIHost.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CommandLineAPIHost+       (clearConsoleMessages, copyText, inspect, inspectedObject,+        getEventListeners, databaseId, storageId, CommandLineAPIHost,+        castToCommandLineAPIHost, gTypeCommandLineAPIHost)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation> +clearConsoleMessages :: (MonadDOM m) => CommandLineAPIHost -> m ()+clearConsoleMessages self+  = liftDOM (void (self ^. js "clearConsoleMessages"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation> +copyText ::+         (MonadDOM m, ToJSString text) => CommandLineAPIHost -> text -> m ()+copyText self text+  = liftDOM (void (self ^. jsf "copyText" [toJSVal text]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation> +inspect ::+        (MonadDOM m) => CommandLineAPIHost -> JSVal -> JSVal -> m ()+inspect self objectId hints+  = liftDOM+      (void (self ^. jsf "inspect" [toJSVal objectId, toJSVal hints]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> +inspectedObject ::+                (MonadDOM m) => CommandLineAPIHost -> Int -> m JSVal+inspectedObject self num+  = liftDOM+      ((self ^. jsf "inspectedObject" [toJSVal num]) >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> +getEventListeners ::+                  (MonadDOM m, IsNode node) =>+                    CommandLineAPIHost -> Maybe node -> m (Maybe Array)+getEventListeners self node+  = liftDOM+      ((self ^. jsf "getEventListeners" [toJSVal node]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> +databaseId ::+           (MonadDOM m, FromJSString result) =>+             CommandLineAPIHost -> JSVal -> m result+databaseId self database+  = liftDOM+      ((self ^. jsf "databaseId" [toJSVal database]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> +storageId ::+          (MonadDOM m, FromJSString result) =>+            CommandLineAPIHost -> JSVal -> m result+storageId self storage+  = liftDOM+      ((self ^. jsf "storageId" [toJSVal storage]) >>=+         fromJSValUnchecked)
+ src/JSDOM/Generated/Comment.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Comment+       (newComment, Comment, castToComment, gTypeComment) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation> +newComment :: (MonadDOM m, ToJSString data') => data' -> m Comment+newComment data'+  = liftDOM (Comment <$> new (jsg "Comment") [toJSVal data'])
+ src/JSDOM/Generated/CompositionEvent.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CompositionEvent+       (initCompositionEvent, getData, CompositionEvent,+        castToCompositionEvent, gTypeCompositionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.initCompositionEvent Mozilla CompositionEvent.initCompositionEvent documentation> +initCompositionEvent ::+                     (MonadDOM m, ToJSString typeArg, ToJSString dataArg) =>+                       CompositionEvent ->+                         typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m ()+initCompositionEvent self typeArg canBubbleArg cancelableArg+  viewArg dataArg+  = liftDOM+      (void+         (self ^. jsf "initCompositionEvent"+            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,+             toJSVal viewArg, toJSVal dataArg]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.data Mozilla CompositionEvent.data documentation> +getData ::+        (MonadDOM m, FromJSString result) => CompositionEvent -> m result+getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/ConvolverNode.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ConvolverNode+       (setBuffer, getBuffer, setNormalize, getNormalize, ConvolverNode,+        castToConvolverNode, gTypeConvolverNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +setBuffer ::+          (MonadDOM m) => ConvolverNode -> Maybe AudioBuffer -> m ()+setBuffer self val = liftDOM (self ^. jss "buffer" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +getBuffer :: (MonadDOM m) => ConvolverNode -> m (Maybe AudioBuffer)+getBuffer self = liftDOM ((self ^. js "buffer") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> +setNormalize :: (MonadDOM m) => ConvolverNode -> Bool -> m ()+setNormalize self val+  = liftDOM (self ^. jss "normalize" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> +getNormalize :: (MonadDOM m) => ConvolverNode -> m Bool+getNormalize self+  = liftDOM ((self ^. js "normalize") >>= valToBool)
+ src/JSDOM/Generated/Coordinates.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Coordinates+       (getLatitude, getLongitude, getAltitude, getAccuracy,+        getAltitudeAccuracy, getHeading, getSpeed, Coordinates,+        castToCoordinates, gTypeCoordinates)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation> +getLatitude :: (MonadDOM m) => Coordinates -> m Double+getLatitude self+  = liftDOM ((self ^. js "latitude") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation> +getLongitude :: (MonadDOM m) => Coordinates -> m Double+getLongitude self+  = liftDOM ((self ^. js "longitude") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> +getAltitude :: (MonadDOM m) => Coordinates -> m (Maybe Double)+getAltitude self = liftDOM ((self ^. js "altitude") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation> +getAccuracy :: (MonadDOM m) => Coordinates -> m Double+getAccuracy self+  = liftDOM ((self ^. js "accuracy") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> +getAltitudeAccuracy ::+                    (MonadDOM m) => Coordinates -> m (Maybe Double)+getAltitudeAccuracy self+  = liftDOM ((self ^. js "altitudeAccuracy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> +getHeading :: (MonadDOM m) => Coordinates -> m (Maybe Double)+getHeading self = liftDOM ((self ^. js "heading") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> +getSpeed :: (MonadDOM m) => Coordinates -> m (Maybe Double)+getSpeed self = liftDOM ((self ^. js "speed") >>= fromJSVal)
+ src/JSDOM/Generated/Counter.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Counter+       (getIdentifier, getListStyle, getSeparator, Counter, castToCounter,+        gTypeCounter)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation> +getIdentifier ::+              (MonadDOM m, FromJSString result) => Counter -> m result+getIdentifier self+  = liftDOM ((self ^. js "identifier") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation> +getListStyle ::+             (MonadDOM m, FromJSString result) => Counter -> m result+getListStyle self+  = liftDOM ((self ^. js "listStyle") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation> +getSeparator ::+             (MonadDOM m, FromJSString result) => Counter -> m result+getSeparator self+  = liftDOM ((self ^. js "separator") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/Crypto.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Crypto+       (getRandomValues, getWebkitSubtle, Crypto, castToCrypto,+        gTypeCrypto)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> +getRandomValues ::+                (MonadDOM m, IsArrayBufferView array) =>+                  Crypto -> Maybe array -> m (Maybe ArrayBufferView)+getRandomValues self array+  = liftDOM+      ((self ^. jsf "getRandomValues" [toJSVal array]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> +getWebkitSubtle :: (MonadDOM m) => Crypto -> m (Maybe SubtleCrypto)+getWebkitSubtle self+  = liftDOM ((self ^. js "webkitSubtle") >>= fromJSVal)
+ src/JSDOM/Generated/CryptoKey.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CryptoKey+       (getType, getExtractable, getAlgorithm, getUsages, CryptoKey,+        castToCryptoKey, gTypeCryptoKey)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation> +getType :: (MonadDOM m) => CryptoKey -> m KeyType+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.extractable Mozilla CryptoKey.extractable documentation> +getExtractable :: (MonadDOM m) => CryptoKey -> m Bool+getExtractable self+  = liftDOM ((self ^. js "extractable") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> +getAlgorithm :: (MonadDOM m) => CryptoKey -> m (Maybe Algorithm)+getAlgorithm self+  = liftDOM ((self ^. js "algorithm") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.usages Mozilla CryptoKey.usages documentation> +getUsages :: (MonadDOM m) => CryptoKey -> m [KeyUsage]+getUsages self+  = liftDOM ((self ^. js "usages") >>= fromJSArrayUnchecked)
+ src/JSDOM/Generated/CryptoKeyPair.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CryptoKeyPair+       (getPublicKey, getPrivateKey, CryptoKeyPair, castToCryptoKeyPair,+        gTypeCryptoKeyPair)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> +getPublicKey ::+             (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPublicKey self+  = liftDOM ((self ^. js "publicKey") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> +getPrivateKey ::+              (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)+getPrivateKey self+  = liftDOM ((self ^. js "privateKey") >>= fromJSVal)
+ src/JSDOM/Generated/CustomEvent.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.CustomEvent+       (initCustomEvent, getDetail, CustomEvent, castToCustomEvent,+        gTypeCustomEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.initCustomEvent Mozilla CustomEvent.initCustomEvent documentation> +initCustomEvent ::+                (MonadDOM m, ToJSString typeArg) =>+                  CustomEvent -> typeArg -> Bool -> Bool -> JSVal -> m ()+initCustomEvent self typeArg canBubbleArg cancelableArg detailArg+  = liftDOM+      (void+         (self ^. jsf "initCustomEvent"+            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,+             toJSVal detailArg]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> +getDetail :: (MonadDOM m) => CustomEvent -> m JSVal+getDetail self = liftDOM ((self ^. js "detail") >>= toJSVal)
+ src/JSDOM/Generated/DOMError.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMError+       (getName, DOMError, castToDOMError, gTypeDOMError, IsDOMError,+        toDOMError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation> +getName ::+        (MonadDOM m, IsDOMError self, FromJSString result) =>+          self -> m result+getName self+  = liftDOM (((toDOMError self) ^. js "name") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/DOMImplementation.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMImplementation+       (hasFeature, createDocumentType, createDocument,+        createCSSStyleSheet, createHTMLDocument, DOMImplementation,+        castToDOMImplementation, gTypeDOMImplementation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> +hasFeature ::+           (MonadDOM m, ToJSString feature, ToJSString version) =>+             DOMImplementation -> feature -> Maybe version -> m Bool+hasFeature self feature version+  = liftDOM+      ((self ^. jsf "hasFeature" [toJSVal feature, toJSVal version]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> +createDocumentType ::+                   (MonadDOM m, ToJSString qualifiedName, ToJSString publicId,+                    ToJSString systemId) =>+                     DOMImplementation ->+                       Maybe qualifiedName ->+                         Maybe publicId -> Maybe systemId -> m (Maybe DocumentType)+createDocumentType self qualifiedName publicId systemId+  = liftDOM+      ((self ^. jsf "createDocumentType"+          [toJSVal qualifiedName, toJSVal publicId, toJSVal systemId])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> +createDocument ::+               (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) =>+                 DOMImplementation ->+                   Maybe namespaceURI ->+                     Maybe qualifiedName -> Maybe DocumentType -> m (Maybe Document)+createDocument self namespaceURI qualifiedName doctype+  = liftDOM+      ((self ^. jsf "createDocument"+          [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> +createCSSStyleSheet ::+                    (MonadDOM m, ToJSString title, ToJSString media) =>+                      DOMImplementation -> title -> media -> m (Maybe CSSStyleSheet)+createCSSStyleSheet self title media+  = liftDOM+      ((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocument ::+                   (MonadDOM m, ToJSString title) =>+                     DOMImplementation -> title -> m (Maybe HTMLDocument)+createHTMLDocument self title+  = liftDOM+      ((self ^. jsf "createHTMLDocument" [toJSVal title]) >>= fromJSVal)
+ src/JSDOM/Generated/DOMNamedFlowCollection.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMNamedFlowCollection+       (item, namedItem, getLength, DOMNamedFlowCollection,+        castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> +item ::+     (MonadDOM m) =>+       DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation> +getLength :: (MonadDOM m) => DOMNamedFlowCollection -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/DOMParser.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMParser+       (newDOMParser, parseFromString, DOMParser, castToDOMParser,+        gTypeDOMParser)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation> +newDOMParser :: (MonadDOM m) => m DOMParser+newDOMParser = liftDOM (DOMParser <$> new (jsg "DOMParser") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> +parseFromString ::+                (MonadDOM m, ToJSString str, ToJSString contentType) =>+                  DOMParser -> str -> contentType -> m (Maybe Document)+parseFromString self str contentType+  = liftDOM+      ((self ^. jsf "parseFromString" [toJSVal str, toJSVal contentType])+         >>= fromJSVal)
+ src/JSDOM/Generated/DOMSettableTokenList.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMSettableTokenList+       (_get, setValue, getValue, DOMSettableTokenList,+        castToDOMSettableTokenList, gTypeDOMSettableTokenList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> +_get ::+     (MonadDOM m, FromJSString result) =>+       DOMSettableTokenList -> Word -> m (Maybe result)+_get self index+  = liftDOM+      ((self ^. jsf "_get" [toJSVal index]) >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) => DOMSettableTokenList -> val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) =>+           DOMSettableTokenList -> m result+getValue self+  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/DOMStringList.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMStringList+       (item, contains, getLength, DOMStringList, castToDOMStringList,+        gTypeDOMStringList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> +item ::+     (MonadDOM m, FromJSString result) =>+       DOMStringList -> Word -> m (Maybe result)+item self index+  = liftDOM+      ((self ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> +contains ::+         (MonadDOM m, ToJSString string) =>+           DOMStringList -> string -> m Bool+contains self string+  = liftDOM ((self ^. jsf "contains" [toJSVal string]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.length Mozilla DOMStringList.length documentation> +getLength :: (MonadDOM m) => DOMStringList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/DOMTokenList.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DOMTokenList+       (item, contains, add, remove, toggle, toString, getLength,+        DOMTokenList, castToDOMTokenList, gTypeDOMTokenList,+        IsDOMTokenList, toDOMTokenList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> +item ::+     (MonadDOM m, IsDOMTokenList self, FromJSString result) =>+       self -> Word -> m (Maybe result)+item self index+  = liftDOM+      (((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> +contains ::+         (MonadDOM m, IsDOMTokenList self, ToJSString token) =>+           self -> token -> m Bool+contains self token+  = liftDOM+      (((toDOMTokenList self) ^. jsf "contains" [toJSVal token]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation> +add ::+    (MonadDOM m, IsDOMTokenList self, ToJSString tokens,+     ToJSVal tokens) =>+      self -> [tokens] -> m ()+add self tokens+  = liftDOM+      (void+         ((toDOMTokenList self) ^. jsf "add" [toJSVal (array tokens)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation> +remove ::+       (MonadDOM m, IsDOMTokenList self, ToJSString tokens,+        ToJSVal tokens) =>+         self -> [tokens] -> m ()+remove self tokens+  = liftDOM+      (void+         ((toDOMTokenList self) ^. jsf "remove" [toJSVal (array tokens)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> +toggle ::+       (MonadDOM m, IsDOMTokenList self, ToJSString token) =>+         self -> token -> Bool -> m Bool+toggle self token force+  = liftDOM+      (((toDOMTokenList self) ^. jsf "toggle"+          [toJSVal token, toJSVal force])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toString Mozilla DOMTokenList.toString documentation> +toString ::+         (MonadDOM m, IsDOMTokenList self, FromJSString result) =>+           self -> m result+toString self+  = liftDOM+      (((toDOMTokenList self) ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.length Mozilla DOMTokenList.length documentation> +getLength :: (MonadDOM m, IsDOMTokenList self) => self -> m Word+getLength self+  = liftDOM+      (round <$>+         (((toDOMTokenList self) ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/DataCue.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DataCue+       (newDataCue, newDataCue', setData, getData, setValue, getValue,+        getType, DataCue, castToDataCue, gTypeDataCue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> +newDataCue :: (MonadDOM m) => m DataCue+newDataCue = liftDOM (DataCue <$> new (jsg "DataCue") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> +newDataCue' ::+            (MonadDOM m, ToJSString type') =>+              Double -> Double -> JSVal -> type' -> m DataCue+newDataCue' startTime endTime value type'+  = liftDOM+      (DataCue <$>+         new (jsg "DataCue")+           [toJSVal startTime, toJSVal endTime, toJSVal value, toJSVal type'])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> +setData ::+        (MonadDOM m, IsArrayBuffer val) => DataCue -> Maybe val -> m ()+setData self val = liftDOM (self ^. jss "data" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> +getData :: (MonadDOM m) => DataCue -> m (Maybe ArrayBuffer)+getData self = liftDOM ((self ^. js "data") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> +setValue :: (MonadDOM m) => DataCue -> JSVal -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> +getValue :: (MonadDOM m) => DataCue -> m JSVal+getValue self = liftDOM ((self ^. js "value") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.type Mozilla WebKitDataCue.type documentation> +getType :: (MonadDOM m, FromJSString result) => DataCue -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/DataTransfer.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DataTransfer+       (clearData, getData, setData, setDragImage, setDropEffect,+        getDropEffect, setEffectAllowed, getEffectAllowed, getTypes,+        getFiles, getItems, DataTransfer, castToDataTransfer,+        gTypeDataTransfer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation> +clearData ::+          (MonadDOM m, ToJSString type') => DataTransfer -> type' -> m ()+clearData self type'+  = liftDOM (void (self ^. jsf "clearData" [toJSVal type']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> +getData ::+        (MonadDOM m, ToJSString type', FromJSString result) =>+          DataTransfer -> type' -> m result+getData self type'+  = liftDOM+      ((self ^. jsf "getData" [toJSVal type']) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setData Mozilla DataTransfer.setData documentation> +setData ::+        (MonadDOM m, ToJSString type', ToJSString data') =>+          DataTransfer -> type' -> data' -> m ()+setData self type' data'+  = liftDOM+      (void (self ^. jsf "setData" [toJSVal type', toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> +setDragImage ::+             (MonadDOM m, IsElement image) =>+               DataTransfer -> Maybe image -> Int -> Int -> m ()+setDragImage self image x y+  = liftDOM+      (void+         (self ^. jsf "setDragImage" [toJSVal image, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> +setDropEffect ::+              (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()+setDropEffect self val+  = liftDOM (self ^. jss "dropEffect" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> +getDropEffect ::+              (MonadDOM m, FromJSString result) => DataTransfer -> m result+getDropEffect self+  = liftDOM ((self ^. js "dropEffect") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> +setEffectAllowed ::+                 (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()+setEffectAllowed self val+  = liftDOM (self ^. jss "effectAllowed" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> +getEffectAllowed ::+                 (MonadDOM m, FromJSString result) => DataTransfer -> m result+getEffectAllowed self+  = liftDOM ((self ^. js "effectAllowed") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> +getTypes :: (MonadDOM m) => DataTransfer -> m (Maybe Array)+getTypes self = liftDOM ((self ^. js "types") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> +getFiles :: (MonadDOM m) => DataTransfer -> m (Maybe FileList)+getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> +getItems ::+         (MonadDOM m) => DataTransfer -> m (Maybe DataTransferItemList)+getItems self = liftDOM ((self ^. js "items") >>= fromJSVal)
+ src/JSDOM/Generated/DataTransferItem.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DataTransferItem+       (getAsString, getAsFile, getKind, getType, DataTransferItem,+        castToDataTransferItem, gTypeDataTransferItem)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation> +getAsString ::+            (MonadDOM m, ToJSString callback) =>+              DataTransferItem -> Maybe (StringCallback callback) -> m ()+getAsString self callback+  = liftDOM (void (self ^. jsf "getAsString" [toJSVal callback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> +getAsFile :: (MonadDOM m) => DataTransferItem -> m (Maybe Blob)+getAsFile self = liftDOM ((self ^. js "getAsFile") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.kind Mozilla DataTransferItem.kind documentation> +getKind ::+        (MonadDOM m, FromJSString result) => DataTransferItem -> m result+getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.type Mozilla DataTransferItem.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => DataTransferItem -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/DataTransferItemList.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DataTransferItemList+       (item, clear, addFile, add, getLength, DataTransferItemList,+        castToDataTransferItemList, gTypeDataTransferItemList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> +item ::+     (MonadDOM m) =>+       DataTransferItemList -> Word -> m (Maybe DataTransferItem)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.clear Mozilla DataTransferItemList.clear documentation> +clear :: (MonadDOM m) => DataTransferItemList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> +addFile ::+        (MonadDOM m) => DataTransferItemList -> Maybe File -> m ()+addFile self file+  = liftDOM (void (self ^. jsf "add" [toJSVal file]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> +add ::+    (MonadDOM m, ToJSString data', ToJSString type') =>+      DataTransferItemList -> data' -> type' -> m ()+add self data' type'+  = liftDOM (void (self ^. jsf "add" [toJSVal data', toJSVal type']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.length Mozilla DataTransferItemList.length documentation> +getLength :: (MonadDOM m) => DataTransferItemList -> m Int+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/Database.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Database+       (changeVersion, transaction, readTransaction, getVersion, Database,+        castToDatabase, gTypeDatabase)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> +changeVersion ::+              (MonadDOM m, ToJSString oldVersion, ToJSString newVersion) =>+                Database ->+                  oldVersion ->+                    newVersion ->+                      Maybe SQLTransactionCallback ->+                        Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+changeVersion self oldVersion newVersion callback errorCallback+  successCallback+  = liftDOM+      (void+         (self ^. jsf "changeVersion"+            [toJSVal oldVersion, toJSVal newVersion, toJSVal callback,+             toJSVal errorCallback, toJSVal successCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation> +transaction ::+            (MonadDOM m) =>+              Database ->+                Maybe SQLTransactionCallback ->+                  Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+transaction self callback errorCallback successCallback+  = liftDOM+      (void+         (self ^. jsf "transaction"+            [toJSVal callback, toJSVal errorCallback,+             toJSVal successCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation> +readTransaction ::+                (MonadDOM m) =>+                  Database ->+                    Maybe SQLTransactionCallback ->+                      Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()+readTransaction self callback errorCallback successCallback+  = liftDOM+      (void+         (self ^. jsf "readTransaction"+            [toJSVal callback, toJSVal errorCallback,+             toJSVal successCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation> +getVersion ::+           (MonadDOM m, FromJSString result) => Database -> m result+getVersion self+  = liftDOM ((self ^. js "version") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/DatabaseCallback.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DatabaseCallback+       (newDatabaseCallback, newDatabaseCallbackSync,+        newDatabaseCallbackAsync, DatabaseCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallback ::+                    (MonadDOM m) => (Maybe Database -> JSM ()) -> m DatabaseCallback+newDatabaseCallback callback+  = liftDOM+      (DatabaseCallback . Callback <$>+         function ""+           (\ _ _ [database] ->+              fromJSVal database >>= \ database' -> callback database'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallbackSync ::+                        (MonadDOM m) => (Maybe Database -> JSM ()) -> m DatabaseCallback+newDatabaseCallbackSync callback+  = liftDOM+      (DatabaseCallback . Callback <$>+         function ""+           (\ _ _ [database] ->+              fromJSVal database >>= \ database' -> callback database'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> +newDatabaseCallbackAsync ::+                         (MonadDOM m) => (Maybe Database -> JSM ()) -> m DatabaseCallback+newDatabaseCallbackAsync callback+  = liftDOM+      (DatabaseCallback . Callback <$>+         function ""+           (\ _ _ [database] ->+              fromJSVal database >>= \ database' -> callback database'))
+ src/JSDOM/Generated/DedicatedWorkerGlobalScope.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DedicatedWorkerGlobalScope+       (postMessage, message, DedicatedWorkerGlobalScope,+        castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation> +postMessage ::+            (MonadDOM m, IsArray messagePorts) =>+              DedicatedWorkerGlobalScope -> JSVal -> Maybe messagePorts -> m ()+postMessage self message messagePorts+  = liftDOM+      (void+         (self ^. jsf "postMessage"+            [toJSVal message, toJSVal messagePorts]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.onmessage Mozilla DedicatedWorkerGlobalScope.onmessage documentation> +message :: EventName DedicatedWorkerGlobalScope MessageEvent+message = unsafeEventName (toJSString "message")
+ src/JSDOM/Generated/DelayNode.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DelayNode+       (getDelayTime, DelayNode, castToDelayNode, gTypeDelayNode) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> +getDelayTime :: (MonadDOM m) => DelayNode -> m (Maybe AudioParam)+getDelayTime self+  = liftDOM ((self ^. js "delayTime") >>= fromJSVal)
+ src/JSDOM/Generated/DeviceMotionEvent.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DeviceMotionEvent+       (initDeviceMotionEvent, getAcceleration,+        getAccelerationIncludingGravity, getRotationRate, getInterval,+        DeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation> +initDeviceMotionEvent ::+                      (MonadDOM m, ToJSString type', IsAcceleration acceleration,+                       IsAcceleration accelerationIncludingGravity,+                       IsRotationRate rotationRate) =>+                        DeviceMotionEvent ->+                          type' ->+                            Bool ->+                              Bool ->+                                Maybe acceleration ->+                                  Maybe accelerationIncludingGravity ->+                                    Maybe rotationRate -> Double -> m ()+initDeviceMotionEvent self type' bubbles cancelable acceleration+  accelerationIncludingGravity rotationRate interval+  = liftDOM+      (void+         (self ^. jsf "initDeviceMotionEvent"+            [toJSVal type', toJSVal bubbles, toJSVal cancelable,+             toJSVal acceleration, toJSVal accelerationIncludingGravity,+             toJSVal rotationRate, toJSVal interval]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> +getAcceleration ::+                (MonadDOM m) => DeviceMotionEvent -> m (Maybe Acceleration)+getAcceleration self+  = liftDOM ((self ^. js "acceleration") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> +getAccelerationIncludingGravity ::+                                (MonadDOM m) => DeviceMotionEvent -> m (Maybe Acceleration)+getAccelerationIncludingGravity self+  = liftDOM+      ((self ^. js "accelerationIncludingGravity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> +getRotationRate ::+                (MonadDOM m) => DeviceMotionEvent -> m (Maybe RotationRate)+getRotationRate self+  = liftDOM ((self ^. js "rotationRate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> +getInterval :: (MonadDOM m) => DeviceMotionEvent -> m Double+getInterval self+  = liftDOM ((self ^. js "interval") >>= valToNumber)
+ src/JSDOM/Generated/DeviceOrientationEvent.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DeviceOrientationEvent+       (initDeviceOrientationEvent, getAlpha, getBeta, getGamma,+        getAbsolute, DeviceOrientationEvent, castToDeviceOrientationEvent,+        gTypeDeviceOrientationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.initDeviceOrientationEvent Mozilla DeviceOrientationEvent.initDeviceOrientationEvent documentation> +initDeviceOrientationEvent ::+                           (MonadDOM m, ToJSString type') =>+                             DeviceOrientationEvent ->+                               type' -> Bool -> Bool -> Double -> Double -> Double -> Bool -> m ()+initDeviceOrientationEvent self type' bubbles cancelable alpha beta+  gamma absolute+  = liftDOM+      (void+         (self ^. jsf "initDeviceOrientationEvent"+            [toJSVal type', toJSVal bubbles, toJSVal cancelable, toJSVal alpha,+             toJSVal beta, toJSVal gamma, toJSVal absolute]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> +getAlpha :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getAlpha self = liftDOM ((self ^. js "alpha") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> +getBeta :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getBeta self = liftDOM ((self ^. js "beta") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> +getGamma :: (MonadDOM m) => DeviceOrientationEvent -> m Double+getGamma self = liftDOM ((self ^. js "gamma") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> +getAbsolute :: (MonadDOM m) => DeviceOrientationEvent -> m Bool+getAbsolute self = liftDOM ((self ^. js "absolute") >>= valToBool)
+ src/JSDOM/Generated/DeviceProximityEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DeviceProximityEvent+       (getValue, getMin, getMax, DeviceProximityEvent,+        castToDeviceProximityEvent, gTypeDeviceProximityEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation> +getValue :: (MonadDOM m) => DeviceProximityEvent -> m Double+getValue self = liftDOM ((self ^. js "value") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation> +getMin :: (MonadDOM m) => DeviceProximityEvent -> m Double+getMin self = liftDOM ((self ^. js "min") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation> +getMax :: (MonadDOM m) => DeviceProximityEvent -> m Double+getMax self = liftDOM ((self ^. js "max") >>= valToNumber)
+ src/JSDOM/Generated/Document.hs view
@@ -0,0 +1,1169 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Document+       (newDocument, createElement, createDocumentFragment,+        createTextNode, createComment, createCDATASection,+        createProcessingInstruction, createAttribute,+        createEntityReference, getElementsByTagName, importNode,+        createElementNS, createAttributeNS, getElementsByTagNameNS,+        getElementById, adoptNode, createEvent, createRange,+        createNodeIterator, createTreeWalker, getOverrideStyle,+        createExpression, createNSResolver, evaluate, execCommand,+        queryCommandEnabled, queryCommandIndeterm, queryCommandState,+        queryCommandSupported, queryCommandValue, getElementsByName,+        elementFromPoint, caretRangeFromPoint, getSelection,+        getCSSCanvasContext, getElementsByClassName, hasFocus,+        querySelector, querySelectorAll, webkitCancelFullScreen,+        webkitExitFullscreen, exitPointerLock, webkitGetNamedFlows,+        createTouch, createTouchList, getDoctype, getImplementation,+        getDocumentElement, getInputEncoding, getXmlEncoding,+        setXmlVersion, getXmlVersion, setXmlStandalone, getXmlStandalone,+        getDocumentURI, getDefaultView, getStyleSheets, getContentType,+        setTitle, getTitle, getReferrer, setDomain, getDomain, getURL,+        setCookie, getCookie, setBody, getBody, getHead, getImages,+        getApplets, getLinks, getForms, getAnchors, getLastModified,+        setLocation, getLocation, setCharset, getCharset,+        getDefaultCharset, getReadyState, getCharacterSet,+        getPreferredStylesheetSet, setSelectedStylesheetSet,+        getSelectedStylesheetSet, getActiveElement, getCompatMode,+        getWebkitIsFullScreen, getWebkitFullScreenKeyboardInputAllowed,+        getWebkitCurrentFullScreenElement, getWebkitFullscreenEnabled,+        getWebkitFullscreenElement, getPointerLockElement, getFonts, abort,+        blur, change, click, contextMenu, dblClick, drag, dragEnd,+        dragEnter, dragLeave, dragOver, dragStart, drop, error, focus,+        input, invalid, keyDown, keyPress, keyUp, load, mouseDown,+        mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp,+        mouseWheel, readyStateChange, scroll, select, submit, wheel,+        beforeCut, cut, beforeCopy, copy, beforePaste, paste, reset,+        search, selectStart, selectionchange, touchStart, touchMove,+        touchEnd, touchCancel, webKitFullscreenChange,+        webKitFullscreenError, pointerlockchange, pointerlockerror,+        securitypolicyviolation, webKitWillRevealBottom,+        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,+        getVisibilityState, getHidden, getSecurityPolicy, getCurrentScript,+        getOrigin, Document, castToDocument, gTypeDocument, IsDocument,+        toDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> +newDocument :: (MonadDOM m) => m Document+newDocument = liftDOM (Document <$> new (jsg "Document") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElement ::+              (MonadDOM m, IsDocument self, ToJSString tagName) =>+                self -> Maybe tagName -> m (Maybe Element)+createElement self tagName+  = liftDOM+      (((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragment ::+                       (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentFragment)+createDocumentFragment self+  = liftDOM+      (((toDocument self) ^. js "createDocumentFragment") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNode ::+               (MonadDOM m, IsDocument self, ToJSString data') =>+                 self -> data' -> m (Maybe Text)+createTextNode self data'+  = liftDOM+      (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createComment ::+              (MonadDOM m, IsDocument self, ToJSString data') =>+                self -> data' -> m (Maybe Comment)+createComment self data'+  = liftDOM+      (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASection ::+                   (MonadDOM m, IsDocument self, ToJSString data') =>+                     self -> data' -> m (Maybe CDATASection)+createCDATASection self data'+  = liftDOM+      (((toDocument self) ^. jsf "createCDATASection" [toJSVal data'])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstruction ::+                            (MonadDOM m, IsDocument self, ToJSString target,+                             ToJSString data') =>+                              self -> target -> data' -> m (Maybe ProcessingInstruction)+createProcessingInstruction self target data'+  = liftDOM+      (((toDocument self) ^. jsf "createProcessingInstruction"+          [toJSVal target, toJSVal data'])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttribute ::+                (MonadDOM m, IsDocument self, ToJSString name) =>+                  self -> name -> m (Maybe Attr)+createAttribute self name+  = liftDOM+      (((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> +createEntityReference ::+                      (MonadDOM m, IsDocument self, ToJSString name) =>+                        self -> name -> m (Maybe EntityReference)+createEntityReference self name+  = liftDOM+      (((toDocument self) ^. jsf "createEntityReference" [toJSVal name])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadDOM m, IsDocument self, ToJSString tagname) =>+                       self -> tagname -> m (Maybe NodeList)+getElementsByTagName self tagname+  = liftDOM+      (((toDocument self) ^. jsf "getElementsByTagName"+          [toJSVal tagname])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNode ::+           (MonadDOM m, IsDocument self, IsNode importedNode) =>+             self -> Maybe importedNode -> Bool -> m (Maybe Node)+importNode self importedNode deep+  = liftDOM+      (((toDocument self) ^. jsf "importNode"+          [toJSVal importedNode, toJSVal deep])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNS ::+                (MonadDOM m, IsDocument self, ToJSString namespaceURI,+                 ToJSString qualifiedName) =>+                  self ->+                    Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)+createElementNS self namespaceURI qualifiedName+  = liftDOM+      (((toDocument self) ^. jsf "createElementNS"+          [toJSVal namespaceURI, toJSVal qualifiedName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNS ::+                  (MonadDOM m, IsDocument self, ToJSString namespaceURI,+                   ToJSString qualifiedName) =>+                    self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)+createAttributeNS self namespaceURI qualifiedName+  = liftDOM+      (((toDocument self) ^. jsf "createAttributeNS"+          [toJSVal namespaceURI, toJSVal qualifiedName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadDOM m, IsDocument self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)+getElementsByTagNameNS self namespaceURI localName+  = liftDOM+      (((toDocument self) ^. jsf "getElementsByTagNameNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> +getElementById ::+               (MonadDOM m, IsDocument self, ToJSString elementId) =>+                 self -> elementId -> m (Maybe Element)+getElementById self elementId+  = liftDOM+      (((toDocument self) ^. jsf "getElementById" [toJSVal elementId])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNode ::+          (MonadDOM m, IsDocument self, IsNode source) =>+            self -> Maybe source -> m (Maybe Node)+adoptNode self source+  = liftDOM+      (((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEvent ::+            (MonadDOM m, IsDocument self, ToJSString eventType) =>+              self -> eventType -> m (Maybe Event)+createEvent self eventType+  = liftDOM+      (((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRange ::+            (MonadDOM m, IsDocument self) => self -> m (Maybe Range)+createRange self+  = liftDOM (((toDocument self) ^. js "createRange") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIterator ::+                   (MonadDOM m, IsDocument self, IsNode root) =>+                     self ->+                       Maybe root ->+                         Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)+createNodeIterator self root whatToShow filter+  expandEntityReferences+  = liftDOM+      (((toDocument self) ^. jsf "createNodeIterator"+          [toJSVal root, toJSVal whatToShow, toJSVal filter,+           toJSVal expandEntityReferences])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalker ::+                 (MonadDOM m, IsDocument self, IsNode root) =>+                   self ->+                     Maybe root ->+                       Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)+createTreeWalker self root whatToShow filter expandEntityReferences+  = liftDOM+      (((toDocument self) ^. jsf "createTreeWalker"+          [toJSVal root, toJSVal whatToShow, toJSVal filter,+           toJSVal expandEntityReferences])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyle ::+                 (MonadDOM m, IsDocument self, IsElement element,+                  ToJSString pseudoElement) =>+                   self ->+                     Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)+getOverrideStyle self element pseudoElement+  = liftDOM+      (((toDocument self) ^. jsf "getOverrideStyle"+          [toJSVal element, toJSVal pseudoElement])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpression ::+                 (MonadDOM m, IsDocument self, ToJSString expression) =>+                   self ->+                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)+createExpression self expression resolver+  = liftDOM+      (((toDocument self) ^. jsf "createExpression"+          [toJSVal expression, toJSVal resolver])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolver ::+                 (MonadDOM m, IsDocument self, IsNode nodeResolver) =>+                   self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)+createNSResolver self nodeResolver+  = liftDOM+      (((toDocument self) ^. jsf "createNSResolver"+          [toJSVal nodeResolver])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluate ::+         (MonadDOM m, IsDocument self, ToJSString expression,+          IsNode contextNode) =>+           self ->+             expression ->+               Maybe contextNode ->+                 Maybe XPathNSResolver ->+                   Word -> Maybe XPathResult -> m (Maybe XPathResult)+evaluate self expression contextNode resolver type' inResult+  = liftDOM+      (((toDocument self) ^. jsf "evaluate"+          [toJSVal expression, toJSVal contextNode, toJSVal resolver,+           toJSVal type', toJSVal inResult])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> +execCommand ::+            (MonadDOM m, IsDocument self, ToJSString command,+             ToJSString value) =>+              self -> command -> Bool -> Maybe value -> m Bool+execCommand self command userInterface value+  = liftDOM+      (((toDocument self) ^. jsf "execCommand"+          [toJSVal command, toJSVal userInterface, toJSVal value])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> +queryCommandEnabled ::+                    (MonadDOM m, IsDocument self, ToJSString command) =>+                      self -> command -> m Bool+queryCommandEnabled self command+  = liftDOM+      (((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> +queryCommandIndeterm ::+                     (MonadDOM m, IsDocument self, ToJSString command) =>+                       self -> command -> m Bool+queryCommandIndeterm self command+  = liftDOM+      (((toDocument self) ^. jsf "queryCommandIndeterm"+          [toJSVal command])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> +queryCommandState ::+                  (MonadDOM m, IsDocument self, ToJSString command) =>+                    self -> command -> m Bool+queryCommandState self command+  = liftDOM+      (((toDocument self) ^. jsf "queryCommandState" [toJSVal command])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> +queryCommandSupported ::+                      (MonadDOM m, IsDocument self, ToJSString command) =>+                        self -> command -> m Bool+queryCommandSupported self command+  = liftDOM+      (((toDocument self) ^. jsf "queryCommandSupported"+          [toJSVal command])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> +queryCommandValue ::+                  (MonadDOM m, IsDocument self, ToJSString command,+                   FromJSString result) =>+                    self -> command -> m result+queryCommandValue self command+  = liftDOM+      (((toDocument self) ^. jsf "queryCommandValue" [toJSVal command])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByName ::+                  (MonadDOM m, IsDocument self, ToJSString elementName) =>+                    self -> elementName -> m (Maybe NodeList)+getElementsByName self elementName+  = liftDOM+      (((toDocument self) ^. jsf "getElementsByName"+          [toJSVal elementName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> +elementFromPoint ::+                 (MonadDOM m, IsDocument self) =>+                   self -> Int -> Int -> m (Maybe Element)+elementFromPoint self x y+  = liftDOM+      (((toDocument self) ^. jsf "elementFromPoint"+          [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPoint ::+                    (MonadDOM m, IsDocument self) =>+                      self -> Int -> Int -> m (Maybe Range)+caretRangeFromPoint self x y+  = liftDOM+      (((toDocument self) ^. jsf "caretRangeFromPoint"+          [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection ::+             (MonadDOM m, IsDocument self) => self -> m (Maybe Selection)+getSelection self+  = liftDOM (((toDocument self) ^. js "getSelection") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContext ::+                    (MonadDOM m, IsDocument self, ToJSString contextId,+                     ToJSString name) =>+                      self ->+                        contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)+getCSSCanvasContext self contextId name width height+  = liftDOM+      (((toDocument self) ^. jsf "getCSSCanvasContext"+          [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadDOM m, IsDocument self, ToJSString tagname) =>+                         self -> tagname -> m (Maybe NodeList)+getElementsByClassName self tagname+  = liftDOM+      (((toDocument self) ^. jsf "getElementsByClassName"+          [toJSVal tagname])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> +hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool+hasFocus self+  = liftDOM (((toDocument self) ^. js "hasFocus") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> +querySelector ::+              (MonadDOM m, IsDocument self, ToJSString selectors) =>+                self -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftDOM+      (((toDocument self) ^. jsf "querySelector" [toJSVal selectors]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> +querySelectorAll ::+                 (MonadDOM m, IsDocument self, ToJSString selectors) =>+                   self -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftDOM+      (((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> +webkitCancelFullScreen ::+                       (MonadDOM m, IsDocument self) => self -> m ()+webkitCancelFullScreen self+  = liftDOM (void ((toDocument self) ^. js "webkitCancelFullScreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> +webkitExitFullscreen ::+                     (MonadDOM m, IsDocument self) => self -> m ()+webkitExitFullscreen self+  = liftDOM (void ((toDocument self) ^. js "webkitExitFullscreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> +exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m ()+exitPointerLock self+  = liftDOM (void ((toDocument self) ^. js "exitPointerLock"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlows ::+                    (MonadDOM m, IsDocument self) =>+                      self -> m (Maybe DOMNamedFlowCollection)+webkitGetNamedFlows self+  = liftDOM+      (((toDocument self) ^. js "webkitGetNamedFlows") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouch ::+            (MonadDOM m, IsDocument self, IsEventTarget target) =>+              self ->+                Maybe Window ->+                  Maybe target ->+                    Int ->+                      Int ->+                        Int ->+                          Int -> Int -> Int -> Int -> Float -> Float -> m (Maybe Touch)+createTouch self window target identifier pageX pageY screenX+  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce+  = liftDOM+      (((toDocument self) ^. jsf "createTouch"+          [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX,+           toJSVal pageY, toJSVal screenX, toJSVal screenY,+           toJSVal webkitRadiusX, toJSVal webkitRadiusY,+           toJSVal webkitRotationAngle, toJSVal webkitForce])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchList ::+                (MonadDOM m, IsDocument self) => self -> m (Maybe TouchList)+createTouchList self+  = liftDOM+      (((toDocument self) ^. js "createTouchList") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctype ::+           (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self+  = liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> +getImplementation ::+                  (MonadDOM m, IsDocument self) =>+                    self -> m (Maybe DOMImplementation)+getImplementation self+  = liftDOM+      (((toDocument self) ^. js "implementation") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElement ::+                   (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self+  = liftDOM+      (((toDocument self) ^. js "documentElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> +getInputEncoding ::+                 (MonadDOM m, IsDocument self, FromJSString result) =>+                   self -> m (Maybe result)+getInputEncoding self+  = liftDOM+      (((toDocument self) ^. js "inputEncoding") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncoding ::+               (MonadDOM m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getXmlEncoding self+  = liftDOM+      (((toDocument self) ^. js "xmlEncoding") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +setXmlVersion ::+              (MonadDOM m, IsDocument self, ToJSString val) =>+                self -> Maybe val -> m ()+setXmlVersion self val+  = liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersion ::+              (MonadDOM m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getXmlVersion self+  = liftDOM+      (((toDocument self) ^. js "xmlVersion") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +setXmlStandalone ::+                 (MonadDOM m, IsDocument self) => self -> Bool -> m ()+setXmlStandalone self val+  = liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool+getXmlStandalone self+  = liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> +getDocumentURI ::+               (MonadDOM m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getDocumentURI self+  = liftDOM+      (((toDocument self) ^. js "documentURI") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultView ::+               (MonadDOM m, IsDocument self) => self -> m (Maybe Window)+getDefaultView self+  = liftDOM (((toDocument self) ^. js "defaultView") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> +getStyleSheets ::+               (MonadDOM m, IsDocument self) => self -> m (Maybe StyleSheetList)+getStyleSheets self+  = liftDOM (((toDocument self) ^. js "styleSheets") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> +getContentType ::+               (MonadDOM m, IsDocument self, FromJSString result) =>+                 self -> m result+getContentType self+  = liftDOM+      (((toDocument self) ^. js "contentType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +setTitle ::+         (MonadDOM m, IsDocument self, ToJSString val) =>+           self -> Maybe val -> m ()+setTitle self val+  = liftDOM ((toDocument self) ^. jss "title" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +getTitle ::+         (MonadDOM m, IsDocument self, FromJSString result) =>+           self -> m (Maybe result)+getTitle self+  = liftDOM (((toDocument self) ^. js "title") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> +getReferrer ::+            (MonadDOM m, IsDocument self, FromJSString result) =>+              self -> m result+getReferrer self+  = liftDOM+      (((toDocument self) ^. js "referrer") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +setDomain ::+          (MonadDOM m, IsDocument self, ToJSString val) =>+            self -> Maybe val -> m ()+setDomain self val+  = liftDOM ((toDocument self) ^. jss "domain" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +getDomain ::+          (MonadDOM m, IsDocument self, FromJSString result) =>+            self -> m (Maybe result)+getDomain self+  = liftDOM+      (((toDocument self) ^. js "domain") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> +getURL ::+       (MonadDOM m, IsDocument self, FromJSString result) =>+         self -> m result+getURL self+  = liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +setCookie ::+          (MonadDOM m, IsDocument self, ToJSString val) =>+            self -> Maybe val -> m ()+setCookie self val+  = liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +getCookie ::+          (MonadDOM m, IsDocument self, FromJSString result) =>+            self -> m (Maybe result)+getCookie self+  = liftDOM+      (((toDocument self) ^. js "cookie") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +setBody ::+        (MonadDOM m, IsDocument self, IsHTMLElement val) =>+          self -> Maybe val -> m ()+setBody self val+  = liftDOM ((toDocument self) ^. jss "body" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBody ::+        (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self+  = liftDOM (((toDocument self) ^. js "body") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHead ::+        (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self+  = liftDOM (((toDocument self) ^. js "head") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> +getImages ::+          (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)+getImages self+  = liftDOM (((toDocument self) ^. js "images") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> +getApplets ::+           (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)+getApplets self+  = liftDOM (((toDocument self) ^. js "applets") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> +getLinks ::+         (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)+getLinks self+  = liftDOM (((toDocument self) ^. js "links") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> +getForms ::+         (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)+getForms self+  = liftDOM (((toDocument self) ^. js "forms") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> +getAnchors ::+           (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)+getAnchors self+  = liftDOM (((toDocument self) ^. js "anchors") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> +getLastModified ::+                (MonadDOM m, IsDocument self, FromJSString result) =>+                  self -> m result+getLastModified self+  = liftDOM+      (((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +setLocation ::+            (MonadDOM m, IsDocument self) => self -> Maybe Location -> m ()+setLocation self val+  = liftDOM ((toDocument self) ^. jss "location" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocation ::+            (MonadDOM m, IsDocument self) => self -> m (Maybe Location)+getLocation self+  = liftDOM (((toDocument self) ^. js "location") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +setCharset ::+           (MonadDOM m, IsDocument self, ToJSString val) =>+             self -> Maybe val -> m ()+setCharset self val+  = liftDOM ((toDocument self) ^. jss "charset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +getCharset ::+           (MonadDOM m, IsDocument self, FromJSString result) =>+             self -> m (Maybe result)+getCharset self+  = liftDOM+      (((toDocument self) ^. js "charset") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> +getDefaultCharset ::+                  (MonadDOM m, IsDocument self, FromJSString result) =>+                    self -> m (Maybe result)+getDefaultCharset self+  = liftDOM+      (((toDocument self) ^. js "defaultCharset") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> +getReadyState ::+              (MonadDOM m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getReadyState self+  = liftDOM+      (((toDocument self) ^. js "readyState") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> +getCharacterSet ::+                (MonadDOM m, IsDocument self, FromJSString result) =>+                  self -> m (Maybe result)+getCharacterSet self+  = liftDOM+      (((toDocument self) ^. js "characterSet") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSet ::+                          (MonadDOM m, IsDocument self, FromJSString result) =>+                            self -> m (Maybe result)+getPreferredStylesheetSet self+  = liftDOM+      (((toDocument self) ^. js "preferredStylesheetSet") >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +setSelectedStylesheetSet ::+                         (MonadDOM m, IsDocument self, ToJSString val) =>+                           self -> Maybe val -> m ()+setSelectedStylesheetSet self val+  = liftDOM+      ((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSet ::+                         (MonadDOM m, IsDocument self, FromJSString result) =>+                           self -> m (Maybe result)+getSelectedStylesheetSet self+  = liftDOM+      (((toDocument self) ^. js "selectedStylesheetSet") >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> +getActiveElement ::+                 (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getActiveElement self+  = liftDOM (((toDocument self) ^. js "activeElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> +getCompatMode ::+              (MonadDOM m, IsDocument self, FromJSString result) =>+                self -> m result+getCompatMode self+  = liftDOM+      (((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> +getWebkitIsFullScreen ::+                      (MonadDOM m, IsDocument self) => self -> m Bool+getWebkitIsFullScreen self+  = liftDOM+      (((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> +getWebkitFullScreenKeyboardInputAllowed ::+                                        (MonadDOM m, IsDocument self) => self -> m Bool+getWebkitFullScreenKeyboardInputAllowed self+  = liftDOM+      (((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed")+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> +getWebkitCurrentFullScreenElement ::+                                  (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getWebkitCurrentFullScreenElement self+  = liftDOM+      (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> +getWebkitFullscreenEnabled ::+                           (MonadDOM m, IsDocument self) => self -> m Bool+getWebkitFullscreenEnabled self+  = liftDOM+      (((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElement ::+                           (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getWebkitFullscreenElement self+  = liftDOM+      (((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> +getPointerLockElement ::+                      (MonadDOM m, IsDocument self) => self -> m (Maybe Element)+getPointerLockElement self+  = liftDOM+      (((toDocument self) ^. js "pointerLockElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> +getFonts ::+         (MonadDOM m, IsDocument self) => self -> m (Maybe FontLoader)+getFonts self+  = liftDOM (((toDocument self) ^. js "fonts") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onabort Mozilla Document.onabort documentation> +abort ::+      (IsDocument self, IsEventTarget self) => EventName self UIEvent+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onblur Mozilla Document.onblur documentation> +blur ::+     (IsDocument self, IsEventTarget self) => EventName self FocusEvent+blur = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onchange Mozilla Document.onchange documentation> +change ::+       (IsDocument self, IsEventTarget self) => EventName self Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onclick Mozilla Document.onclick documentation> +click ::+      (IsDocument self, IsEventTarget self) => EventName self MouseEvent+click = unsafeEventName (toJSString "click")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncontextmenu Mozilla Document.oncontextmenu documentation> +contextMenu ::+            (IsDocument self, IsEventTarget self) => EventName self MouseEvent+contextMenu = unsafeEventName (toJSString "contextmenu")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondblclick Mozilla Document.ondblclick documentation> +dblClick ::+         (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dblClick = unsafeEventName (toJSString "dblclick")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrag Mozilla Document.ondrag documentation> +drag ::+     (IsDocument self, IsEventTarget self) => EventName self MouseEvent+drag = unsafeEventName (toJSString "drag")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragend Mozilla Document.ondragend documentation> +dragEnd ::+        (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragEnd = unsafeEventName (toJSString "dragend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragenter Mozilla Document.ondragenter documentation> +dragEnter ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragEnter = unsafeEventName (toJSString "dragenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragleave Mozilla Document.ondragleave documentation> +dragLeave ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragLeave = unsafeEventName (toJSString "dragleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragover Mozilla Document.ondragover documentation> +dragOver ::+         (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragOver = unsafeEventName (toJSString "dragover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragstart Mozilla Document.ondragstart documentation> +dragStart ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragStart = unsafeEventName (toJSString "dragstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrop Mozilla Document.ondrop documentation> +drop ::+     (IsDocument self, IsEventTarget self) => EventName self MouseEvent+drop = unsafeEventName (toJSString "drop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onerror Mozilla Document.onerror documentation> +error ::+      (IsDocument self, IsEventTarget self) => EventName self UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onfocus Mozilla Document.onfocus documentation> +focus ::+      (IsDocument self, IsEventTarget self) => EventName self FocusEvent+focus = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninput Mozilla Document.oninput documentation> +input ::+      (IsDocument self, IsEventTarget self) => EventName self Event+input = unsafeEventName (toJSString "input")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninvalid Mozilla Document.oninvalid documentation> +invalid ::+        (IsDocument self, IsEventTarget self) => EventName self Event+invalid = unsafeEventName (toJSString "invalid")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeydown Mozilla Document.onkeydown documentation> +keyDown ::+        (IsDocument self, IsEventTarget self) =>+          EventName self KeyboardEvent+keyDown = unsafeEventName (toJSString "keydown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeypress Mozilla Document.onkeypress documentation> +keyPress ::+         (IsDocument self, IsEventTarget self) =>+           EventName self KeyboardEvent+keyPress = unsafeEventName (toJSString "keypress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeyup Mozilla Document.onkeyup documentation> +keyUp ::+      (IsDocument self, IsEventTarget self) =>+        EventName self KeyboardEvent+keyUp = unsafeEventName (toJSString "keyup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onload Mozilla Document.onload documentation> +load ::+     (IsDocument self, IsEventTarget self) => EventName self UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousedown Mozilla Document.onmousedown documentation> +mouseDown ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseDown = unsafeEventName (toJSString "mousedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseenter Mozilla Document.onmouseenter documentation> +mouseEnter ::+           (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseEnter = unsafeEventName (toJSString "mouseenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseleave Mozilla Document.onmouseleave documentation> +mouseLeave ::+           (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseLeave = unsafeEventName (toJSString "mouseleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousemove Mozilla Document.onmousemove documentation> +mouseMove ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseMove = unsafeEventName (toJSString "mousemove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseout Mozilla Document.onmouseout documentation> +mouseOut ::+         (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseOut = unsafeEventName (toJSString "mouseout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseover Mozilla Document.onmouseover documentation> +mouseOver ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseOver = unsafeEventName (toJSString "mouseover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseup Mozilla Document.onmouseup documentation> +mouseUp ::+        (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseUp = unsafeEventName (toJSString "mouseup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousewheel Mozilla Document.onmousewheel documentation> +mouseWheel ::+           (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseWheel = unsafeEventName (toJSString "mousewheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreadystatechange Mozilla Document.onreadystatechange documentation> +readyStateChange ::+                 (IsDocument self, IsEventTarget self) => EventName self Event+readyStateChange = unsafeEventName (toJSString "readystatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onscroll Mozilla Document.onscroll documentation> +scroll ::+       (IsDocument self, IsEventTarget self) => EventName self UIEvent+scroll = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselect Mozilla Document.onselect documentation> +select ::+       (IsDocument self, IsEventTarget self) => EventName self UIEvent+select = unsafeEventName (toJSString "select")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsubmit Mozilla Document.onsubmit documentation> +submit ::+       (IsDocument self, IsEventTarget self) => EventName self Event+submit = unsafeEventName (toJSString "submit")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwheel Mozilla Document.onwheel documentation> +wheel ::+      (IsDocument self, IsEventTarget self) => EventName self WheelEvent+wheel = unsafeEventName (toJSString "wheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecut Mozilla Document.onbeforecut documentation> +beforeCut ::+          (IsDocument self, IsEventTarget self) => EventName self Event+beforeCut = unsafeEventName (toJSString "beforecut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncut Mozilla Document.oncut documentation> +cut ::+    (IsDocument self, IsEventTarget self) => EventName self Event+cut = unsafeEventName (toJSString "cut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecopy Mozilla Document.onbeforecopy documentation> +beforeCopy ::+           (IsDocument self, IsEventTarget self) => EventName self Event+beforeCopy = unsafeEventName (toJSString "beforecopy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncopy Mozilla Document.oncopy documentation> +copy ::+     (IsDocument self, IsEventTarget self) => EventName self Event+copy = unsafeEventName (toJSString "copy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforepaste Mozilla Document.onbeforepaste documentation> +beforePaste ::+            (IsDocument self, IsEventTarget self) => EventName self Event+beforePaste = unsafeEventName (toJSString "beforepaste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpaste Mozilla Document.onpaste documentation> +paste ::+      (IsDocument self, IsEventTarget self) => EventName self Event+paste = unsafeEventName (toJSString "paste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreset Mozilla Document.onreset documentation> +reset ::+      (IsDocument self, IsEventTarget self) => EventName self Event+reset = unsafeEventName (toJSString "reset")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsearch Mozilla Document.onsearch documentation> +search ::+       (IsDocument self, IsEventTarget self) => EventName self Event+search = unsafeEventName (toJSString "search")++-- | <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")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchstart Mozilla Document.ontouchstart documentation> +touchStart ::+           (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchStart = unsafeEventName (toJSString "touchstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchmove Mozilla Document.ontouchmove documentation> +touchMove ::+          (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchMove = unsafeEventName (toJSString "touchmove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchend Mozilla Document.ontouchend documentation> +touchEnd ::+         (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchEnd = unsafeEventName (toJSString "touchend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchcancel Mozilla Document.ontouchcancel documentation> +touchCancel ::+            (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchCancel = unsafeEventName (toJSString "touchcancel")++-- | <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")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsecuritypolicyviolation Mozilla Document.onsecuritypolicyviolation documentation> +securitypolicyviolation ::+                        (IsDocument self, IsEventTarget self) =>+                          EventName self onsecuritypolicyviolation+securitypolicyviolation+  = unsafeEventName (toJSString "securitypolicyviolation")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealbottom Mozilla Document.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom ::+                       (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealleft Mozilla Document.onwebkitwillrevealleft documentation> +webKitWillRevealLeft ::+                     (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealright Mozilla Document.onwebkitwillrevealright documentation> +webKitWillRevealRight ::+                      (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealtop Mozilla Document.onwebkitwillrevealtop documentation> +webKitWillRevealTop ::+                    (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> +getVisibilityState ::+                   (MonadDOM m, IsDocument self, FromJSString result) =>+                     self -> m result+getVisibilityState self+  = liftDOM+      (((toDocument self) ^. js "visibilityState") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> +getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool+getHidden self+  = liftDOM (((toDocument self) ^. js "hidden") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> +getSecurityPolicy ::+                  (MonadDOM m, IsDocument self) => self -> m (Maybe SecurityPolicy)+getSecurityPolicy self+  = liftDOM+      (((toDocument self) ^. js "securityPolicy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScript ::+                 (MonadDOM m, IsDocument self) =>+                   self -> m (Maybe HTMLScriptElement)+getCurrentScript self+  = liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> +getOrigin ::+          (MonadDOM m, IsDocument self, FromJSString result) =>+            self -> m result+getOrigin self+  = liftDOM+      (((toDocument self) ^. js "origin") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/DocumentFragment.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DocumentFragment+       (newDocumentFragment, querySelector, querySelectorAll,+        DocumentFragment, castToDocumentFragment, gTypeDocumentFragment)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation> +newDocumentFragment :: (MonadDOM m) => m DocumentFragment+newDocumentFragment+  = liftDOM (DocumentFragment <$> new (jsg "DocumentFragment") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> +querySelector ::+              (MonadDOM m, ToJSString selectors) =>+                DocumentFragment -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftDOM+      ((self ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> +querySelectorAll ::+                 (MonadDOM m, ToJSString selectors) =>+                   DocumentFragment -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftDOM+      ((self ^. jsf "querySelectorAll" [toJSVal selectors]) >>=+         fromJSVal)
+ src/JSDOM/Generated/DocumentType.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DocumentType+       (getName, getEntities, getNotations, getPublicId, getSystemId,+        getInternalSubset, DocumentType, castToDocumentType,+        gTypeDocumentType)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => DocumentType -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> +getEntities ::+            (MonadDOM m) => DocumentType -> m (Maybe NamedNodeMap)+getEntities self = liftDOM ((self ^. js "entities") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> +getNotations ::+             (MonadDOM m) => DocumentType -> m (Maybe NamedNodeMap)+getNotations self+  = liftDOM ((self ^. js "notations") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> +getPublicId ::+            (MonadDOM m, FromJSString result) =>+              DocumentType -> m (Maybe result)+getPublicId self+  = liftDOM ((self ^. js "publicId") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> +getSystemId ::+            (MonadDOM m, FromJSString result) =>+              DocumentType -> m (Maybe result)+getSystemId self+  = liftDOM ((self ^. js "systemId") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> +getInternalSubset ::+                  (MonadDOM m, FromJSString result) =>+                    DocumentType -> m (Maybe result)+getInternalSubset self+  = liftDOM ((self ^. js "internalSubset") >>= fromMaybeJSString)
+ src/JSDOM/Generated/DynamicsCompressorNode.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.DynamicsCompressorNode+       (getThreshold, getKnee, getRatio, getReduction, getAttack,+        getRelease, DynamicsCompressorNode, castToDynamicsCompressorNode,+        gTypeDynamicsCompressorNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> +getThreshold ::+             (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getThreshold self+  = liftDOM ((self ^. js "threshold") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> +getKnee ::+        (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getKnee self = liftDOM ((self ^. js "knee") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> +getRatio ::+         (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getRatio self = liftDOM ((self ^. js "ratio") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> +getReduction ::+             (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getReduction self+  = liftDOM ((self ^. js "reduction") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> +getAttack ::+          (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getAttack self = liftDOM ((self ^. js "attack") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> +getRelease ::+           (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)+getRelease self = liftDOM ((self ^. js "release") >>= fromJSVal)
+ src/JSDOM/Generated/EXTBlendMinMax.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.EXTBlendMinMax+       (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax,+        castToEXTBlendMinMax, gTypeEXTBlendMinMax)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern MIN_EXT = 32775+pattern MAX_EXT = 32776
+ src/JSDOM/Generated/EXTTextureFilterAnisotropic.hs view
@@ -0,0 +1,20 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.EXTTextureFilterAnisotropic+       (pattern TEXTURE_MAX_ANISOTROPY_EXT,+        pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT,+        EXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic,+        gTypeEXTTextureFilterAnisotropic)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern TEXTURE_MAX_ANISOTROPY_EXT = 34046+pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047
+ src/JSDOM/Generated/EXTsRGB.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.EXTsRGB+       (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT,+        pattern SRGB8_ALPHA8_EXT,+        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB,+        castToEXTsRGB, gTypeEXTsRGB)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SRGB_EXT = 35904+pattern SRGB_ALPHA_EXT = 35906+pattern SRGB8_ALPHA8_EXT = 35907+pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296
+ src/JSDOM/Generated/Element.hs view
@@ -0,0 +1,834 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Element+       (getAttribute, setAttribute, removeAttribute, getAttributeNode,+        setAttributeNode, removeAttributeNode, getElementsByTagName,+        hasAttributes, getAttributeNS, setAttributeNS, removeAttributeNS,+        getElementsByTagNameNS, getAttributeNodeNS, setAttributeNodeNS,+        hasAttribute, hasAttributeNS, focus, blur, scrollIntoView,+        scrollIntoViewIfNeeded, scrollByLines, scrollByPages,+        getElementsByClassName, querySelector, querySelectorAll, matches,+        closest, webkitMatchesSelector, getClientRects,+        getBoundingClientRect, webkitRequestFullScreen,+        webkitRequestFullscreen, requestPointerLock,+        webkitGetRegionFlowRanges, pattern ALLOW_KEYBOARD_INPUT,+        getTagName, getAttributes, getStyle, setId, getId, getOffsetLeft,+        getOffsetTop, getOffsetWidth, getOffsetHeight, getClientLeft,+        getClientTop, getClientWidth, getClientHeight, setScrollLeft,+        getScrollLeft, setScrollTop, getScrollTop, getScrollWidth,+        getScrollHeight, getOffsetParent, setInnerHTML, getInnerHTML,+        setOuterHTML, getOuterHTML, setClassName, getClassName,+        getClassList, getDataset, getFirstElementChild,+        getLastElementChild, getPreviousElementSibling,+        getNextElementSibling, getChildElementCount, setUiactions,+        getUiactions, getWebkitRegionOverset, abort, blurEvent, change,+        click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,+        dragOver, dragStart, drop, error, focusEvent, input, invalid,+        keyDown, keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,+        mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, scroll,+        select, submit, wheel, beforeCut, cut, beforeCopy, copy,+        beforePaste, paste, reset, search, selectStart, touchStart,+        touchMove, touchEnd, touchCancel, webKitFullscreenChange,+        webKitFullscreenError, webKitWillRevealBottom,+        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,+        Element, castToElement, gTypeElement, IsElement, toElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttribute ::+             (MonadDOM m, IsElement self, ToJSString name,+              FromJSString result) =>+               self -> name -> m (Maybe result)+getAttribute self name+  = liftDOM+      (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation> +setAttribute ::+             (MonadDOM m, IsElement self, ToJSString name, ToJSString value) =>+               self -> name -> value -> m ()+setAttribute self name value+  = liftDOM+      (void+         ((toElement self) ^. jsf "setAttribute"+            [toJSVal name, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation> +removeAttribute ::+                (MonadDOM m, IsElement self, ToJSString name) =>+                  self -> name -> m ()+removeAttribute self name+  = liftDOM+      (void ((toElement self) ^. jsf "removeAttribute" [toJSVal name]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNode ::+                 (MonadDOM m, IsElement self, ToJSString name) =>+                   self -> name -> m (Maybe Attr)+getAttributeNode self name+  = liftDOM+      (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNode ::+                 (MonadDOM m, IsElement self) =>+                   self -> Maybe Attr -> m (Maybe Attr)+setAttributeNode self newAttr+  = liftDOM+      (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNode ::+                    (MonadDOM m, IsElement self) =>+                      self -> Maybe Attr -> m (Maybe Attr)+removeAttributeNode self oldAttr+  = liftDOM+      (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadDOM m, IsElement self, ToJSString name) =>+                       self -> name -> m (Maybe NodeList)+getElementsByTagName self name+  = liftDOM+      (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> +hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool+hasAttributes self+  = liftDOM (((toElement self) ^. js "hasAttributes") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNS ::+               (MonadDOM m, IsElement self, ToJSString namespaceURI,+                ToJSString localName, FromJSString result) =>+                 self -> Maybe namespaceURI -> localName -> m result+getAttributeNS self namespaceURI localName+  = liftDOM+      (((toElement self) ^. jsf "getAttributeNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> +setAttributeNS ::+               (MonadDOM m, IsElement self, ToJSString namespaceURI,+                ToJSString qualifiedName, ToJSString value) =>+                 self -> Maybe namespaceURI -> qualifiedName -> value -> m ()+setAttributeNS self namespaceURI qualifiedName value+  = liftDOM+      (void+         ((toElement self) ^. jsf "setAttributeNS"+            [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> +removeAttributeNS ::+                  (MonadDOM m, IsElement self, ToJSString namespaceURI,+                   ToJSString localName) =>+                    self -> Maybe namespaceURI -> localName -> m ()+removeAttributeNS self namespaceURI localName+  = liftDOM+      (void+         ((toElement self) ^. jsf "removeAttributeNS"+            [toJSVal namespaceURI, toJSVal localName]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadDOM m, IsElement self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)+getElementsByTagNameNS self namespaceURI localName+  = liftDOM+      (((toElement self) ^. jsf "getElementsByTagNameNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNS ::+                   (MonadDOM m, IsElement self, ToJSString namespaceURI,+                    ToJSString localName) =>+                     self -> Maybe namespaceURI -> localName -> m (Maybe Attr)+getAttributeNodeNS self namespaceURI localName+  = liftDOM+      (((toElement self) ^. jsf "getAttributeNodeNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNS ::+                   (MonadDOM m, IsElement self) =>+                     self -> Maybe Attr -> m (Maybe Attr)+setAttributeNodeNS self newAttr+  = liftDOM+      (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> +hasAttribute ::+             (MonadDOM m, IsElement self, ToJSString name) =>+               self -> name -> m Bool+hasAttribute self name+  = liftDOM+      (((toElement self) ^. jsf "hasAttribute" [toJSVal name]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> +hasAttributeNS ::+               (MonadDOM m, IsElement self, ToJSString namespaceURI,+                ToJSString localName) =>+                 self -> Maybe namespaceURI -> localName -> m Bool+hasAttributeNS self namespaceURI localName+  = liftDOM+      (((toElement self) ^. jsf "hasAttributeNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.focus Mozilla Element.focus documentation> +focus :: (MonadDOM m, IsElement self) => self -> m ()+focus self = liftDOM (void ((toElement self) ^. js "focus"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.blur Mozilla Element.blur documentation> +blur :: (MonadDOM m, IsElement self) => self -> m ()+blur self = liftDOM (void ((toElement self) ^. js "blur"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation> +scrollIntoView ::+               (MonadDOM m, IsElement self) => self -> Bool -> m ()+scrollIntoView self alignWithTop+  = liftDOM+      (void+         ((toElement self) ^. jsf "scrollIntoView" [toJSVal alignWithTop]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation> +scrollIntoViewIfNeeded ::+                       (MonadDOM m, IsElement self) => self -> Bool -> m ()+scrollIntoViewIfNeeded self centerIfNeeded+  = liftDOM+      (void+         ((toElement self) ^. jsf "scrollIntoViewIfNeeded"+            [toJSVal centerIfNeeded]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByLines Mozilla Element.scrollByLines documentation> +scrollByLines ::+              (MonadDOM m, IsElement self) => self -> Int -> m ()+scrollByLines self lines+  = liftDOM+      (void ((toElement self) ^. jsf "scrollByLines" [toJSVal lines]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByPages Mozilla Element.scrollByPages documentation> +scrollByPages ::+              (MonadDOM m, IsElement self) => self -> Int -> m ()+scrollByPages self pages+  = liftDOM+      (void ((toElement self) ^. jsf "scrollByPages" [toJSVal pages]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadDOM m, IsElement self, ToJSString name) =>+                         self -> name -> m (Maybe NodeList)+getElementsByClassName self name+  = liftDOM+      (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> +querySelector ::+              (MonadDOM m, IsElement self, ToJSString selectors) =>+                self -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftDOM+      (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> +querySelectorAll ::+                 (MonadDOM m, IsElement self, ToJSString selectors) =>+                   self -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftDOM+      (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> +matches ::+        (MonadDOM m, IsElement self, ToJSString selectors) =>+          self -> selectors -> m Bool+matches self selectors+  = liftDOM+      (((toElement self) ^. jsf "matches" [toJSVal selectors]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closest ::+        (MonadDOM m, IsElement self, ToJSString selectors) =>+          self -> selectors -> m (Maybe Element)+closest self selectors+  = liftDOM+      (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> +webkitMatchesSelector ::+                      (MonadDOM m, IsElement self, ToJSString selectors) =>+                        self -> selectors -> m Bool+webkitMatchesSelector self selectors+  = liftDOM+      (((toElement self) ^. jsf "webkitMatchesSelector"+          [toJSVal selectors])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRects ::+               (MonadDOM m, IsElement self) => self -> m (Maybe ClientRectList)+getClientRects self+  = liftDOM (((toElement self) ^. js "getClientRects") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRect ::+                      (MonadDOM m, IsElement self) => self -> m (Maybe ClientRect)+getBoundingClientRect self+  = liftDOM+      (((toElement self) ^. js "getBoundingClientRect") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullScreen Mozilla Element.webkitRequestFullScreen documentation> +webkitRequestFullScreen ::+                        (MonadDOM m, IsElement self) => self -> Word -> m ()+webkitRequestFullScreen self flags+  = liftDOM+      (void+         ((toElement self) ^. jsf "webkitRequestFullScreen"+            [toJSVal flags]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation> +webkitRequestFullscreen ::+                        (MonadDOM m, IsElement self) => self -> m ()+webkitRequestFullscreen self+  = liftDOM (void ((toElement self) ^. js "webkitRequestFullscreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation> +requestPointerLock :: (MonadDOM m, IsElement self) => self -> m ()+requestPointerLock self+  = liftDOM (void ((toElement self) ^. js "requestPointerLock"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> +webkitGetRegionFlowRanges ::+                          (MonadDOM m, IsElement self) => self -> m [Maybe Range]+webkitGetRegionFlowRanges self+  = liftDOM+      (((toElement self) ^. js "webkitGetRegionFlowRanges") >>=+         fromJSArray)+pattern ALLOW_KEYBOARD_INPUT = 1++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> +getTagName ::+           (MonadDOM m, IsElement self, FromJSString result) =>+             self -> m (Maybe result)+getTagName self+  = liftDOM+      (((toElement self) ^. js "tagName") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> +getAttributes ::+              (MonadDOM m, IsElement self) => self -> m (Maybe NamedNodeMap)+getAttributes self+  = liftDOM (((toElement self) ^. js "attributes") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> +getStyle ::+         (MonadDOM m, IsElement self) =>+           self -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftDOM (((toElement self) ^. js "style") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> +setId ::+      (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setId self val+  = liftDOM ((toElement self) ^. jss "id" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> +getId ::+      (MonadDOM m, IsElement self, FromJSString result) =>+        self -> m result+getId self+  = liftDOM (((toElement self) ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetLeft Mozilla Element.offsetLeft documentation> +getOffsetLeft :: (MonadDOM m, IsElement self) => self -> m Double+getOffsetLeft self+  = liftDOM (((toElement self) ^. js "offsetLeft") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetTop Mozilla Element.offsetTop documentation> +getOffsetTop :: (MonadDOM m, IsElement self) => self -> m Double+getOffsetTop self+  = liftDOM (((toElement self) ^. js "offsetTop") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetWidth Mozilla Element.offsetWidth documentation> +getOffsetWidth :: (MonadDOM m, IsElement self) => self -> m Double+getOffsetWidth self+  = liftDOM (((toElement self) ^. js "offsetWidth") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetHeight Mozilla Element.offsetHeight documentation> +getOffsetHeight :: (MonadDOM m, IsElement self) => self -> m Double+getOffsetHeight self+  = liftDOM (((toElement self) ^. js "offsetHeight") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation> +getClientLeft :: (MonadDOM m, IsElement self) => self -> m Double+getClientLeft self+  = liftDOM (((toElement self) ^. js "clientLeft") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation> +getClientTop :: (MonadDOM m, IsElement self) => self -> m Double+getClientTop self+  = liftDOM (((toElement self) ^. js "clientTop") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation> +getClientWidth :: (MonadDOM m, IsElement self) => self -> m Double+getClientWidth self+  = liftDOM (((toElement self) ^. js "clientWidth") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation> +getClientHeight :: (MonadDOM m, IsElement self) => self -> m Double+getClientHeight self+  = liftDOM (((toElement self) ^. js "clientHeight") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> +setScrollLeft ::+              (MonadDOM m, IsElement self) => self -> Int -> m ()+setScrollLeft self val+  = liftDOM ((toElement self) ^. jss "scrollLeft" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> +getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Int+getScrollLeft self+  = liftDOM+      (round <$> (((toElement self) ^. js "scrollLeft") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> +setScrollTop :: (MonadDOM m, IsElement self) => self -> Int -> m ()+setScrollTop self val+  = liftDOM ((toElement self) ^. jss "scrollTop" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> +getScrollTop :: (MonadDOM m, IsElement self) => self -> m Int+getScrollTop self+  = liftDOM+      (round <$> (((toElement self) ^. js "scrollTop") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation> +getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int+getScrollWidth self+  = liftDOM+      (round <$>+         (((toElement self) ^. js "scrollWidth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation> +getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int+getScrollHeight self+  = liftDOM+      (round <$>+         (((toElement self) ^. js "scrollHeight") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> +getOffsetParent ::+                (MonadDOM m, IsElement self) => self -> m (Maybe Element)+getOffsetParent self+  = liftDOM (((toElement self) ^. js "offsetParent") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +setInnerHTML ::+             (MonadDOM m, IsElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setInnerHTML self val+  = liftDOM ((toElement self) ^. jss "innerHTML" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +getInnerHTML ::+             (MonadDOM m, IsElement self, FromJSString result) =>+               self -> m (Maybe result)+getInnerHTML self+  = liftDOM+      (((toElement self) ^. js "innerHTML") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +setOuterHTML ::+             (MonadDOM m, IsElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setOuterHTML self val+  = liftDOM ((toElement self) ^. jss "outerHTML" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +getOuterHTML ::+             (MonadDOM m, IsElement self, FromJSString result) =>+               self -> m (Maybe result)+getOuterHTML self+  = liftDOM+      (((toElement self) ^. js "outerHTML") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> +setClassName ::+             (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setClassName self val+  = liftDOM ((toElement self) ^. jss "className" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> +getClassName ::+             (MonadDOM m, IsElement self, FromJSString result) =>+               self -> m result+getClassName self+  = liftDOM+      (((toElement self) ^. js "className") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> +getClassList ::+             (MonadDOM m, IsElement self) => self -> m (Maybe DOMTokenList)+getClassList self+  = liftDOM (((toElement self) ^. js "classList") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> +getDataset ::+           (MonadDOM m, IsElement self) => self -> m (Maybe DOMStringMap)+getDataset self+  = liftDOM (((toElement self) ^. js "dataset") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> +getFirstElementChild ::+                     (MonadDOM m, IsElement self) => self -> m (Maybe Element)+getFirstElementChild self+  = liftDOM+      (((toElement self) ^. js "firstElementChild") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> +getLastElementChild ::+                    (MonadDOM m, IsElement self) => self -> m (Maybe Element)+getLastElementChild self+  = liftDOM+      (((toElement self) ^. js "lastElementChild") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> +getPreviousElementSibling ::+                          (MonadDOM m, IsElement self) => self -> m (Maybe Element)+getPreviousElementSibling self+  = liftDOM+      (((toElement self) ^. js "previousElementSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> +getNextElementSibling ::+                      (MonadDOM m, IsElement self) => self -> m (Maybe Element)+getNextElementSibling self+  = liftDOM+      (((toElement self) ^. js "nextElementSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.childElementCount Mozilla Element.childElementCount documentation> +getChildElementCount ::+                     (MonadDOM m, IsElement self) => self -> m Word+getChildElementCount self+  = liftDOM+      (round <$>+         (((toElement self) ^. js "childElementCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation> +setUiactions ::+             (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()+setUiactions self val+  = liftDOM ((toElement self) ^. jss "uiactions" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation> +getUiactions ::+             (MonadDOM m, IsElement self, FromJSString result) =>+               self -> m result+getUiactions self+  = liftDOM+      (((toElement self) ^. js "uiactions") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation> +getWebkitRegionOverset ::+                       (MonadDOM m, IsElement self, FromJSString result) =>+                         self -> m result+getWebkitRegionOverset self+  = liftDOM+      (((toElement self) ^. js "webkitRegionOverset") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onabort Mozilla Element.onabort documentation> +abort ::+      (IsElement self, IsEventTarget self) => EventName self UIEvent+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onblur Mozilla Element.onblur documentation> +blurEvent ::+          (IsElement self, IsEventTarget self) => EventName self FocusEvent+blurEvent = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onchange Mozilla Element.onchange documentation> +change ::+       (IsElement self, IsEventTarget self) => EventName self Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onclick Mozilla Element.onclick documentation> +click ::+      (IsElement self, IsEventTarget self) => EventName self MouseEvent+click = unsafeEventName (toJSString "click")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncontextmenu Mozilla Element.oncontextmenu documentation> +contextMenu ::+            (IsElement self, IsEventTarget self) => EventName self MouseEvent+contextMenu = unsafeEventName (toJSString "contextmenu")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondblclick Mozilla Element.ondblclick documentation> +dblClick ::+         (IsElement self, IsEventTarget self) => EventName self MouseEvent+dblClick = unsafeEventName (toJSString "dblclick")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondrag Mozilla Element.ondrag documentation> +drag ::+     (IsElement self, IsEventTarget self) => EventName self MouseEvent+drag = unsafeEventName (toJSString "drag")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragend Mozilla Element.ondragend documentation> +dragEnd ::+        (IsElement self, IsEventTarget self) => EventName self MouseEvent+dragEnd = unsafeEventName (toJSString "dragend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragenter Mozilla Element.ondragenter documentation> +dragEnter ::+          (IsElement self, IsEventTarget self) => EventName self MouseEvent+dragEnter = unsafeEventName (toJSString "dragenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragleave Mozilla Element.ondragleave documentation> +dragLeave ::+          (IsElement self, IsEventTarget self) => EventName self MouseEvent+dragLeave = unsafeEventName (toJSString "dragleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragover Mozilla Element.ondragover documentation> +dragOver ::+         (IsElement self, IsEventTarget self) => EventName self MouseEvent+dragOver = unsafeEventName (toJSString "dragover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragstart Mozilla Element.ondragstart documentation> +dragStart ::+          (IsElement self, IsEventTarget self) => EventName self MouseEvent+dragStart = unsafeEventName (toJSString "dragstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondrop Mozilla Element.ondrop documentation> +drop ::+     (IsElement self, IsEventTarget self) => EventName self MouseEvent+drop = unsafeEventName (toJSString "drop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onerror Mozilla Element.onerror documentation> +error ::+      (IsElement self, IsEventTarget self) => EventName self UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocus Mozilla Element.onfocus documentation> +focusEvent ::+           (IsElement self, IsEventTarget self) => EventName self FocusEvent+focusEvent = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oninput Mozilla Element.oninput documentation> +input ::+      (IsElement self, IsEventTarget self) => EventName self Event+input = unsafeEventName (toJSString "input")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oninvalid Mozilla Element.oninvalid documentation> +invalid ::+        (IsElement self, IsEventTarget self) => EventName self Event+invalid = unsafeEventName (toJSString "invalid")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onkeydown Mozilla Element.onkeydown documentation> +keyDown ::+        (IsElement self, IsEventTarget self) =>+          EventName self KeyboardEvent+keyDown = unsafeEventName (toJSString "keydown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onkeypress Mozilla Element.onkeypress documentation> +keyPress ::+         (IsElement self, IsEventTarget self) =>+           EventName self KeyboardEvent+keyPress = unsafeEventName (toJSString "keypress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onkeyup Mozilla Element.onkeyup documentation> +keyUp ::+      (IsElement self, IsEventTarget self) =>+        EventName self KeyboardEvent+keyUp = unsafeEventName (toJSString "keyup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onload Mozilla Element.onload documentation> +load ::+     (IsElement self, IsEventTarget self) => EventName self UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmousedown Mozilla Element.onmousedown documentation> +mouseDown ::+          (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseDown = unsafeEventName (toJSString "mousedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseenter Mozilla Element.onmouseenter documentation> +mouseEnter ::+           (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseEnter = unsafeEventName (toJSString "mouseenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseleave Mozilla Element.onmouseleave documentation> +mouseLeave ::+           (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseLeave = unsafeEventName (toJSString "mouseleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmousemove Mozilla Element.onmousemove documentation> +mouseMove ::+          (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseMove = unsafeEventName (toJSString "mousemove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseout Mozilla Element.onmouseout documentation> +mouseOut ::+         (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseOut = unsafeEventName (toJSString "mouseout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseover Mozilla Element.onmouseover documentation> +mouseOver ::+          (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseOver = unsafeEventName (toJSString "mouseover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseup Mozilla Element.onmouseup documentation> +mouseUp ::+        (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseUp = unsafeEventName (toJSString "mouseup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmousewheel Mozilla Element.onmousewheel documentation> +mouseWheel ::+           (IsElement self, IsEventTarget self) => EventName self MouseEvent+mouseWheel = unsafeEventName (toJSString "mousewheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onscroll Mozilla Element.onscroll documentation> +scroll ::+       (IsElement self, IsEventTarget self) => EventName self UIEvent+scroll = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onselect Mozilla Element.onselect documentation> +select ::+       (IsElement self, IsEventTarget self) => EventName self UIEvent+select = unsafeEventName (toJSString "select")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onsubmit Mozilla Element.onsubmit documentation> +submit ::+       (IsElement self, IsEventTarget self) => EventName self Event+submit = unsafeEventName (toJSString "submit")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwheel Mozilla Element.onwheel documentation> +wheel ::+      (IsElement self, IsEventTarget self) => EventName self WheelEvent+wheel = unsafeEventName (toJSString "wheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforecut Mozilla Element.onbeforecut documentation> +beforeCut ::+          (IsElement self, IsEventTarget self) => EventName self Event+beforeCut = unsafeEventName (toJSString "beforecut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncut Mozilla Element.oncut documentation> +cut :: (IsElement self, IsEventTarget self) => EventName self Event+cut = unsafeEventName (toJSString "cut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforecopy Mozilla Element.onbeforecopy documentation> +beforeCopy ::+           (IsElement self, IsEventTarget self) => EventName self Event+beforeCopy = unsafeEventName (toJSString "beforecopy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncopy Mozilla Element.oncopy documentation> +copy ::+     (IsElement self, IsEventTarget self) => EventName self Event+copy = unsafeEventName (toJSString "copy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforepaste Mozilla Element.onbeforepaste documentation> +beforePaste ::+            (IsElement self, IsEventTarget self) => EventName self Event+beforePaste = unsafeEventName (toJSString "beforepaste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onpaste Mozilla Element.onpaste documentation> +paste ::+      (IsElement self, IsEventTarget self) => EventName self Event+paste = unsafeEventName (toJSString "paste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onreset Mozilla Element.onreset documentation> +reset ::+      (IsElement self, IsEventTarget self) => EventName self Event+reset = unsafeEventName (toJSString "reset")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onsearch Mozilla Element.onsearch documentation> +search ::+       (IsElement self, IsEventTarget self) => EventName self Event+search = unsafeEventName (toJSString "search")++-- | <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.ontouchstart Mozilla Element.ontouchstart documentation> +touchStart ::+           (IsElement self, IsEventTarget self) => EventName self TouchEvent+touchStart = unsafeEventName (toJSString "touchstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontouchmove Mozilla Element.ontouchmove documentation> +touchMove ::+          (IsElement self, IsEventTarget self) => EventName self TouchEvent+touchMove = unsafeEventName (toJSString "touchmove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontouchend Mozilla Element.ontouchend documentation> +touchEnd ::+         (IsElement self, IsEventTarget self) => EventName self TouchEvent+touchEnd = unsafeEventName (toJSString "touchend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontouchcancel Mozilla Element.ontouchcancel documentation> +touchCancel ::+            (IsElement self, IsEventTarget self) => EventName self TouchEvent+touchCancel = unsafeEventName (toJSString "touchcancel")++-- | <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.onwebkitwillrevealbottom Mozilla Element.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom ::+                       (IsElement self, IsEventTarget self) => EventName self Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitwillrevealleft Mozilla Element.onwebkitwillrevealleft documentation> +webKitWillRevealLeft ::+                     (IsElement self, IsEventTarget self) => EventName self Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitwillrevealright Mozilla Element.onwebkitwillrevealright documentation> +webKitWillRevealRight ::+                      (IsElement self, IsEventTarget self) => EventName self Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitwillrevealtop Mozilla Element.onwebkitwillrevealtop documentation> +webKitWillRevealTop ::+                    (IsElement self, IsEventTarget self) => EventName self Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")
+ src/JSDOM/Generated/Entity.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Entity+       (getPublicId, getSystemId, getNotationName, Entity, castToEntity,+        gTypeEntity)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> +getPublicId ::+            (MonadDOM m, FromJSString result) => Entity -> m (Maybe result)+getPublicId self+  = liftDOM ((self ^. js "publicId") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> +getSystemId ::+            (MonadDOM m, FromJSString result) => Entity -> m (Maybe result)+getSystemId self+  = liftDOM ((self ^. js "systemId") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> +getNotationName ::+                (MonadDOM m, FromJSString result) => Entity -> m (Maybe result)+getNotationName self+  = liftDOM ((self ^. js "notationName") >>= fromMaybeJSString)
+ src/JSDOM/Generated/Enums.hs view
@@ -0,0 +1,792 @@+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE DeriveDataTypeable #-}+module JSDOM.Generated.Enums+       (KeyType(..), ToJSVal, FromJSVal, js_KeyTypeSecret,+        js_KeyTypePublic, js_KeyTypePrivate, KeyUsage(..),+        js_KeyUsageEncrypt, js_KeyUsageDecrypt, js_KeyUsageSign,+        js_KeyUsageVerify, js_KeyUsageDeriveKey, js_KeyUsageDeriveBits,+        js_KeyUsageWrapKey, js_KeyUsageUnwrapKey, CanvasWindingRule(..),+        js_CanvasWindingRuleNonzero, js_CanvasWindingRuleEvenodd,+        VideoPresentationMode(..), js_VideoPresentationModeFullscreen,+        js_VideoPresentationModeOptimized, js_VideoPresentationModeInline,+        TextTrackMode(..), js_TextTrackModeDisabled,+        js_TextTrackModeHidden, js_TextTrackModeShowing, TextTrackKind(..),+        js_TextTrackKindSubtitles, js_TextTrackKindCaptions,+        js_TextTrackKindDescriptions, js_TextTrackKindChapters,+        js_TextTrackKindMetadata, DeviceType(..), js_DeviceTypeNone,+        js_DeviceTypeAirplay, js_DeviceTypeTvout, MediaUIPartID(..),+        js_MediaUIPartIDOptimizedFullscreenButton,+        js_MediaUIPartIDOptimizedFullscreenPlaceholder,+        EndOfStreamError(..), js_EndOfStreamErrorNetwork,+        js_EndOfStreamErrorDecode, AppendMode(..), js_AppendModeSegments,+        js_AppendModeSequence, SourceTypeEnum(..), js_SourceTypeEnumNone,+        js_SourceTypeEnumCamera, js_SourceTypeEnumMicrophone,+        VideoFacingModeEnum(..), js_VideoFacingModeEnumUser,+        js_VideoFacingModeEnumEnvironment, js_VideoFacingModeEnumLeft,+        js_VideoFacingModeEnumRight, MediaStreamTrackState(..),+        js_MediaStreamTrackStateNew, js_MediaStreamTrackStateLive,+        js_MediaStreamTrackStateEnded, RTCIceTransportsEnum(..),+        js_RTCIceTransportsEnumNone, js_RTCIceTransportsEnumRelay,+        js_RTCIceTransportsEnumAll, RTCIdentityOptionEnum(..),+        js_RTCIdentityOptionEnumYes, js_RTCIdentityOptionEnumNo,+        js_RTCIdentityOptionEnumIfconfigured, ReadableStreamStateType(..),+        js_ReadableStreamStateTypeReadable,+        js_ReadableStreamStateTypeWaiting,+        js_ReadableStreamStateTypeClosed,+        js_ReadableStreamStateTypeErrored, OverSampleType(..),+        js_OverSampleTypeNone, js_OverSampleType2x, js_OverSampleType4x,+        PageOverlayType(..), js_PageOverlayTypeView,+        js_PageOverlayTypeDocument, XMLHttpRequestResponseType(..),+        js_XMLHttpRequestResponseType,+        js_XMLHttpRequestResponseTypeArraybuffer,+        js_XMLHttpRequestResponseTypeBlob,+        js_XMLHttpRequestResponseTypeDocument,+        js_XMLHttpRequestResponseTypeJson,+        js_XMLHttpRequestResponseTypeText)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+ +data KeyType = KeyTypeSecret+             | KeyTypePublic+             | KeyTypePrivate+             deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal KeyType where+        toJSVal KeyTypeSecret = toJSVal js_KeyTypeSecret+        toJSVal KeyTypePublic = toJSVal js_KeyTypePublic+        toJSVal KeyTypePrivate = toJSVal js_KeyTypePrivate+ +instance FromJSVal KeyType where+        fromJSVal x+          = x `strictEqual` js_KeyTypeSecret >>=+              \ r ->+                case r of+                    True -> return (Just KeyTypeSecret)+                    False+                      -> x `strictEqual` js_KeyTypePublic >>=+                           \ r ->+                             case r of+                                 True -> return (Just KeyTypePublic)+                                 False+                                   -> x `strictEqual` js_KeyTypePrivate >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just KeyTypePrivate)+                                              False -> return Nothing+js_KeyTypeSecret = "secret"+js_KeyTypePublic = "public"+js_KeyTypePrivate = "private"+ +data KeyUsage = KeyUsageEncrypt+              | KeyUsageDecrypt+              | KeyUsageSign+              | KeyUsageVerify+              | KeyUsageDeriveKey+              | KeyUsageDeriveBits+              | KeyUsageWrapKey+              | KeyUsageUnwrapKey+              deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal KeyUsage where+        toJSVal KeyUsageEncrypt = toJSVal js_KeyUsageEncrypt+        toJSVal KeyUsageDecrypt = toJSVal js_KeyUsageDecrypt+        toJSVal KeyUsageSign = toJSVal js_KeyUsageSign+        toJSVal KeyUsageVerify = toJSVal js_KeyUsageVerify+        toJSVal KeyUsageDeriveKey = toJSVal js_KeyUsageDeriveKey+        toJSVal KeyUsageDeriveBits = toJSVal js_KeyUsageDeriveBits+        toJSVal KeyUsageWrapKey = toJSVal js_KeyUsageWrapKey+        toJSVal KeyUsageUnwrapKey = toJSVal js_KeyUsageUnwrapKey+ +instance FromJSVal KeyUsage where+        fromJSVal x+          = x `strictEqual` js_KeyUsageEncrypt >>=+              \ r ->+                case r of+                    True -> return (Just KeyUsageEncrypt)+                    False+                      -> x `strictEqual` js_KeyUsageDecrypt >>=+                           \ r ->+                             case r of+                                 True -> return (Just KeyUsageDecrypt)+                                 False+                                   -> x `strictEqual` js_KeyUsageSign >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just KeyUsageSign)+                                              False+                                                -> x `strictEqual` js_KeyUsageVerify >>=+                                                     \ r ->+                                                       case r of+                                                           True -> return (Just KeyUsageVerify)+                                                           False+                                                             -> x `strictEqual` js_KeyUsageDeriveKey+                                                                  >>=+                                                                  \ r ->+                                                                    case r of+                                                                        True+                                                                          -> return+                                                                               (Just+                                                                                  KeyUsageDeriveKey)+                                                                        False+                                                                          -> x `strictEqual`+                                                                               js_KeyUsageDeriveBits+                                                                               >>=+                                                                               \ r ->+                                                                                 case r of+                                                                                     True+                                                                                       -> return+                                                                                            (Just+                                                                                               KeyUsageDeriveBits)+                                                                                     False+                                                                                       -> x `strictEqual`+                                                                                            js_KeyUsageWrapKey+                                                                                            >>=+                                                                                            \ r ->+                                                                                              case r+                                                                                                of+                                                                                                  True+                                                                                                    -> return+                                                                                                         (Just+                                                                                                            KeyUsageWrapKey)+                                                                                                  False+                                                                                                    -> x `strictEqual`+                                                                                                         js_KeyUsageUnwrapKey+                                                                                                         >>=+                                                                                                         \ r+                                                                                                           ->+                                                                                                           case+                                                                                                             r+                                                                                                             of+                                                                                                               True+                                                                                                                 -> return+                                                                                                                      (Just+                                                                                                                         KeyUsageUnwrapKey)+                                                                                                               False+                                                                                                                 -> return+                                                                                                                      Nothing+js_KeyUsageEncrypt = "encrypt"+js_KeyUsageDecrypt = "decrypt"+js_KeyUsageSign = "sign"+js_KeyUsageVerify = "verify"+js_KeyUsageDeriveKey = "deriveKey"+js_KeyUsageDeriveBits = "deriveBits"+js_KeyUsageWrapKey = "wrapKey"+js_KeyUsageUnwrapKey = "unwrapKey"+ +data CanvasWindingRule = CanvasWindingRuleNonzero+                       | CanvasWindingRuleEvenodd+                       deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal CanvasWindingRule where+        toJSVal CanvasWindingRuleNonzero+          = toJSVal js_CanvasWindingRuleNonzero+        toJSVal CanvasWindingRuleEvenodd+          = toJSVal js_CanvasWindingRuleEvenodd+ +instance FromJSVal CanvasWindingRule where+        fromJSVal x+          = x `strictEqual` js_CanvasWindingRuleNonzero >>=+              \ r ->+                case r of+                    True -> return (Just CanvasWindingRuleNonzero)+                    False+                      -> x `strictEqual` js_CanvasWindingRuleEvenodd >>=+                           \ r ->+                             case r of+                                 True -> return (Just CanvasWindingRuleEvenodd)+                                 False -> return Nothing+js_CanvasWindingRuleNonzero = "nonzero"+js_CanvasWindingRuleEvenodd = "evenodd"+ +data VideoPresentationMode = VideoPresentationModeFullscreen+                           | VideoPresentationModeOptimized+                           | VideoPresentationModeInline+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal VideoPresentationMode where+        toJSVal VideoPresentationModeFullscreen+          = toJSVal js_VideoPresentationModeFullscreen+        toJSVal VideoPresentationModeOptimized+          = toJSVal js_VideoPresentationModeOptimized+        toJSVal VideoPresentationModeInline+          = toJSVal js_VideoPresentationModeInline+ +instance FromJSVal VideoPresentationMode where+        fromJSVal x+          = x `strictEqual` js_VideoPresentationModeFullscreen >>=+              \ r ->+                case r of+                    True -> return (Just VideoPresentationModeFullscreen)+                    False+                      -> x `strictEqual` js_VideoPresentationModeOptimized >>=+                           \ r ->+                             case r of+                                 True -> return (Just VideoPresentationModeOptimized)+                                 False+                                   -> x `strictEqual` js_VideoPresentationModeInline >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just VideoPresentationModeInline)+                                              False -> return Nothing+js_VideoPresentationModeFullscreen = "fullscreen"+js_VideoPresentationModeOptimized = "optimized"+js_VideoPresentationModeInline = "inline"+ +data TextTrackMode = TextTrackModeDisabled+                   | TextTrackModeHidden+                   | TextTrackModeShowing+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal TextTrackMode where+        toJSVal TextTrackModeDisabled = toJSVal js_TextTrackModeDisabled+        toJSVal TextTrackModeHidden = toJSVal js_TextTrackModeHidden+        toJSVal TextTrackModeShowing = toJSVal js_TextTrackModeShowing+ +instance FromJSVal TextTrackMode where+        fromJSVal x+          = x `strictEqual` js_TextTrackModeDisabled >>=+              \ r ->+                case r of+                    True -> return (Just TextTrackModeDisabled)+                    False+                      -> x `strictEqual` js_TextTrackModeHidden >>=+                           \ r ->+                             case r of+                                 True -> return (Just TextTrackModeHidden)+                                 False+                                   -> x `strictEqual` js_TextTrackModeShowing >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just TextTrackModeShowing)+                                              False -> return Nothing+js_TextTrackModeDisabled = "disabled"+js_TextTrackModeHidden = "hidden"+js_TextTrackModeShowing = "showing"+ +data TextTrackKind = TextTrackKindSubtitles+                   | TextTrackKindCaptions+                   | TextTrackKindDescriptions+                   | TextTrackKindChapters+                   | TextTrackKindMetadata+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal TextTrackKind where+        toJSVal TextTrackKindSubtitles = toJSVal js_TextTrackKindSubtitles+        toJSVal TextTrackKindCaptions = toJSVal js_TextTrackKindCaptions+        toJSVal TextTrackKindDescriptions+          = toJSVal js_TextTrackKindDescriptions+        toJSVal TextTrackKindChapters = toJSVal js_TextTrackKindChapters+        toJSVal TextTrackKindMetadata = toJSVal js_TextTrackKindMetadata+ +instance FromJSVal TextTrackKind where+        fromJSVal x+          = x `strictEqual` js_TextTrackKindSubtitles >>=+              \ r ->+                case r of+                    True -> return (Just TextTrackKindSubtitles)+                    False+                      -> x `strictEqual` js_TextTrackKindCaptions >>=+                           \ r ->+                             case r of+                                 True -> return (Just TextTrackKindCaptions)+                                 False+                                   -> x `strictEqual` js_TextTrackKindDescriptions >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just TextTrackKindDescriptions)+                                              False+                                                -> x `strictEqual` js_TextTrackKindChapters >>=+                                                     \ r ->+                                                       case r of+                                                           True+                                                             -> return (Just TextTrackKindChapters)+                                                           False+                                                             -> x `strictEqual`+                                                                  js_TextTrackKindMetadata+                                                                  >>=+                                                                  \ r ->+                                                                    case r of+                                                                        True+                                                                          -> return+                                                                               (Just+                                                                                  TextTrackKindMetadata)+                                                                        False -> return Nothing+js_TextTrackKindSubtitles = "subtitles"+js_TextTrackKindCaptions = "captions"+js_TextTrackKindDescriptions = "descriptions"+js_TextTrackKindChapters = "chapters"+js_TextTrackKindMetadata = "metadata"+ +data DeviceType = DeviceTypeNone+                | DeviceTypeAirplay+                | DeviceTypeTvout+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal DeviceType where+        toJSVal DeviceTypeNone = toJSVal js_DeviceTypeNone+        toJSVal DeviceTypeAirplay = toJSVal js_DeviceTypeAirplay+        toJSVal DeviceTypeTvout = toJSVal js_DeviceTypeTvout+ +instance FromJSVal DeviceType where+        fromJSVal x+          = x `strictEqual` js_DeviceTypeNone >>=+              \ r ->+                case r of+                    True -> return (Just DeviceTypeNone)+                    False+                      -> x `strictEqual` js_DeviceTypeAirplay >>=+                           \ r ->+                             case r of+                                 True -> return (Just DeviceTypeAirplay)+                                 False+                                   -> x `strictEqual` js_DeviceTypeTvout >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just DeviceTypeTvout)+                                              False -> return Nothing+js_DeviceTypeNone = "none"+js_DeviceTypeAirplay = "airplay"+js_DeviceTypeTvout = "tvout"+ +data MediaUIPartID = MediaUIPartIDOptimizedFullscreenButton+                   | MediaUIPartIDOptimizedFullscreenPlaceholder+                   deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal MediaUIPartID where+        toJSVal MediaUIPartIDOptimizedFullscreenButton+          = toJSVal js_MediaUIPartIDOptimizedFullscreenButton+        toJSVal MediaUIPartIDOptimizedFullscreenPlaceholder+          = toJSVal js_MediaUIPartIDOptimizedFullscreenPlaceholder+ +instance FromJSVal MediaUIPartID where+        fromJSVal x+          = x `strictEqual` js_MediaUIPartIDOptimizedFullscreenButton >>=+              \ r ->+                case r of+                    True -> return (Just MediaUIPartIDOptimizedFullscreenButton)+                    False+                      -> x `strictEqual` js_MediaUIPartIDOptimizedFullscreenPlaceholder+                           >>=+                           \ r ->+                             case r of+                                 True -> return (Just MediaUIPartIDOptimizedFullscreenPlaceholder)+                                 False -> return Nothing+js_MediaUIPartIDOptimizedFullscreenButton+  = "optimized-fullscreen-button"+js_MediaUIPartIDOptimizedFullscreenPlaceholder+  = "optimized-fullscreen-placeholder"+ +data EndOfStreamError = EndOfStreamErrorNetwork+                      | EndOfStreamErrorDecode+                      deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal EndOfStreamError where+        toJSVal EndOfStreamErrorNetwork+          = toJSVal js_EndOfStreamErrorNetwork+        toJSVal EndOfStreamErrorDecode = toJSVal js_EndOfStreamErrorDecode+ +instance FromJSVal EndOfStreamError where+        fromJSVal x+          = x `strictEqual` js_EndOfStreamErrorNetwork >>=+              \ r ->+                case r of+                    True -> return (Just EndOfStreamErrorNetwork)+                    False+                      -> x `strictEqual` js_EndOfStreamErrorDecode >>=+                           \ r ->+                             case r of+                                 True -> return (Just EndOfStreamErrorDecode)+                                 False -> return Nothing+js_EndOfStreamErrorNetwork = "network"+js_EndOfStreamErrorDecode = "decode"+ +data AppendMode = AppendModeSegments+                | AppendModeSequence+                deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal AppendMode where+        toJSVal AppendModeSegments = toJSVal js_AppendModeSegments+        toJSVal AppendModeSequence = toJSVal js_AppendModeSequence+ +instance FromJSVal AppendMode where+        fromJSVal x+          = x `strictEqual` js_AppendModeSegments >>=+              \ r ->+                case r of+                    True -> return (Just AppendModeSegments)+                    False+                      -> x `strictEqual` js_AppendModeSequence >>=+                           \ r ->+                             case r of+                                 True -> return (Just AppendModeSequence)+                                 False -> return Nothing+js_AppendModeSegments = "segments"+js_AppendModeSequence = "sequence"+ +data SourceTypeEnum = SourceTypeEnumNone+                    | SourceTypeEnumCamera+                    | SourceTypeEnumMicrophone+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal SourceTypeEnum where+        toJSVal SourceTypeEnumNone = toJSVal js_SourceTypeEnumNone+        toJSVal SourceTypeEnumCamera = toJSVal js_SourceTypeEnumCamera+        toJSVal SourceTypeEnumMicrophone+          = toJSVal js_SourceTypeEnumMicrophone+ +instance FromJSVal SourceTypeEnum where+        fromJSVal x+          = x `strictEqual` js_SourceTypeEnumNone >>=+              \ r ->+                case r of+                    True -> return (Just SourceTypeEnumNone)+                    False+                      -> x `strictEqual` js_SourceTypeEnumCamera >>=+                           \ r ->+                             case r of+                                 True -> return (Just SourceTypeEnumCamera)+                                 False+                                   -> x `strictEqual` js_SourceTypeEnumMicrophone >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just SourceTypeEnumMicrophone)+                                              False -> return Nothing+js_SourceTypeEnumNone = "none"+js_SourceTypeEnumCamera = "camera"+js_SourceTypeEnumMicrophone = "microphone"+ +data VideoFacingModeEnum = VideoFacingModeEnumUser+                         | VideoFacingModeEnumEnvironment+                         | VideoFacingModeEnumLeft+                         | VideoFacingModeEnumRight+                         deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal VideoFacingModeEnum where+        toJSVal VideoFacingModeEnumUser+          = toJSVal js_VideoFacingModeEnumUser+        toJSVal VideoFacingModeEnumEnvironment+          = toJSVal js_VideoFacingModeEnumEnvironment+        toJSVal VideoFacingModeEnumLeft+          = toJSVal js_VideoFacingModeEnumLeft+        toJSVal VideoFacingModeEnumRight+          = toJSVal js_VideoFacingModeEnumRight+ +instance FromJSVal VideoFacingModeEnum where+        fromJSVal x+          = x `strictEqual` js_VideoFacingModeEnumUser >>=+              \ r ->+                case r of+                    True -> return (Just VideoFacingModeEnumUser)+                    False+                      -> x `strictEqual` js_VideoFacingModeEnumEnvironment >>=+                           \ r ->+                             case r of+                                 True -> return (Just VideoFacingModeEnumEnvironment)+                                 False+                                   -> x `strictEqual` js_VideoFacingModeEnumLeft >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just VideoFacingModeEnumLeft)+                                              False+                                                -> x `strictEqual` js_VideoFacingModeEnumRight >>=+                                                     \ r ->+                                                       case r of+                                                           True+                                                             -> return+                                                                  (Just VideoFacingModeEnumRight)+                                                           False -> return Nothing+js_VideoFacingModeEnumUser = "user"+js_VideoFacingModeEnumEnvironment = "environment"+js_VideoFacingModeEnumLeft = "left"+js_VideoFacingModeEnumRight = "right"+ +data MediaStreamTrackState = MediaStreamTrackStateNew+                           | MediaStreamTrackStateLive+                           | MediaStreamTrackStateEnded+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal MediaStreamTrackState where+        toJSVal MediaStreamTrackStateNew+          = toJSVal js_MediaStreamTrackStateNew+        toJSVal MediaStreamTrackStateLive+          = toJSVal js_MediaStreamTrackStateLive+        toJSVal MediaStreamTrackStateEnded+          = toJSVal js_MediaStreamTrackStateEnded+ +instance FromJSVal MediaStreamTrackState where+        fromJSVal x+          = x `strictEqual` js_MediaStreamTrackStateNew >>=+              \ r ->+                case r of+                    True -> return (Just MediaStreamTrackStateNew)+                    False+                      -> x `strictEqual` js_MediaStreamTrackStateLive >>=+                           \ r ->+                             case r of+                                 True -> return (Just MediaStreamTrackStateLive)+                                 False+                                   -> x `strictEqual` js_MediaStreamTrackStateEnded >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just MediaStreamTrackStateEnded)+                                              False -> return Nothing+js_MediaStreamTrackStateNew = "new"+js_MediaStreamTrackStateLive = "live"+js_MediaStreamTrackStateEnded = "ended"+ +data RTCIceTransportsEnum = RTCIceTransportsEnumNone+                          | RTCIceTransportsEnumRelay+                          | RTCIceTransportsEnumAll+                          deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal RTCIceTransportsEnum where+        toJSVal RTCIceTransportsEnumNone+          = toJSVal js_RTCIceTransportsEnumNone+        toJSVal RTCIceTransportsEnumRelay+          = toJSVal js_RTCIceTransportsEnumRelay+        toJSVal RTCIceTransportsEnumAll+          = toJSVal js_RTCIceTransportsEnumAll+ +instance FromJSVal RTCIceTransportsEnum where+        fromJSVal x+          = x `strictEqual` js_RTCIceTransportsEnumNone >>=+              \ r ->+                case r of+                    True -> return (Just RTCIceTransportsEnumNone)+                    False+                      -> x `strictEqual` js_RTCIceTransportsEnumRelay >>=+                           \ r ->+                             case r of+                                 True -> return (Just RTCIceTransportsEnumRelay)+                                 False+                                   -> x `strictEqual` js_RTCIceTransportsEnumAll >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just RTCIceTransportsEnumAll)+                                              False -> return Nothing+js_RTCIceTransportsEnumNone = "none"+js_RTCIceTransportsEnumRelay = "relay"+js_RTCIceTransportsEnumAll = "all"+ +data RTCIdentityOptionEnum = RTCIdentityOptionEnumYes+                           | RTCIdentityOptionEnumNo+                           | RTCIdentityOptionEnumIfconfigured+                           deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal RTCIdentityOptionEnum where+        toJSVal RTCIdentityOptionEnumYes+          = toJSVal js_RTCIdentityOptionEnumYes+        toJSVal RTCIdentityOptionEnumNo+          = toJSVal js_RTCIdentityOptionEnumNo+        toJSVal RTCIdentityOptionEnumIfconfigured+          = toJSVal js_RTCIdentityOptionEnumIfconfigured+ +instance FromJSVal RTCIdentityOptionEnum where+        fromJSVal x+          = x `strictEqual` js_RTCIdentityOptionEnumYes >>=+              \ r ->+                case r of+                    True -> return (Just RTCIdentityOptionEnumYes)+                    False+                      -> x `strictEqual` js_RTCIdentityOptionEnumNo >>=+                           \ r ->+                             case r of+                                 True -> return (Just RTCIdentityOptionEnumNo)+                                 False+                                   -> x `strictEqual` js_RTCIdentityOptionEnumIfconfigured >>=+                                        \ r ->+                                          case r of+                                              True+                                                -> return (Just RTCIdentityOptionEnumIfconfigured)+                                              False -> return Nothing+js_RTCIdentityOptionEnumYes = "yes"+js_RTCIdentityOptionEnumNo = "no"+js_RTCIdentityOptionEnumIfconfigured = "ifconfigured"+ +data ReadableStreamStateType = ReadableStreamStateTypeReadable+                             | ReadableStreamStateTypeWaiting+                             | ReadableStreamStateTypeClosed+                             | ReadableStreamStateTypeErrored+                             deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal ReadableStreamStateType where+        toJSVal ReadableStreamStateTypeReadable+          = toJSVal js_ReadableStreamStateTypeReadable+        toJSVal ReadableStreamStateTypeWaiting+          = toJSVal js_ReadableStreamStateTypeWaiting+        toJSVal ReadableStreamStateTypeClosed+          = toJSVal js_ReadableStreamStateTypeClosed+        toJSVal ReadableStreamStateTypeErrored+          = toJSVal js_ReadableStreamStateTypeErrored+ +instance FromJSVal ReadableStreamStateType where+        fromJSVal x+          = x `strictEqual` js_ReadableStreamStateTypeReadable >>=+              \ r ->+                case r of+                    True -> return (Just ReadableStreamStateTypeReadable)+                    False+                      -> x `strictEqual` js_ReadableStreamStateTypeWaiting >>=+                           \ r ->+                             case r of+                                 True -> return (Just ReadableStreamStateTypeWaiting)+                                 False+                                   -> x `strictEqual` js_ReadableStreamStateTypeClosed >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just ReadableStreamStateTypeClosed)+                                              False+                                                -> x `strictEqual` js_ReadableStreamStateTypeErrored+                                                     >>=+                                                     \ r ->+                                                       case r of+                                                           True+                                                             -> return+                                                                  (Just+                                                                     ReadableStreamStateTypeErrored)+                                                           False -> return Nothing+js_ReadableStreamStateTypeReadable = "readable"+js_ReadableStreamStateTypeWaiting = "waiting"+js_ReadableStreamStateTypeClosed = "closed"+js_ReadableStreamStateTypeErrored = "errored"+ +data OverSampleType = OverSampleTypeNone+                    | OverSampleType2x+                    | OverSampleType4x+                    deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal OverSampleType where+        toJSVal OverSampleTypeNone = toJSVal js_OverSampleTypeNone+        toJSVal OverSampleType2x = toJSVal js_OverSampleType2x+        toJSVal OverSampleType4x = toJSVal js_OverSampleType4x+ +instance FromJSVal OverSampleType where+        fromJSVal x+          = x `strictEqual` js_OverSampleTypeNone >>=+              \ r ->+                case r of+                    True -> return (Just OverSampleTypeNone)+                    False+                      -> x `strictEqual` js_OverSampleType2x >>=+                           \ r ->+                             case r of+                                 True -> return (Just OverSampleType2x)+                                 False+                                   -> x `strictEqual` js_OverSampleType4x >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just OverSampleType4x)+                                              False -> return Nothing+js_OverSampleTypeNone = "none"+js_OverSampleType2x = "2x"+js_OverSampleType4x = "4x"+ +data PageOverlayType = PageOverlayTypeView+                     | PageOverlayTypeDocument+                     deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal PageOverlayType where+        toJSVal PageOverlayTypeView = toJSVal js_PageOverlayTypeView+        toJSVal PageOverlayTypeDocument+          = toJSVal js_PageOverlayTypeDocument+ +instance FromJSVal PageOverlayType where+        fromJSVal x+          = x `strictEqual` js_PageOverlayTypeView >>=+              \ r ->+                case r of+                    True -> return (Just PageOverlayTypeView)+                    False+                      -> x `strictEqual` js_PageOverlayTypeDocument >>=+                           \ r ->+                             case r of+                                 True -> return (Just PageOverlayTypeDocument)+                                 False -> return Nothing+js_PageOverlayTypeView = "view"+js_PageOverlayTypeDocument = "document"+ +data XMLHttpRequestResponseType = XMLHttpRequestResponseType+                                | XMLHttpRequestResponseTypeArraybuffer+                                | XMLHttpRequestResponseTypeBlob+                                | XMLHttpRequestResponseTypeDocument+                                | XMLHttpRequestResponseTypeJson+                                | XMLHttpRequestResponseTypeText+                                deriving (Show, Read, Eq, Ord, Typeable)+ +instance ToJSVal XMLHttpRequestResponseType where+        toJSVal XMLHttpRequestResponseType+          = toJSVal js_XMLHttpRequestResponseType+        toJSVal XMLHttpRequestResponseTypeArraybuffer+          = toJSVal js_XMLHttpRequestResponseTypeArraybuffer+        toJSVal XMLHttpRequestResponseTypeBlob+          = toJSVal js_XMLHttpRequestResponseTypeBlob+        toJSVal XMLHttpRequestResponseTypeDocument+          = toJSVal js_XMLHttpRequestResponseTypeDocument+        toJSVal XMLHttpRequestResponseTypeJson+          = toJSVal js_XMLHttpRequestResponseTypeJson+        toJSVal XMLHttpRequestResponseTypeText+          = toJSVal js_XMLHttpRequestResponseTypeText+ +instance FromJSVal XMLHttpRequestResponseType where+        fromJSVal x+          = x `strictEqual` js_XMLHttpRequestResponseType >>=+              \ r ->+                case r of+                    True -> return (Just XMLHttpRequestResponseType)+                    False+                      -> x `strictEqual` js_XMLHttpRequestResponseTypeArraybuffer >>=+                           \ r ->+                             case r of+                                 True -> return (Just XMLHttpRequestResponseTypeArraybuffer)+                                 False+                                   -> x `strictEqual` js_XMLHttpRequestResponseTypeBlob >>=+                                        \ r ->+                                          case r of+                                              True -> return (Just XMLHttpRequestResponseTypeBlob)+                                              False+                                                -> x `strictEqual`+                                                     js_XMLHttpRequestResponseTypeDocument+                                                     >>=+                                                     \ r ->+                                                       case r of+                                                           True+                                                             -> return+                                                                  (Just+                                                                     XMLHttpRequestResponseTypeDocument)+                                                           False+                                                             -> x `strictEqual`+                                                                  js_XMLHttpRequestResponseTypeJson+                                                                  >>=+                                                                  \ r ->+                                                                    case r of+                                                                        True+                                                                          -> return+                                                                               (Just+                                                                                  XMLHttpRequestResponseTypeJson)+                                                                        False+                                                                          -> x `strictEqual`+                                                                               js_XMLHttpRequestResponseTypeText+                                                                               >>=+                                                                               \ r ->+                                                                                 case r of+                                                                                     True+                                                                                       -> return+                                                                                            (Just+                                                                                               XMLHttpRequestResponseTypeText)+                                                                                     False+                                                                                       -> return+                                                                                            Nothing+js_XMLHttpRequestResponseType = ""+js_XMLHttpRequestResponseTypeArraybuffer = "arraybuffer"+js_XMLHttpRequestResponseTypeBlob = "blob"+js_XMLHttpRequestResponseTypeDocument = "document"+js_XMLHttpRequestResponseTypeJson = "json"+js_XMLHttpRequestResponseTypeText = "text"
+ src/JSDOM/Generated/ErrorEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ErrorEvent+       (getMessage, getFilename, getLineno, getColno, ErrorEvent,+        castToErrorEvent, gTypeErrorEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.message Mozilla ErrorEvent.message documentation> +getMessage ::+           (MonadDOM m, FromJSString result) => ErrorEvent -> m result+getMessage self+  = liftDOM ((self ^. js "message") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.filename Mozilla ErrorEvent.filename documentation> +getFilename ::+            (MonadDOM m, FromJSString result) => ErrorEvent -> m result+getFilename self+  = liftDOM ((self ^. js "filename") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.lineno Mozilla ErrorEvent.lineno documentation> +getLineno :: (MonadDOM m) => ErrorEvent -> m Word+getLineno self+  = liftDOM (round <$> ((self ^. js "lineno") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.colno Mozilla ErrorEvent.colno documentation> +getColno :: (MonadDOM m) => ErrorEvent -> m Word+getColno self+  = liftDOM (round <$> ((self ^. js "colno") >>= valToNumber))
+ src/JSDOM/Generated/Event.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Event+       (stopPropagation, preventDefault, initEvent,+        stopImmediatePropagation, pattern NONE, pattern CAPTURING_PHASE,+        pattern AT_TARGET, pattern BUBBLING_PHASE, pattern MOUSEDOWN,+        pattern MOUSEUP, pattern MOUSEOVER, pattern MOUSEOUT,+        pattern MOUSEMOVE, pattern MOUSEDRAG, pattern CLICK,+        pattern DBLCLICK, pattern KEYDOWN, pattern KEYUP, pattern KEYPRESS,+        pattern DRAGDROP, pattern FOCUS, pattern BLUR, pattern SELECT,+        pattern CHANGE, getType, getTarget, getCurrentTarget,+        getEventPhase, getBubbles, getCancelable, getTimeStamp,+        getDefaultPrevented, getSrcElement, setReturnValue, getReturnValue,+        setCancelBubble, getCancelBubble, getClipboardData, Event,+        castToEvent, gTypeEvent, IsEvent, toEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopPropagation Mozilla Event.stopPropagation documentation> +stopPropagation :: (MonadDOM m, IsEvent self) => self -> m ()+stopPropagation self+  = liftDOM (void ((toEvent self) ^. js "stopPropagation"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.preventDefault Mozilla Event.preventDefault documentation> +preventDefault :: (MonadDOM m, IsEvent self) => self -> m ()+preventDefault self+  = liftDOM (void ((toEvent self) ^. js "preventDefault"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.initEvent Mozilla Event.initEvent documentation> +initEvent ::+          (MonadDOM m, IsEvent self, ToJSString eventTypeArg) =>+            self -> eventTypeArg -> Bool -> Bool -> m ()+initEvent self eventTypeArg canBubbleArg cancelableArg+  = liftDOM+      (void+         ((toEvent self) ^. jsf "initEvent"+            [toJSVal eventTypeArg, toJSVal canBubbleArg,+             toJSVal cancelableArg]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopImmediatePropagation Mozilla Event.stopImmediatePropagation documentation> +stopImmediatePropagation ::+                         (MonadDOM m, IsEvent self) => self -> m ()+stopImmediatePropagation self+  = liftDOM (void ((toEvent self) ^. js "stopImmediatePropagation"))+pattern NONE = 0+pattern CAPTURING_PHASE = 1+pattern AT_TARGET = 2+pattern BUBBLING_PHASE = 3+pattern MOUSEDOWN = 1+pattern MOUSEUP = 2+pattern MOUSEOVER = 4+pattern MOUSEOUT = 8+pattern MOUSEMOVE = 16+pattern MOUSEDRAG = 32+pattern CLICK = 64+pattern DBLCLICK = 128+pattern KEYDOWN = 256+pattern KEYUP = 512+pattern KEYPRESS = 1024+pattern DRAGDROP = 2048+pattern FOCUS = 4096+pattern BLUR = 8192+pattern SELECT = 16384+pattern CHANGE = 32768++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.type Mozilla Event.type documentation> +getType ::+        (MonadDOM m, IsEvent self, FromJSString result) => self -> m result+getType self+  = liftDOM (((toEvent self) ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> +getTarget ::+          (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getTarget self+  = liftDOM (((toEvent self) ^. js "target") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> +getCurrentTarget ::+                 (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getCurrentTarget self+  = liftDOM (((toEvent self) ^. js "currentTarget") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.eventPhase Mozilla Event.eventPhase documentation> +getEventPhase :: (MonadDOM m, IsEvent self) => self -> m Word+getEventPhase self+  = liftDOM+      (round <$> (((toEvent self) ^. js "eventPhase") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.bubbles Mozilla Event.bubbles documentation> +getBubbles :: (MonadDOM m, IsEvent self) => self -> m Bool+getBubbles self+  = liftDOM (((toEvent self) ^. js "bubbles") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelable Mozilla Event.cancelable documentation> +getCancelable :: (MonadDOM m, IsEvent self) => self -> m Bool+getCancelable self+  = liftDOM (((toEvent self) ^. js "cancelable") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.timeStamp Mozilla Event.timeStamp documentation> +getTimeStamp :: (MonadDOM m, IsEvent self) => self -> m Word+getTimeStamp self+  = liftDOM+      (round <$> (((toEvent self) ^. js "timeStamp") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.defaultPrevented Mozilla Event.defaultPrevented documentation> +getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool+getDefaultPrevented self+  = liftDOM (((toEvent self) ^. js "defaultPrevented") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> +getSrcElement ::+              (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)+getSrcElement self+  = liftDOM (((toEvent self) ^. js "srcElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> +setReturnValue ::+               (MonadDOM m, IsEvent self) => self -> Bool -> m ()+setReturnValue self val+  = liftDOM ((toEvent self) ^. jss "returnValue" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> +getReturnValue :: (MonadDOM m, IsEvent self) => self -> m Bool+getReturnValue self+  = liftDOM (((toEvent self) ^. js "returnValue") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> +setCancelBubble ::+                (MonadDOM m, IsEvent self) => self -> Bool -> m ()+setCancelBubble self val+  = liftDOM ((toEvent self) ^. jss "cancelBubble" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> +getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool+getCancelBubble self+  = liftDOM (((toEvent self) ^. js "cancelBubble") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> +getClipboardData ::+                 (MonadDOM m, IsEvent self) => self -> m (Maybe DataTransfer)+getClipboardData self+  = liftDOM (((toEvent self) ^. js "clipboardData") >>= fromJSVal)
+ src/JSDOM/Generated/EventListener.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.EventListener+       (handleEvent, EventListener, castToEventListener,+        gTypeEventListener)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventListener.handleEvent Mozilla EventListener.handleEvent documentation> +handleEvent ::+            (MonadDOM m, IsEvent evt) => EventListener -> Maybe evt -> m ()+handleEvent self evt+  = liftDOM (void (self ^. jsf "handleEvent" [toJSVal evt]))
+ src/JSDOM/Generated/EventSource.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.EventSource+       (newEventSource, close, pattern CONNECTING, pattern OPEN,+        pattern CLOSED, getUrl, getWithCredentials, getReadyState, open,+        message, error, EventSource, castToEventSource, gTypeEventSource)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation> +newEventSource ::+               (MonadDOM m, ToJSString url, IsDictionary eventSourceInit) =>+                 url -> Maybe eventSourceInit -> m EventSource+newEventSource url eventSourceInit+  = liftDOM+      (EventSource <$>+         new (jsg "EventSource") [toJSVal url, toJSVal eventSourceInit])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.close Mozilla EventSource.close documentation> +close :: (MonadDOM m) => EventSource -> m ()+close self = liftDOM (void (self ^. js "close"))+pattern CONNECTING = 0+pattern OPEN = 1+pattern CLOSED = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.url Mozilla EventSource.url documentation> +getUrl ::+       (MonadDOM m, FromJSString result) => EventSource -> m result+getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.withCredentials Mozilla EventSource.withCredentials documentation> +getWithCredentials :: (MonadDOM m) => EventSource -> m Bool+getWithCredentials self+  = liftDOM ((self ^. js "withCredentials") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.readyState Mozilla EventSource.readyState documentation> +getReadyState :: (MonadDOM m) => EventSource -> m Word+getReadyState self+  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onopen Mozilla EventSource.onopen documentation> +open :: EventName EventSource Event+open = unsafeEventName (toJSString "open")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onmessage Mozilla EventSource.onmessage documentation> +message :: EventName EventSource MessageEvent+message = unsafeEventName (toJSString "message")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onerror Mozilla EventSource.onerror documentation> +error :: EventName EventSource UIEvent+error = unsafeEventName (toJSString "error")
+ src/JSDOM/Generated/EventTarget.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.EventTarget+       (addEventListener, removeEventListener, dispatchEvent, EventTarget,+        castToEventTarget, gTypeEventTarget, IsEventTarget, toEventTarget)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation> +addEventListener ::+                 (MonadDOM m, IsEventTarget self, ToJSString type') =>+                   self -> type' -> Maybe EventListener -> Bool -> m ()+addEventListener self type' listener useCapture+  = liftDOM+      (void+         ((toEventTarget self) ^. jsf "addEventListener"+            [toJSVal type', toJSVal listener, toJSVal useCapture]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.removeEventListener Mozilla EventTarget.removeEventListener documentation> +removeEventListener ::+                    (MonadDOM m, IsEventTarget self, ToJSString type') =>+                      self -> type' -> Maybe EventListener -> Bool -> m ()+removeEventListener self type' listener useCapture+  = liftDOM+      (void+         ((toEventTarget self) ^. jsf "removeEventListener"+            [toJSVal type', toJSVal listener, toJSVal useCapture]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> +dispatchEvent ::+              (MonadDOM m, IsEventTarget self, IsEvent event) =>+                self -> Maybe event -> m Bool+dispatchEvent self event+  = liftDOM+      (((toEventTarget self) ^. jsf "dispatchEvent" [toJSVal event]) >>=+         valToBool)
+ src/JSDOM/Generated/File.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.File+       (getName, getLastModifiedDate, File, castToFile, gTypeFile) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.name Mozilla File.name documentation> +getName :: (MonadDOM m, FromJSString result) => File -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> +getLastModifiedDate :: (MonadDOM m) => File -> m (Maybe Date)+getLastModifiedDate self+  = liftDOM ((self ^. js "lastModifiedDate") >>= fromJSVal)
+ src/JSDOM/Generated/FileError.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FileError+       (pattern NOT_FOUND_ERR, pattern SECURITY_ERR, pattern ABORT_ERR,+        pattern NOT_READABLE_ERR, pattern ENCODING_ERR,+        pattern NO_MODIFICATION_ALLOWED_ERR, pattern INVALID_STATE_ERR,+        pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR,+        pattern QUOTA_EXCEEDED_ERR, pattern TYPE_MISMATCH_ERR,+        pattern PATH_EXISTS_ERR, getCode, FileError, castToFileError,+        gTypeFileError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern NOT_FOUND_ERR = 1+pattern SECURITY_ERR = 2+pattern ABORT_ERR = 3+pattern NOT_READABLE_ERR = 4+pattern ENCODING_ERR = 5+pattern NO_MODIFICATION_ALLOWED_ERR = 6+pattern INVALID_STATE_ERR = 7+pattern SYNTAX_ERR = 8+pattern INVALID_MODIFICATION_ERR = 9+pattern QUOTA_EXCEEDED_ERR = 10+pattern TYPE_MISMATCH_ERR = 11+pattern PATH_EXISTS_ERR = 12++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileError.code Mozilla FileError.code documentation> +getCode :: (MonadDOM m) => FileError -> m Word+getCode self+  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))
+ src/JSDOM/Generated/FileList.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FileList+       (item, getLength, FileList, castToFileList, gTypeFileList) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation> +item :: (MonadDOM m) => FileList -> Word -> m (Maybe File)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.length Mozilla FileList.length documentation> +getLength :: (MonadDOM m) => FileList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/FileReader.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FileReader+       (newFileReader, readAsArrayBuffer, readAsBinaryString, readAsText,+        readAsDataURL, abort, pattern EMPTY, pattern LOADING, pattern DONE,+        getReadyState, getResult, getError, loadStart, progress, load,+        abortEvent, error, loadEnd, FileReader, castToFileReader,+        gTypeFileReader)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation> +newFileReader :: (MonadDOM m) => m FileReader+newFileReader = liftDOM (FileReader <$> new (jsg "FileReader") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsArrayBuffer Mozilla FileReader.readAsArrayBuffer documentation> +readAsArrayBuffer ::+                  (MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()+readAsArrayBuffer self blob+  = liftDOM (void (self ^. jsf "readAsArrayBuffer" [toJSVal blob]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsBinaryString Mozilla FileReader.readAsBinaryString documentation> +readAsBinaryString ::+                   (MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()+readAsBinaryString self blob+  = liftDOM (void (self ^. jsf "readAsBinaryString" [toJSVal blob]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsText Mozilla FileReader.readAsText documentation> +readAsText ::+           (MonadDOM m, IsBlob blob, ToJSString encoding) =>+             FileReader -> Maybe blob -> encoding -> m ()+readAsText self blob encoding+  = liftDOM+      (void (self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsDataURL Mozilla FileReader.readAsDataURL documentation> +readAsDataURL ::+              (MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()+readAsDataURL self blob+  = liftDOM (void (self ^. jsf "readAsDataURL" [toJSVal blob]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.abort Mozilla FileReader.abort documentation> +abort :: (MonadDOM m) => FileReader -> m ()+abort self = liftDOM (void (self ^. js "abort"))+pattern EMPTY = 0+pattern LOADING = 1+pattern DONE = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readyState Mozilla FileReader.readyState documentation> +getReadyState :: (MonadDOM m) => FileReader -> m Word+getReadyState self+  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> +getResult :: (MonadDOM m) => FileReader -> m JSVal+getResult self = liftDOM ((self ^. js "result") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> +getError :: (MonadDOM m) => FileReader -> m (Maybe FileError)+getError self = liftDOM ((self ^. js "error") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadstart Mozilla FileReader.onloadstart documentation> +loadStart :: EventName FileReader ProgressEvent+loadStart = unsafeEventName (toJSString "loadstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onprogress Mozilla FileReader.onprogress documentation> +progress :: EventName FileReader ProgressEvent+progress = unsafeEventName (toJSString "progress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onload Mozilla FileReader.onload documentation> +load :: EventName FileReader UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onabort Mozilla FileReader.onabort documentation> +abortEvent :: EventName FileReader UIEvent+abortEvent = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onerror Mozilla FileReader.onerror documentation> +error :: EventName FileReader UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadend Mozilla FileReader.onloadend documentation> +loadEnd :: EventName FileReader ProgressEvent+loadEnd = unsafeEventName (toJSString "loadend")
+ src/JSDOM/Generated/FileReaderSync.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FileReaderSync+       (newFileReaderSync, readAsArrayBuffer, readAsBinaryString,+        readAsText, readAsDataURL, FileReaderSync, castToFileReaderSync,+        gTypeFileReaderSync)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation> +newFileReaderSync :: (MonadDOM m) => m FileReaderSync+newFileReaderSync+  = liftDOM (FileReaderSync <$> new (jsg "FileReaderSync") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> +readAsArrayBuffer ::+                  (MonadDOM m, IsBlob blob) =>+                    FileReaderSync -> Maybe blob -> m (Maybe ArrayBuffer)+readAsArrayBuffer self blob+  = liftDOM+      ((self ^. jsf "readAsArrayBuffer" [toJSVal blob]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsBinaryString Mozilla FileReaderSync.readAsBinaryString documentation> +readAsBinaryString ::+                   (MonadDOM m, IsBlob blob, FromJSString result) =>+                     FileReaderSync -> Maybe blob -> m result+readAsBinaryString self blob+  = liftDOM+      ((self ^. jsf "readAsBinaryString" [toJSVal blob]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsText Mozilla FileReaderSync.readAsText documentation> +readAsText ::+           (MonadDOM m, IsBlob blob, ToJSString encoding,+            FromJSString result) =>+             FileReaderSync -> Maybe blob -> encoding -> m result+readAsText self blob encoding+  = liftDOM+      ((self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsDataURL Mozilla FileReaderSync.readAsDataURL documentation> +readAsDataURL ::+              (MonadDOM m, IsBlob blob, FromJSString result) =>+                FileReaderSync -> Maybe blob -> m result+readAsDataURL self blob+  = liftDOM+      ((self ^. jsf "readAsDataURL" [toJSVal blob]) >>=+         fromJSValUnchecked)
+ src/JSDOM/Generated/FocusEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FocusEvent+       (getRelatedTarget, FocusEvent, castToFocusEvent, gTypeFocusEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation> +getRelatedTarget ::+                 (MonadDOM m) => FocusEvent -> m (Maybe EventTarget)+getRelatedTarget self+  = liftDOM ((self ^. js "relatedTarget") >>= fromJSVal)
+ src/JSDOM/Generated/FontLoader.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FontLoader+       (checkFont, loadFont, notifyWhenFontsReady, loading, loadingDone,+        loadStart, load, error, getLoading, FontLoader, castToFontLoader,+        gTypeFontLoader)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.checkFont Mozilla FontLoader.checkFont documentation> +checkFont ::+          (MonadDOM m, ToJSString font, ToJSString text) =>+            FontLoader -> font -> text -> m Bool+checkFont self font text+  = liftDOM+      ((self ^. jsf "checkFont" [toJSVal font, toJSVal text]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loadFont Mozilla FontLoader.loadFont documentation> +loadFont ::+         (MonadDOM m, IsDictionary params) =>+           FontLoader -> Maybe params -> m ()+loadFont self params+  = liftDOM (void (self ^. jsf "loadFont" [toJSVal params]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.notifyWhenFontsReady Mozilla FontLoader.notifyWhenFontsReady documentation> +notifyWhenFontsReady ::+                     (MonadDOM m) => FontLoader -> Maybe VoidCallback -> m ()+notifyWhenFontsReady self callback+  = liftDOM+      (void (self ^. jsf "notifyWhenFontsReady" [toJSVal callback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloading Mozilla FontLoader.onloading documentation> +loading :: EventName FontLoader Event+loading = unsafeEventName (toJSString "loading")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloadingdone Mozilla FontLoader.onloadingdone documentation> +loadingDone :: EventName FontLoader Event+loadingDone = unsafeEventName (toJSString "loadingdone")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloadstart Mozilla FontLoader.onloadstart documentation> +loadStart :: EventName FontLoader ProgressEvent+loadStart = unsafeEventName (toJSString "loadstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onload Mozilla FontLoader.onload documentation> +load :: EventName FontLoader UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onerror Mozilla FontLoader.onerror documentation> +error :: EventName FontLoader UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loading Mozilla FontLoader.loading documentation> +getLoading :: (MonadDOM m) => FontLoader -> m Bool+getLoading self = liftDOM ((self ^. js "loading") >>= valToBool)
+ src/JSDOM/Generated/FormData.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.FormData+       (newFormData, append, FormData, castToFormData, gTypeFormData)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation> +newFormData :: (MonadDOM m) => Maybe HTMLFormElement -> m FormData+newFormData form+  = liftDOM (FormData <$> new (jsg "FormData") [toJSVal form])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData.append Mozilla FormData.append documentation> +append ::+       (MonadDOM m, ToJSString name, ToJSString value,+        ToJSString filename) =>+         FormData -> name -> value -> filename -> m ()+append self name value filename+  = liftDOM+      (void+         (self ^. jsf "append"+            [toJSVal name, toJSVal value, toJSVal filename]))
+ src/JSDOM/Generated/GainNode.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.GainNode+       (getGain, GainNode, castToGainNode, gTypeGainNode) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> +getGain :: (MonadDOM m) => GainNode -> m (Maybe AudioParam)+getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)
+ src/JSDOM/Generated/Gamepad.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Gamepad+       (getId, getIndex, getConnected, getTimestamp, getMapping, getAxes,+        getButtons, Gamepad, castToGamepad, gTypeGamepad)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.id Mozilla Gamepad.id documentation> +getId :: (MonadDOM m, FromJSString result) => Gamepad -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.index Mozilla Gamepad.index documentation> +getIndex :: (MonadDOM m) => Gamepad -> m Word+getIndex self+  = liftDOM (round <$> ((self ^. js "index") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.connected Mozilla Gamepad.connected documentation> +getConnected :: (MonadDOM m) => Gamepad -> m Bool+getConnected self+  = liftDOM ((self ^. js "connected") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.timestamp Mozilla Gamepad.timestamp documentation> +getTimestamp :: (MonadDOM m) => Gamepad -> m Double+getTimestamp self+  = liftDOM ((self ^. js "timestamp") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.mapping Mozilla Gamepad.mapping documentation> +getMapping ::+           (MonadDOM m, FromJSString result) => Gamepad -> m result+getMapping self+  = liftDOM ((self ^. js "mapping") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.axes Mozilla Gamepad.axes documentation> +getAxes :: (MonadDOM m) => Gamepad -> m [Double]+getAxes self+  = liftDOM ((self ^. js "axes") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.buttons Mozilla Gamepad.buttons documentation> +getButtons :: (MonadDOM m) => Gamepad -> m [Maybe GamepadButton]+getButtons self = liftDOM ((self ^. js "buttons") >>= fromJSArray)
+ src/JSDOM/Generated/GamepadButton.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.GamepadButton+       (getPressed, getValue, GamepadButton, castToGamepadButton,+        gTypeGamepadButton)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.pressed Mozilla GamepadButton.pressed documentation> +getPressed :: (MonadDOM m) => GamepadButton -> m Bool+getPressed self = liftDOM ((self ^. js "pressed") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.value Mozilla GamepadButton.value documentation> +getValue :: (MonadDOM m) => GamepadButton -> m Double+getValue self = liftDOM ((self ^. js "value") >>= valToNumber)
+ src/JSDOM/Generated/GamepadEvent.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.GamepadEvent+       (getGamepad, GamepadEvent, castToGamepadEvent, gTypeGamepadEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation> +getGamepad :: (MonadDOM m) => GamepadEvent -> m (Maybe Gamepad)+getGamepad self = liftDOM ((self ^. js "gamepad") >>= fromJSVal)
+ src/JSDOM/Generated/Geolocation.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Geolocation+       (getCurrentPosition, watchPosition, clearWatch, Geolocation,+        castToGeolocation, gTypeGeolocation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation> +getCurrentPosition ::+                   (MonadDOM m, IsPositionOptions options) =>+                     Geolocation ->+                       Maybe PositionCallback ->+                         Maybe PositionErrorCallback -> Maybe options -> m ()+getCurrentPosition self successCallback errorCallback options+  = liftDOM+      (void+         (self ^. jsf "getCurrentPosition"+            [toJSVal successCallback, toJSVal errorCallback, toJSVal options]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation> +watchPosition ::+              (MonadDOM m, IsPositionOptions options) =>+                Geolocation ->+                  Maybe PositionCallback ->+                    Maybe PositionErrorCallback -> Maybe options -> m Int+watchPosition self successCallback errorCallback options+  = liftDOM+      (round <$>+         ((self ^. jsf "watchPosition"+             [toJSVal successCallback, toJSVal errorCallback, toJSVal options])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.clearWatch Mozilla Geolocation.clearWatch documentation> +clearWatch :: (MonadDOM m) => Geolocation -> Int -> m ()+clearWatch self watchID+  = liftDOM (void (self ^. jsf "clearWatch" [toJSVal watchID]))
+ src/JSDOM/Generated/Geoposition.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Geoposition+       (getCoords, getTimestamp, Geoposition, castToGeoposition,+        gTypeGeoposition)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> +getCoords :: (MonadDOM m) => Geoposition -> m (Maybe Coordinates)+getCoords self = liftDOM ((self ^. js "coords") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.timestamp Mozilla Geoposition.timestamp documentation> +getTimestamp :: (MonadDOM m) => Geoposition -> m Word+getTimestamp self+  = liftDOM (round <$> ((self ^. js "timestamp") >>= valToNumber))
+ src/JSDOM/Generated/HTMLAllCollection.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLAllCollection+       (item, namedItem, tags, getLength, HTMLAllCollection,+        castToHTMLAllCollection, gTypeHTMLAllCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> +item :: (MonadDOM m) => HTMLAllCollection -> Word -> m (Maybe Node)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            HTMLAllCollection -> name -> m (Maybe Node)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> +tags ::+     (MonadDOM m, ToJSString name) =>+       HTMLAllCollection -> name -> m (Maybe NodeList)+tags self name+  = liftDOM ((self ^. jsf "tags" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.length Mozilla HTMLAllCollection.length documentation> +getLength :: (MonadDOM m) => HTMLAllCollection -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/HTMLAnchorElement.hs view
@@ -0,0 +1,270 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLAnchorElement+       (toString, setCharset, getCharset, setCoords, getCoords,+        setDownload, getDownload, setHref, getHref, setHreflang,+        getHreflang, setName, getName, setPing, getPing, setRel, getRel,+        setRev, getRev, setShape, getShape, setTarget, getTarget, setType,+        getType, setHash, getHash, setHost, getHost, setHostname,+        getHostname, setPathname, getPathname, setPort, getPort,+        setProtocol, getProtocol, setSearch, getSearch, getOrigin, setText,+        getText, getRelList, HTMLAnchorElement, castToHTMLAnchorElement,+        gTypeHTMLAnchorElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.toString Mozilla HTMLAnchorElement.toString documentation> +toString ::+         (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation> +setCharset ::+           (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation> +getCharset ::+           (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getCharset self+  = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation> +setCoords ::+          (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation> +getCoords ::+          (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getCoords self+  = liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation> +setDownload ::+            (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setDownload self val+  = liftDOM (self ^. jss "download" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation> +getDownload ::+            (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getDownload self+  = liftDOM ((self ^. js "download") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation> +setHref ::+        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setHref self val = liftDOM (self ^. jss "href" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation> +setHreflang ::+            (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setHreflang self val+  = liftDOM (self ^. jss "hreflang" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation> +getHreflang ::+            (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getHreflang self+  = liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation> +setPing ::+        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation> +getPing ::+        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation> +setRel ::+       (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation> +getRel ::+       (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation> +setRev ::+       (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setRev self val = liftDOM (self ^. jss "rev" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation> +getRev ::+       (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation> +setShape ::+         (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation> +getShape ::+         (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getShape self+  = liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation> +setTarget ::+          (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation> +getTarget ::+          (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getTarget self+  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> +setHash ::+        (MonadDOM m, ToJSString val) =>+          HTMLAnchorElement -> Maybe val -> m ()+setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> +getHash ::+        (MonadDOM m, FromJSString result) =>+          HTMLAnchorElement -> m (Maybe result)+getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> +setHost ::+        (MonadDOM m, ToJSString val) =>+          HTMLAnchorElement -> Maybe val -> m ()+setHost self val = liftDOM (self ^. jss "host" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> +getHost ::+        (MonadDOM m, FromJSString result) =>+          HTMLAnchorElement -> m (Maybe result)+getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> +setHostname ::+            (MonadDOM m, ToJSString val) =>+              HTMLAnchorElement -> Maybe val -> m ()+setHostname self val+  = liftDOM (self ^. jss "hostname" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> +getHostname ::+            (MonadDOM m, FromJSString result) =>+              HTMLAnchorElement -> m (Maybe result)+getHostname self+  = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> +setPathname ::+            (MonadDOM m, ToJSString val) =>+              HTMLAnchorElement -> Maybe val -> m ()+setPathname self val+  = liftDOM (self ^. jss "pathname" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> +getPathname ::+            (MonadDOM m, FromJSString result) =>+              HTMLAnchorElement -> m (Maybe result)+getPathname self+  = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> +setPort ::+        (MonadDOM m, ToJSString val) =>+          HTMLAnchorElement -> Maybe val -> m ()+setPort self val = liftDOM (self ^. jss "port" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> +getPort ::+        (MonadDOM m, FromJSString result) =>+          HTMLAnchorElement -> m (Maybe result)+getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> +setProtocol ::+            (MonadDOM m, ToJSString val) =>+              HTMLAnchorElement -> Maybe val -> m ()+setProtocol self val+  = liftDOM (self ^. jss "protocol" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) =>+              HTMLAnchorElement -> m (Maybe result)+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> +setSearch ::+          (MonadDOM m, ToJSString val) =>+            HTMLAnchorElement -> Maybe val -> m ()+setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> +getSearch ::+          (MonadDOM m, FromJSString result) =>+            HTMLAnchorElement -> m (Maybe result)+getSearch self+  = liftDOM ((self ^. js "search") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> +getOrigin ::+          (MonadDOM m, FromJSString result) =>+            HTMLAnchorElement -> m (Maybe result)+getOrigin self+  = liftDOM ((self ^. js "origin") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation> +setText ::+        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation> +getText ::+        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result+getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> +getRelList ::+           (MonadDOM m) => HTMLAnchorElement -> m (Maybe DOMTokenList)+getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLAppletElement.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLAppletElement+       (setAlign, getAlign, setAlt, getAlt, setArchive, getArchive,+        setCode, getCode, setCodeBase, getCodeBase, setHeight, getHeight,+        setHspace, getHspace, setName, getName, setObject, getObject,+        setVspace, getVspace, setWidth, getWidth, HTMLAppletElement,+        castToHTMLAppletElement, gTypeHTMLAppletElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation> +setAlt ::+       (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation> +getAlt ::+       (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation> +setArchive ::+           (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setArchive self val = liftDOM (self ^. jss "archive" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation> +getArchive ::+           (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getArchive self+  = liftDOM ((self ^. js "archive") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation> +setCode ::+        (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setCode self val = liftDOM (self ^. jss "code" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation> +getCode ::+        (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation> +setCodeBase ::+            (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setCodeBase self val+  = liftDOM (self ^. jss "codeBase" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation> +getCodeBase ::+            (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getCodeBase self+  = liftDOM ((self ^. js "codeBase") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation> +setHeight ::+          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation> +getHeight ::+          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getHeight self+  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation> +setHspace ::+          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation> +getHspace ::+          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getHspace self+  = liftDOM ((self ^. js "hspace") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation> +setObject ::+          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setObject self val = liftDOM (self ^. jss "object" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation> +getObject ::+          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getObject self+  = liftDOM ((self ^. js "object") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation> +setVspace ::+          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation> +getVspace ::+          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getVspace self+  = liftDOM ((self ^. js "vspace") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLAreaElement.hs view
@@ -0,0 +1,144 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLAreaElement+       (setAlt, getAlt, setCoords, getCoords, setHref, getHref, setNoHref,+        getNoHref, setPing, getPing, setRel, getRel, setShape, getShape,+        setTarget, getTarget, getHash, getHost, getHostname, getPathname,+        getPort, getProtocol, getSearch, getRelList, HTMLAreaElement,+        castToHTMLAreaElement, gTypeHTMLAreaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation> +setAlt ::+       (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation> +getAlt ::+       (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation> +setCoords ::+          (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation> +getCoords ::+          (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getCoords self+  = liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation> +setHref ::+        (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setHref self val = liftDOM (self ^. jss "href" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation> +setNoHref :: (MonadDOM m) => HTMLAreaElement -> Bool -> m ()+setNoHref self val = liftDOM (self ^. jss "noHref" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation> +getNoHref :: (MonadDOM m) => HTMLAreaElement -> m Bool+getNoHref self = liftDOM ((self ^. js "noHref") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation> +setPing ::+        (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation> +getPing ::+        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation> +setRel ::+       (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation> +getRel ::+       (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation> +setShape ::+         (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation> +getShape ::+         (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getShape self+  = liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation> +setTarget ::+          (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()+setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation> +getTarget ::+          (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getTarget self+  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hash Mozilla HTMLAreaElement.hash documentation> +getHash ::+        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.host Mozilla HTMLAreaElement.host documentation> +getHost ::+        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hostname Mozilla HTMLAreaElement.hostname documentation> +getHostname ::+            (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getHostname self+  = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.pathname Mozilla HTMLAreaElement.pathname documentation> +getPathname ::+            (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getPathname self+  = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.port Mozilla HTMLAreaElement.port documentation> +getPort ::+        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.protocol Mozilla HTMLAreaElement.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.search Mozilla HTMLAreaElement.search documentation> +getSearch ::+          (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result+getSearch self+  = liftDOM ((self ^. js "search") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> +getRelList ::+           (MonadDOM m) => HTMLAreaElement -> m (Maybe DOMTokenList)+getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLBRElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLBRElement+       (setClear, getClear, HTMLBRElement, castToHTMLBRElement,+        gTypeHTMLBRElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation> +setClear ::+         (MonadDOM m, ToJSString val) => HTMLBRElement -> val -> m ()+setClear self val = liftDOM (self ^. jss "clear" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation> +getClear ::+         (MonadDOM m, FromJSString result) => HTMLBRElement -> m result+getClear self+  = liftDOM ((self ^. js "clear") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLBaseElement.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLBaseElement+       (setHref, getHref, setTarget, getTarget, HTMLBaseElement,+        castToHTMLBaseElement, gTypeHTMLBaseElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> +setHref ::+        (MonadDOM m, ToJSString val) =>+          HTMLBaseElement -> Maybe val -> m ()+setHref self val = liftDOM (self ^. jss "href" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) =>+          HTMLBaseElement -> m (Maybe result)+getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation> +setTarget ::+          (MonadDOM m, ToJSString val) => HTMLBaseElement -> val -> m ()+setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation> +getTarget ::+          (MonadDOM m, FromJSString result) => HTMLBaseElement -> m result+getTarget self+  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLBaseFontElement.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLBaseFontElement+       (setColor, getColor, setFace, getFace, setSize, getSize,+        HTMLBaseFontElement, castToHTMLBaseFontElement,+        gTypeHTMLBaseFontElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation> +setColor ::+         (MonadDOM m, ToJSString val) => HTMLBaseFontElement -> val -> m ()+setColor self val = liftDOM (self ^. jss "color" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation> +getColor ::+         (MonadDOM m, FromJSString result) =>+           HTMLBaseFontElement -> m result+getColor self+  = liftDOM ((self ^. js "color") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation> +setFace ::+        (MonadDOM m, ToJSString val) => HTMLBaseFontElement -> val -> m ()+setFace self val = liftDOM (self ^. jss "face" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation> +getFace ::+        (MonadDOM m, FromJSString result) =>+          HTMLBaseFontElement -> m result+getFace self = liftDOM ((self ^. js "face") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation> +setSize :: (MonadDOM m) => HTMLBaseFontElement -> Int -> m ()+setSize self val = liftDOM (self ^. jss "size" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation> +getSize :: (MonadDOM m) => HTMLBaseFontElement -> m Int+getSize self+  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))
+ src/JSDOM/Generated/HTMLBodyElement.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLBodyElement+       (setALink, getALink, setBackground, getBackground, setBgColor,+        getBgColor, setLink, getLink, setText, getText, setVLink, getVLink,+        beforeUnload, hashChange, message, offline, online, popState,+        resize, storage, unload, orientationChange, blur, error, focus,+        load, HTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> +setALink ::+         (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()+setALink self val = liftDOM (self ^. jss "aLink" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> +getALink ::+         (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result+getALink self+  = liftDOM ((self ^. js "aLink") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation> +setBackground ::+              (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()+setBackground self val+  = liftDOM (self ^. jss "background" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation> +getBackground ::+              (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result+getBackground self+  = liftDOM ((self ^. js "background") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> +setBgColor ::+           (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()+setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> +getBgColor ::+           (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result+getBgColor self+  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> +setLink ::+        (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()+setLink self val = liftDOM (self ^. jss "link" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> +getLink ::+        (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result+getLink self = liftDOM ((self ^. js "link") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> +setText ::+        (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> +getText ::+        (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result+getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation> +setVLink ::+         (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()+setVLink self val = liftDOM (self ^. jss "vLink" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation> +getVLink ::+         (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result+getVLink self+  = liftDOM ((self ^. js "vLink") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onbeforeunload Mozilla HTMLBodyElement.onbeforeunload documentation> +beforeUnload :: EventName HTMLBodyElement BeforeUnloadEvent+beforeUnload = unsafeEventName (toJSString "beforeunload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onhashchange Mozilla HTMLBodyElement.onhashchange documentation> +hashChange :: EventName HTMLBodyElement HashChangeEvent+hashChange = unsafeEventName (toJSString "hashchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onmessage Mozilla HTMLBodyElement.onmessage documentation> +message :: EventName HTMLBodyElement MessageEvent+message = unsafeEventName (toJSString "message")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onoffline Mozilla HTMLBodyElement.onoffline documentation> +offline :: EventName HTMLBodyElement Event+offline = unsafeEventName (toJSString "offline")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.ononline Mozilla HTMLBodyElement.ononline documentation> +online :: EventName HTMLBodyElement Event+online = unsafeEventName (toJSString "online")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onpopstate Mozilla HTMLBodyElement.onpopstate documentation> +popState :: EventName HTMLBodyElement PopStateEvent+popState = unsafeEventName (toJSString "popstate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onresize Mozilla HTMLBodyElement.onresize documentation> +resize :: EventName HTMLBodyElement UIEvent+resize = unsafeEventName (toJSString "resize")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onstorage Mozilla HTMLBodyElement.onstorage documentation> +storage :: EventName HTMLBodyElement StorageEvent+storage = unsafeEventName (toJSString "storage")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onunload Mozilla HTMLBodyElement.onunload documentation> +unload :: EventName HTMLBodyElement UIEvent+unload = unsafeEventName (toJSString "unload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onorientationchange Mozilla HTMLBodyElement.onorientationchange documentation> +orientationChange :: EventName HTMLBodyElement Event+orientationChange+  = unsafeEventName (toJSString "orientationchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onblur Mozilla HTMLBodyElement.onblur documentation> +blur :: EventName HTMLBodyElement FocusEvent+blur = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onerror Mozilla HTMLBodyElement.onerror documentation> +error :: EventName HTMLBodyElement UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onfocus Mozilla HTMLBodyElement.onfocus documentation> +focus :: EventName HTMLBodyElement FocusEvent+focus = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onload Mozilla HTMLBodyElement.onload documentation> +load :: EventName HTMLBodyElement UIEvent+load = unsafeEventName (toJSString "load")
+ src/JSDOM/Generated/HTMLButtonElement.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLButtonElement+       (checkValidity, setCustomValidity, setAutofocus, getAutofocus,+        setDisabled, getDisabled, getForm, setFormAction, getFormAction,+        setFormEnctype, getFormEnctype, setFormMethod, getFormMethod,+        setFormNoValidate, getFormNoValidate, setFormTarget, getFormTarget,+        setName, getName, setType, getType, setValue, getValue,+        getWillValidate, getValidity, getValidationMessage, getLabels,+        HTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLButtonElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.setCustomValidity Mozilla HTMLButtonElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLButtonElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation> +setAutofocus :: (MonadDOM m) => HTMLButtonElement -> Bool -> m ()+setAutofocus self val+  = liftDOM (self ^. jss "autofocus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation> +getAutofocus :: (MonadDOM m) => HTMLButtonElement -> m Bool+getAutofocus self+  = liftDOM ((self ^. js "autofocus") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLButtonElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLButtonElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLButtonElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation> +setFormAction ::+              (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()+setFormAction self val+  = liftDOM (self ^. jss "formAction" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation> +getFormAction ::+              (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result+getFormAction self+  = liftDOM ((self ^. js "formAction") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> +setFormEnctype ::+               (MonadDOM m, ToJSString val) =>+                 HTMLButtonElement -> Maybe val -> m ()+setFormEnctype self val+  = liftDOM (self ^. jss "formEnctype" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> +getFormEnctype ::+               (MonadDOM m, FromJSString result) =>+                 HTMLButtonElement -> m (Maybe result)+getFormEnctype self+  = liftDOM ((self ^. js "formEnctype") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> +setFormMethod ::+              (MonadDOM m, ToJSString val) =>+                HTMLButtonElement -> Maybe val -> m ()+setFormMethod self val+  = liftDOM (self ^. jss "formMethod" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> +getFormMethod ::+              (MonadDOM m, FromJSString result) =>+                HTMLButtonElement -> m (Maybe result)+getFormMethod self+  = liftDOM ((self ^. js "formMethod") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation> +setFormNoValidate ::+                  (MonadDOM m) => HTMLButtonElement -> Bool -> m ()+setFormNoValidate self val+  = liftDOM (self ^. jss "formNoValidate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation> +getFormNoValidate :: (MonadDOM m) => HTMLButtonElement -> m Bool+getFormNoValidate self+  = liftDOM ((self ^. js "formNoValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation> +setFormTarget ::+              (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()+setFormTarget self val+  = liftDOM (self ^. jss "formTarget" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation> +getFormTarget ::+              (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result+getFormTarget self+  = liftDOM ((self ^. js "formTarget") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) =>+          HTMLButtonElement -> Maybe val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) =>+          HTMLButtonElement -> m (Maybe result)+getType self = liftDOM ((self ^. js "type") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result+getValue self+  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.willValidate Mozilla HTMLButtonElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLButtonElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLButtonElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validationMessage Mozilla HTMLButtonElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> +getLabels ::+          (MonadDOM m) => HTMLButtonElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLCanvasElement.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLCanvasElement+       (toDataURL, getContext, probablySupportsContext, setWidth,+        getWidth, setHeight, getHeight, HTMLCanvasElement,+        castToHTMLCanvasElement, gTypeHTMLCanvasElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation> +toDataURL ::+          (MonadDOM m, ToJSString type', FromJSString result) =>+            HTMLCanvasElement -> Maybe type' -> m result+toDataURL self type'+  = liftDOM+      ((self ^. jsf "toDataURL" [toJSVal type']) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContext ::+           (MonadDOM m, ToJSString contextId) =>+             HTMLCanvasElement -> contextId -> m JSVal+getContext self contextId+  = liftDOM+      ((self ^. jsf "getContext" [toJSVal contextId]) >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation> +probablySupportsContext ::+                        (MonadDOM m, ToJSString contextId) =>+                          HTMLCanvasElement -> contextId -> m JSVal+probablySupportsContext self contextId+  = liftDOM+      ((self ^. jsf "probablySupportsContext" [toJSVal contextId]) >>=+         toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation> +setWidth :: (MonadDOM m) => HTMLCanvasElement -> Int -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation> +getWidth :: (MonadDOM m) => HTMLCanvasElement -> m Int+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation> +setHeight :: (MonadDOM m) => HTMLCanvasElement -> Int -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation> +getHeight :: (MonadDOM m) => HTMLCanvasElement -> m Int+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
+ src/JSDOM/Generated/HTMLCollection.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLCollection+       (item, namedItem, getLength, HTMLCollection, castToHTMLCollection,+        gTypeHTMLCollection, IsHTMLCollection, toHTMLCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation> +item ::+     (MonadDOM m, IsHTMLCollection self) =>+       self -> Word -> m (Maybe Node)+item self index+  = liftDOM+      (((toHTMLCollection self) ^. jsf "item" [toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation> +namedItem ::+          (MonadDOM m, IsHTMLCollection self, ToJSString name) =>+            self -> name -> m (Maybe Node)+namedItem self name+  = liftDOM+      (((toHTMLCollection self) ^. jsf "namedItem" [toJSVal name]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.length Mozilla HTMLCollection.length documentation> +getLength :: (MonadDOM m, IsHTMLCollection self) => self -> m Word+getLength self+  = liftDOM+      (round <$>+         (((toHTMLCollection self) ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/HTMLDListElement.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLDListElement+       (setCompact, getCompact, HTMLDListElement, castToHTMLDListElement,+        gTypeHTMLDListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation> +setCompact :: (MonadDOM m) => HTMLDListElement -> Bool -> m ()+setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation> +getCompact :: (MonadDOM m) => HTMLDListElement -> m Bool+getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)
+ src/JSDOM/Generated/HTMLDataListElement.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLDataListElement+       (getOptions, HTMLDataListElement, castToHTMLDataListElement,+        gTypeHTMLDataListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> +getOptions ::+           (MonadDOM m) => HTMLDataListElement -> m (Maybe HTMLCollection)+getOptions self = liftDOM ((self ^. js "options") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLDetailsElement.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLDetailsElement+       (setOpen, getOpen, HTMLDetailsElement, castToHTMLDetailsElement,+        gTypeHTMLDetailsElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation> +setOpen :: (MonadDOM m) => HTMLDetailsElement -> Bool -> m ()+setOpen self val = liftDOM (self ^. jss "open" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation> +getOpen :: (MonadDOM m) => HTMLDetailsElement -> m Bool+getOpen self = liftDOM ((self ^. js "open") >>= valToBool)
+ src/JSDOM/Generated/HTMLDirectoryElement.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLDirectoryElement+       (setCompact, getCompact, HTMLDirectoryElement,+        castToHTMLDirectoryElement, gTypeHTMLDirectoryElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation> +setCompact :: (MonadDOM m) => HTMLDirectoryElement -> Bool -> m ()+setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation> +getCompact :: (MonadDOM m) => HTMLDirectoryElement -> m Bool+getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)
+ src/JSDOM/Generated/HTMLDivElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLDivElement+       (setAlign, getAlign, HTMLDivElement, castToHTMLDivElement,+        gTypeHTMLDivElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLDivElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLDivElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLDocument.hs view
@@ -0,0 +1,175 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLDocument+       (open, close, write, writeln, clear, captureEvents, releaseEvents,+        getEmbeds, getPlugins, getScripts, getAll, getWidth, getHeight,+        setDir, getDir, setDesignMode, getDesignMode, getCompatMode,+        setBgColor, getBgColor, setFgColor, getFgColor, setAlinkColor,+        getAlinkColor, setLinkColor, getLinkColor, setVlinkColor,+        getVlinkColor, HTMLDocument, castToHTMLDocument, gTypeHTMLDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.open Mozilla HTMLDocument.open documentation> +open :: (MonadDOM m) => HTMLDocument -> m ()+open self = liftDOM (void (self ^. js "open"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.close Mozilla HTMLDocument.close documentation> +close :: (MonadDOM m) => HTMLDocument -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.write Mozilla HTMLDocument.write documentation> +write ::+      (MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()+write self text+  = liftDOM (void (self ^. jsf "write" [toJSVal text]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.writeln Mozilla HTMLDocument.writeln documentation> +writeln ::+        (MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()+writeln self text+  = liftDOM (void (self ^. jsf "writeln" [toJSVal text]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.clear Mozilla HTMLDocument.clear documentation> +clear :: (MonadDOM m) => HTMLDocument -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.captureEvents Mozilla HTMLDocument.captureEvents documentation> +captureEvents :: (MonadDOM m) => HTMLDocument -> m ()+captureEvents self = liftDOM (void (self ^. js "captureEvents"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.releaseEvents Mozilla HTMLDocument.releaseEvents documentation> +releaseEvents :: (MonadDOM m) => HTMLDocument -> m ()+releaseEvents self = liftDOM (void (self ^. js "releaseEvents"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> +getEmbeds ::+          (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)+getEmbeds self = liftDOM ((self ^. js "embeds") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> +getPlugins ::+           (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)+getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> +getScripts ::+           (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)+getScripts self = liftDOM ((self ^. js "scripts") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> +getAll ::+       (MonadDOM m) => HTMLDocument -> m (Maybe HTMLAllCollection)+getAll self = liftDOM ((self ^. js "all") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.width Mozilla HTMLDocument.width documentation> +getWidth :: (MonadDOM m) => HTMLDocument -> m Int+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.height Mozilla HTMLDocument.height documentation> +getHeight :: (MonadDOM m) => HTMLDocument -> m Int+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> +setDir ::+       (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setDir self val = liftDOM (self ^. jss "dir" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> +getDir ::+       (MonadDOM m, FromJSString result) =>+         HTMLDocument -> m (Maybe result)+getDir self = liftDOM ((self ^. js "dir") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> +setDesignMode ::+              (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setDesignMode self val+  = liftDOM (self ^. jss "designMode" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> +getDesignMode ::+              (MonadDOM m, FromJSString result) =>+                HTMLDocument -> m (Maybe result)+getDesignMode self+  = liftDOM ((self ^. js "designMode") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.compatMode Mozilla HTMLDocument.compatMode documentation> +getCompatMode ::+              (MonadDOM m, FromJSString result) => HTMLDocument -> m result+getCompatMode self+  = liftDOM ((self ^. js "compatMode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> +setBgColor ::+           (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> +getBgColor ::+           (MonadDOM m, FromJSString result) =>+             HTMLDocument -> m (Maybe result)+getBgColor self+  = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> +setFgColor ::+           (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setFgColor self val = liftDOM (self ^. jss "fgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> +getFgColor ::+           (MonadDOM m, FromJSString result) =>+             HTMLDocument -> m (Maybe result)+getFgColor self+  = liftDOM ((self ^. js "fgColor") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> +setAlinkColor ::+              (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setAlinkColor self val+  = liftDOM (self ^. jss "alinkColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> +getAlinkColor ::+              (MonadDOM m, FromJSString result) =>+                HTMLDocument -> m (Maybe result)+getAlinkColor self+  = liftDOM ((self ^. js "alinkColor") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> +setLinkColor ::+             (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setLinkColor self val+  = liftDOM (self ^. jss "linkColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> +getLinkColor ::+             (MonadDOM m, FromJSString result) =>+               HTMLDocument -> m (Maybe result)+getLinkColor self+  = liftDOM ((self ^. js "linkColor") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> +setVlinkColor ::+              (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()+setVlinkColor self val+  = liftDOM (self ^. jss "vlinkColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> +getVlinkColor ::+              (MonadDOM m, FromJSString result) =>+                HTMLDocument -> m (Maybe result)+getVlinkColor self+  = liftDOM ((self ^. js "vlinkColor") >>= fromMaybeJSString)
+ src/JSDOM/Generated/HTMLElement.hs view
@@ -0,0 +1,255 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLElement+       (insertAdjacentElement, insertAdjacentHTML, insertAdjacentText,+        click, setTitle, getTitle, setLang, getLang, setTranslate,+        getTranslate, setDir, getDir, setTabIndex, getTabIndex,+        setDraggable, getDraggable, setWebkitdropzone, getWebkitdropzone,+        setHidden, getHidden, setAccessKey, getAccessKey, setInnerText,+        getInnerText, setOuterText, getOuterText, getChildren,+        setContentEditable, getContentEditable, getIsContentEditable,+        setSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement,+        gTypeHTMLElement, IsHTMLElement, toHTMLElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> +insertAdjacentElement ::+                      (MonadDOM m, IsHTMLElement self, ToJSString where',+                       IsElement element) =>+                        self -> where' -> Maybe element -> m (Maybe Element)+insertAdjacentElement self where' element+  = liftDOM+      (((toHTMLElement self) ^. jsf "insertAdjacentElement"+          [toJSVal where', toJSVal element])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentHTML Mozilla HTMLElement.insertAdjacentHTML documentation> +insertAdjacentHTML ::+                   (MonadDOM m, IsHTMLElement self, ToJSString where',+                    ToJSString html) =>+                     self -> where' -> html -> m ()+insertAdjacentHTML self where' html+  = liftDOM+      (void+         ((toHTMLElement self) ^. jsf "insertAdjacentHTML"+            [toJSVal where', toJSVal html]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentText Mozilla HTMLElement.insertAdjacentText documentation> +insertAdjacentText ::+                   (MonadDOM m, IsHTMLElement self, ToJSString where',+                    ToJSString text) =>+                     self -> where' -> text -> m ()+insertAdjacentText self where' text+  = liftDOM+      (void+         ((toHTMLElement self) ^. jsf "insertAdjacentText"+            [toJSVal where', toJSVal text]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.click Mozilla HTMLElement.click documentation> +click :: (MonadDOM m, IsHTMLElement self) => self -> m ()+click self = liftDOM (void ((toHTMLElement self) ^. js "click"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation> +setTitle ::+         (MonadDOM m, IsHTMLElement self, ToJSString val) =>+           self -> val -> m ()+setTitle self val+  = liftDOM ((toHTMLElement self) ^. jss "title" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation> +getTitle ::+         (MonadDOM m, IsHTMLElement self, FromJSString result) =>+           self -> m result+getTitle self+  = liftDOM+      (((toHTMLElement self) ^. js "title") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation> +setLang ::+        (MonadDOM m, IsHTMLElement self, ToJSString val) =>+          self -> val -> m ()+setLang self val+  = liftDOM ((toHTMLElement self) ^. jss "lang" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation> +getLang ::+        (MonadDOM m, IsHTMLElement self, FromJSString result) =>+          self -> m result+getLang self+  = liftDOM+      (((toHTMLElement self) ^. js "lang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation> +setTranslate ::+             (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()+setTranslate self val+  = liftDOM ((toHTMLElement self) ^. jss "translate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation> +getTranslate :: (MonadDOM m, IsHTMLElement self) => self -> m Bool+getTranslate self+  = liftDOM (((toHTMLElement self) ^. js "translate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation> +setDir ::+       (MonadDOM m, IsHTMLElement self, ToJSString val) =>+         self -> val -> m ()+setDir self val+  = liftDOM ((toHTMLElement self) ^. jss "dir" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation> +getDir ::+       (MonadDOM m, IsHTMLElement self, FromJSString result) =>+         self -> m result+getDir self+  = liftDOM+      (((toHTMLElement self) ^. js "dir") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation> +setTabIndex ::+            (MonadDOM m, IsHTMLElement self) => self -> Int -> m ()+setTabIndex self val+  = liftDOM ((toHTMLElement self) ^. jss "tabIndex" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation> +getTabIndex :: (MonadDOM m, IsHTMLElement self) => self -> m Int+getTabIndex self+  = liftDOM+      (round <$>+         (((toHTMLElement self) ^. js "tabIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation> +setDraggable ::+             (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()+setDraggable self val+  = liftDOM ((toHTMLElement self) ^. jss "draggable" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation> +getDraggable :: (MonadDOM m, IsHTMLElement self) => self -> m Bool+getDraggable self+  = liftDOM (((toHTMLElement self) ^. js "draggable") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation> +setWebkitdropzone ::+                  (MonadDOM m, IsHTMLElement self, ToJSString val) =>+                    self -> val -> m ()+setWebkitdropzone self val+  = liftDOM+      ((toHTMLElement self) ^. jss "webkitdropzone" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation> +getWebkitdropzone ::+                  (MonadDOM m, IsHTMLElement self, FromJSString result) =>+                    self -> m result+getWebkitdropzone self+  = liftDOM+      (((toHTMLElement self) ^. js "webkitdropzone") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation> +setHidden ::+          (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()+setHidden self val+  = liftDOM ((toHTMLElement self) ^. jss "hidden" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation> +getHidden :: (MonadDOM m, IsHTMLElement self) => self -> m Bool+getHidden self+  = liftDOM (((toHTMLElement self) ^. js "hidden") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation> +setAccessKey ::+             (MonadDOM m, IsHTMLElement self, ToJSString val) =>+               self -> val -> m ()+setAccessKey self val+  = liftDOM ((toHTMLElement self) ^. jss "accessKey" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation> +getAccessKey ::+             (MonadDOM m, IsHTMLElement self, FromJSString result) =>+               self -> m result+getAccessKey self+  = liftDOM+      (((toHTMLElement self) ^. js "accessKey") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> +setInnerText ::+             (MonadDOM m, IsHTMLElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setInnerText self val+  = liftDOM ((toHTMLElement self) ^. jss "innerText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> +getInnerText ::+             (MonadDOM m, IsHTMLElement self, FromJSString result) =>+               self -> m (Maybe result)+getInnerText self+  = liftDOM+      (((toHTMLElement self) ^. js "innerText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> +setOuterText ::+             (MonadDOM m, IsHTMLElement self, ToJSString val) =>+               self -> Maybe val -> m ()+setOuterText self val+  = liftDOM ((toHTMLElement self) ^. jss "outerText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> +getOuterText ::+             (MonadDOM m, IsHTMLElement self, FromJSString result) =>+               self -> m (Maybe result)+getOuterText self+  = liftDOM+      (((toHTMLElement self) ^. js "outerText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> +getChildren ::+            (MonadDOM m, IsHTMLElement self) =>+              self -> m (Maybe HTMLCollection)+getChildren self+  = liftDOM (((toHTMLElement self) ^. js "children") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> +setContentEditable ::+                   (MonadDOM m, IsHTMLElement self, ToJSString val) =>+                     self -> Maybe val -> m ()+setContentEditable self val+  = liftDOM+      ((toHTMLElement self) ^. jss "contentEditable" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> +getContentEditable ::+                   (MonadDOM m, IsHTMLElement self, FromJSString result) =>+                     self -> m (Maybe result)+getContentEditable self+  = liftDOM+      (((toHTMLElement self) ^. js "contentEditable") >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.isContentEditable Mozilla HTMLElement.isContentEditable documentation> +getIsContentEditable ::+                     (MonadDOM m, IsHTMLElement self) => self -> m Bool+getIsContentEditable self+  = liftDOM+      (((toHTMLElement self) ^. js "isContentEditable") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation> +setSpellcheck ::+              (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()+setSpellcheck self val+  = liftDOM ((toHTMLElement self) ^. jss "spellcheck" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation> +getSpellcheck :: (MonadDOM m, IsHTMLElement self) => self -> m Bool+getSpellcheck self+  = liftDOM (((toHTMLElement self) ^. js "spellcheck") >>= valToBool)
+ src/JSDOM/Generated/HTMLEmbedElement.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLEmbedElement+       (getSVGDocument, setAlign, getAlign, setHeight, getHeight, setName,+        getName, setSrc, getSrc, setType, getType, setWidth, getWidth,+        HTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadDOM m) => HTMLEmbedElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation> +setHeight ::+          (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation> +getHeight ::+          (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result+getHeight self+  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLFieldSetElement.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLFieldSetElement+       (checkValidity, setCustomValidity, setDisabled, getDisabled,+        getForm, setName, getName, getType, getElements, getWillValidate,+        getValidity, getValidationMessage, HTMLFieldSetElement,+        castToHTMLFieldSetElement, gTypeHTMLFieldSetElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLFieldSetElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.setCustomValidity Mozilla HTMLFieldSetElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLFieldSetElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLFieldSetElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLFieldSetElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLFieldSetElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) =>+          HTMLFieldSetElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.type Mozilla HTMLFieldSetElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) =>+          HTMLFieldSetElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> +getElements ::+            (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLCollection)+getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.willValidate Mozilla HTMLFieldSetElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLFieldSetElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLFieldSetElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validationMessage Mozilla HTMLFieldSetElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) =>+                       HTMLFieldSetElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLFontElement.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLFontElement+       (setColor, getColor, setFace, getFace, setSize, getSize,+        HTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> +setColor ::+         (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m ()+setColor self val = liftDOM (self ^. jss "color" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> +getColor ::+         (MonadDOM m, FromJSString result) => HTMLFontElement -> m result+getColor self+  = liftDOM ((self ^. js "color") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation> +setFace ::+        (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m ()+setFace self val = liftDOM (self ^. jss "face" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation> +getFace ::+        (MonadDOM m, FromJSString result) => HTMLFontElement -> m result+getFace self = liftDOM ((self ^. js "face") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation> +setSize ::+        (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m ()+setSize self val = liftDOM (self ^. jss "size" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation> +getSize ::+        (MonadDOM m, FromJSString result) => HTMLFontElement -> m result+getSize self = liftDOM ((self ^. js "size") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLFormControlsCollection.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLFormControlsCollection+       (_get, namedItem, HTMLFormControlsCollection,+        castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> +_get ::+     (MonadDOM m) =>+       HTMLFormControlsCollection -> Word -> m (Maybe Node)+_get self index+  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            HTMLFormControlsCollection -> name -> m (Maybe Node)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)
+ src/JSDOM/Generated/HTMLFormElement.hs view
@@ -0,0 +1,195 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLFormElement+       (_get, submit, reset, checkValidity, requestAutocomplete,+        setAcceptCharset, getAcceptCharset, setAction, getAction,+        setAutocomplete, getAutocomplete, setEnctype, getEnctype,+        setEncoding, getEncoding, setMethod, getMethod, setName, getName,+        setNoValidate, getNoValidate, setTarget, getTarget, getElements,+        getLength, setAutocorrect, getAutocorrect, setAutocapitalize,+        getAutocapitalize, autocomplete, autocompleteerror,+        HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> +_get ::+     (MonadDOM m) => HTMLFormElement -> Word -> m (Maybe Element)+_get self index+  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.submit Mozilla HTMLFormElement.submit documentation> +submit :: (MonadDOM m) => HTMLFormElement -> m ()+submit self = liftDOM (void (self ^. js "submit"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.reset Mozilla HTMLFormElement.reset documentation> +reset :: (MonadDOM m) => HTMLFormElement -> m ()+reset self = liftDOM (void (self ^. js "reset"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLFormElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.requestAutocomplete Mozilla HTMLFormElement.requestAutocomplete documentation> +requestAutocomplete :: (MonadDOM m) => HTMLFormElement -> m ()+requestAutocomplete self+  = liftDOM (void (self ^. js "requestAutocomplete"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation> +setAcceptCharset ::+                 (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()+setAcceptCharset self val+  = liftDOM (self ^. jss "acceptCharset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation> +getAcceptCharset ::+                 (MonadDOM m, FromJSString result) => HTMLFormElement -> m result+getAcceptCharset self+  = liftDOM ((self ^. js "acceptCharset") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation> +setAction ::+          (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()+setAction self val = liftDOM (self ^. jss "action" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation> +getAction ::+          (MonadDOM m, FromJSString result) => HTMLFormElement -> m result+getAction self+  = liftDOM ((self ^. js "action") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation> +setAutocomplete ::+                (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()+setAutocomplete self val+  = liftDOM (self ^. jss "autocomplete" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation> +getAutocomplete ::+                (MonadDOM m, FromJSString result) => HTMLFormElement -> m result+getAutocomplete self+  = liftDOM ((self ^. js "autocomplete") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> +setEnctype ::+           (MonadDOM m, ToJSString val) =>+             HTMLFormElement -> Maybe val -> m ()+setEnctype self val = liftDOM (self ^. jss "enctype" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> +getEnctype ::+           (MonadDOM m, FromJSString result) =>+             HTMLFormElement -> m (Maybe result)+getEnctype self+  = liftDOM ((self ^. js "enctype") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> +setEncoding ::+            (MonadDOM m, ToJSString val) =>+              HTMLFormElement -> Maybe val -> m ()+setEncoding self val+  = liftDOM (self ^. jss "encoding" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> +getEncoding ::+            (MonadDOM m, FromJSString result) =>+              HTMLFormElement -> m (Maybe result)+getEncoding self+  = liftDOM ((self ^. js "encoding") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> +setMethod ::+          (MonadDOM m, ToJSString val) =>+            HTMLFormElement -> Maybe val -> m ()+setMethod self val = liftDOM (self ^. jss "method" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> +getMethod ::+          (MonadDOM m, FromJSString result) =>+            HTMLFormElement -> m (Maybe result)+getMethod self+  = liftDOM ((self ^. js "method") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLFormElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation> +setNoValidate :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()+setNoValidate self val+  = liftDOM (self ^. jss "noValidate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation> +getNoValidate :: (MonadDOM m) => HTMLFormElement -> m Bool+getNoValidate self+  = liftDOM ((self ^. js "noValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation> +setTarget ::+          (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()+setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation> +getTarget ::+          (MonadDOM m, FromJSString result) => HTMLFormElement -> m result+getTarget self+  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> +getElements ::+            (MonadDOM m) => HTMLFormElement -> m (Maybe HTMLCollection)+getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.length Mozilla HTMLFormElement.length documentation> +getLength :: (MonadDOM m) => HTMLFormElement -> m Int+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation> +setAutocorrect :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()+setAutocorrect self val+  = liftDOM (self ^. jss "autocorrect" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation> +getAutocorrect :: (MonadDOM m) => HTMLFormElement -> m Bool+getAutocorrect self+  = liftDOM ((self ^. js "autocorrect") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadDOM m, ToJSString val) =>+                    HTMLFormElement -> Maybe val -> m ()+setAutocapitalize self val+  = liftDOM (self ^. jss "autocapitalize" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadDOM m, FromJSString result) =>+                    HTMLFormElement -> m (Maybe result)+getAutocapitalize self+  = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.onautocomplete Mozilla HTMLFormElement.onautocomplete documentation> +autocomplete :: EventName HTMLFormElement onautocomplete+autocomplete = unsafeEventName (toJSString "autocomplete")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.onautocompleteerror Mozilla HTMLFormElement.onautocompleteerror documentation> +autocompleteerror :: EventName HTMLFormElement onautocompleteerror+autocompleteerror+  = unsafeEventName (toJSString "autocompleteerror")
+ src/JSDOM/Generated/HTMLFrameElement.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLFrameElement+       (getSVGDocument, setFrameBorder, getFrameBorder, setLongDesc,+        getLongDesc, setMarginHeight, getMarginHeight, setMarginWidth,+        getMarginWidth, setName, getName, setNoResize, getNoResize,+        setScrolling, getScrolling, setSrc, getSrc, getContentDocument,+        getContentWindow, setLocation, getLocation, getWidth, getHeight,+        HTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadDOM m) => HTMLFrameElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation> +setFrameBorder ::+               (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setFrameBorder self val+  = liftDOM (self ^. jss "frameBorder" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation> +getFrameBorder ::+               (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getFrameBorder self+  = liftDOM ((self ^. js "frameBorder") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation> +setLongDesc ::+            (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setLongDesc self val+  = liftDOM (self ^. jss "longDesc" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation> +getLongDesc ::+            (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getLongDesc self+  = liftDOM ((self ^. js "longDesc") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +setMarginHeight ::+                (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setMarginHeight self val+  = liftDOM (self ^. jss "marginHeight" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> +getMarginHeight ::+                (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getMarginHeight self+  = liftDOM ((self ^. js "marginHeight") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +setMarginWidth ::+               (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setMarginWidth self val+  = liftDOM (self ^. jss "marginWidth" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> +getMarginWidth ::+               (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getMarginWidth self+  = liftDOM ((self ^. js "marginWidth") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation> +setNoResize :: (MonadDOM m) => HTMLFrameElement -> Bool -> m ()+setNoResize self val+  = liftDOM (self ^. jss "noResize" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation> +getNoResize :: (MonadDOM m) => HTMLFrameElement -> m Bool+getNoResize self = liftDOM ((self ^. js "noResize") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation> +setScrolling ::+             (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setScrolling self val+  = liftDOM (self ^. jss "scrolling" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation> +getScrolling ::+             (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getScrolling self+  = liftDOM ((self ^. js "scrolling") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> +getContentDocument ::+                   (MonadDOM m) => HTMLFrameElement -> m (Maybe Document)+getContentDocument self+  = liftDOM ((self ^. js "contentDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> +getContentWindow ::+                 (MonadDOM m) => HTMLFrameElement -> m (Maybe Window)+getContentWindow self+  = liftDOM ((self ^. js "contentWindow") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> +setLocation ::+            (MonadDOM m, ToJSString val) =>+              HTMLFrameElement -> Maybe val -> m ()+setLocation self val+  = liftDOM (self ^. jss "location" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> +getLocation ::+            (MonadDOM m, FromJSString result) =>+              HTMLFrameElement -> m (Maybe result)+getLocation self+  = liftDOM ((self ^. js "location") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.width Mozilla HTMLFrameElement.width documentation> +getWidth :: (MonadDOM m) => HTMLFrameElement -> m Int+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.height Mozilla HTMLFrameElement.height documentation> +getHeight :: (MonadDOM m) => HTMLFrameElement -> m Int+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
+ src/JSDOM/Generated/HTMLFrameSetElement.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLFrameSetElement+       (setCols, getCols, setRows, getRows, beforeUnload, hashChange,+        message, offline, online, popState, resize, storage, unload,+        orientationChange, blur, error, focus, load, HTMLFrameSetElement,+        castToHTMLFrameSetElement, gTypeHTMLFrameSetElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation> +setCols ::+        (MonadDOM m, ToJSString val) => HTMLFrameSetElement -> val -> m ()+setCols self val = liftDOM (self ^. jss "cols" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation> +getCols ::+        (MonadDOM m, FromJSString result) =>+          HTMLFrameSetElement -> m result+getCols self = liftDOM ((self ^. js "cols") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation> +setRows ::+        (MonadDOM m, ToJSString val) => HTMLFrameSetElement -> val -> m ()+setRows self val = liftDOM (self ^. jss "rows" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation> +getRows ::+        (MonadDOM m, FromJSString result) =>+          HTMLFrameSetElement -> m result+getRows self = liftDOM ((self ^. js "rows") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onbeforeunload Mozilla HTMLFrameSetElement.onbeforeunload documentation> +beforeUnload :: EventName HTMLFrameSetElement BeforeUnloadEvent+beforeUnload = unsafeEventName (toJSString "beforeunload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onhashchange Mozilla HTMLFrameSetElement.onhashchange documentation> +hashChange :: EventName HTMLFrameSetElement HashChangeEvent+hashChange = unsafeEventName (toJSString "hashchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onmessage Mozilla HTMLFrameSetElement.onmessage documentation> +message :: EventName HTMLFrameSetElement MessageEvent+message = unsafeEventName (toJSString "message")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onoffline Mozilla HTMLFrameSetElement.onoffline documentation> +offline :: EventName HTMLFrameSetElement Event+offline = unsafeEventName (toJSString "offline")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.ononline Mozilla HTMLFrameSetElement.ononline documentation> +online :: EventName HTMLFrameSetElement Event+online = unsafeEventName (toJSString "online")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onpopstate Mozilla HTMLFrameSetElement.onpopstate documentation> +popState :: EventName HTMLFrameSetElement PopStateEvent+popState = unsafeEventName (toJSString "popstate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onresize Mozilla HTMLFrameSetElement.onresize documentation> +resize :: EventName HTMLFrameSetElement UIEvent+resize = unsafeEventName (toJSString "resize")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onstorage Mozilla HTMLFrameSetElement.onstorage documentation> +storage :: EventName HTMLFrameSetElement StorageEvent+storage = unsafeEventName (toJSString "storage")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onunload Mozilla HTMLFrameSetElement.onunload documentation> +unload :: EventName HTMLFrameSetElement UIEvent+unload = unsafeEventName (toJSString "unload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onorientationchange Mozilla HTMLFrameSetElement.onorientationchange documentation> +orientationChange :: EventName HTMLFrameSetElement Event+orientationChange+  = unsafeEventName (toJSString "orientationchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onblur Mozilla HTMLFrameSetElement.onblur documentation> +blur :: EventName HTMLFrameSetElement FocusEvent+blur = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onerror Mozilla HTMLFrameSetElement.onerror documentation> +error :: EventName HTMLFrameSetElement UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onfocus Mozilla HTMLFrameSetElement.onfocus documentation> +focus :: EventName HTMLFrameSetElement FocusEvent+focus = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onload Mozilla HTMLFrameSetElement.onload documentation> +load :: EventName HTMLFrameSetElement UIEvent+load = unsafeEventName (toJSString "load")
+ src/JSDOM/Generated/HTMLHRElement.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLHRElement+       (setAlign, getAlign, setNoShade, getNoShade, setSize, getSize,+        setWidth, getWidth, HTMLHRElement, castToHTMLHRElement,+        gTypeHTMLHRElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLHRElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLHRElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation> +setNoShade :: (MonadDOM m) => HTMLHRElement -> Bool -> m ()+setNoShade self val = liftDOM (self ^. jss "noShade" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation> +getNoShade :: (MonadDOM m) => HTMLHRElement -> m Bool+getNoShade self = liftDOM ((self ^. js "noShade") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation> +setSize ::+        (MonadDOM m, ToJSString val) => HTMLHRElement -> val -> m ()+setSize self val = liftDOM (self ^. jss "size" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation> +getSize ::+        (MonadDOM m, FromJSString result) => HTMLHRElement -> m result+getSize self = liftDOM ((self ^. js "size") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLHRElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLHRElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLHeadElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLHeadElement+       (setProfile, getProfile, HTMLHeadElement, castToHTMLHeadElement,+        gTypeHTMLHeadElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation> +setProfile ::+           (MonadDOM m, ToJSString val) => HTMLHeadElement -> val -> m ()+setProfile self val = liftDOM (self ^. jss "profile" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation> +getProfile ::+           (MonadDOM m, FromJSString result) => HTMLHeadElement -> m result+getProfile self+  = liftDOM ((self ^. js "profile") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLHeadingElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLHeadingElement+       (setAlign, getAlign, HTMLHeadingElement, castToHTMLHeadingElement,+        gTypeHTMLHeadingElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLHeadingElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLHeadingElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLHtmlElement.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLHtmlElement+       (setVersion, getVersion, setManifest, getManifest, HTMLHtmlElement,+        castToHTMLHtmlElement, gTypeHTMLHtmlElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation> +setVersion ::+           (MonadDOM m, ToJSString val) => HTMLHtmlElement -> val -> m ()+setVersion self val = liftDOM (self ^. jss "version" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation> +getVersion ::+           (MonadDOM m, FromJSString result) => HTMLHtmlElement -> m result+getVersion self+  = liftDOM ((self ^. js "version") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation> +setManifest ::+            (MonadDOM m, ToJSString val) => HTMLHtmlElement -> val -> m ()+setManifest self val+  = liftDOM (self ^. jss "manifest" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation> +getManifest ::+            (MonadDOM m, FromJSString result) => HTMLHtmlElement -> m result+getManifest self+  = liftDOM ((self ^. js "manifest") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLIFrameElement.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLIFrameElement+       (getSVGDocument, setAlign, getAlign, setFrameBorder,+        getFrameBorder, setHeight, getHeight, setLongDesc, getLongDesc,+        setMarginHeight, getMarginHeight, setMarginWidth, getMarginWidth,+        setName, getName, setSandbox, getSandbox, setScrolling,+        getScrolling, setSrc, getSrc, setSrcdoc, getSrcdoc, setWidth,+        getWidth, getContentDocument, getContentWindow, HTMLIFrameElement,+        castToHTMLIFrameElement, gTypeHTMLIFrameElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadDOM m) => HTMLIFrameElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation> +setFrameBorder ::+               (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setFrameBorder self val+  = liftDOM (self ^. jss "frameBorder" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation> +getFrameBorder ::+               (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getFrameBorder self+  = liftDOM ((self ^. js "frameBorder") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation> +setHeight ::+          (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation> +getHeight ::+          (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getHeight self+  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation> +setLongDesc ::+            (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setLongDesc self val+  = liftDOM (self ^. jss "longDesc" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation> +getLongDesc ::+            (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getLongDesc self+  = liftDOM ((self ^. js "longDesc") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> +setMarginHeight ::+                (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setMarginHeight self val+  = liftDOM (self ^. jss "marginHeight" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> +getMarginHeight ::+                (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getMarginHeight self+  = liftDOM ((self ^. js "marginHeight") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> +setMarginWidth ::+               (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setMarginWidth self val+  = liftDOM (self ^. jss "marginWidth" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> +getMarginWidth ::+               (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getMarginWidth self+  = liftDOM ((self ^. js "marginWidth") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation> +setSandbox ::+           (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setSandbox self val = liftDOM (self ^. jss "sandbox" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation> +getSandbox ::+           (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getSandbox self+  = liftDOM ((self ^. js "sandbox") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation> +setScrolling ::+             (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setScrolling self val+  = liftDOM (self ^. jss "scrolling" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation> +getScrolling ::+             (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getScrolling self+  = liftDOM ((self ^. js "scrolling") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation> +setSrcdoc ::+          (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setSrcdoc self val = liftDOM (self ^. jss "srcdoc" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation> +getSrcdoc ::+          (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getSrcdoc self+  = liftDOM ((self ^. js "srcdoc") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> +getContentDocument ::+                   (MonadDOM m) => HTMLIFrameElement -> m (Maybe Document)+getContentDocument self+  = liftDOM ((self ^. js "contentDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> +getContentWindow ::+                 (MonadDOM m) => HTMLIFrameElement -> m (Maybe Window)+getContentWindow self+  = liftDOM ((self ^. js "contentWindow") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLImageElement.hs view
@@ -0,0 +1,215 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLImageElement+       (setName, getName, setAlign, getAlign, setAlt, getAlt, setBorder,+        getBorder, setCrossOrigin, getCrossOrigin, setHeight, getHeight,+        setHspace, getHspace, setIsMap, getIsMap, setLongDesc, getLongDesc,+        setSrc, getSrc, setSrcset, getSrcset, setSizes, getSizes,+        getCurrentSrc, setUseMap, getUseMap, setVspace, getVspace,+        setWidth, getWidth, getComplete, setLowsrc, getLowsrc,+        getNaturalHeight, getNaturalWidth, getX, getY, HTMLImageElement,+        castToHTMLImageElement, gTypeHTMLImageElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation> +setAlt ::+       (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation> +getAlt ::+       (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> +setBorder ::+          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> +getBorder ::+          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getBorder self+  = liftDOM ((self ^. js "border") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> +setCrossOrigin ::+               (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setCrossOrigin self val+  = liftDOM (self ^. jss "crossOrigin" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> +getCrossOrigin ::+               (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getCrossOrigin self+  = liftDOM ((self ^. js "crossOrigin") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation> +setHeight :: (MonadDOM m) => HTMLImageElement -> Int -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation> +getHeight :: (MonadDOM m) => HTMLImageElement -> m Int+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation> +setHspace :: (MonadDOM m) => HTMLImageElement -> Int -> m ()+setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation> +getHspace :: (MonadDOM m) => HTMLImageElement -> m Int+getHspace self+  = liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation> +setIsMap :: (MonadDOM m) => HTMLImageElement -> Bool -> m ()+setIsMap self val = liftDOM (self ^. jss "isMap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation> +getIsMap :: (MonadDOM m) => HTMLImageElement -> m Bool+getIsMap self = liftDOM ((self ^. js "isMap") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation> +setLongDesc ::+            (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setLongDesc self val+  = liftDOM (self ^. jss "longDesc" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation> +getLongDesc ::+            (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getLongDesc self+  = liftDOM ((self ^. js "longDesc") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation> +setSrcset ::+          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setSrcset self val = liftDOM (self ^. jss "srcset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation> +getSrcset ::+          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getSrcset self+  = liftDOM ((self ^. js "srcset") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation> +setSizes ::+         (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setSizes self val = liftDOM (self ^. jss "sizes" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation> +getSizes ::+         (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getSizes self+  = liftDOM ((self ^. js "sizes") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.currentSrc Mozilla HTMLImageElement.currentSrc documentation> +getCurrentSrc ::+              (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getCurrentSrc self+  = liftDOM ((self ^. js "currentSrc") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation> +setUseMap ::+          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation> +getUseMap ::+          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getUseMap self+  = liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation> +setVspace :: (MonadDOM m) => HTMLImageElement -> Int -> m ()+setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation> +getVspace :: (MonadDOM m) => HTMLImageElement -> m Int+getVspace self+  = liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation> +setWidth :: (MonadDOM m) => HTMLImageElement -> Int -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation> +getWidth :: (MonadDOM m) => HTMLImageElement -> m Int+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.complete Mozilla HTMLImageElement.complete documentation> +getComplete :: (MonadDOM m) => HTMLImageElement -> m Bool+getComplete self = liftDOM ((self ^. js "complete") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation> +setLowsrc ::+          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()+setLowsrc self val = liftDOM (self ^. jss "lowsrc" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation> +getLowsrc ::+          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result+getLowsrc self+  = liftDOM ((self ^. js "lowsrc") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalHeight Mozilla HTMLImageElement.naturalHeight documentation> +getNaturalHeight :: (MonadDOM m) => HTMLImageElement -> m Int+getNaturalHeight self+  = liftDOM+      (round <$> ((self ^. js "naturalHeight") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalWidth Mozilla HTMLImageElement.naturalWidth documentation> +getNaturalWidth :: (MonadDOM m) => HTMLImageElement -> m Int+getNaturalWidth self+  = liftDOM (round <$> ((self ^. js "naturalWidth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.x Mozilla HTMLImageElement.x documentation> +getX :: (MonadDOM m) => HTMLImageElement -> m Int+getX self = liftDOM (round <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.y Mozilla HTMLImageElement.y documentation> +getY :: (MonadDOM m) => HTMLImageElement -> m Int+getY self = liftDOM (round <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/HTMLInputElement.hs view
@@ -0,0 +1,583 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLInputElement+       (stepUp, stepDown, checkValidity, setCustomValidity, select,+        setRangeText, setRangeText4, setSelectionRange, setAccept,+        getAccept, setAlt, getAlt, setAutocomplete, getAutocomplete,+        setAutofocus, getAutofocus, setDefaultChecked, getDefaultChecked,+        setChecked, getChecked, setDirName, getDirName, setDisabled,+        getDisabled, getForm, setFiles, getFiles, setFormAction,+        getFormAction, setFormEnctype, getFormEnctype, setFormMethod,+        getFormMethod, setFormNoValidate, getFormNoValidate, setFormTarget,+        getFormTarget, setHeight, getHeight, setIndeterminate,+        getIndeterminate, getList, setMax, getMax, setMaxLength,+        getMaxLength, setMin, getMin, setMultiple, getMultiple, setName,+        getName, setPattern, getPattern, setPlaceholder, getPlaceholder,+        setReadOnly, getReadOnly, setRequired, getRequired, setSize,+        getSize, setSrc, getSrc, setStep, getStep, setType, getType,+        setDefaultValue, getDefaultValue, setValue, getValue,+        setValueAsDate, getValueAsDate, setValueAsNumber, getValueAsNumber,+        setWidth, getWidth, getWillValidate, getValidity,+        getValidationMessage, getLabels, setSelectionStart,+        getSelectionStart, setSelectionEnd, getSelectionEnd,+        setSelectionDirection, getSelectionDirection, setAlign, getAlign,+        setUseMap, getUseMap, setIncremental, getIncremental,+        setAutocorrect, getAutocorrect, setAutocapitalize,+        getAutocapitalize, setCapture, getCapture, HTMLInputElement,+        castToHTMLInputElement, gTypeHTMLInputElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepUp Mozilla HTMLInputElement.stepUp documentation> +stepUp :: (MonadDOM m) => HTMLInputElement -> Int -> m ()+stepUp self n = liftDOM (void (self ^. jsf "stepUp" [toJSVal n]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepDown Mozilla HTMLInputElement.stepDown documentation> +stepDown :: (MonadDOM m) => HTMLInputElement -> Int -> m ()+stepDown self n+  = liftDOM (void (self ^. jsf "stepDown" [toJSVal n]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLInputElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setCustomValidity Mozilla HTMLInputElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLInputElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.select Mozilla HTMLInputElement.select documentation> +select :: (MonadDOM m) => HTMLInputElement -> m ()+select self = liftDOM (void (self ^. js "select"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation> +setRangeText ::+             (MonadDOM m, ToJSString replacement) =>+               HTMLInputElement -> replacement -> m ()+setRangeText self replacement+  = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation> +setRangeText4 ::+              (MonadDOM m, ToJSString replacement, ToJSString selectionMode) =>+                HTMLInputElement ->+                  replacement -> Word -> Word -> selectionMode -> m ()+setRangeText4 self replacement start end selectionMode+  = liftDOM+      (void+         (self ^. jsf "setRangeText"+            [toJSVal replacement, toJSVal start, toJSVal end,+             toJSVal selectionMode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setSelectionRange Mozilla HTMLInputElement.setSelectionRange documentation> +setSelectionRange ::+                  (MonadDOM m, ToJSString direction) =>+                    HTMLInputElement -> Int -> Int -> direction -> m ()+setSelectionRange self start end direction+  = liftDOM+      (void+         (self ^. jsf "setSelectionRange"+            [toJSVal start, toJSVal end, toJSVal direction]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation> +setAccept ::+          (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setAccept self val = liftDOM (self ^. jss "accept" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation> +getAccept ::+          (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getAccept self+  = liftDOM ((self ^. js "accept") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation> +setAlt ::+       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation> +getAlt ::+       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation> +setAutocomplete ::+                (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setAutocomplete self val+  = liftDOM (self ^. jss "autocomplete" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation> +getAutocomplete ::+                (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getAutocomplete self+  = liftDOM ((self ^. js "autocomplete") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation> +setAutofocus :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setAutofocus self val+  = liftDOM (self ^. jss "autofocus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation> +getAutofocus :: (MonadDOM m) => HTMLInputElement -> m Bool+getAutofocus self+  = liftDOM ((self ^. js "autofocus") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation> +setDefaultChecked ::+                  (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setDefaultChecked self val+  = liftDOM (self ^. jss "defaultChecked" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation> +getDefaultChecked :: (MonadDOM m) => HTMLInputElement -> m Bool+getDefaultChecked self+  = liftDOM ((self ^. js "defaultChecked") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation> +setChecked :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setChecked self val = liftDOM (self ^. jss "checked" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation> +getChecked :: (MonadDOM m) => HTMLInputElement -> m Bool+getChecked self = liftDOM ((self ^. js "checked") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation> +setDirName ::+           (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setDirName self val = liftDOM (self ^. jss "dirName" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation> +getDirName ::+           (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getDirName self+  = liftDOM ((self ^. js "dirName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLInputElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> +setFiles ::+         (MonadDOM m) => HTMLInputElement -> Maybe FileList -> m ()+setFiles self val = liftDOM (self ^. jss "files" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> +getFiles :: (MonadDOM m) => HTMLInputElement -> m (Maybe FileList)+getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation> +setFormAction ::+              (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setFormAction self val+  = liftDOM (self ^. jss "formAction" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation> +getFormAction ::+              (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getFormAction self+  = liftDOM ((self ^. js "formAction") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> +setFormEnctype ::+               (MonadDOM m, ToJSString val) =>+                 HTMLInputElement -> Maybe val -> m ()+setFormEnctype self val+  = liftDOM (self ^. jss "formEnctype" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> +getFormEnctype ::+               (MonadDOM m, FromJSString result) =>+                 HTMLInputElement -> m (Maybe result)+getFormEnctype self+  = liftDOM ((self ^. js "formEnctype") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> +setFormMethod ::+              (MonadDOM m, ToJSString val) =>+                HTMLInputElement -> Maybe val -> m ()+setFormMethod self val+  = liftDOM (self ^. jss "formMethod" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> +getFormMethod ::+              (MonadDOM m, FromJSString result) =>+                HTMLInputElement -> m (Maybe result)+getFormMethod self+  = liftDOM ((self ^. js "formMethod") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation> +setFormNoValidate ::+                  (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setFormNoValidate self val+  = liftDOM (self ^. jss "formNoValidate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation> +getFormNoValidate :: (MonadDOM m) => HTMLInputElement -> m Bool+getFormNoValidate self+  = liftDOM ((self ^. js "formNoValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation> +setFormTarget ::+              (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setFormTarget self val+  = liftDOM (self ^. jss "formTarget" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation> +getFormTarget ::+              (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getFormTarget self+  = liftDOM ((self ^. js "formTarget") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation> +setHeight :: (MonadDOM m) => HTMLInputElement -> Word -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation> +getHeight :: (MonadDOM m) => HTMLInputElement -> m Word+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation> +setIndeterminate ::+                 (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setIndeterminate self val+  = liftDOM (self ^. jss "indeterminate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation> +getIndeterminate :: (MonadDOM m) => HTMLInputElement -> m Bool+getIndeterminate self+  = liftDOM ((self ^. js "indeterminate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> +getList ::+        (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLElement)+getList self = liftDOM ((self ^. js "list") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation> +setMax ::+       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setMax self val = liftDOM (self ^. jss "max" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation> +getMax ::+       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getMax self = liftDOM ((self ^. js "max") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation> +setMaxLength :: (MonadDOM m) => HTMLInputElement -> Int -> m ()+setMaxLength self val+  = liftDOM (self ^. jss "maxLength" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation> +getMaxLength :: (MonadDOM m) => HTMLInputElement -> m Int+getMaxLength self+  = liftDOM (round <$> ((self ^. js "maxLength") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation> +setMin ::+       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setMin self val = liftDOM (self ^. jss "min" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation> +getMin ::+       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getMin self = liftDOM ((self ^. js "min") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation> +setMultiple :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setMultiple self val+  = liftDOM (self ^. jss "multiple" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation> +getMultiple :: (MonadDOM m) => HTMLInputElement -> m Bool+getMultiple self = liftDOM ((self ^. js "multiple") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation> +setPattern ::+           (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setPattern self val = liftDOM (self ^. jss "pattern" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation> +getPattern ::+           (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getPattern self+  = liftDOM ((self ^. js "pattern") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation> +setPlaceholder ::+               (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setPlaceholder self val+  = liftDOM (self ^. jss "placeholder" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation> +getPlaceholder ::+               (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getPlaceholder self+  = liftDOM ((self ^. js "placeholder") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation> +setReadOnly :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setReadOnly self val+  = liftDOM (self ^. jss "readOnly" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation> +getReadOnly :: (MonadDOM m) => HTMLInputElement -> m Bool+getReadOnly self = liftDOM ((self ^. js "readOnly") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation> +setRequired :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setRequired self val+  = liftDOM (self ^. jss "required" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation> +getRequired :: (MonadDOM m) => HTMLInputElement -> m Bool+getRequired self = liftDOM ((self ^. js "required") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation> +setSize :: (MonadDOM m) => HTMLInputElement -> Word -> m ()+setSize self val = liftDOM (self ^. jss "size" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation> +getSize :: (MonadDOM m) => HTMLInputElement -> m Word+getSize self+  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation> +setStep ::+        (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setStep self val = liftDOM (self ^. jss "step" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation> +getStep ::+        (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getStep self = liftDOM ((self ^. js "step") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> +setDefaultValue ::+                (MonadDOM m, ToJSString val) =>+                  HTMLInputElement -> Maybe val -> m ()+setDefaultValue self val+  = liftDOM (self ^. jss "defaultValue" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> +getDefaultValue ::+                (MonadDOM m, FromJSString result) =>+                  HTMLInputElement -> m (Maybe result)+getDefaultValue self+  = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) =>+           HTMLInputElement -> Maybe val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) =>+           HTMLInputElement -> m (Maybe result)+getValue self+  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> +setValueAsDate ::+               (MonadDOM m, IsDate val) => HTMLInputElement -> Maybe val -> m ()+setValueAsDate self val+  = liftDOM (self ^. jss "valueAsDate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> +getValueAsDate ::+               (MonadDOM m) => HTMLInputElement -> m (Maybe Date)+getValueAsDate self+  = liftDOM ((self ^. js "valueAsDate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation> +setValueAsNumber ::+                 (MonadDOM m) => HTMLInputElement -> Double -> m ()+setValueAsNumber self val+  = liftDOM (self ^. jss "valueAsNumber" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation> +getValueAsNumber :: (MonadDOM m) => HTMLInputElement -> m Double+getValueAsNumber self+  = liftDOM ((self ^. js "valueAsNumber") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation> +setWidth :: (MonadDOM m) => HTMLInputElement -> Word -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation> +getWidth :: (MonadDOM m) => HTMLInputElement -> m Word+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.willValidate Mozilla HTMLInputElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLInputElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLInputElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validationMessage Mozilla HTMLInputElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> +getLabels :: (MonadDOM m) => HTMLInputElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation> +setSelectionStart ::+                  (MonadDOM m) => HTMLInputElement -> Int -> m ()+setSelectionStart self val+  = liftDOM (self ^. jss "selectionStart" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation> +getSelectionStart :: (MonadDOM m) => HTMLInputElement -> m Int+getSelectionStart self+  = liftDOM+      (round <$> ((self ^. js "selectionStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation> +setSelectionEnd :: (MonadDOM m) => HTMLInputElement -> Int -> m ()+setSelectionEnd self val+  = liftDOM (self ^. jss "selectionEnd" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation> +getSelectionEnd :: (MonadDOM m) => HTMLInputElement -> m Int+getSelectionEnd self+  = liftDOM (round <$> ((self ^. js "selectionEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation> +setSelectionDirection ::+                      (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setSelectionDirection self val+  = liftDOM (self ^. jss "selectionDirection" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation> +getSelectionDirection ::+                      (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getSelectionDirection self+  = liftDOM+      ((self ^. js "selectionDirection") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation> +setUseMap ::+          (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()+setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation> +getUseMap ::+          (MonadDOM m, FromJSString result) => HTMLInputElement -> m result+getUseMap self+  = liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation> +setIncremental :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setIncremental self val+  = liftDOM (self ^. jss "incremental" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation> +getIncremental :: (MonadDOM m) => HTMLInputElement -> m Bool+getIncremental self+  = liftDOM ((self ^. js "incremental") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation> +setAutocorrect :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setAutocorrect self val+  = liftDOM (self ^. jss "autocorrect" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation> +getAutocorrect :: (MonadDOM m) => HTMLInputElement -> m Bool+getAutocorrect self+  = liftDOM ((self ^. js "autocorrect") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadDOM m, ToJSString val) =>+                    HTMLInputElement -> Maybe val -> m ()+setAutocapitalize self val+  = liftDOM (self ^. jss "autocapitalize" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadDOM m, FromJSString result) =>+                    HTMLInputElement -> m (Maybe result)+getAutocapitalize self+  = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation> +setCapture :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()+setCapture self val = liftDOM (self ^. jss "capture" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation> +getCapture :: (MonadDOM m) => HTMLInputElement -> m Bool+getCapture self = liftDOM ((self ^. js "capture") >>= valToBool)
+ src/JSDOM/Generated/HTMLKeygenElement.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLKeygenElement+       (checkValidity, setCustomValidity, setAutofocus, getAutofocus,+        setChallenge, getChallenge, setDisabled, getDisabled, getForm,+        setKeytype, getKeytype, setName, getName, getType, getWillValidate,+        getValidity, getValidationMessage, getLabels, HTMLKeygenElement,+        castToHTMLKeygenElement, gTypeHTMLKeygenElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLKeygenElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.setCustomValidity Mozilla HTMLKeygenElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLKeygenElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation> +setAutofocus :: (MonadDOM m) => HTMLKeygenElement -> Bool -> m ()+setAutofocus self val+  = liftDOM (self ^. jss "autofocus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation> +getAutofocus :: (MonadDOM m) => HTMLKeygenElement -> m Bool+getAutofocus self+  = liftDOM ((self ^. js "autofocus") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation> +setChallenge ::+             (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m ()+setChallenge self val+  = liftDOM (self ^. jss "challenge" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation> +getChallenge ::+             (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result+getChallenge self+  = liftDOM ((self ^. js "challenge") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLKeygenElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLKeygenElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLKeygenElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation> +setKeytype ::+           (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m ()+setKeytype self val = liftDOM (self ^. jss "keytype" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation> +getKeytype ::+           (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result+getKeytype self+  = liftDOM ((self ^. js "keytype") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.type Mozilla HTMLKeygenElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.willValidate Mozilla HTMLKeygenElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLKeygenElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLKeygenElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validationMessage Mozilla HTMLKeygenElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> +getLabels ::+          (MonadDOM m) => HTMLKeygenElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLLIElement.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLLIElement+       (setType, getType, setValue, getValue, HTMLLIElement,+        castToHTMLLIElement, gTypeHTMLLIElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLLIElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLLIElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation> +setValue :: (MonadDOM m) => HTMLLIElement -> Int -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation> +getValue :: (MonadDOM m) => HTMLLIElement -> m Int+getValue self+  = liftDOM (round <$> ((self ^. js "value") >>= valToNumber))
+ src/JSDOM/Generated/HTMLLabelElement.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLLabelElement+       (getForm, setHtmlFor, getHtmlFor, getControl, HTMLLabelElement,+        castToHTMLLabelElement, gTypeHTMLLabelElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation> +setHtmlFor ::+           (MonadDOM m, ToJSString val) => HTMLLabelElement -> val -> m ()+setHtmlFor self val = liftDOM (self ^. jss "htmlFor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation> +getHtmlFor ::+           (MonadDOM m, FromJSString result) => HTMLLabelElement -> m result+getHtmlFor self+  = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> +getControl ::+           (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLElement)+getControl self = liftDOM ((self ^. js "control") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLLegendElement.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLLegendElement+       (getForm, setAlign, getAlign, HTMLLegendElement,+        castToHTMLLegendElement, gTypeHTMLLegendElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLLegendElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLLegendElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLLegendElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLLinkElement.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLLinkElement+       (setDisabled, getDisabled, setCharset, getCharset, setHref,+        getHref, setHreflang, getHreflang, setMedia, getMedia, setRel,+        getRel, setRev, getRev, setSizes, getSizes, setTarget, getTarget,+        setType, getType, getSheet, getRelList, HTMLLinkElement,+        castToHTMLLinkElement, gTypeHTMLLinkElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLLinkElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLLinkElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation> +setCharset ::+           (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation> +getCharset ::+           (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getCharset self+  = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation> +setHref ::+        (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setHref self val = liftDOM (self ^. jss "href" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation> +setHreflang ::+            (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setHreflang self val+  = liftDOM (self ^. jss "hreflang" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation> +getHreflang ::+            (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getHreflang self+  = liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation> +setMedia ::+         (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation> +getMedia ::+         (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getMedia self+  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation> +setRel ::+       (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation> +getRel ::+       (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation> +setRev ::+       (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setRev self val = liftDOM (self ^. jss "rev" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation> +getRev ::+       (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> +setSizes ::+         (MonadDOM m) =>+           HTMLLinkElement -> Maybe DOMSettableTokenList -> m ()+setSizes self val = liftDOM (self ^. jss "sizes" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> +getSizes ::+         (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList)+getSizes self = liftDOM ((self ^. js "sizes") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation> +setTarget ::+          (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation> +getTarget ::+          (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getTarget self+  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> +getSheet :: (MonadDOM m) => HTMLLinkElement -> m (Maybe StyleSheet)+getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> +getRelList ::+           (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMTokenList)+getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLMapElement.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLMapElement+       (getAreas, setName, getName, HTMLMapElement, castToHTMLMapElement,+        gTypeHTMLMapElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> +getAreas ::+         (MonadDOM m) => HTMLMapElement -> m (Maybe HTMLCollection)+getAreas self = liftDOM ((self ^. js "areas") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLMapElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLMapElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLMarqueeElement.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLMarqueeElement+       (start, stop, setBehavior, getBehavior, setBgColor, getBgColor,+        setDirection, getDirection, setHeight, getHeight, setHspace,+        getHspace, setLoop, getLoop, setScrollAmount, getScrollAmount,+        setScrollDelay, getScrollDelay, setTrueSpeed, getTrueSpeed,+        setVspace, getVspace, setWidth, getWidth, HTMLMarqueeElement,+        castToHTMLMarqueeElement, gTypeHTMLMarqueeElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.start Mozilla HTMLMarqueeElement.start documentation> +start :: (MonadDOM m) => HTMLMarqueeElement -> m ()+start self = liftDOM (void (self ^. js "start"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.stop Mozilla HTMLMarqueeElement.stop documentation> +stop :: (MonadDOM m) => HTMLMarqueeElement -> m ()+stop self = liftDOM (void (self ^. js "stop"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation> +setBehavior ::+            (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setBehavior self val+  = liftDOM (self ^. jss "behavior" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation> +getBehavior ::+            (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result+getBehavior self+  = liftDOM ((self ^. js "behavior") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation> +setBgColor ::+           (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation> +getBgColor ::+           (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result+getBgColor self+  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation> +setDirection ::+             (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setDirection self val+  = liftDOM (self ^. jss "direction" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation> +getDirection ::+             (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result+getDirection self+  = liftDOM ((self ^. js "direction") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation> +setHeight ::+          (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation> +getHeight ::+          (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result+getHeight self+  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation> +setHspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()+setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation> +getHspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word+getHspace self+  = liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation> +setLoop :: (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()+setLoop self val = liftDOM (self ^. jss "loop" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation> +getLoop :: (MonadDOM m) => HTMLMarqueeElement -> m Int+getLoop self+  = liftDOM (round <$> ((self ^. js "loop") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation> +setScrollAmount ::+                (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()+setScrollAmount self val+  = liftDOM (self ^. jss "scrollAmount" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation> +getScrollAmount :: (MonadDOM m) => HTMLMarqueeElement -> m Int+getScrollAmount self+  = liftDOM (round <$> ((self ^. js "scrollAmount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation> +setScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()+setScrollDelay self val+  = liftDOM (self ^. jss "scrollDelay" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation> +getScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> m Int+getScrollDelay self+  = liftDOM (round <$> ((self ^. js "scrollDelay") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation> +setTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> Bool -> m ()+setTrueSpeed self val+  = liftDOM (self ^. jss "trueSpeed" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation> +getTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> m Bool+getTrueSpeed self+  = liftDOM ((self ^. js "trueSpeed") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation> +setVspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()+setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation> +getVspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word+getVspace self+  = liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLMediaElement.hs view
@@ -0,0 +1,663 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLMediaElement+       (load, canPlayType, play, pause, fastSeek,+        webkitGenerateKeyRequest, webkitAddKey, webkitCancelKeyRequest,+        webkitSetMediaKeys, addTextTrack, getVideoPlaybackQuality,+        webkitShowPlaybackTargetPicker, pattern NETWORK_EMPTY,+        pattern NETWORK_IDLE, pattern NETWORK_LOADING,+        pattern NETWORK_NO_SOURCE, pattern HAVE_NOTHING,+        pattern HAVE_METADATA, pattern HAVE_CURRENT_DATA,+        pattern HAVE_FUTURE_DATA, pattern HAVE_ENOUGH_DATA, getError,+        setSrc, getSrc, getCurrentSrc, getNetworkState, setPreload,+        getPreload, getBuffered, getReadyState, getSeeking, setCurrentTime,+        getCurrentTime, getDuration, getPaused, setDefaultPlaybackRate,+        getDefaultPlaybackRate, setPlaybackRate, getPlaybackRate,+        getPlayed, getSeekable, getEnded, setAutoplay, getAutoplay,+        setLoop, getLoop, setControls, getControls, setVolume, getVolume,+        setMuted, getMuted, setDefaultMuted, getDefaultMuted, emptied,+        loadedMetadata, loadedData, canPlay, canPlayThrough, playing,+        ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent,+        rateChange, volumeChange, setWebkitPreservesPitch,+        getWebkitPreservesPitch, getWebkitHasClosedCaptions,+        setWebkitClosedCaptionsVisible, getWebkitClosedCaptionsVisible,+        getWebkitAudioDecodedByteCount, getWebkitVideoDecodedByteCount,+        webKitKeyAdded, webKitKeyError, webKitKeyMessage, webKitNeedKey,+        getWebkitKeys, getAudioTracks, getTextTracks, getVideoTracks,+        setMediaGroup, getMediaGroup, setController, getController,+        getWebkitCurrentPlaybackTargetIsWireless,+        webKitCurrentPlaybackTargetIsWirelessChanged,+        webKitPlaybackTargetAvailabilityChanged, setSrcObject,+        getSrcObject, HTMLMediaElement, castToHTMLMediaElement,+        gTypeHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.load Mozilla HTMLMediaElement.load documentation> +load :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()+load self = liftDOM (void ((toHTMLMediaElement self) ^. js "load"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.canPlayType Mozilla HTMLMediaElement.canPlayType documentation> +canPlayType ::+            (MonadDOM m, IsHTMLMediaElement self, ToJSString type',+             ToJSString keySystem, FromJSString result) =>+              self -> type' -> Maybe keySystem -> m result+canPlayType self type' keySystem+  = liftDOM+      (((toHTMLMediaElement self) ^. jsf "canPlayType"+          [toJSVal type', toJSVal keySystem])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.play Mozilla HTMLMediaElement.play documentation> +play :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()+play self = liftDOM (void ((toHTMLMediaElement self) ^. js "play"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.pause Mozilla HTMLMediaElement.pause documentation> +pause :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()+pause self+  = liftDOM (void ((toHTMLMediaElement self) ^. js "pause"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.fastSeek Mozilla HTMLMediaElement.fastSeek documentation> +fastSeek ::+         (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()+fastSeek self time+  = liftDOM+      (void ((toHTMLMediaElement self) ^. jsf "fastSeek" [toJSVal time]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitGenerateKeyRequest Mozilla HTMLMediaElement.webkitGenerateKeyRequest documentation> +webkitGenerateKeyRequest ::+                         (MonadDOM m, IsHTMLMediaElement self, ToJSString keySystem,+                          IsUint8Array initData) =>+                           self -> Maybe keySystem -> Maybe initData -> m ()+webkitGenerateKeyRequest self keySystem initData+  = liftDOM+      (void+         ((toHTMLMediaElement self) ^. jsf "webkitGenerateKeyRequest"+            [toJSVal keySystem, toJSVal initData]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAddKey Mozilla HTMLMediaElement.webkitAddKey documentation> +webkitAddKey ::+             (MonadDOM m, IsHTMLMediaElement self, ToJSString keySystem,+              IsUint8Array key, IsUint8Array initData, ToJSString sessionId) =>+               self ->+                 Maybe keySystem -> Maybe key -> Maybe initData -> sessionId -> m ()+webkitAddKey self keySystem key initData sessionId+  = liftDOM+      (void+         ((toHTMLMediaElement self) ^. jsf "webkitAddKey"+            [toJSVal keySystem, toJSVal key, toJSVal initData,+             toJSVal sessionId]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCancelKeyRequest Mozilla HTMLMediaElement.webkitCancelKeyRequest documentation> +webkitCancelKeyRequest ::+                       (MonadDOM m, IsHTMLMediaElement self, ToJSString keySystem,+                        ToJSString sessionId) =>+                         self -> Maybe keySystem -> sessionId -> m ()+webkitCancelKeyRequest self keySystem sessionId+  = liftDOM+      (void+         ((toHTMLMediaElement self) ^. jsf "webkitCancelKeyRequest"+            [toJSVal keySystem, toJSVal sessionId]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitSetMediaKeys Mozilla HTMLMediaElement.webkitSetMediaKeys documentation> +webkitSetMediaKeys ::+                   (MonadDOM m, IsHTMLMediaElement self) =>+                     self -> Maybe MediaKeys -> m ()+webkitSetMediaKeys self mediaKeys+  = liftDOM+      (void+         ((toHTMLMediaElement self) ^. jsf "webkitSetMediaKeys"+            [toJSVal mediaKeys]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> +addTextTrack ::+             (MonadDOM m, IsHTMLMediaElement self, ToJSString kind,+              ToJSString label, ToJSString language) =>+               self -> kind -> label -> language -> m (Maybe TextTrack)+addTextTrack self kind label language+  = liftDOM+      (((toHTMLMediaElement self) ^. jsf "addTextTrack"+          [toJSVal kind, toJSVal label, toJSVal language])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> +getVideoPlaybackQuality ::+                        (MonadDOM m, IsHTMLMediaElement self) =>+                          self -> m (Maybe VideoPlaybackQuality)+getVideoPlaybackQuality self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "getVideoPlaybackQuality") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitShowPlaybackTargetPicker Mozilla HTMLMediaElement.webkitShowPlaybackTargetPicker documentation> +webkitShowPlaybackTargetPicker ::+                               (MonadDOM m, IsHTMLMediaElement self) => self -> m ()+webkitShowPlaybackTargetPicker self+  = liftDOM+      (void+         ((toHTMLMediaElement self) ^. js "webkitShowPlaybackTargetPicker"))+pattern NETWORK_EMPTY = 0+pattern NETWORK_IDLE = 1+pattern NETWORK_LOADING = 2+pattern NETWORK_NO_SOURCE = 3+pattern HAVE_NOTHING = 0+pattern HAVE_METADATA = 1+pattern HAVE_CURRENT_DATA = 2+pattern HAVE_FUTURE_DATA = 3+pattern HAVE_ENOUGH_DATA = 4++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> +getError ::+         (MonadDOM m, IsHTMLMediaElement self) =>+           self -> m (Maybe MediaError)+getError self+  = liftDOM (((toHTMLMediaElement self) ^. js "error") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation> +setSrc ::+       (MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>+         self -> val -> m ()+setSrc self val+  = liftDOM ((toHTMLMediaElement self) ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation> +getSrc ::+       (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>+         self -> m result+getSrc self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentSrc Mozilla HTMLMediaElement.currentSrc documentation> +getCurrentSrc ::+              (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>+                self -> m result+getCurrentSrc self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "currentSrc") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.networkState Mozilla HTMLMediaElement.networkState documentation> +getNetworkState ::+                (MonadDOM m, IsHTMLMediaElement self) => self -> m Word+getNetworkState self+  = liftDOM+      (round <$>+         (((toHTMLMediaElement self) ^. js "networkState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation> +setPreload ::+           (MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>+             self -> val -> m ()+setPreload self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "preload" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation> +getPreload ::+           (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>+             self -> m result+getPreload self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "preload") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> +getBuffered ::+            (MonadDOM m, IsHTMLMediaElement self) =>+              self -> m (Maybe TimeRanges)+getBuffered self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "buffered") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.readyState Mozilla HTMLMediaElement.readyState documentation> +getReadyState ::+              (MonadDOM m, IsHTMLMediaElement self) => self -> m Word+getReadyState self+  = liftDOM+      (round <$>+         (((toHTMLMediaElement self) ^. js "readyState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seeking Mozilla HTMLMediaElement.seeking documentation> +getSeeking ::+           (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getSeeking self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "seeking") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation> +setCurrentTime ::+               (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()+setCurrentTime self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "currentTime" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation> +getCurrentTime ::+               (MonadDOM m, IsHTMLMediaElement self) => self -> m Double+getCurrentTime self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "currentTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.duration Mozilla HTMLMediaElement.duration documentation> +getDuration ::+            (MonadDOM m, IsHTMLMediaElement self) => self -> m Double+getDuration self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "duration") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.paused Mozilla HTMLMediaElement.paused documentation> +getPaused ::+          (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getPaused self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "paused") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation> +setDefaultPlaybackRate ::+                       (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()+setDefaultPlaybackRate self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "defaultPlaybackRate"+         (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation> +getDefaultPlaybackRate ::+                       (MonadDOM m, IsHTMLMediaElement self) => self -> m Double+getDefaultPlaybackRate self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "defaultPlaybackRate") >>=+         valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation> +setPlaybackRate ::+                (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()+setPlaybackRate self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "playbackRate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation> +getPlaybackRate ::+                (MonadDOM m, IsHTMLMediaElement self) => self -> m Double+getPlaybackRate self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "playbackRate") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> +getPlayed ::+          (MonadDOM m, IsHTMLMediaElement self) =>+            self -> m (Maybe TimeRanges)+getPlayed self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "played") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> +getSeekable ::+            (MonadDOM m, IsHTMLMediaElement self) =>+              self -> m (Maybe TimeRanges)+getSeekable self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "seekable") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ended Mozilla HTMLMediaElement.ended documentation> +getEnded :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getEnded self+  = liftDOM (((toHTMLMediaElement self) ^. js "ended") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation> +setAutoplay ::+            (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setAutoplay self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "autoplay" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation> +getAutoplay ::+            (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getAutoplay self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "autoplay") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation> +setLoop ::+        (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setLoop self val+  = liftDOM ((toHTMLMediaElement self) ^. jss "loop" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation> +getLoop :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getLoop self+  = liftDOM (((toHTMLMediaElement self) ^. js "loop") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation> +setControls ::+            (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setControls self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "controls" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation> +getControls ::+            (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getControls self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "controls") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation> +setVolume ::+          (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()+setVolume self val+  = liftDOM ((toHTMLMediaElement self) ^. jss "volume" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation> +getVolume ::+          (MonadDOM m, IsHTMLMediaElement self) => self -> m Double+getVolume self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "volume") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation> +setMuted ::+         (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setMuted self val+  = liftDOM ((toHTMLMediaElement self) ^. jss "muted" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation> +getMuted :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getMuted self+  = liftDOM (((toHTMLMediaElement self) ^. js "muted") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation> +setDefaultMuted ::+                (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setDefaultMuted self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "defaultMuted" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation> +getDefaultMuted ::+                (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getDefaultMuted self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "defaultMuted") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onemptied Mozilla HTMLMediaElement.onemptied documentation> +emptied ::+        (IsHTMLMediaElement self, IsEventTarget self) =>+          EventName self Event+emptied = unsafeEventName (toJSString "emptied")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onloadedmetadata Mozilla HTMLMediaElement.onloadedmetadata documentation> +loadedMetadata ::+               (IsHTMLMediaElement self, IsEventTarget self) =>+                 EventName self Event+loadedMetadata = unsafeEventName (toJSString "loadedmetadata")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onloadeddata Mozilla HTMLMediaElement.onloadeddata documentation> +loadedData ::+           (IsHTMLMediaElement self, IsEventTarget self) =>+             EventName self Event+loadedData = unsafeEventName (toJSString "loadeddata")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.oncanplay Mozilla HTMLMediaElement.oncanplay documentation> +canPlay ::+        (IsHTMLMediaElement self, IsEventTarget self) =>+          EventName self Event+canPlay = unsafeEventName (toJSString "canplay")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.oncanplaythrough Mozilla HTMLMediaElement.oncanplaythrough documentation> +canPlayThrough ::+               (IsHTMLMediaElement self, IsEventTarget self) =>+                 EventName self Event+canPlayThrough = unsafeEventName (toJSString "canplaythrough")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onplaying Mozilla HTMLMediaElement.onplaying documentation> +playing ::+        (IsHTMLMediaElement self, IsEventTarget self) =>+          EventName self Event+playing = unsafeEventName (toJSString "playing")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onended Mozilla HTMLMediaElement.onended documentation> +ended ::+      (IsHTMLMediaElement self, IsEventTarget self) =>+        EventName self Event+ended = unsafeEventName (toJSString "ended")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwaiting Mozilla HTMLMediaElement.onwaiting documentation> +waiting ::+        (IsHTMLMediaElement self, IsEventTarget self) =>+          EventName self Event+waiting = unsafeEventName (toJSString "waiting")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ondurationchange Mozilla HTMLMediaElement.ondurationchange documentation> +durationChange ::+               (IsHTMLMediaElement self, IsEventTarget self) =>+                 EventName self Event+durationChange = unsafeEventName (toJSString "durationchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ontimeupdate Mozilla HTMLMediaElement.ontimeupdate documentation> +timeUpdate ::+           (IsHTMLMediaElement self, IsEventTarget self) =>+             EventName self Event+timeUpdate = unsafeEventName (toJSString "timeupdate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onplay Mozilla HTMLMediaElement.onplay documentation> +playEvent ::+          (IsHTMLMediaElement self, IsEventTarget self) =>+            EventName self Event+playEvent = unsafeEventName (toJSString "play")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onpause Mozilla HTMLMediaElement.onpause documentation> +pauseEvent ::+           (IsHTMLMediaElement self, IsEventTarget self) =>+             EventName self Event+pauseEvent = unsafeEventName (toJSString "pause")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onratechange Mozilla HTMLMediaElement.onratechange documentation> +rateChange ::+           (IsHTMLMediaElement self, IsEventTarget self) =>+             EventName self Event+rateChange = unsafeEventName (toJSString "ratechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onvolumechange Mozilla HTMLMediaElement.onvolumechange documentation> +volumeChange ::+             (IsHTMLMediaElement self, IsEventTarget self) =>+               EventName self Event+volumeChange = unsafeEventName (toJSString "volumechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation> +setWebkitPreservesPitch ::+                        (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setWebkitPreservesPitch self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "webkitPreservesPitch"+         (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation> +getWebkitPreservesPitch ::+                        (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getWebkitPreservesPitch self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "webkitPreservesPitch") >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitHasClosedCaptions Mozilla HTMLMediaElement.webkitHasClosedCaptions documentation> +getWebkitHasClosedCaptions ::+                           (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getWebkitHasClosedCaptions self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "webkitHasClosedCaptions") >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation> +setWebkitClosedCaptionsVisible ::+                               (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()+setWebkitClosedCaptionsVisible self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "webkitClosedCaptionsVisible"+         (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation> +getWebkitClosedCaptionsVisible ::+                               (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getWebkitClosedCaptionsVisible self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "webkitClosedCaptionsVisible")+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAudioDecodedByteCount Mozilla HTMLMediaElement.webkitAudioDecodedByteCount documentation> +getWebkitAudioDecodedByteCount ::+                               (MonadDOM m, IsHTMLMediaElement self) => self -> m Word+getWebkitAudioDecodedByteCount self+  = liftDOM+      (round <$>+         (((toHTMLMediaElement self) ^. js "webkitAudioDecodedByteCount")+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitVideoDecodedByteCount Mozilla HTMLMediaElement.webkitVideoDecodedByteCount documentation> +getWebkitVideoDecodedByteCount ::+                               (MonadDOM m, IsHTMLMediaElement self) => self -> m Word+getWebkitVideoDecodedByteCount self+  = liftDOM+      (round <$>+         (((toHTMLMediaElement self) ^. js "webkitVideoDecodedByteCount")+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeyadded Mozilla HTMLMediaElement.onwebkitkeyadded documentation> +webKitKeyAdded ::+               (IsHTMLMediaElement self, IsEventTarget self) =>+                 EventName self Event+webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeyerror Mozilla HTMLMediaElement.onwebkitkeyerror documentation> +webKitKeyError ::+               (IsHTMLMediaElement self, IsEventTarget self) =>+                 EventName self Event+webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeymessage Mozilla HTMLMediaElement.onwebkitkeymessage documentation> +webKitKeyMessage ::+                 (IsHTMLMediaElement self, IsEventTarget self) =>+                   EventName self Event+webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitneedkey Mozilla HTMLMediaElement.onwebkitneedkey documentation> +webKitNeedKey ::+              (IsHTMLMediaElement self, IsEventTarget self) =>+                EventName self Event+webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> +getWebkitKeys ::+              (MonadDOM m, IsHTMLMediaElement self) =>+                self -> m (Maybe MediaKeys)+getWebkitKeys self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "webkitKeys") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> +getAudioTracks ::+               (MonadDOM m, IsHTMLMediaElement self) =>+                 self -> m (Maybe AudioTrackList)+getAudioTracks self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "audioTracks") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> +getTextTracks ::+              (MonadDOM m, IsHTMLMediaElement self) =>+                self -> m (Maybe TextTrackList)+getTextTracks self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "textTracks") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> +getVideoTracks ::+               (MonadDOM m, IsHTMLMediaElement self) =>+                 self -> m (Maybe VideoTrackList)+getVideoTracks self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "videoTracks") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> +setMediaGroup ::+              (MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>+                self -> Maybe val -> m ()+setMediaGroup self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "mediaGroup" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> +getMediaGroup ::+              (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>+                self -> m (Maybe result)+getMediaGroup self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "mediaGroup") >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> +setController ::+              (MonadDOM m, IsHTMLMediaElement self) =>+                self -> Maybe MediaController -> m ()+setController self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "controller" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> +getController ::+              (MonadDOM m, IsHTMLMediaElement self) =>+                self -> m (Maybe MediaController)+getController self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "controller") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless Mozilla HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless documentation> +getWebkitCurrentPlaybackTargetIsWireless ::+                                         (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool+getWebkitCurrentPlaybackTargetIsWireless self+  = liftDOM+      (((toHTMLMediaElement self) ^.+          js "webkitCurrentPlaybackTargetIsWireless")+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitcurrentplaybacktargetiswirelesschanged Mozilla HTMLMediaElement.onwebkitcurrentplaybacktargetiswirelesschanged documentation> +webKitCurrentPlaybackTargetIsWirelessChanged ::+                                             (IsHTMLMediaElement self, IsEventTarget self) =>+                                               EventName self Event+webKitCurrentPlaybackTargetIsWirelessChanged+  = unsafeEventName+      (toJSString "webkitcurrentplaybacktargetiswirelesschanged")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitplaybacktargetavailabilitychanged Mozilla HTMLMediaElement.onwebkitplaybacktargetavailabilitychanged documentation> +webKitPlaybackTargetAvailabilityChanged ::+                                        (IsHTMLMediaElement self, IsEventTarget self) =>+                                          EventName self Event+webKitPlaybackTargetAvailabilityChanged+  = unsafeEventName+      (toJSString "webkitplaybacktargetavailabilitychanged")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +setSrcObject ::+             (MonadDOM m, IsHTMLMediaElement self) =>+               self -> Maybe MediaStream -> m ()+setSrcObject self val+  = liftDOM+      ((toHTMLMediaElement self) ^. jss "srcObject" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObject ::+             (MonadDOM m, IsHTMLMediaElement self) =>+               self -> m (Maybe MediaStream)+getSrcObject self+  = liftDOM+      (((toHTMLMediaElement self) ^. js "srcObject") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLMenuElement.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLMenuElement+       (setCompact, getCompact, HTMLMenuElement, castToHTMLMenuElement,+        gTypeHTMLMenuElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation> +setCompact :: (MonadDOM m) => HTMLMenuElement -> Bool -> m ()+setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation> +getCompact :: (MonadDOM m) => HTMLMenuElement -> m Bool+getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)
+ src/JSDOM/Generated/HTMLMetaElement.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLMetaElement+       (setContent, getContent, setHttpEquiv, getHttpEquiv, setName,+        getName, setScheme, getScheme, HTMLMetaElement,+        castToHTMLMetaElement, gTypeHTMLMetaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation> +setContent ::+           (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()+setContent self val = liftDOM (self ^. jss "content" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation> +getContent ::+           (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result+getContent self+  = liftDOM ((self ^. js "content") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation> +setHttpEquiv ::+             (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()+setHttpEquiv self val+  = liftDOM (self ^. jss "httpEquiv" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation> +getHttpEquiv ::+             (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result+getHttpEquiv self+  = liftDOM ((self ^. js "httpEquiv") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation> +setScheme ::+          (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()+setScheme self val = liftDOM (self ^. jss "scheme" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation> +getScheme ::+          (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result+getScheme self+  = liftDOM ((self ^. js "scheme") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLMeterElement.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLMeterElement+       (setValue, getValue, setMin, getMin, setMax, getMax, setLow,+        getLow, setHigh, getHigh, setOptimum, getOptimum, getLabels,+        HTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation> +setValue :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation> +getValue :: (MonadDOM m) => HTMLMeterElement -> m Double+getValue self = liftDOM ((self ^. js "value") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation> +setMin :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()+setMin self val = liftDOM (self ^. jss "min" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation> +getMin :: (MonadDOM m) => HTMLMeterElement -> m Double+getMin self = liftDOM ((self ^. js "min") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation> +setMax :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()+setMax self val = liftDOM (self ^. jss "max" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation> +getMax :: (MonadDOM m) => HTMLMeterElement -> m Double+getMax self = liftDOM ((self ^. js "max") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation> +setLow :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()+setLow self val = liftDOM (self ^. jss "low" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation> +getLow :: (MonadDOM m) => HTMLMeterElement -> m Double+getLow self = liftDOM ((self ^. js "low") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation> +setHigh :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()+setHigh self val = liftDOM (self ^. jss "high" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation> +getHigh :: (MonadDOM m) => HTMLMeterElement -> m Double+getHigh self = liftDOM ((self ^. js "high") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation> +setOptimum :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()+setOptimum self val = liftDOM (self ^. jss "optimum" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation> +getOptimum :: (MonadDOM m) => HTMLMeterElement -> m Double+getOptimum self = liftDOM ((self ^. js "optimum") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> +getLabels :: (MonadDOM m) => HTMLMeterElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLModElement.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLModElement+       (setCite, getCite, setDateTime, getDateTime, HTMLModElement,+        castToHTMLModElement, gTypeHTMLModElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation> +setCite ::+        (MonadDOM m, ToJSString val) => HTMLModElement -> val -> m ()+setCite self val = liftDOM (self ^. jss "cite" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation> +getCite ::+        (MonadDOM m, FromJSString result) => HTMLModElement -> m result+getCite self = liftDOM ((self ^. js "cite") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation> +setDateTime ::+            (MonadDOM m, ToJSString val) => HTMLModElement -> val -> m ()+setDateTime self val+  = liftDOM (self ^. jss "dateTime" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation> +getDateTime ::+            (MonadDOM m, FromJSString result) => HTMLModElement -> m result+getDateTime self+  = liftDOM ((self ^. js "dateTime") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLOListElement.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLOListElement+       (setCompact, getCompact, setStart, getStart, setReversed,+        getReversed, setType, getType, HTMLOListElement,+        castToHTMLOListElement, gTypeHTMLOListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation> +setCompact :: (MonadDOM m) => HTMLOListElement -> Bool -> m ()+setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation> +getCompact :: (MonadDOM m) => HTMLOListElement -> m Bool+getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation> +setStart :: (MonadDOM m) => HTMLOListElement -> Int -> m ()+setStart self val = liftDOM (self ^. jss "start" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation> +getStart :: (MonadDOM m) => HTMLOListElement -> m Int+getStart self+  = liftDOM (round <$> ((self ^. js "start") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation> +setReversed :: (MonadDOM m) => HTMLOListElement -> Bool -> m ()+setReversed self val+  = liftDOM (self ^. jss "reversed" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation> +getReversed :: (MonadDOM m) => HTMLOListElement -> m Bool+getReversed self = liftDOM ((self ^. js "reversed") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLOListElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLOListElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLObjectElement.hs view
@@ -0,0 +1,235 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLObjectElement+       (checkValidity, setCustomValidity, getSVGDocument, getForm,+        setCode, getCode, setAlign, getAlign, setArchive, getArchive,+        setBorder, getBorder, setCodeBase, getCodeBase, setCodeType,+        getCodeType, setData, getData, setDeclare, getDeclare, setHeight,+        getHeight, setHspace, getHspace, setName, getName, setStandby,+        getStandby, setType, getType, setUseMap, getUseMap, setVspace,+        getVspace, setWidth, getWidth, getWillValidate, getValidity,+        getValidationMessage, getContentDocument, HTMLObjectElement,+        castToHTMLObjectElement, gTypeHTMLObjectElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.setCustomValidity Mozilla HTMLObjectElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLObjectElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> +getSVGDocument ::+               (MonadDOM m) => HTMLObjectElement -> m (Maybe SVGDocument)+getSVGDocument self+  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLObjectElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation> +setCode ::+        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setCode self val = liftDOM (self ^. jss "code" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation> +getCode ::+        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation> +setArchive ::+           (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setArchive self val = liftDOM (self ^. jss "archive" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation> +getArchive ::+           (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getArchive self+  = liftDOM ((self ^. js "archive") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> +setBorder ::+          (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> +getBorder ::+          (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getBorder self+  = liftDOM ((self ^. js "border") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation> +setCodeBase ::+            (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setCodeBase self val+  = liftDOM (self ^. jss "codeBase" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation> +getCodeBase ::+            (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getCodeBase self+  = liftDOM ((self ^. js "codeBase") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation> +setCodeType ::+            (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setCodeType self val+  = liftDOM (self ^. jss "codeType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation> +getCodeType ::+            (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getCodeType self+  = liftDOM ((self ^. js "codeType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation> +setData ::+        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setData self val = liftDOM (self ^. jss "data" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation> +getData ::+        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation> +setDeclare :: (MonadDOM m) => HTMLObjectElement -> Bool -> m ()+setDeclare self val = liftDOM (self ^. jss "declare" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation> +getDeclare :: (MonadDOM m) => HTMLObjectElement -> m Bool+getDeclare self = liftDOM ((self ^. js "declare") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation> +setHeight ::+          (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation> +getHeight ::+          (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getHeight self+  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation> +setHspace :: (MonadDOM m) => HTMLObjectElement -> Int -> m ()+setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation> +getHspace :: (MonadDOM m) => HTMLObjectElement -> m Int+getHspace self+  = liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation> +setStandby ::+           (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setStandby self val = liftDOM (self ^. jss "standby" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation> +getStandby ::+           (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getStandby self+  = liftDOM ((self ^. js "standby") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation> +setUseMap ::+          (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation> +getUseMap ::+          (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getUseMap self+  = liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation> +setVspace :: (MonadDOM m) => HTMLObjectElement -> Int -> m ()+setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation> +getVspace :: (MonadDOM m) => HTMLObjectElement -> m Int+getVspace self+  = liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.willValidate Mozilla HTMLObjectElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLObjectElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLObjectElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validationMessage Mozilla HTMLObjectElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> +getContentDocument ::+                   (MonadDOM m) => HTMLObjectElement -> m (Maybe Document)+getContentDocument self+  = liftDOM ((self ^. js "contentDocument") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLOptGroupElement.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLOptGroupElement+       (setDisabled, getDisabled, setLabel, getLabel, HTMLOptGroupElement,+        castToHTMLOptGroupElement, gTypeHTMLOptGroupElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLOptGroupElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLOptGroupElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation> +setLabel ::+         (MonadDOM m, ToJSString val) => HTMLOptGroupElement -> val -> m ()+setLabel self val = liftDOM (self ^. jss "label" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) =>+           HTMLOptGroupElement -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLOptionElement.hs view
@@ -0,0 +1,89 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLOptionElement+       (setDisabled, getDisabled, getForm, setLabel, getLabel,+        setDefaultSelected, getDefaultSelected, setSelected, getSelected,+        setValue, getValue, setText, getText, getIndex, HTMLOptionElement,+        castToHTMLOptionElement, gTypeHTMLOptionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLOptionElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLOptionElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLOptionElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation> +setLabel ::+         (MonadDOM m, ToJSString val) => HTMLOptionElement -> val -> m ()+setLabel self val = liftDOM (self ^. jss "label" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => HTMLOptionElement -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation> +setDefaultSelected ::+                   (MonadDOM m) => HTMLOptionElement -> Bool -> m ()+setDefaultSelected self val+  = liftDOM (self ^. jss "defaultSelected" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation> +getDefaultSelected :: (MonadDOM m) => HTMLOptionElement -> m Bool+getDefaultSelected self+  = liftDOM ((self ^. js "defaultSelected") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation> +setSelected :: (MonadDOM m) => HTMLOptionElement -> Bool -> m ()+setSelected self val+  = liftDOM (self ^. jss "selected" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation> +getSelected :: (MonadDOM m) => HTMLOptionElement -> m Bool+getSelected self = liftDOM ((self ^. js "selected") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) => HTMLOptionElement -> val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) => HTMLOptionElement -> m result+getValue self+  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation> +setText ::+        (MonadDOM m, ToJSString val) => HTMLOptionElement -> val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation> +getText ::+        (MonadDOM m, FromJSString result) => HTMLOptionElement -> m result+getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.index Mozilla HTMLOptionElement.index documentation> +getIndex :: (MonadDOM m) => HTMLOptionElement -> m Int+getIndex self+  = liftDOM (round <$> ((self ^. js "index") >>= valToNumber))
+ src/JSDOM/Generated/HTMLOptionsCollection.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLOptionsCollection+       (namedItem, addBefore, add, remove, setSelectedIndex,+        getSelectedIndex, setLength, getLength, HTMLOptionsCollection,+        castToHTMLOptionsCollection, gTypeHTMLOptionsCollection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            HTMLOptionsCollection -> name -> m (Maybe Node)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> +addBefore ::+          (MonadDOM m, IsHTMLElement element, IsHTMLElement before) =>+            HTMLOptionsCollection -> Maybe element -> Maybe before -> m ()+addBefore self element before+  = liftDOM+      (void (self ^. jsf "add" [toJSVal element, toJSVal before]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> +add ::+    (MonadDOM m, IsHTMLElement element) =>+      HTMLOptionsCollection -> Maybe element -> Int -> m ()+add self element index+  = liftDOM+      (void (self ^. jsf "add" [toJSVal element, toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.remove Mozilla HTMLOptionsCollection.remove documentation> +remove :: (MonadDOM m) => HTMLOptionsCollection -> Word -> m ()+remove self index+  = liftDOM (void (self ^. jsf "remove" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation> +setSelectedIndex ::+                 (MonadDOM m) => HTMLOptionsCollection -> Int -> m ()+setSelectedIndex self val+  = liftDOM (self ^. jss "selectedIndex" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation> +getSelectedIndex :: (MonadDOM m) => HTMLOptionsCollection -> m Int+getSelectedIndex self+  = liftDOM+      (round <$> ((self ^. js "selectedIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation> +setLength :: (MonadDOM m) => HTMLOptionsCollection -> Word -> m ()+setLength self val = liftDOM (self ^. jss "length" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation> +getLength :: (MonadDOM m) => HTMLOptionsCollection -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/HTMLOutputElement.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLOutputElement+       (checkValidity, setCustomValidity, getHtmlFor, getForm, setName,+        getName, getType, setDefaultValue, getDefaultValue, setValue,+        getValue, getWillValidate, getValidity, getValidationMessage,+        getLabels, HTMLOutputElement, castToHTMLOutputElement,+        gTypeHTMLOutputElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLOutputElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.setCustomValidity Mozilla HTMLOutputElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLOutputElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> +getHtmlFor ::+           (MonadDOM m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList)+getHtmlFor self = liftDOM ((self ^. js "htmlFor") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLOutputElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.type Mozilla HTMLOutputElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> +setDefaultValue ::+                (MonadDOM m, ToJSString val) =>+                  HTMLOutputElement -> Maybe val -> m ()+setDefaultValue self val+  = liftDOM (self ^. jss "defaultValue" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> +getDefaultValue ::+                (MonadDOM m, FromJSString result) =>+                  HTMLOutputElement -> m (Maybe result)+getDefaultValue self+  = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) =>+           HTMLOutputElement -> Maybe val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) =>+           HTMLOutputElement -> m (Maybe result)+getValue self+  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.willValidate Mozilla HTMLOutputElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLOutputElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLOutputElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validationMessage Mozilla HTMLOutputElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> +getLabels ::+          (MonadDOM m) => HTMLOutputElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLParagraphElement.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLParagraphElement+       (setAlign, getAlign, HTMLParagraphElement,+        castToHTMLParagraphElement, gTypeHTMLParagraphElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLParagraphElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) =>+           HTMLParagraphElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLParamElement.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLParamElement+       (setName, getName, setType, getType, setValue, getValue,+        setValueType, getValueType, HTMLParamElement,+        castToHTMLParamElement, gTypeHTMLParamElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLParamElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLParamElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) => HTMLParamElement -> m result+getValue self+  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation> +setValueType ::+             (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()+setValueType self val+  = liftDOM (self ^. jss "valueType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation> +getValueType ::+             (MonadDOM m, FromJSString result) => HTMLParamElement -> m result+getValueType self+  = liftDOM ((self ^. js "valueType") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLPreElement.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLPreElement+       (setWidth, getWidth, setWrap, getWrap, HTMLPreElement,+        castToHTMLPreElement, gTypeHTMLPreElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation> +setWidth :: (MonadDOM m) => HTMLPreElement -> Int -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation> +getWidth :: (MonadDOM m) => HTMLPreElement -> m Int+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation> +setWrap :: (MonadDOM m) => HTMLPreElement -> Bool -> m ()+setWrap self val = liftDOM (self ^. jss "wrap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation> +getWrap :: (MonadDOM m) => HTMLPreElement -> m Bool+getWrap self = liftDOM ((self ^. js "wrap") >>= valToBool)
+ src/JSDOM/Generated/HTMLProgressElement.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLProgressElement+       (setValue, getValue, setMax, getMax, getPosition, getLabels,+        HTMLProgressElement, castToHTMLProgressElement,+        gTypeHTMLProgressElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation> +setValue :: (MonadDOM m) => HTMLProgressElement -> Double -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation> +getValue :: (MonadDOM m) => HTMLProgressElement -> m Double+getValue self = liftDOM ((self ^. js "value") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation> +setMax :: (MonadDOM m) => HTMLProgressElement -> Double -> m ()+setMax self val = liftDOM (self ^. jss "max" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation> +getMax :: (MonadDOM m) => HTMLProgressElement -> m Double+getMax self = liftDOM ((self ^. js "max") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.position Mozilla HTMLProgressElement.position documentation> +getPosition :: (MonadDOM m) => HTMLProgressElement -> m Double+getPosition self+  = liftDOM ((self ^. js "position") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> +getLabels ::+          (MonadDOM m) => HTMLProgressElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLQuoteElement.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLQuoteElement+       (setCite, getCite, HTMLQuoteElement, castToHTMLQuoteElement,+        gTypeHTMLQuoteElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation> +setCite ::+        (MonadDOM m, ToJSString val) => HTMLQuoteElement -> val -> m ()+setCite self val = liftDOM (self ^. jss "cite" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation> +getCite ::+        (MonadDOM m, FromJSString result) => HTMLQuoteElement -> m result+getCite self = liftDOM ((self ^. js "cite") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLScriptElement.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLScriptElement+       (setText, getText, setHtmlFor, getHtmlFor, setEvent, getEvent,+        setCharset, getCharset, setAsync, getAsync, setDefer, getDefer,+        setSrc, getSrc, setType, getType, setCrossOrigin, getCrossOrigin,+        setNonce, getNonce, HTMLScriptElement, castToHTMLScriptElement,+        gTypeHTMLScriptElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> +setText ::+        (MonadDOM m, ToJSString val) =>+          HTMLScriptElement -> Maybe val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> +getText ::+        (MonadDOM m, FromJSString result) =>+          HTMLScriptElement -> m (Maybe result)+getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation> +setHtmlFor ::+           (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setHtmlFor self val = liftDOM (self ^. jss "htmlFor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation> +getHtmlFor ::+           (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getHtmlFor self+  = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation> +setEvent ::+         (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setEvent self val = liftDOM (self ^. jss "event" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation> +getEvent ::+         (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getEvent self+  = liftDOM ((self ^. js "event") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation> +setCharset ::+           (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation> +getCharset ::+           (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getCharset self+  = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation> +setAsync :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()+setAsync self val = liftDOM (self ^. jss "async" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation> +getAsync :: (MonadDOM m) => HTMLScriptElement -> m Bool+getAsync self = liftDOM ((self ^. js "async") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation> +setDefer :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()+setDefer self val = liftDOM (self ^. jss "defer" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation> +getDefer :: (MonadDOM m) => HTMLScriptElement -> m Bool+getDefer self = liftDOM ((self ^. js "defer") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> +setCrossOrigin ::+               (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setCrossOrigin self val+  = liftDOM (self ^. jss "crossOrigin" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> +getCrossOrigin ::+               (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getCrossOrigin self+  = liftDOM ((self ^. js "crossOrigin") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation> +setNonce ::+         (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()+setNonce self val = liftDOM (self ^. jss "nonce" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation> +getNonce ::+         (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result+getNonce self+  = liftDOM ((self ^. js "nonce") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLSelectElement.hs view
@@ -0,0 +1,199 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLSelectElement+       (item, namedItem, addBefore, add, remove, checkValidity,+        setCustomValidity, setAutofocus, getAutofocus, setDisabled,+        getDisabled, getForm, setMultiple, getMultiple, setName, getName,+        setRequired, getRequired, setSize, getSize, getType, getOptions,+        setLength, getLength, getSelectedOptions, setSelectedIndex,+        getSelectedIndex, setValue, getValue, getWillValidate, getValidity,+        getValidationMessage, getLabels, HTMLSelectElement,+        castToHTMLSelectElement, gTypeHTMLSelectElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> +item :: (MonadDOM m) => HTMLSelectElement -> Word -> m (Maybe Node)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            HTMLSelectElement -> name -> m (Maybe Node)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation> +addBefore ::+          (MonadDOM m, IsHTMLElement element, IsHTMLElement before) =>+            HTMLSelectElement -> Maybe element -> Maybe before -> m ()+addBefore self element before+  = liftDOM+      (void (self ^. jsf "add" [toJSVal element, toJSVal before]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation> +add ::+    (MonadDOM m, IsHTMLElement element) =>+      HTMLSelectElement -> Maybe element -> Int -> m ()+add self element index+  = liftDOM+      (void (self ^. jsf "add" [toJSVal element, toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.remove Mozilla HTMLSelectElement.remove documentation> +remove :: (MonadDOM m) => HTMLSelectElement -> m ()+remove self = liftDOM (void (self ^. js "remove"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLSelectElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.setCustomValidity Mozilla HTMLSelectElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLSelectElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation> +setAutofocus :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()+setAutofocus self val+  = liftDOM (self ^. jss "autofocus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation> +getAutofocus :: (MonadDOM m) => HTMLSelectElement -> m Bool+getAutofocus self+  = liftDOM ((self ^. js "autofocus") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLSelectElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLSelectElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation> +setMultiple :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()+setMultiple self val+  = liftDOM (self ^. jss "multiple" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation> +getMultiple :: (MonadDOM m) => HTMLSelectElement -> m Bool+getMultiple self = liftDOM ((self ^. js "multiple") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLSelectElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation> +setRequired :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()+setRequired self val+  = liftDOM (self ^. jss "required" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation> +getRequired :: (MonadDOM m) => HTMLSelectElement -> m Bool+getRequired self = liftDOM ((self ^. js "required") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation> +setSize :: (MonadDOM m) => HTMLSelectElement -> Int -> m ()+setSize self val = liftDOM (self ^. jss "size" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation> +getSize :: (MonadDOM m) => HTMLSelectElement -> m Int+getSize self+  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.type Mozilla HTMLSelectElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> +getOptions ::+           (MonadDOM m) =>+             HTMLSelectElement -> m (Maybe HTMLOptionsCollection)+getOptions self = liftDOM ((self ^. js "options") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation> +setLength :: (MonadDOM m) => HTMLSelectElement -> Word -> m ()+setLength self val = liftDOM (self ^. jss "length" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation> +getLength :: (MonadDOM m) => HTMLSelectElement -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> +getSelectedOptions ::+                   (MonadDOM m) => HTMLSelectElement -> m (Maybe HTMLCollection)+getSelectedOptions self+  = liftDOM ((self ^. js "selectedOptions") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation> +setSelectedIndex ::+                 (MonadDOM m) => HTMLSelectElement -> Int -> m ()+setSelectedIndex self val+  = liftDOM (self ^. jss "selectedIndex" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation> +getSelectedIndex :: (MonadDOM m) => HTMLSelectElement -> m Int+getSelectedIndex self+  = liftDOM+      (round <$> ((self ^. js "selectedIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) =>+           HTMLSelectElement -> Maybe val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) =>+           HTMLSelectElement -> m (Maybe result)+getValue self+  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.willValidate Mozilla HTMLSelectElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLSelectElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLSelectElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validationMessage Mozilla HTMLSelectElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> +getLabels ::+          (MonadDOM m) => HTMLSelectElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLSourceElement.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLSourceElement+       (setSrc, getSrc, setType, getType, setMedia, getMedia,+        HTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLSourceElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLSourceElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation> +setMedia ::+         (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()+setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation> +getMedia ::+         (MonadDOM m, FromJSString result) => HTMLSourceElement -> m result+getMedia self+  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLStyleElement.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLStyleElement+       (setDisabled, getDisabled, setMedia, getMedia, setType, getType,+        getSheet, HTMLStyleElement, castToHTMLStyleElement,+        gTypeHTMLStyleElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLStyleElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLStyleElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation> +setMedia ::+         (MonadDOM m, ToJSString val) => HTMLStyleElement -> val -> m ()+setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation> +getMedia ::+         (MonadDOM m, FromJSString result) => HTMLStyleElement -> m result+getMedia self+  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLStyleElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLStyleElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> +getSheet ::+         (MonadDOM m) => HTMLStyleElement -> m (Maybe StyleSheet)+getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLTableCaptionElement.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTableCaptionElement+       (setAlign, getAlign, HTMLTableCaptionElement,+        castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) =>+           HTMLTableCaptionElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableCaptionElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLTableCellElement.hs view
@@ -0,0 +1,181 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTableCellElement+       (getCellIndex, setAbbr, getAbbr, setAlign, getAlign, setAxis,+        getAxis, setBgColor, getBgColor, setCh, getCh, setChOff, getChOff,+        setColSpan, getColSpan, setHeaders, getHeaders, setHeight,+        getHeight, setNoWrap, getNoWrap, setRowSpan, getRowSpan, setScope,+        getScope, setVAlign, getVAlign, setWidth, getWidth,+        HTMLTableCellElement, castToHTMLTableCellElement,+        gTypeHTMLTableCellElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.cellIndex Mozilla HTMLTableCellElement.cellIndex documentation> +getCellIndex :: (MonadDOM m) => HTMLTableCellElement -> m Int+getCellIndex self+  = liftDOM (round <$> ((self ^. js "cellIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation> +setAbbr ::+        (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setAbbr self val = liftDOM (self ^. jss "abbr" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation> +getAbbr ::+        (MonadDOM m, FromJSString result) =>+          HTMLTableCellElement -> m result+getAbbr self = liftDOM ((self ^. js "abbr") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableCellElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation> +setAxis ::+        (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setAxis self val = liftDOM (self ^. jss "axis" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation> +getAxis ::+        (MonadDOM m, FromJSString result) =>+          HTMLTableCellElement -> m result+getAxis self = liftDOM ((self ^. js "axis") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> +setBgColor ::+           (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> +getBgColor ::+           (MonadDOM m, FromJSString result) =>+             HTMLTableCellElement -> m result+getBgColor self+  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation> +setCh ::+      (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation> +getCh ::+      (MonadDOM m, FromJSString result) =>+        HTMLTableCellElement -> m result+getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation> +setChOff ::+         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation> +getChOff ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableCellElement -> m result+getChOff self+  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation> +setColSpan :: (MonadDOM m) => HTMLTableCellElement -> Int -> m ()+setColSpan self val = liftDOM (self ^. jss "colSpan" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation> +getColSpan :: (MonadDOM m) => HTMLTableCellElement -> m Int+getColSpan self+  = liftDOM (round <$> ((self ^. js "colSpan") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation> +setHeaders ::+           (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setHeaders self val = liftDOM (self ^. jss "headers" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation> +getHeaders ::+           (MonadDOM m, FromJSString result) =>+             HTMLTableCellElement -> m result+getHeaders self+  = liftDOM ((self ^. js "headers") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation> +setHeight ::+          (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation> +getHeight ::+          (MonadDOM m, FromJSString result) =>+            HTMLTableCellElement -> m result+getHeight self+  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation> +setNoWrap :: (MonadDOM m) => HTMLTableCellElement -> Bool -> m ()+setNoWrap self val = liftDOM (self ^. jss "noWrap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation> +getNoWrap :: (MonadDOM m) => HTMLTableCellElement -> m Bool+getNoWrap self = liftDOM ((self ^. js "noWrap") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> +setRowSpan :: (MonadDOM m) => HTMLTableCellElement -> Int -> m ()+setRowSpan self val = liftDOM (self ^. jss "rowSpan" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> +getRowSpan :: (MonadDOM m) => HTMLTableCellElement -> m Int+getRowSpan self+  = liftDOM (round <$> ((self ^. js "rowSpan") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation> +setScope ::+         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setScope self val = liftDOM (self ^. jss "scope" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation> +getScope ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableCellElement -> m result+getScope self+  = liftDOM ((self ^. js "scope") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation> +setVAlign ::+          (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation> +getVAlign ::+          (MonadDOM m, FromJSString result) =>+            HTMLTableCellElement -> m result+getVAlign self+  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableCellElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLTableColElement.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTableColElement+       (setAlign, getAlign, setCh, getCh, setChOff, getChOff, setSpan,+        getSpan, setVAlign, getVAlign, setWidth, getWidth,+        HTMLTableColElement, castToHTMLTableColElement,+        gTypeHTMLTableColElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableColElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation> +setCh ::+      (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()+setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation> +getCh ::+      (MonadDOM m, FromJSString result) =>+        HTMLTableColElement -> m result+getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation> +setChOff ::+         (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()+setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation> +getChOff ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableColElement -> m result+getChOff self+  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation> +setSpan :: (MonadDOM m) => HTMLTableColElement -> Int -> m ()+setSpan self val = liftDOM (self ^. jss "span" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation> +getSpan :: (MonadDOM m) => HTMLTableColElement -> m Int+getSpan self+  = liftDOM (round <$> ((self ^. js "span") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation> +setVAlign ::+          (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()+setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation> +getVAlign ::+          (MonadDOM m, FromJSString result) =>+            HTMLTableColElement -> m result+getVAlign self+  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableColElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLTableElement.hs view
@@ -0,0 +1,216 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTableElement+       (createTHead, deleteTHead, createTFoot, deleteTFoot, createTBody,+        createCaption, deleteCaption, insertRow, deleteRow, setCaption,+        getCaption, setTHead, getTHead, setTFoot, getTFoot, getRows,+        getTBodies, setAlign, getAlign, setBgColor, getBgColor, setBorder,+        getBorder, setCellPadding, getCellPadding, setCellSpacing,+        getCellSpacing, setFrame, getFrame, setRules, getRules, setSummary,+        getSummary, setWidth, getWidth, HTMLTableElement,+        castToHTMLTableElement, gTypeHTMLTableElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> +createTHead ::+            (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)+createTHead self+  = liftDOM ((self ^. js "createTHead") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTHead Mozilla HTMLTableElement.deleteTHead documentation> +deleteTHead :: (MonadDOM m) => HTMLTableElement -> m ()+deleteTHead self = liftDOM (void (self ^. js "deleteTHead"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> +createTFoot ::+            (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)+createTFoot self+  = liftDOM ((self ^. js "createTFoot") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTFoot Mozilla HTMLTableElement.deleteTFoot documentation> +deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m ()+deleteTFoot self = liftDOM (void (self ^. js "deleteTFoot"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> +createTBody ::+            (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)+createTBody self+  = liftDOM ((self ^. js "createTBody") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> +createCaption ::+              (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)+createCaption self+  = liftDOM ((self ^. js "createCaption") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteCaption Mozilla HTMLTableElement.deleteCaption documentation> +deleteCaption :: (MonadDOM m) => HTMLTableElement -> m ()+deleteCaption self = liftDOM (void (self ^. js "deleteCaption"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> +insertRow ::+          (MonadDOM m) => HTMLTableElement -> Int -> m (Maybe HTMLElement)+insertRow self index+  = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteRow Mozilla HTMLTableElement.deleteRow documentation> +deleteRow :: (MonadDOM m) => HTMLTableElement -> Int -> m ()+deleteRow self index+  = liftDOM (void (self ^. jsf "deleteRow" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> +setCaption ::+           (MonadDOM m) =>+             HTMLTableElement -> Maybe HTMLTableCaptionElement -> m ()+setCaption self val = liftDOM (self ^. jss "caption" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> +getCaption ::+           (MonadDOM m) =>+             HTMLTableElement -> m (Maybe HTMLTableCaptionElement)+getCaption self = liftDOM ((self ^. js "caption") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> +setTHead ::+         (MonadDOM m) =>+           HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()+setTHead self val = liftDOM (self ^. jss "tHead" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> +getTHead ::+         (MonadDOM m) =>+           HTMLTableElement -> m (Maybe HTMLTableSectionElement)+getTHead self = liftDOM ((self ^. js "tHead") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> +setTFoot ::+         (MonadDOM m) =>+           HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()+setTFoot self val = liftDOM (self ^. jss "tFoot" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> +getTFoot ::+         (MonadDOM m) =>+           HTMLTableElement -> m (Maybe HTMLTableSectionElement)+getTFoot self = liftDOM ((self ^. js "tFoot") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> +getRows ::+        (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)+getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> +getTBodies ::+           (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)+getTBodies self = liftDOM ((self ^. js "tBodies") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> +setBgColor ::+           (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> +getBgColor ::+           (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getBgColor self+  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation> +setBorder ::+          (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation> +getBorder ::+          (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getBorder self+  = liftDOM ((self ^. js "border") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> +setCellPadding ::+               (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setCellPadding self val+  = liftDOM (self ^. jss "cellPadding" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> +getCellPadding ::+               (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getCellPadding self+  = liftDOM ((self ^. js "cellPadding") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> +setCellSpacing ::+               (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setCellSpacing self val+  = liftDOM (self ^. jss "cellSpacing" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> +getCellSpacing ::+               (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getCellSpacing self+  = liftDOM ((self ^. js "cellSpacing") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation> +setFrame ::+         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setFrame self val = liftDOM (self ^. jss "frame" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation> +getFrame ::+         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getFrame self+  = liftDOM ((self ^. js "frame") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation> +setRules ::+         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setRules self val = liftDOM (self ^. jss "rules" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation> +getRules ::+         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getRules self+  = liftDOM ((self ^. js "rules") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation> +setSummary ::+           (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setSummary self val = liftDOM (self ^. jss "summary" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation> +getSummary ::+           (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getSummary self+  = liftDOM ((self ^. js "summary") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation> +setWidth ::+         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation> +getWidth ::+         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result+getWidth self+  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLTableRowElement.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTableRowElement+       (insertCell, deleteCell, getRowIndex, getSectionRowIndex, getCells,+        setAlign, getAlign, setBgColor, getBgColor, setCh, getCh, setChOff,+        getChOff, setVAlign, getVAlign, HTMLTableRowElement,+        castToHTMLTableRowElement, gTypeHTMLTableRowElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> +insertCell ::+           (MonadDOM m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement)+insertCell self index+  = liftDOM+      ((self ^. jsf "insertCell" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.deleteCell Mozilla HTMLTableRowElement.deleteCell documentation> +deleteCell :: (MonadDOM m) => HTMLTableRowElement -> Int -> m ()+deleteCell self index+  = liftDOM (void (self ^. jsf "deleteCell" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.rowIndex Mozilla HTMLTableRowElement.rowIndex documentation> +getRowIndex :: (MonadDOM m) => HTMLTableRowElement -> m Int+getRowIndex self+  = liftDOM (round <$> ((self ^. js "rowIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.sectionRowIndex Mozilla HTMLTableRowElement.sectionRowIndex documentation> +getSectionRowIndex :: (MonadDOM m) => HTMLTableRowElement -> m Int+getSectionRowIndex self+  = liftDOM+      (round <$> ((self ^. js "sectionRowIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> +getCells ::+         (MonadDOM m) => HTMLTableRowElement -> m (Maybe HTMLCollection)+getCells self = liftDOM ((self ^. js "cells") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableRowElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> +setBgColor ::+           (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> +getBgColor ::+           (MonadDOM m, FromJSString result) =>+             HTMLTableRowElement -> m result+getBgColor self+  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation> +setCh ::+      (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation> +getCh ::+      (MonadDOM m, FromJSString result) =>+        HTMLTableRowElement -> m result+getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation> +setChOff ::+         (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation> +getChOff ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableRowElement -> m result+getChOff self+  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation> +setVAlign ::+          (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()+setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation> +getVAlign ::+          (MonadDOM m, FromJSString result) =>+            HTMLTableRowElement -> m result+getVAlign self+  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLTableSectionElement.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTableSectionElement+       (insertRow, deleteRow, setAlign, getAlign, setCh, getCh, setChOff,+        getChOff, setVAlign, getVAlign, getRows, HTMLTableSectionElement,+        castToHTMLTableSectionElement, gTypeHTMLTableSectionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> +insertRow ::+          (MonadDOM m) =>+            HTMLTableSectionElement -> Int -> m (Maybe HTMLElement)+insertRow self index+  = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.deleteRow Mozilla HTMLTableSectionElement.deleteRow documentation> +deleteRow :: (MonadDOM m) => HTMLTableSectionElement -> Int -> m ()+deleteRow self index+  = liftDOM (void (self ^. jsf "deleteRow" [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation> +setAlign ::+         (MonadDOM m, ToJSString val) =>+           HTMLTableSectionElement -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation> +getAlign ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableSectionElement -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation> +setCh ::+      (MonadDOM m, ToJSString val) =>+        HTMLTableSectionElement -> val -> m ()+setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation> +getCh ::+      (MonadDOM m, FromJSString result) =>+        HTMLTableSectionElement -> m result+getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation> +setChOff ::+         (MonadDOM m, ToJSString val) =>+           HTMLTableSectionElement -> val -> m ()+setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation> +getChOff ::+         (MonadDOM m, FromJSString result) =>+           HTMLTableSectionElement -> m result+getChOff self+  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation> +setVAlign ::+          (MonadDOM m, ToJSString val) =>+            HTMLTableSectionElement -> val -> m ()+setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation> +getVAlign ::+          (MonadDOM m, FromJSString result) =>+            HTMLTableSectionElement -> m result+getVAlign self+  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> +getRows ::+        (MonadDOM m) => HTMLTableSectionElement -> m (Maybe HTMLCollection)+getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLTemplateElement.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTemplateElement+       (getContent, HTMLTemplateElement, castToHTMLTemplateElement,+        gTypeHTMLTemplateElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> +getContent ::+           (MonadDOM m) => HTMLTemplateElement -> m (Maybe DocumentFragment)+getContent self = liftDOM ((self ^. js "content") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLTextAreaElement.hs view
@@ -0,0 +1,311 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTextAreaElement+       (checkValidity, setCustomValidity, select, setRangeText,+        setRangeText4, setSelectionRange, setAutofocus, getAutofocus,+        setCols, getCols, setDirName, getDirName, setDisabled, getDisabled,+        getForm, setMaxLength, getMaxLength, setName, getName,+        setPlaceholder, getPlaceholder, setReadOnly, getReadOnly,+        setRequired, getRequired, setRows, getRows, setWrap, getWrap,+        getType, setDefaultValue, getDefaultValue, setValue, getValue,+        getTextLength, getWillValidate, getValidity, getValidationMessage,+        getLabels, setSelectionStart, getSelectionStart, setSelectionEnd,+        getSelectionEnd, setSelectionDirection, getSelectionDirection,+        setAutocorrect, getAutocorrect, setAutocapitalize,+        getAutocapitalize, HTMLTextAreaElement, castToHTMLTextAreaElement,+        gTypeHTMLTextAreaElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation> +checkValidity :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+checkValidity self+  = liftDOM ((self ^. js "checkValidity") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setCustomValidity Mozilla HTMLTextAreaElement.setCustomValidity documentation> +setCustomValidity ::+                  (MonadDOM m, ToJSString error) =>+                    HTMLTextAreaElement -> Maybe error -> m ()+setCustomValidity self error+  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.select Mozilla HTMLTextAreaElement.select documentation> +select :: (MonadDOM m) => HTMLTextAreaElement -> m ()+select self = liftDOM (void (self ^. js "select"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> +setRangeText ::+             (MonadDOM m, ToJSString replacement) =>+               HTMLTextAreaElement -> replacement -> m ()+setRangeText self replacement+  = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> +setRangeText4 ::+              (MonadDOM m, ToJSString replacement, ToJSString selectionMode) =>+                HTMLTextAreaElement ->+                  replacement -> Word -> Word -> selectionMode -> m ()+setRangeText4 self replacement start end selectionMode+  = liftDOM+      (void+         (self ^. jsf "setRangeText"+            [toJSVal replacement, toJSVal start, toJSVal end,+             toJSVal selectionMode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setSelectionRange Mozilla HTMLTextAreaElement.setSelectionRange documentation> +setSelectionRange ::+                  (MonadDOM m, ToJSString direction) =>+                    HTMLTextAreaElement -> Int -> Int -> direction -> m ()+setSelectionRange self start end direction+  = liftDOM+      (void+         (self ^. jsf "setSelectionRange"+            [toJSVal start, toJSVal end, toJSVal direction]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation> +setAutofocus :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()+setAutofocus self val+  = liftDOM (self ^. jss "autofocus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation> +getAutofocus :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+getAutofocus self+  = liftDOM ((self ^. js "autofocus") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> +setCols :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()+setCols self val = liftDOM (self ^. jss "cols" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> +getCols :: (MonadDOM m) => HTMLTextAreaElement -> m Int+getCols self+  = liftDOM (round <$> ((self ^. js "cols") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation> +setDirName ::+           (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setDirName self val = liftDOM (self ^. jss "dirName" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation> +getDirName ::+           (MonadDOM m, FromJSString result) =>+             HTMLTextAreaElement -> m result+getDirName self+  = liftDOM ((self ^. js "dirName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation> +setDisabled :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation> +getDisabled :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> +getForm ::+        (MonadDOM m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement)+getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation> +setMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()+setMaxLength self val+  = liftDOM (self ^. jss "maxLength" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation> +getMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> m Int+getMaxLength self+  = liftDOM (round <$> ((self ^. js "maxLength") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation> +setName ::+        (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation> +getName ::+        (MonadDOM m, FromJSString result) =>+          HTMLTextAreaElement -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation> +setPlaceholder ::+               (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setPlaceholder self val+  = liftDOM (self ^. jss "placeholder" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation> +getPlaceholder ::+               (MonadDOM m, FromJSString result) =>+                 HTMLTextAreaElement -> m result+getPlaceholder self+  = liftDOM ((self ^. js "placeholder") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation> +setReadOnly :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()+setReadOnly self val+  = liftDOM (self ^. jss "readOnly" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation> +getReadOnly :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+getReadOnly self = liftDOM ((self ^. js "readOnly") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation> +setRequired :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()+setRequired self val+  = liftDOM (self ^. jss "required" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation> +getRequired :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+getRequired self = liftDOM ((self ^. js "required") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation> +setRows :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()+setRows self val = liftDOM (self ^. jss "rows" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation> +getRows :: (MonadDOM m) => HTMLTextAreaElement -> m Int+getRows self+  = liftDOM (round <$> ((self ^. js "rows") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation> +setWrap ::+        (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setWrap self val = liftDOM (self ^. jss "wrap" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation> +getWrap ::+        (MonadDOM m, FromJSString result) =>+          HTMLTextAreaElement -> m result+getWrap self = liftDOM ((self ^. js "wrap") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.type Mozilla HTMLTextAreaElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) =>+          HTMLTextAreaElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> +setDefaultValue ::+                (MonadDOM m, ToJSString val) =>+                  HTMLTextAreaElement -> Maybe val -> m ()+setDefaultValue self val+  = liftDOM (self ^. jss "defaultValue" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> +getDefaultValue ::+                (MonadDOM m, FromJSString result) =>+                  HTMLTextAreaElement -> m (Maybe result)+getDefaultValue self+  = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) =>+           HTMLTextAreaElement -> Maybe val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) =>+           HTMLTextAreaElement -> m (Maybe result)+getValue self+  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.textLength Mozilla HTMLTextAreaElement.textLength documentation> +getTextLength :: (MonadDOM m) => HTMLTextAreaElement -> m Word+getTextLength self+  = liftDOM (round <$> ((self ^. js "textLength") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.willValidate Mozilla HTMLTextAreaElement.willValidate documentation> +getWillValidate :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+getWillValidate self+  = liftDOM ((self ^. js "willValidate") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> +getValidity ::+            (MonadDOM m) => HTMLTextAreaElement -> m (Maybe ValidityState)+getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validationMessage Mozilla HTMLTextAreaElement.validationMessage documentation> +getValidationMessage ::+                     (MonadDOM m, FromJSString result) =>+                       HTMLTextAreaElement -> m result+getValidationMessage self+  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> +getLabels ::+          (MonadDOM m) => HTMLTextAreaElement -> m (Maybe NodeList)+getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation> +setSelectionStart ::+                  (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()+setSelectionStart self val+  = liftDOM (self ^. jss "selectionStart" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation> +getSelectionStart :: (MonadDOM m) => HTMLTextAreaElement -> m Int+getSelectionStart self+  = liftDOM+      (round <$> ((self ^. js "selectionStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation> +setSelectionEnd ::+                (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()+setSelectionEnd self val+  = liftDOM (self ^. jss "selectionEnd" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation> +getSelectionEnd :: (MonadDOM m) => HTMLTextAreaElement -> m Int+getSelectionEnd self+  = liftDOM (round <$> ((self ^. js "selectionEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation> +setSelectionDirection ::+                      (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()+setSelectionDirection self val+  = liftDOM (self ^. jss "selectionDirection" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation> +getSelectionDirection ::+                      (MonadDOM m, FromJSString result) =>+                        HTMLTextAreaElement -> m result+getSelectionDirection self+  = liftDOM+      ((self ^. js "selectionDirection") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation> +setAutocorrect ::+               (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()+setAutocorrect self val+  = liftDOM (self ^. jss "autocorrect" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation> +getAutocorrect :: (MonadDOM m) => HTMLTextAreaElement -> m Bool+getAutocorrect self+  = liftDOM ((self ^. js "autocorrect") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> +setAutocapitalize ::+                  (MonadDOM m, ToJSString val) =>+                    HTMLTextAreaElement -> Maybe val -> m ()+setAutocapitalize self val+  = liftDOM (self ^. jss "autocapitalize" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> +getAutocapitalize ::+                  (MonadDOM m, FromJSString result) =>+                    HTMLTextAreaElement -> m (Maybe result)+getAutocapitalize self+  = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)
+ src/JSDOM/Generated/HTMLTitleElement.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTitleElement+       (setText, getText, HTMLTitleElement, castToHTMLTitleElement,+        gTypeHTMLTitleElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> +setText ::+        (MonadDOM m, ToJSString val) =>+          HTMLTitleElement -> Maybe val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> +getText ::+        (MonadDOM m, FromJSString result) =>+          HTMLTitleElement -> m (Maybe result)+getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString)
+ src/JSDOM/Generated/HTMLTrackElement.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLTrackElement+       (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR,+        setKind, getKind, setSrc, getSrc, setSrclang, getSrclang, setLabel,+        getLabel, setDefault, getDefault, getReadyState, getTrack,+        HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern NONE = 0+pattern LOADING = 1+pattern LOADED = 2+pattern ERROR = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation> +setKind ::+        (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()+setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation> +getKind ::+        (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result+getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation> +setSrc ::+       (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()+setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation> +getSrc ::+       (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result+getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation> +setSrclang ::+           (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()+setSrclang self val = liftDOM (self ^. jss "srclang" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation> +getSrclang ::+           (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result+getSrclang self+  = liftDOM ((self ^. js "srclang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation> +setLabel ::+         (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()+setLabel self val = liftDOM (self ^. jss "label" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation> +setDefault :: (MonadDOM m) => HTMLTrackElement -> Bool -> m ()+setDefault self val = liftDOM (self ^. jss "default" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation> +getDefault :: (MonadDOM m) => HTMLTrackElement -> m Bool+getDefault self = liftDOM ((self ^. js "default") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.readyState Mozilla HTMLTrackElement.readyState documentation> +getReadyState :: (MonadDOM m) => HTMLTrackElement -> m Word+getReadyState self+  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> +getTrack :: (MonadDOM m) => HTMLTrackElement -> m (Maybe TextTrack)+getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)
+ src/JSDOM/Generated/HTMLUListElement.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLUListElement+       (setCompact, getCompact, setType, getType, HTMLUListElement,+        castToHTMLUListElement, gTypeHTMLUListElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation> +setCompact :: (MonadDOM m) => HTMLUListElement -> Bool -> m ()+setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation> +getCompact :: (MonadDOM m) => HTMLUListElement -> m Bool+getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => HTMLUListElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => HTMLUListElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/HTMLVideoElement.hs view
@@ -0,0 +1,153 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HTMLVideoElement+       (webkitEnterFullscreen, webkitExitFullscreen,+        webkitEnterFullScreen, webkitExitFullScreen,+        webkitSupportsPresentationMode, webkitSetPresentationMode,+        setWidth, getWidth, setHeight, getHeight, getVideoWidth,+        getVideoHeight, setPoster, getPoster, getWebkitSupportsFullscreen,+        getWebkitDisplayingFullscreen,+        setWebkitWirelessVideoPlaybackDisabled,+        getWebkitWirelessVideoPlaybackDisabled, getWebkitDecodedFrameCount,+        getWebkitDroppedFrameCount, getWebkitPresentationMode,+        webKitPresentationModeChanged, HTMLVideoElement,+        castToHTMLVideoElement, gTypeHTMLVideoElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullscreen Mozilla HTMLVideoElement.webkitEnterFullscreen documentation> +webkitEnterFullscreen :: (MonadDOM m) => HTMLVideoElement -> m ()+webkitEnterFullscreen self+  = liftDOM (void (self ^. js "webkitEnterFullscreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullscreen Mozilla HTMLVideoElement.webkitExitFullscreen documentation> +webkitExitFullscreen :: (MonadDOM m) => HTMLVideoElement -> m ()+webkitExitFullscreen self+  = liftDOM (void (self ^. js "webkitExitFullscreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullScreen Mozilla HTMLVideoElement.webkitEnterFullScreen documentation> +webkitEnterFullScreen :: (MonadDOM m) => HTMLVideoElement -> m ()+webkitEnterFullScreen self+  = liftDOM (void (self ^. js "webkitEnterFullScreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullScreen Mozilla HTMLVideoElement.webkitExitFullScreen documentation> +webkitExitFullScreen :: (MonadDOM m) => HTMLVideoElement -> m ()+webkitExitFullScreen self+  = liftDOM (void (self ^. js "webkitExitFullScreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsPresentationMode Mozilla HTMLVideoElement.webkitSupportsPresentationMode documentation> +webkitSupportsPresentationMode ::+                               (MonadDOM m) => HTMLVideoElement -> VideoPresentationMode -> m Bool+webkitSupportsPresentationMode self mode+  = liftDOM+      ((self ^. jsf "webkitSupportsPresentationMode" [toJSVal mode]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSetPresentationMode Mozilla HTMLVideoElement.webkitSetPresentationMode documentation> +webkitSetPresentationMode ::+                          (MonadDOM m) => HTMLVideoElement -> VideoPresentationMode -> m ()+webkitSetPresentationMode self mode+  = liftDOM+      (void (self ^. jsf "webkitSetPresentationMode" [toJSVal mode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation> +setWidth :: (MonadDOM m) => HTMLVideoElement -> Word -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation> +getWidth :: (MonadDOM m) => HTMLVideoElement -> m Word+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation> +setHeight :: (MonadDOM m) => HTMLVideoElement -> Word -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation> +getHeight :: (MonadDOM m) => HTMLVideoElement -> m Word+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoWidth Mozilla HTMLVideoElement.videoWidth documentation> +getVideoWidth :: (MonadDOM m) => HTMLVideoElement -> m Word+getVideoWidth self+  = liftDOM (round <$> ((self ^. js "videoWidth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoHeight Mozilla HTMLVideoElement.videoHeight documentation> +getVideoHeight :: (MonadDOM m) => HTMLVideoElement -> m Word+getVideoHeight self+  = liftDOM (round <$> ((self ^. js "videoHeight") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation> +setPoster ::+          (MonadDOM m, ToJSString val) => HTMLVideoElement -> val -> m ()+setPoster self val = liftDOM (self ^. jss "poster" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation> +getPoster ::+          (MonadDOM m, FromJSString result) => HTMLVideoElement -> m result+getPoster self+  = liftDOM ((self ^. js "poster") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsFullscreen Mozilla HTMLVideoElement.webkitSupportsFullscreen documentation> +getWebkitSupportsFullscreen ::+                            (MonadDOM m) => HTMLVideoElement -> m Bool+getWebkitSupportsFullscreen self+  = liftDOM ((self ^. js "webkitSupportsFullscreen") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDisplayingFullscreen Mozilla HTMLVideoElement.webkitDisplayingFullscreen documentation> +getWebkitDisplayingFullscreen ::+                              (MonadDOM m) => HTMLVideoElement -> m Bool+getWebkitDisplayingFullscreen self+  = liftDOM ((self ^. js "webkitDisplayingFullscreen") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation> +setWebkitWirelessVideoPlaybackDisabled ::+                                       (MonadDOM m) => HTMLVideoElement -> Bool -> m ()+setWebkitWirelessVideoPlaybackDisabled self val+  = liftDOM+      (self ^. jss "webkitWirelessVideoPlaybackDisabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation> +getWebkitWirelessVideoPlaybackDisabled ::+                                       (MonadDOM m) => HTMLVideoElement -> m Bool+getWebkitWirelessVideoPlaybackDisabled self+  = liftDOM+      ((self ^. js "webkitWirelessVideoPlaybackDisabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDecodedFrameCount Mozilla HTMLVideoElement.webkitDecodedFrameCount documentation> +getWebkitDecodedFrameCount ::+                           (MonadDOM m) => HTMLVideoElement -> m Word+getWebkitDecodedFrameCount self+  = liftDOM+      (round <$>+         ((self ^. js "webkitDecodedFrameCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDroppedFrameCount Mozilla HTMLVideoElement.webkitDroppedFrameCount documentation> +getWebkitDroppedFrameCount ::+                           (MonadDOM m) => HTMLVideoElement -> m Word+getWebkitDroppedFrameCount self+  = liftDOM+      (round <$>+         ((self ^. js "webkitDroppedFrameCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitPresentationMode Mozilla HTMLVideoElement.webkitPresentationMode documentation> +getWebkitPresentationMode ::+                          (MonadDOM m) => HTMLVideoElement -> m VideoPresentationMode+getWebkitPresentationMode self+  = liftDOM+      ((self ^. js "webkitPresentationMode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.onwebkitpresentationmodechanged Mozilla HTMLVideoElement.onwebkitpresentationmodechanged documentation> +webKitPresentationModeChanged :: EventName HTMLVideoElement Event+webKitPresentationModeChanged+  = unsafeEventName (toJSString "webkitpresentationmodechanged")
+ src/JSDOM/Generated/HashChangeEvent.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.HashChangeEvent+       (initHashChangeEvent, getOldURL, getNewURL, HashChangeEvent,+        castToHashChangeEvent, gTypeHashChangeEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.initHashChangeEvent Mozilla HashChangeEvent.initHashChangeEvent documentation> +initHashChangeEvent ::+                    (MonadDOM m, ToJSString type', ToJSString oldURL,+                     ToJSString newURL) =>+                      HashChangeEvent ->+                        type' -> Bool -> Bool -> oldURL -> newURL -> m ()+initHashChangeEvent self type' canBubble cancelable oldURL newURL+  = liftDOM+      (void+         (self ^. jsf "initHashChangeEvent"+            [toJSVal type', toJSVal canBubble, toJSVal cancelable,+             toJSVal oldURL, toJSVal newURL]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.oldURL Mozilla HashChangeEvent.oldURL documentation> +getOldURL ::+          (MonadDOM m, FromJSString result) => HashChangeEvent -> m result+getOldURL self+  = liftDOM ((self ^. js "oldURL") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.newURL Mozilla HashChangeEvent.newURL documentation> +getNewURL ::+          (MonadDOM m, FromJSString result) => HashChangeEvent -> m result+getNewURL self+  = liftDOM ((self ^. js "newURL") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/History.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.History+       (back, forward, go, pushState, replaceState, getLength, getState,+        History, castToHistory, gTypeHistory)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.back Mozilla History.back documentation> +back :: (MonadDOM m) => History -> m ()+back self = liftDOM (void (self ^. js "back"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.forward Mozilla History.forward documentation> +forward :: (MonadDOM m) => History -> m ()+forward self = liftDOM (void (self ^. js "forward"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.go Mozilla History.go documentation> +go :: (MonadDOM m) => History -> Int -> m ()+go self distance+  = liftDOM (void (self ^. jsf "go" [toJSVal distance]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.pushState Mozilla History.pushState documentation> +pushState ::+          (MonadDOM m, ToJSString title, ToJSString url) =>+            History -> JSVal -> title -> url -> m ()+pushState self data' title url+  = liftDOM+      (void+         (self ^. jsf "pushState"+            [toJSVal data', toJSVal title, toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.replaceState Mozilla History.replaceState documentation> +replaceState ::+             (MonadDOM m, ToJSString title, ToJSString url) =>+               History -> JSVal -> title -> url -> m ()+replaceState self data' title url+  = liftDOM+      (void+         (self ^. jsf "replaceState"+            [toJSVal data', toJSVal title, toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.length Mozilla History.length documentation> +getLength :: (MonadDOM m) => History -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> +getState ::+         (MonadDOM m) => History -> m (Maybe SerializedScriptValue)+getState self = liftDOM ((self ^. js "state") >>= fromJSVal)
+ src/JSDOM/Generated/IDBCursor.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBCursor+       (update, advance, continue, delete, getSource, getDirection,+        getKey, getPrimaryKey, IDBCursor, castToIDBCursor, gTypeIDBCursor,+        IsIDBCursor, toIDBCursor)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> +update ::+       (MonadDOM m, IsIDBCursor self) =>+         self -> JSVal -> m (Maybe IDBRequest)+update self value+  = liftDOM+      (((toIDBCursor self) ^. jsf "update" [toJSVal value]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.advance Mozilla IDBCursor.advance documentation> +advance :: (MonadDOM m, IsIDBCursor self) => self -> Word -> m ()+advance self count+  = liftDOM+      (void ((toIDBCursor self) ^. jsf "advance" [toJSVal count]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.continue Mozilla IDBCursor.continue documentation> +continue :: (MonadDOM m, IsIDBCursor self) => self -> JSVal -> m ()+continue self key+  = liftDOM+      (void ((toIDBCursor self) ^. jsf "continue" [toJSVal key]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> +delete ::+       (MonadDOM m, IsIDBCursor self) => self -> m (Maybe IDBRequest)+delete self+  = liftDOM (((toIDBCursor self) ^. js "delete") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> +getSource ::+          (MonadDOM m, IsIDBCursor self) => self -> m (Maybe IDBAny)+getSource self+  = liftDOM (((toIDBCursor self) ^. js "source") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.direction Mozilla IDBCursor.direction documentation> +getDirection ::+             (MonadDOM m, IsIDBCursor self, FromJSString result) =>+               self -> m result+getDirection self+  = liftDOM+      (((toIDBCursor self) ^. js "direction") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.key Mozilla IDBCursor.key documentation> +getKey :: (MonadDOM m, IsIDBCursor self) => self -> m JSVal+getKey self+  = liftDOM (((toIDBCursor self) ^. js "key") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.primaryKey Mozilla IDBCursor.primaryKey documentation> +getPrimaryKey :: (MonadDOM m, IsIDBCursor self) => self -> m JSVal+getPrimaryKey self+  = liftDOM (((toIDBCursor self) ^. js "primaryKey") >>= toJSVal)
+ src/JSDOM/Generated/IDBCursorWithValue.hs view
@@ -0,0 +1,20 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBCursorWithValue+       (getValue, IDBCursorWithValue, castToIDBCursorWithValue,+        gTypeIDBCursorWithValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursorWithValue.value Mozilla IDBCursorWithValue.value documentation> +getValue :: (MonadDOM m) => IDBCursorWithValue -> m JSVal+getValue self = liftDOM ((self ^. js "value") >>= toJSVal)
+ src/JSDOM/Generated/IDBDatabase.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBDatabase+       (createObjectStore, deleteObjectStore, transaction, transaction',+        close, getName, getVersion, getObjectStoreNames, abort, error,+        versionChange, IDBDatabase, castToIDBDatabase, gTypeIDBDatabase)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> +createObjectStore ::+                  (MonadDOM m, ToJSString name, IsDictionary options) =>+                    IDBDatabase -> name -> Maybe options -> m (Maybe IDBObjectStore)+createObjectStore self name options+  = liftDOM+      ((self ^. jsf "createObjectStore" [toJSVal name, toJSVal options])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.deleteObjectStore Mozilla IDBDatabase.deleteObjectStore documentation> +deleteObjectStore ::+                  (MonadDOM m, ToJSString name) => IDBDatabase -> name -> m ()+deleteObjectStore self name+  = liftDOM (void (self ^. jsf "deleteObjectStore" [toJSVal name]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction ::+            (MonadDOM m, ToJSString storeName, ToJSString mode) =>+              IDBDatabase -> storeName -> mode -> m (Maybe IDBTransaction)+transaction self storeName mode+  = liftDOM+      ((self ^. jsf "transaction" [toJSVal storeName, toJSVal mode]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction' ::+             (MonadDOM m, ToJSString storeNames, ToJSString mode) =>+               IDBDatabase -> [storeNames] -> mode -> m (Maybe IDBTransaction)+transaction' self storeNames mode+  = liftDOM+      ((self ^. jsf "transaction"+          [toJSVal (array storeNames), toJSVal mode])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.close Mozilla IDBDatabase.close documentation> +close :: (MonadDOM m) => IDBDatabase -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.name Mozilla IDBDatabase.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => IDBDatabase -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.version Mozilla IDBDatabase.version documentation> +getVersion :: (MonadDOM m) => IDBDatabase -> m Word64+getVersion self+  = liftDOM (round <$> ((self ^. js "version") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> +getObjectStoreNames ::+                    (MonadDOM m) => IDBDatabase -> m (Maybe DOMStringList)+getObjectStoreNames self+  = liftDOM ((self ^. js "objectStoreNames") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onabort Mozilla IDBDatabase.onabort documentation> +abort :: EventName IDBDatabase Event+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onerror Mozilla IDBDatabase.onerror documentation> +error :: EventName IDBDatabase Event+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onversionchange Mozilla IDBDatabase.onversionchange documentation> +versionChange :: EventName IDBDatabase IDBVersionChangeEvent+versionChange = unsafeEventName (toJSString "versionchange")
+ src/JSDOM/Generated/IDBFactory.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBFactory+       (open, deleteDatabase, cmp, IDBFactory, castToIDBFactory,+        gTypeIDBFactory)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> +open ::+     (MonadDOM m, ToJSString name) =>+       IDBFactory -> name -> Word64 -> m (Maybe IDBOpenDBRequest)+open self name version+  = liftDOM+      ((self ^. jsf "open" [toJSVal name, toJSVal version]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> +deleteDatabase ::+               (MonadDOM m, ToJSString name) =>+                 IDBFactory -> name -> m (Maybe IDBOpenDBRequest)+deleteDatabase self name+  = liftDOM+      ((self ^. jsf "deleteDatabase" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation> +cmp :: (MonadDOM m) => IDBFactory -> JSVal -> JSVal -> m Int+cmp self first second+  = liftDOM+      (round <$>+         ((self ^. jsf "cmp" [toJSVal first, toJSVal second]) >>=+            valToNumber))
+ src/JSDOM/Generated/IDBIndex.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBIndex+       (openCursorRange, openCursor, openKeyCursorRange, openKeyCursor,+        getRange, get, getKeyRange, getKey, countRange, count, getName,+        getObjectStore, getKeyPath, getMultiEntry, getUnique, IDBIndex,+        castToIDBIndex, gTypeIDBIndex)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorRange ::+                (MonadDOM m, ToJSString direction) =>+                  IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+openCursorRange self range direction+  = liftDOM+      ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursor ::+           (MonadDOM m, ToJSString direction) =>+             IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest)+openCursor self key direction+  = liftDOM+      ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorRange ::+                   (MonadDOM m, ToJSString direction) =>+                     IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+openKeyCursorRange self range direction+  = liftDOM+      ((self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursor ::+              (MonadDOM m, ToJSString direction) =>+                IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest)+openKeyCursor self key direction+  = liftDOM+      ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getRange ::+         (MonadDOM m) =>+           IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+getRange self key+  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +get :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)+get self key+  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyRange ::+            (MonadDOM m) =>+              IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+getKeyRange self key+  = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKey :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)+getKey self key+  = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countRange ::+           (MonadDOM m) =>+             IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+countRange self range+  = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +count :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)+count self key+  = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.name Mozilla IDBIndex.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => IDBIndex -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> +getObjectStore ::+               (MonadDOM m) => IDBIndex -> m (Maybe IDBObjectStore)+getObjectStore self+  = liftDOM ((self ^. js "objectStore") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation> +getKeyPath :: (MonadDOM m) => IDBIndex -> m (Maybe IDBAny)+getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.multiEntry Mozilla IDBIndex.multiEntry documentation> +getMultiEntry :: (MonadDOM m) => IDBIndex -> m Bool+getMultiEntry self+  = liftDOM ((self ^. js "multiEntry") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.unique Mozilla IDBIndex.unique documentation> +getUnique :: (MonadDOM m) => IDBIndex -> m Bool+getUnique self = liftDOM ((self ^. js "unique") >>= valToBool)
+ src/JSDOM/Generated/IDBKeyRange.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBKeyRange+       (only, lowerBound, upperBound, bound, getLower, getUpper,+        getLowerOpen, getUpperOpen, IDBKeyRange, castToIDBKeyRange,+        gTypeIDBKeyRange)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> +only ::+     (MonadDOM m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange)+only self value+  = liftDOM ((self ^. jsf "only" [toJSVal value]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> +lowerBound ::+           (MonadDOM m) =>+             IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)+lowerBound self lower open+  = liftDOM+      ((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> +upperBound ::+           (MonadDOM m) =>+             IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)+upperBound self upper open+  = liftDOM+      ((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> +bound ::+      (MonadDOM m) =>+        IDBKeyRange ->+          JSVal -> JSVal -> Bool -> Bool -> m (Maybe IDBKeyRange)+bound self lower upper lowerOpen upperOpen+  = liftDOM+      ((self ^. jsf "bound"+          [toJSVal lower, toJSVal upper, toJSVal lowerOpen,+           toJSVal upperOpen])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lower Mozilla IDBKeyRange.lower documentation> +getLower :: (MonadDOM m) => IDBKeyRange -> m JSVal+getLower self = liftDOM ((self ^. js "lower") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upper Mozilla IDBKeyRange.upper documentation> +getUpper :: (MonadDOM m) => IDBKeyRange -> m JSVal+getUpper self = liftDOM ((self ^. js "upper") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerOpen Mozilla IDBKeyRange.lowerOpen documentation> +getLowerOpen :: (MonadDOM m) => IDBKeyRange -> m Bool+getLowerOpen self+  = liftDOM ((self ^. js "lowerOpen") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperOpen Mozilla IDBKeyRange.upperOpen documentation> +getUpperOpen :: (MonadDOM m) => IDBKeyRange -> m Bool+getUpperOpen self+  = liftDOM ((self ^. js "upperOpen") >>= valToBool)
+ src/JSDOM/Generated/IDBObjectStore.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBObjectStore+       (put, add, deleteRange, delete, getRange, get, clear,+        openCursorRange, openCursor, createIndex', createIndex, index,+        deleteIndex, countRange, count, getName, getKeyPath, getIndexNames,+        getTransaction, getAutoIncrement, IDBObjectStore,+        castToIDBObjectStore, gTypeIDBObjectStore)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> +put ::+    (MonadDOM m) =>+      IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest)+put self value key+  = liftDOM+      ((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> +add ::+    (MonadDOM m) =>+      IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest)+add self value key+  = liftDOM+      ((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteRange ::+            (MonadDOM m) =>+              IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+deleteRange self keyRange+  = liftDOM ((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +delete ::+       (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+delete self key+  = liftDOM ((self ^. jsf "delete" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getRange ::+         (MonadDOM m) =>+           IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+getRange self key+  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +get ::+    (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+get self key+  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> +clear :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBRequest)+clear self = liftDOM ((self ^. js "clear") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorRange ::+                (MonadDOM m, ToJSString direction) =>+                  IDBObjectStore ->+                    Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)+openCursorRange self range direction+  = liftDOM+      ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursor ::+           (MonadDOM m, ToJSString direction) =>+             IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest)+openCursor self key direction+  = liftDOM+      ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex' ::+             (MonadDOM m, ToJSString name, ToJSString keyPath,+              IsDictionary options) =>+               IDBObjectStore ->+                 name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex)+createIndex' self name keyPath options+  = liftDOM+      ((self ^. jsf "createIndex"+          [toJSVal name, toJSVal (array keyPath), toJSVal options])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex ::+            (MonadDOM m, ToJSString name, ToJSString keyPath,+             IsDictionary options) =>+              IDBObjectStore ->+                name -> keyPath -> Maybe options -> m (Maybe IDBIndex)+createIndex self name keyPath options+  = liftDOM+      ((self ^. jsf "createIndex"+          [toJSVal name, toJSVal keyPath, toJSVal options])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> +index ::+      (MonadDOM m, ToJSString name) =>+        IDBObjectStore -> name -> m (Maybe IDBIndex)+index self name+  = liftDOM ((self ^. jsf "index" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.deleteIndex Mozilla IDBObjectStore.deleteIndex documentation> +deleteIndex ::+            (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m ()+deleteIndex self name+  = liftDOM (void (self ^. jsf "deleteIndex" [toJSVal name]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countRange ::+           (MonadDOM m) =>+             IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)+countRange self range+  = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +count ::+      (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)+count self key+  = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> +getName ::+        (MonadDOM m, FromJSString result) =>+          IDBObjectStore -> m (Maybe result)+getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation> +getKeyPath :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBAny)+getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> +getIndexNames ::+              (MonadDOM m) => IDBObjectStore -> m (Maybe DOMStringList)+getIndexNames self+  = liftDOM ((self ^. js "indexNames") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> +getTransaction ::+               (MonadDOM m) => IDBObjectStore -> m (Maybe IDBTransaction)+getTransaction self+  = liftDOM ((self ^. js "transaction") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.autoIncrement Mozilla IDBObjectStore.autoIncrement documentation> +getAutoIncrement :: (MonadDOM m) => IDBObjectStore -> m Bool+getAutoIncrement self+  = liftDOM ((self ^. js "autoIncrement") >>= valToBool)
+ src/JSDOM/Generated/IDBOpenDBRequest.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBOpenDBRequest+       (blocked, upgradeNeeded, IDBOpenDBRequest, castToIDBOpenDBRequest,+        gTypeIDBOpenDBRequest)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onblocked Mozilla IDBOpenDBRequest.onblocked documentation> +blocked :: EventName IDBOpenDBRequest IDBVersionChangeEvent+blocked = unsafeEventName (toJSString "blocked")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onupgradeneeded Mozilla IDBOpenDBRequest.onupgradeneeded documentation> +upgradeNeeded :: EventName IDBOpenDBRequest IDBVersionChangeEvent+upgradeNeeded = unsafeEventName (toJSString "upgradeneeded")
+ src/JSDOM/Generated/IDBRequest.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBRequest+       (getResult, getError, getSource, getTransaction, getReadyState,+        success, error, IDBRequest, castToIDBRequest, gTypeIDBRequest,+        IsIDBRequest, toIDBRequest)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation> +getResult ::+          (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBAny)+getResult self+  = liftDOM (((toIDBRequest self) ^. js "result") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation> +getError ::+         (MonadDOM m, IsIDBRequest self) => self -> m (Maybe DOMError)+getError self+  = liftDOM (((toIDBRequest self) ^. js "error") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation> +getSource ::+          (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBAny)+getSource self+  = liftDOM (((toIDBRequest self) ^. js "source") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> +getTransaction ::+               (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBTransaction)+getTransaction self+  = liftDOM (((toIDBRequest self) ^. js "transaction") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.readyState Mozilla IDBRequest.readyState documentation> +getReadyState ::+              (MonadDOM m, IsIDBRequest self, FromJSString result) =>+                self -> m result+getReadyState self+  = liftDOM+      (((toIDBRequest self) ^. js "readyState") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onsuccess Mozilla IDBRequest.onsuccess documentation> +success ::+        (IsIDBRequest self, IsEventTarget self) => EventName self Event+success = unsafeEventName (toJSString "success")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onerror Mozilla IDBRequest.onerror documentation> +error ::+      (IsIDBRequest self, IsEventTarget self) => EventName self Event+error = unsafeEventName (toJSString "error")
+ src/JSDOM/Generated/IDBTransaction.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBTransaction+       (objectStore, abort, getMode, getDb, getError, abortEvent,+        complete, error, IDBTransaction, castToIDBTransaction,+        gTypeIDBTransaction)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> +objectStore ::+            (MonadDOM m, ToJSString name) =>+              IDBTransaction -> name -> m (Maybe IDBObjectStore)+objectStore self name+  = liftDOM+      ((self ^. jsf "objectStore" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.abort Mozilla IDBTransaction.abort documentation> +abort :: (MonadDOM m) => IDBTransaction -> m ()+abort self = liftDOM (void (self ^. js "abort"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.mode Mozilla IDBTransaction.mode documentation> +getMode ::+        (MonadDOM m, FromJSString result) => IDBTransaction -> m result+getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> +getDb :: (MonadDOM m) => IDBTransaction -> m (Maybe IDBDatabase)+getDb self = liftDOM ((self ^. js "db") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation> +getError :: (MonadDOM m) => IDBTransaction -> m (Maybe DOMError)+getError self = liftDOM ((self ^. js "error") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onabort Mozilla IDBTransaction.onabort documentation> +abortEvent :: EventName IDBTransaction Event+abortEvent = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.oncomplete Mozilla IDBTransaction.oncomplete documentation> +complete :: EventName IDBTransaction Event+complete = unsafeEventName (toJSString "complete")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onerror Mozilla IDBTransaction.onerror documentation> +error :: EventName IDBTransaction Event+error = unsafeEventName (toJSString "error")
+ src/JSDOM/Generated/IDBVersionChangeEvent.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.IDBVersionChangeEvent+       (getOldVersion, getNewVersion, IDBVersionChangeEvent,+        castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.oldVersion Mozilla IDBVersionChangeEvent.oldVersion documentation> +getOldVersion :: (MonadDOM m) => IDBVersionChangeEvent -> m Word64+getOldVersion self+  = liftDOM (round <$> ((self ^. js "oldVersion") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation> +getNewVersion ::+              (MonadDOM m) => IDBVersionChangeEvent -> m (Maybe Word64)+getNewVersion self+  = liftDOM ((self ^. js "newVersion") >>= fromJSVal)
+ src/JSDOM/Generated/ImageData.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ImageData+       (newImageData, newImageData', getWidth, getHeight, ImageData,+        castToImageData, gTypeImageData)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation> +newImageData ::+             (MonadDOM m, IsUint8ClampedArray data') =>+               Maybe data' -> Word -> Word -> m ImageData+newImageData data' sw sh+  = liftDOM+      (ImageData <$>+         new (jsg "ImageData") [toJSVal data', toJSVal sw, toJSVal sh])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation> +newImageData' :: (MonadDOM m) => Word -> Word -> m ImageData+newImageData' sw sh+  = liftDOM+      (ImageData <$> new (jsg "ImageData") [toJSVal sw, toJSVal sh])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.width Mozilla ImageData.width documentation> +getWidth :: (MonadDOM m) => ImageData -> m Int+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.height Mozilla ImageData.height documentation> +getHeight :: (MonadDOM m) => ImageData -> m Int+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
+ src/JSDOM/Generated/InspectorFrontendHost.hs view
@@ -0,0 +1,206 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.InspectorFrontendHost+       (loaded, closeWindow, bringToFront, setZoomFactor,+        inspectedURLChanged, requestSetDockSide, setAttachedWindowHeight,+        setAttachedWindowWidth, setToolbarHeight, moveWindowBy,+        localizedStringsURL, debuggableType, copyText, openInNewTab,+        canSave, save, append, close, platform, port, showContextMenu,+        dispatchEventAsContextMenuEvent, sendMessageToBackend,+        unbufferedLog, isUnderTest, beep, canInspectWorkers, canSaveAs,+        InspectorFrontendHost, castToInspectorFrontendHost,+        gTypeInspectorFrontendHost)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.loaded Mozilla InspectorFrontendHost.loaded documentation> +loaded :: (MonadDOM m) => InspectorFrontendHost -> m ()+loaded self = liftDOM (void (self ^. js "loaded"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.closeWindow Mozilla InspectorFrontendHost.closeWindow documentation> +closeWindow :: (MonadDOM m) => InspectorFrontendHost -> m ()+closeWindow self = liftDOM (void (self ^. js "closeWindow"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.bringToFront Mozilla InspectorFrontendHost.bringToFront documentation> +bringToFront :: (MonadDOM m) => InspectorFrontendHost -> m ()+bringToFront self = liftDOM (void (self ^. js "bringToFront"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setZoomFactor Mozilla InspectorFrontendHost.setZoomFactor documentation> +setZoomFactor ::+              (MonadDOM m) => InspectorFrontendHost -> Float -> m ()+setZoomFactor self zoom+  = liftDOM (void (self ^. jsf "setZoomFactor" [toJSVal zoom]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectedURLChanged Mozilla InspectorFrontendHost.inspectedURLChanged documentation> +inspectedURLChanged ::+                    (MonadDOM m, ToJSString newURL) =>+                      InspectorFrontendHost -> newURL -> m ()+inspectedURLChanged self newURL+  = liftDOM+      (void (self ^. jsf "inspectedURLChanged" [toJSVal newURL]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.requestSetDockSide Mozilla InspectorFrontendHost.requestSetDockSide documentation> +requestSetDockSide ::+                   (MonadDOM m, ToJSString side) =>+                     InspectorFrontendHost -> side -> m ()+requestSetDockSide self side+  = liftDOM (void (self ^. jsf "requestSetDockSide" [toJSVal side]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowHeight Mozilla InspectorFrontendHost.setAttachedWindowHeight documentation> +setAttachedWindowHeight ::+                        (MonadDOM m) => InspectorFrontendHost -> Word -> m ()+setAttachedWindowHeight self height+  = liftDOM+      (void (self ^. jsf "setAttachedWindowHeight" [toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowWidth Mozilla InspectorFrontendHost.setAttachedWindowWidth documentation> +setAttachedWindowWidth ::+                       (MonadDOM m) => InspectorFrontendHost -> Word -> m ()+setAttachedWindowWidth self width+  = liftDOM+      (void (self ^. jsf "setAttachedWindowWidth" [toJSVal width]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setToolbarHeight Mozilla InspectorFrontendHost.setToolbarHeight documentation> +setToolbarHeight ::+                 (MonadDOM m) => InspectorFrontendHost -> Float -> m ()+setToolbarHeight self height+  = liftDOM (void (self ^. jsf "setToolbarHeight" [toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.moveWindowBy Mozilla InspectorFrontendHost.moveWindowBy documentation> +moveWindowBy ::+             (MonadDOM m) => InspectorFrontendHost -> Float -> Float -> m ()+moveWindowBy self x y+  = liftDOM+      (void (self ^. jsf "moveWindowBy" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation> +localizedStringsURL ::+                    (MonadDOM m, FromJSString result) =>+                      InspectorFrontendHost -> m result+localizedStringsURL self+  = liftDOM+      ((self ^. js "localizedStringsURL") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation> +debuggableType ::+               (MonadDOM m, FromJSString result) =>+                 InspectorFrontendHost -> m result+debuggableType self+  = liftDOM ((self ^. js "debuggableType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.copyText Mozilla InspectorFrontendHost.copyText documentation> +copyText ::+         (MonadDOM m, ToJSString text) =>+           InspectorFrontendHost -> text -> m ()+copyText self text+  = liftDOM (void (self ^. jsf "copyText" [toJSVal text]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.openInNewTab Mozilla InspectorFrontendHost.openInNewTab documentation> +openInNewTab ::+             (MonadDOM m, ToJSString url) =>+               InspectorFrontendHost -> url -> m ()+openInNewTab self url+  = liftDOM (void (self ^. jsf "openInNewTab" [toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation> +canSave :: (MonadDOM m) => InspectorFrontendHost -> m Bool+canSave self = liftDOM ((self ^. js "canSave") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.save Mozilla InspectorFrontendHost.save documentation> +save ::+     (MonadDOM m, ToJSString url, ToJSString content) =>+       InspectorFrontendHost -> url -> content -> Bool -> Bool -> m ()+save self url content base64Encoded forceSaveAs+  = liftDOM+      (void+         (self ^. jsf "save"+            [toJSVal url, toJSVal content, toJSVal base64Encoded,+             toJSVal forceSaveAs]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.append Mozilla InspectorFrontendHost.append documentation> +append ::+       (MonadDOM m, ToJSString url, ToJSString content) =>+         InspectorFrontendHost -> url -> content -> m ()+append self url content+  = liftDOM+      (void (self ^. jsf "append" [toJSVal url, toJSVal content]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.close Mozilla InspectorFrontendHost.close documentation> +close ::+      (MonadDOM m, ToJSString url) =>+        InspectorFrontendHost -> url -> m ()+close self url = liftDOM (void (self ^. jsf "close" [toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation> +platform ::+         (MonadDOM m, FromJSString result) =>+           InspectorFrontendHost -> m result+platform self+  = liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation> +port ::+     (MonadDOM m, FromJSString result) =>+       InspectorFrontendHost -> m result+port self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.showContextMenu Mozilla InspectorFrontendHost.showContextMenu documentation> +showContextMenu ::+                (MonadDOM m, IsMouseEvent event) =>+                  InspectorFrontendHost -> Maybe event -> JSVal -> m ()+showContextMenu self event items+  = liftDOM+      (void+         (self ^. jsf "showContextMenu" [toJSVal event, toJSVal items]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.dispatchEventAsContextMenuEvent Mozilla InspectorFrontendHost.dispatchEventAsContextMenuEvent documentation> +dispatchEventAsContextMenuEvent ::+                                (MonadDOM m, IsEvent event) =>+                                  InspectorFrontendHost -> Maybe event -> m ()+dispatchEventAsContextMenuEvent self event+  = liftDOM+      (void+         (self ^. jsf "dispatchEventAsContextMenuEvent" [toJSVal event]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.sendMessageToBackend Mozilla InspectorFrontendHost.sendMessageToBackend documentation> +sendMessageToBackend ::+                     (MonadDOM m, ToJSString message) =>+                       InspectorFrontendHost -> message -> m ()+sendMessageToBackend self message+  = liftDOM+      (void (self ^. jsf "sendMessageToBackend" [toJSVal message]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.unbufferedLog Mozilla InspectorFrontendHost.unbufferedLog documentation> +unbufferedLog ::+              (MonadDOM m, ToJSString message) =>+                InspectorFrontendHost -> message -> m ()+unbufferedLog self message+  = liftDOM (void (self ^. jsf "unbufferedLog" [toJSVal message]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation> +isUnderTest :: (MonadDOM m) => InspectorFrontendHost -> m Bool+isUnderTest self+  = liftDOM ((self ^. js "isUnderTest") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.beep Mozilla InspectorFrontendHost.beep documentation> +beep :: (MonadDOM m) => InspectorFrontendHost -> m ()+beep self = liftDOM (void (self ^. js "beep"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation> +canInspectWorkers ::+                  (MonadDOM m) => InspectorFrontendHost -> m Bool+canInspectWorkers self+  = liftDOM ((self ^. js "canInspectWorkers") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation> +canSaveAs :: (MonadDOM m) => InspectorFrontendHost -> m Bool+canSaveAs self = liftDOM ((self ^. js "canSaveAs") >>= valToBool)
+ src/JSDOM/Generated/InternalSettings.hs view
@@ -0,0 +1,294 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.InternalSettings+       (setTouchEventEmulationEnabled, setStandardFontFamily,+        setSerifFontFamily, setSansSerifFontFamily, setFixedFontFamily,+        setCursiveFontFamily, setFantasyFontFamily,+        setPictographFontFamily, setFontFallbackPrefersPictographs,+        setTextAutosizingEnabled, setTextAutosizingWindowSizeOverride,+        setTextAutosizingFontScaleFactor, setCSSShapesEnabled,+        setCanStartMedia, setShouldDisplayTrackKind,+        shouldDisplayTrackKind, setDefaultVideoPosterURL,+        setTimeWithoutMouseMovementBeforeHidingControls,+        setMediaTypeOverride, setPluginReplacementEnabled,+        setEditingBehavior, setShouldConvertPositionStyleOnCopy,+        setLangAttributeAwareFormControlUIEnabled,+        setStorageBlockingPolicy, setImagesEnabled,+        setUseLegacyBackgroundSizeShorthandBehavior,+        setAutoscrollForDragAndDropEnabled,+        setBackgroundShouldExtendBeyondPage,+        setScrollingTreeIncludesFrames, setMinimumTimerInterval,+        InternalSettings, castToInternalSettings, gTypeInternalSettings)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTouchEventEmulationEnabled Mozilla InternalSettings.setTouchEventEmulationEnabled documentation> +setTouchEventEmulationEnabled ::+                              (MonadDOM m) => InternalSettings -> Bool -> m ()+setTouchEventEmulationEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setTouchEventEmulationEnabled" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStandardFontFamily Mozilla InternalSettings.setStandardFontFamily documentation> +setStandardFontFamily ::+                      (MonadDOM m, ToJSString family', ToJSString script) =>+                        InternalSettings -> family' -> script -> m ()+setStandardFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setStandardFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSerifFontFamily Mozilla InternalSettings.setSerifFontFamily documentation> +setSerifFontFamily ::+                   (MonadDOM m, ToJSString family', ToJSString script) =>+                     InternalSettings -> family' -> script -> m ()+setSerifFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setSerifFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSansSerifFontFamily Mozilla InternalSettings.setSansSerifFontFamily documentation> +setSansSerifFontFamily ::+                       (MonadDOM m, ToJSString family', ToJSString script) =>+                         InternalSettings -> family' -> script -> m ()+setSansSerifFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setSansSerifFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFixedFontFamily Mozilla InternalSettings.setFixedFontFamily documentation> +setFixedFontFamily ::+                   (MonadDOM m, ToJSString family', ToJSString script) =>+                     InternalSettings -> family' -> script -> m ()+setFixedFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setFixedFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCursiveFontFamily Mozilla InternalSettings.setCursiveFontFamily documentation> +setCursiveFontFamily ::+                     (MonadDOM m, ToJSString family', ToJSString script) =>+                       InternalSettings -> family' -> script -> m ()+setCursiveFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setCursiveFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFantasyFontFamily Mozilla InternalSettings.setFantasyFontFamily documentation> +setFantasyFontFamily ::+                     (MonadDOM m, ToJSString family', ToJSString script) =>+                       InternalSettings -> family' -> script -> m ()+setFantasyFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setFantasyFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPictographFontFamily Mozilla InternalSettings.setPictographFontFamily documentation> +setPictographFontFamily ::+                        (MonadDOM m, ToJSString family', ToJSString script) =>+                          InternalSettings -> family' -> script -> m ()+setPictographFontFamily self family' script+  = liftDOM+      (void+         (self ^. jsf "setPictographFontFamily"+            [toJSVal family', toJSVal script]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFontFallbackPrefersPictographs Mozilla InternalSettings.setFontFallbackPrefersPictographs documentation> +setFontFallbackPrefersPictographs ::+                                  (MonadDOM m) => InternalSettings -> Bool -> m ()+setFontFallbackPrefersPictographs self preferPictographs+  = liftDOM+      (void+         (self ^. jsf "setFontFallbackPrefersPictographs"+            [toJSVal preferPictographs]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingEnabled Mozilla InternalSettings.setTextAutosizingEnabled documentation> +setTextAutosizingEnabled ::+                         (MonadDOM m) => InternalSettings -> Bool -> m ()+setTextAutosizingEnabled self enabled+  = liftDOM+      (void (self ^. jsf "setTextAutosizingEnabled" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingWindowSizeOverride Mozilla InternalSettings.setTextAutosizingWindowSizeOverride documentation> +setTextAutosizingWindowSizeOverride ::+                                    (MonadDOM m) => InternalSettings -> Int -> Int -> m ()+setTextAutosizingWindowSizeOverride self width height+  = liftDOM+      (void+         (self ^. jsf "setTextAutosizingWindowSizeOverride"+            [toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingFontScaleFactor Mozilla InternalSettings.setTextAutosizingFontScaleFactor documentation> +setTextAutosizingFontScaleFactor ::+                                 (MonadDOM m) => InternalSettings -> Float -> m ()+setTextAutosizingFontScaleFactor self fontScaleFactor+  = liftDOM+      (void+         (self ^. jsf "setTextAutosizingFontScaleFactor"+            [toJSVal fontScaleFactor]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCSSShapesEnabled Mozilla InternalSettings.setCSSShapesEnabled documentation> +setCSSShapesEnabled ::+                    (MonadDOM m) => InternalSettings -> Bool -> m ()+setCSSShapesEnabled self enabled+  = liftDOM+      (void (self ^. jsf "setCSSShapesEnabled" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCanStartMedia Mozilla InternalSettings.setCanStartMedia documentation> +setCanStartMedia ::+                 (MonadDOM m) => InternalSettings -> Bool -> m ()+setCanStartMedia self enabled+  = liftDOM (void (self ^. jsf "setCanStartMedia" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldDisplayTrackKind Mozilla InternalSettings.setShouldDisplayTrackKind documentation> +setShouldDisplayTrackKind ::+                          (MonadDOM m, ToJSString kind) =>+                            InternalSettings -> kind -> Bool -> m ()+setShouldDisplayTrackKind self kind enabled+  = liftDOM+      (void+         (self ^. jsf "setShouldDisplayTrackKind"+            [toJSVal kind, toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.shouldDisplayTrackKind Mozilla InternalSettings.shouldDisplayTrackKind documentation> +shouldDisplayTrackKind ::+                       (MonadDOM m, ToJSString trackKind) =>+                         InternalSettings -> trackKind -> m Bool+shouldDisplayTrackKind self trackKind+  = liftDOM+      ((self ^. jsf "shouldDisplayTrackKind" [toJSVal trackKind]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setDefaultVideoPosterURL Mozilla InternalSettings.setDefaultVideoPosterURL documentation> +setDefaultVideoPosterURL ::+                         (MonadDOM m, ToJSString poster) =>+                           InternalSettings -> poster -> m ()+setDefaultVideoPosterURL self poster+  = liftDOM+      (void (self ^. jsf "setDefaultVideoPosterURL" [toJSVal poster]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls Mozilla InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls documentation> +setTimeWithoutMouseMovementBeforeHidingControls ::+                                                (MonadDOM m) => InternalSettings -> Double -> m ()+setTimeWithoutMouseMovementBeforeHidingControls self time+  = liftDOM+      (void+         (self ^. jsf "setTimeWithoutMouseMovementBeforeHidingControls"+            [toJSVal time]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMediaTypeOverride Mozilla InternalSettings.setMediaTypeOverride documentation> +setMediaTypeOverride ::+                     (MonadDOM m, ToJSString mediaTypeOverride) =>+                       InternalSettings -> mediaTypeOverride -> m ()+setMediaTypeOverride self mediaTypeOverride+  = liftDOM+      (void+         (self ^. jsf "setMediaTypeOverride" [toJSVal mediaTypeOverride]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPluginReplacementEnabled Mozilla InternalSettings.setPluginReplacementEnabled documentation> +setPluginReplacementEnabled ::+                            (MonadDOM m) => InternalSettings -> Bool -> m ()+setPluginReplacementEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setPluginReplacementEnabled" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setEditingBehavior Mozilla InternalSettings.setEditingBehavior documentation> +setEditingBehavior ::+                   (MonadDOM m, ToJSString behavior) =>+                     InternalSettings -> behavior -> m ()+setEditingBehavior self behavior+  = liftDOM+      (void (self ^. jsf "setEditingBehavior" [toJSVal behavior]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldConvertPositionStyleOnCopy Mozilla InternalSettings.setShouldConvertPositionStyleOnCopy documentation> +setShouldConvertPositionStyleOnCopy ::+                                    (MonadDOM m) => InternalSettings -> Bool -> m ()+setShouldConvertPositionStyleOnCopy self convert+  = liftDOM+      (void+         (self ^. jsf "setShouldConvertPositionStyleOnCopy"+            [toJSVal convert]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setLangAttributeAwareFormControlUIEnabled Mozilla InternalSettings.setLangAttributeAwareFormControlUIEnabled documentation> +setLangAttributeAwareFormControlUIEnabled ::+                                          (MonadDOM m) => InternalSettings -> Bool -> m ()+setLangAttributeAwareFormControlUIEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setLangAttributeAwareFormControlUIEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStorageBlockingPolicy Mozilla InternalSettings.setStorageBlockingPolicy documentation> +setStorageBlockingPolicy ::+                         (MonadDOM m, ToJSString policy) =>+                           InternalSettings -> policy -> m ()+setStorageBlockingPolicy self policy+  = liftDOM+      (void (self ^. jsf "setStorageBlockingPolicy" [toJSVal policy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setImagesEnabled Mozilla InternalSettings.setImagesEnabled documentation> +setImagesEnabled ::+                 (MonadDOM m) => InternalSettings -> Bool -> m ()+setImagesEnabled self enabled+  = liftDOM (void (self ^. jsf "setImagesEnabled" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior Mozilla InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior documentation> +setUseLegacyBackgroundSizeShorthandBehavior ::+                                            (MonadDOM m) => InternalSettings -> Bool -> m ()+setUseLegacyBackgroundSizeShorthandBehavior self enabled+  = liftDOM+      (void+         (self ^. jsf "setUseLegacyBackgroundSizeShorthandBehavior"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setAutoscrollForDragAndDropEnabled Mozilla InternalSettings.setAutoscrollForDragAndDropEnabled documentation> +setAutoscrollForDragAndDropEnabled ::+                                   (MonadDOM m) => InternalSettings -> Bool -> m ()+setAutoscrollForDragAndDropEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setAutoscrollForDragAndDropEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setBackgroundShouldExtendBeyondPage Mozilla InternalSettings.setBackgroundShouldExtendBeyondPage documentation> +setBackgroundShouldExtendBeyondPage ::+                                    (MonadDOM m) => InternalSettings -> Bool -> m ()+setBackgroundShouldExtendBeyondPage self hasExtendedBackground+  = liftDOM+      (void+         (self ^. jsf "setBackgroundShouldExtendBeyondPage"+            [toJSVal hasExtendedBackground]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setScrollingTreeIncludesFrames Mozilla InternalSettings.setScrollingTreeIncludesFrames documentation> +setScrollingTreeIncludesFrames ::+                               (MonadDOM m) => InternalSettings -> Bool -> m ()+setScrollingTreeIncludesFrames self enabled+  = liftDOM+      (void+         (self ^. jsf "setScrollingTreeIncludesFrames" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMinimumTimerInterval Mozilla InternalSettings.setMinimumTimerInterval documentation> +setMinimumTimerInterval ::+                        (MonadDOM m) => InternalSettings -> Double -> m ()+setMinimumTimerInterval self intervalInSeconds+  = liftDOM+      (void+         (self ^. jsf "setMinimumTimerInterval"+            [toJSVal intervalInSeconds]))
+ src/JSDOM/Generated/Internals.hs view
@@ -0,0 +1,1458 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Internals+       (address, nodeNeedsStyleRecalc, description,+        hasPausedImageAnimations, elementRenderTreeAsText, isPreloaded,+        isLoadingFromMemoryCache, xhrResponseSource, clearMemoryCache,+        pruneMemoryCacheToSize, memoryCacheSize, clearPageCache,+        pageCacheSize, computedStyleIncludingVisitedInfo, ensureShadowRoot,+        createShadowRoot, shadowRoot, shadowRootType, includerFor,+        shadowPseudoId, setShadowPseudoId, treeScopeRootNode,+        parentTreeScope, lastSpatialNavigationCandidateCount,+        numberOfActiveAnimations, suspendAnimations, resumeAnimations,+        animationsAreSuspended, pauseAnimationAtTimeOnElement,+        pauseAnimationAtTimeOnPseudoElement,+        pauseTransitionAtTimeOnElement,+        pauseTransitionAtTimeOnPseudoElement, attached, visiblePlaceholder,+        selectColorInColorChooser, formControlStateOfPreviousHistoryItem,+        setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds,+        boundingBox, inspectorHighlightRects, inspectorHighlightObject,+        markerCountForNode, markerRangeForNode, markerDescriptionForNode,+        addTextMatchMarker, setMarkedTextMatchesAreHighlighted,+        invalidateFontCache, setScrollViewPosition, setPagination,+        configurationForViewport, wasLastChangeUserEdit,+        elementShouldAutoComplete, setEditingValue, setAutofilled,+        countMatchesForText, paintControlTints, scrollElementToRect,+        rangeFromLocationAndLength, locationFromRange, lengthFromRange,+        rangeAsText, subrange, rangeForDictionaryLookupAtLocation,+        setDelegatesScrolling, lastSpellCheckRequestSequence,+        lastSpellCheckProcessedSequence, userPreferredLanguages,+        setUserPreferredLanguages, wheelEventHandlerCount,+        touchEventHandlerCount, nodesFromRect, parserMetaData,+        updateEditorUINowIfScheduled, hasSpellingMarker, hasGrammarMarker,+        hasAutocorrectedMarker, setContinuousSpellCheckingEnabled,+        setAutomaticQuoteSubstitutionEnabled,+        setAutomaticLinkDetectionEnabled,+        setAutomaticDashSubstitutionEnabled,+        setAutomaticTextReplacementEnabled,+        setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled,+        toggleOverwriteModeEnabled, numberOfScrollableAreas,+        isPageBoxVisible, layerTreeAsText, scrollingStateTreeAsText,+        mainThreadScrollingReasons, nonFastScrollableRects,+        repaintRectsAsText, garbageCollectDocumentResources,+        allowRoundingHacks, insertAuthorCSS, insertUserCSS,+        setBatteryStatus, setDeviceProximity, numberOfLiveNodes,+        numberOfLiveDocuments, consoleMessageArgumentCounts,+        openDummyInspectorFrontend, closeDummyInspectorFrontend,+        setJavaScriptProfilingEnabled, setInspectorIsUnderTest,+        counterValue, pageNumber, shortcutIconURLs, allIconURLs,+        numberOfPages, pageProperty, pageSizeAndMarginsInPixels,+        setPageScaleFactor, setPageZoomFactor, setHeaderHeight,+        setFooterHeight, setTopContentInset,+        webkitWillEnterFullScreenForElement,+        webkitDidEnterFullScreenForElement,+        webkitWillExitFullScreenForElement,+        webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota,+        registerURLSchemeAsBypassingContentSecurityPolicy,+        removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,+        mallocStatistics, typeConversions, memoryInfo,+        getReferencedFilePaths, startTrackingRepaints,+        stopTrackingRepaints, isTimerThrottled,+        updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,+        getCurrentCursorInfo, markerTextForListItem, toolTipFromElement,+        deserializeBuffer, serializeObject, setUsesOverlayScrollbars,+        forceReload, simulateAudioInterruption,+        mediaElementHasCharacteristic, initializeMockCDM,+        enableMockSpeechSynthesizer, getImageSourceURL,+        captionsStyleSheetOverride, setCaptionsStyleSheetOverride,+        setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode,+        createTimeRanges, closestTimeToTimeRanges, isSelectPopupVisible,+        isVibrating, isPluginUnavailabilityIndicatorObscured,+        isPluginSnapshotted, selectionBounds, initializeMockMediaSource,+        bufferedSamplesForTrackID, beginMediaSessionInterruption,+        endMediaSessionInterruption, applicationWillEnterForeground,+        applicationWillEnterBackground, setMediaSessionRestrictions,+        postRemoteControlCommand, simulateSystemSleep, simulateSystemWake,+        elementIsBlockingDisplaySleep, installMockPageOverlay,+        pageOverlayLayerTreeAsText, setPageMuted, isPagePlayingAudio,+        pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS,+        pattern LAYER_TREE_INCLUDES_TILE_CACHES,+        pattern LAYER_TREE_INCLUDES_REPAINT_RECTS,+        pattern LAYER_TREE_INCLUDES_PAINTING_PHASES,+        pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, getSettings,+        getWorkerThreadCount, getConsoleProfiles, Internals,+        castToInternals, gTypeInternals)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> +address ::+        (MonadDOM m, IsNode node, FromJSString result) =>+          Internals -> Maybe node -> m result+address self node+  = liftDOM+      ((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> +nodeNeedsStyleRecalc ::+                     (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool+nodeNeedsStyleRecalc self node+  = liftDOM+      ((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> +description ::+            (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result+description self value+  = liftDOM+      ((self ^. jsf "description" [toJSVal value]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> +hasPausedImageAnimations ::+                         (MonadDOM m, IsElement element) =>+                           Internals -> Maybe element -> m Bool+hasPausedImageAnimations self element+  = liftDOM+      ((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> +elementRenderTreeAsText ::+                        (MonadDOM m, IsElement element, FromJSString result) =>+                          Internals -> Maybe element -> m result+elementRenderTreeAsText self element+  = liftDOM+      ((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> +isPreloaded ::+            (MonadDOM m, ToJSString url) => Internals -> url -> m Bool+isPreloaded self url+  = liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> +isLoadingFromMemoryCache ::+                         (MonadDOM m, ToJSString url) => Internals -> url -> m Bool+isLoadingFromMemoryCache self url+  = liftDOM+      ((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> +xhrResponseSource ::+                  (MonadDOM m, FromJSString result) =>+                    Internals -> Maybe XMLHttpRequest -> m result+xhrResponseSource self xhr+  = liftDOM+      ((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation> +clearMemoryCache :: (MonadDOM m) => Internals -> m ()+clearMemoryCache self+  = liftDOM (void (self ^. js "clearMemoryCache"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation> +pruneMemoryCacheToSize :: (MonadDOM m) => Internals -> Int -> m ()+pruneMemoryCacheToSize self size+  = liftDOM+      (void (self ^. jsf "pruneMemoryCacheToSize" [toJSVal size]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> +memoryCacheSize :: (MonadDOM m) => Internals -> m Int+memoryCacheSize self+  = liftDOM+      (round <$> ((self ^. js "memoryCacheSize") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation> +clearPageCache :: (MonadDOM m) => Internals -> m ()+clearPageCache self = liftDOM (void (self ^. js "clearPageCache"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> +pageCacheSize :: (MonadDOM m) => Internals -> m Word+pageCacheSize self+  = liftDOM+      (round <$> ((self ^. js "pageCacheSize") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> +computedStyleIncludingVisitedInfo ::+                                  (MonadDOM m, IsNode node) =>+                                    Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)+computedStyleIncludingVisitedInfo self node+  = liftDOM+      ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> +ensureShadowRoot ::+                 (MonadDOM m, IsElement host) =>+                   Internals -> Maybe host -> m (Maybe Node)+ensureShadowRoot self host+  = liftDOM+      ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> +createShadowRoot ::+                 (MonadDOM m, IsElement host) =>+                   Internals -> Maybe host -> m (Maybe Node)+createShadowRoot self host+  = liftDOM+      ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> +shadowRoot ::+           (MonadDOM m, IsElement host) =>+             Internals -> Maybe host -> m (Maybe Node)+shadowRoot self host+  = liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> +shadowRootType ::+               (MonadDOM m, IsNode root, FromJSString result) =>+                 Internals -> Maybe root -> m result+shadowRootType self root+  = liftDOM+      ((self ^. jsf "shadowRootType" [toJSVal root]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> +includerFor ::+            (MonadDOM m, IsNode node) =>+              Internals -> Maybe node -> m (Maybe Element)+includerFor self node+  = liftDOM+      ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> +shadowPseudoId ::+               (MonadDOM m, IsElement element, FromJSString result) =>+                 Internals -> Maybe element -> m result+shadowPseudoId self element+  = liftDOM+      ((self ^. jsf "shadowPseudoId" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation> +setShadowPseudoId ::+                  (MonadDOM m, IsElement element, ToJSString id) =>+                    Internals -> Maybe element -> id -> m ()+setShadowPseudoId self element id+  = liftDOM+      (void+         (self ^. jsf "setShadowPseudoId" [toJSVal element, toJSVal id]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> +treeScopeRootNode ::+                  (MonadDOM m, IsNode node) =>+                    Internals -> Maybe node -> m (Maybe Node)+treeScopeRootNode self node+  = liftDOM+      ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> +parentTreeScope ::+                (MonadDOM m, IsNode node) =>+                  Internals -> Maybe node -> m (Maybe Node)+parentTreeScope self node+  = liftDOM+      ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> +lastSpatialNavigationCandidateCount ::+                                    (MonadDOM m) => Internals -> m Word+lastSpatialNavigationCandidateCount self+  = liftDOM+      (round <$>+         ((self ^. js "lastSpatialNavigationCandidateCount") >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> +numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word+numberOfActiveAnimations self+  = liftDOM+      (round <$>+         ((self ^. js "numberOfActiveAnimations") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation> +suspendAnimations :: (MonadDOM m) => Internals -> m ()+suspendAnimations self+  = liftDOM (void (self ^. js "suspendAnimations"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation> +resumeAnimations :: (MonadDOM m) => Internals -> m ()+resumeAnimations self+  = liftDOM (void (self ^. js "resumeAnimations"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> +animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool+animationsAreSuspended self+  = liftDOM ((self ^. js "animationsAreSuspended") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation> +pauseAnimationAtTimeOnElement ::+                              (MonadDOM m, ToJSString animationName, IsElement element) =>+                                Internals -> animationName -> Double -> Maybe element -> m Bool+pauseAnimationAtTimeOnElement self animationName pauseTime element+  = liftDOM+      ((self ^. jsf "pauseAnimationAtTimeOnElement"+          [toJSVal animationName, toJSVal pauseTime, toJSVal element])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation> +pauseAnimationAtTimeOnPseudoElement ::+                                    (MonadDOM m, ToJSString animationName, IsElement element,+                                     ToJSString pseudoId) =>+                                      Internals ->+                                        animationName ->+                                          Double -> Maybe element -> pseudoId -> m Bool+pauseAnimationAtTimeOnPseudoElement self animationName pauseTime+  element pseudoId+  = liftDOM+      ((self ^. jsf "pauseAnimationAtTimeOnPseudoElement"+          [toJSVal animationName, toJSVal pauseTime, toJSVal element,+           toJSVal pseudoId])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation> +pauseTransitionAtTimeOnElement ::+                               (MonadDOM m, ToJSString propertyName, IsElement element) =>+                                 Internals -> propertyName -> Double -> Maybe element -> m Bool+pauseTransitionAtTimeOnElement self propertyName pauseTime element+  = liftDOM+      ((self ^. jsf "pauseTransitionAtTimeOnElement"+          [toJSVal propertyName, toJSVal pauseTime, toJSVal element])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation> +pauseTransitionAtTimeOnPseudoElement ::+                                     (MonadDOM m, ToJSString property, IsElement element,+                                      ToJSString pseudoId) =>+                                       Internals ->+                                         property -> Double -> Maybe element -> pseudoId -> m Bool+pauseTransitionAtTimeOnPseudoElement self property pauseTime+  element pseudoId+  = liftDOM+      ((self ^. jsf "pauseTransitionAtTimeOnPseudoElement"+          [toJSVal property, toJSVal pauseTime, toJSVal element,+           toJSVal pseudoId])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> +attached ::+         (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool+attached self node+  = liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> +visiblePlaceholder ::+                   (MonadDOM m, IsElement element, FromJSString result) =>+                     Internals -> Maybe element -> m result+visiblePlaceholder self element+  = liftDOM+      ((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation> +selectColorInColorChooser ::+                          (MonadDOM m, IsElement element, ToJSString colorValue) =>+                            Internals -> Maybe element -> colorValue -> m ()+selectColorInColorChooser self element colorValue+  = liftDOM+      (void+         (self ^. jsf "selectColorInColorChooser"+            [toJSVal element, toJSVal colorValue]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> +formControlStateOfPreviousHistoryItem ::+                                      (MonadDOM m, FromJSString result) => Internals -> m [result]+formControlStateOfPreviousHistoryItem self+  = liftDOM+      ((self ^. js "formControlStateOfPreviousHistoryItem") >>=+         fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation> +setFormControlStateOfPreviousHistoryItem ::+                                         (MonadDOM m, ToJSString values) =>+                                           Internals -> [values] -> m ()+setFormControlStateOfPreviousHistoryItem self values+  = liftDOM+      (void+         (self ^. jsf "setFormControlStateOfPreviousHistoryItem"+            [toJSVal (array values)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> +absoluteCaretBounds ::+                    (MonadDOM m) => Internals -> m (Maybe ClientRect)+absoluteCaretBounds self+  = liftDOM ((self ^. js "absoluteCaretBounds") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> +boundingBox ::+            (MonadDOM m, IsElement element) =>+              Internals -> Maybe element -> m (Maybe ClientRect)+boundingBox self element+  = liftDOM+      ((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> +inspectorHighlightRects ::+                        (MonadDOM m) => Internals -> m (Maybe ClientRectList)+inspectorHighlightRects self+  = liftDOM ((self ^. js "inspectorHighlightRects") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> +inspectorHighlightObject ::+                         (MonadDOM m, FromJSString result) => Internals -> m result+inspectorHighlightObject self+  = liftDOM+      ((self ^. js "inspectorHighlightObject") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation> +markerCountForNode ::+                   (MonadDOM m, IsNode node, ToJSString markerType) =>+                     Internals -> Maybe node -> markerType -> m Word+markerCountForNode self node markerType+  = liftDOM+      (round <$>+         ((self ^. jsf "markerCountForNode"+             [toJSVal node, toJSVal markerType])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> +markerRangeForNode ::+                   (MonadDOM m, IsNode node, ToJSString markerType) =>+                     Internals -> Maybe node -> markerType -> Word -> m (Maybe Range)+markerRangeForNode self node markerType index+  = liftDOM+      ((self ^. jsf "markerRangeForNode"+          [toJSVal node, toJSVal markerType, toJSVal index])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> +markerDescriptionForNode ::+                         (MonadDOM m, IsNode node, ToJSString markerType,+                          FromJSString result) =>+                           Internals -> Maybe node -> markerType -> Word -> m result+markerDescriptionForNode self node markerType index+  = liftDOM+      ((self ^. jsf "markerDescriptionForNode"+          [toJSVal node, toJSVal markerType, toJSVal index])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation> +addTextMatchMarker ::+                   (MonadDOM m) => Internals -> Maybe Range -> Bool -> m ()+addTextMatchMarker self range isActive+  = liftDOM+      (void+         (self ^. jsf "addTextMatchMarker"+            [toJSVal range, toJSVal isActive]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation> +setMarkedTextMatchesAreHighlighted ::+                                   (MonadDOM m) => Internals -> Bool -> m ()+setMarkedTextMatchesAreHighlighted self flag+  = liftDOM+      (void+         (self ^. jsf "setMarkedTextMatchesAreHighlighted" [toJSVal flag]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation> +invalidateFontCache :: (MonadDOM m) => Internals -> m ()+invalidateFontCache self+  = liftDOM (void (self ^. js "invalidateFontCache"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation> +setScrollViewPosition ::+                      (MonadDOM m) => Internals -> Int -> Int -> m ()+setScrollViewPosition self x y+  = liftDOM+      (void (self ^. jsf "setScrollViewPosition" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation> +setPagination ::+              (MonadDOM m, ToJSString mode) =>+                Internals -> mode -> Int -> Int -> m ()+setPagination self mode gap pageLength+  = liftDOM+      (void+         (self ^. jsf "setPagination"+            [toJSVal mode, toJSVal gap, toJSVal pageLength]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> +configurationForViewport ::+                         (MonadDOM m, FromJSString result) =>+                           Internals -> Float -> Int -> Int -> Int -> Int -> m result+configurationForViewport self devicePixelRatio deviceWidth+  deviceHeight availableWidth availableHeight+  = liftDOM+      ((self ^. jsf "configurationForViewport"+          [toJSVal devicePixelRatio, toJSVal deviceWidth,+           toJSVal deviceHeight, toJSVal availableWidth,+           toJSVal availableHeight])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> +wasLastChangeUserEdit ::+                      (MonadDOM m, IsElement textField) =>+                        Internals -> Maybe textField -> m Bool+wasLastChangeUserEdit self textField+  = liftDOM+      ((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> +elementShouldAutoComplete ::+                          (MonadDOM m, IsElement inputElement) =>+                            Internals -> Maybe inputElement -> m Bool+elementShouldAutoComplete self inputElement+  = liftDOM+      ((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation> +setEditingValue ::+                (MonadDOM m, IsElement inputElement, ToJSString value) =>+                  Internals -> Maybe inputElement -> value -> m ()+setEditingValue self inputElement value+  = liftDOM+      (void+         (self ^. jsf "setEditingValue"+            [toJSVal inputElement, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation> +setAutofilled ::+              (MonadDOM m, IsElement inputElement) =>+                Internals -> Maybe inputElement -> Bool -> m ()+setAutofilled self inputElement enabled+  = liftDOM+      (void+         (self ^. jsf "setAutofilled"+            [toJSVal inputElement, toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation> +countMatchesForText ::+                    (MonadDOM m, ToJSString text, ToJSString markMatches) =>+                      Internals -> text -> Word -> markMatches -> m Word+countMatchesForText self text findOptions markMatches+  = liftDOM+      (round <$>+         ((self ^. jsf "countMatchesForText"+             [toJSVal text, toJSVal findOptions, toJSVal markMatches])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation> +paintControlTints :: (MonadDOM m) => Internals -> m ()+paintControlTints self+  = liftDOM (void (self ^. js "paintControlTints"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation> +scrollElementToRect ::+                    (MonadDOM m, IsElement element) =>+                      Internals -> Maybe element -> Int -> Int -> Int -> Int -> m ()+scrollElementToRect self element x y w h+  = liftDOM+      (void+         (self ^. jsf "scrollElementToRect"+            [toJSVal element, toJSVal x, toJSVal y, toJSVal w, toJSVal h]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> +rangeFromLocationAndLength ::+                           (MonadDOM m, IsElement scope) =>+                             Internals -> Maybe scope -> Int -> Int -> m (Maybe Range)+rangeFromLocationAndLength self scope rangeLocation rangeLength+  = liftDOM+      ((self ^. jsf "rangeFromLocationAndLength"+          [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation> +locationFromRange ::+                  (MonadDOM m, IsElement scope) =>+                    Internals -> Maybe scope -> Maybe Range -> m Word+locationFromRange self scope range+  = liftDOM+      (round <$>+         ((self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation> +lengthFromRange ::+                (MonadDOM m, IsElement scope) =>+                  Internals -> Maybe scope -> Maybe Range -> m Word+lengthFromRange self scope range+  = liftDOM+      (round <$>+         ((self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> +rangeAsText ::+            (MonadDOM m, FromJSString result) =>+              Internals -> Maybe Range -> m result+rangeAsText self range+  = liftDOM+      ((self ^. jsf "rangeAsText" [toJSVal range]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> +subrange ::+         (MonadDOM m) =>+           Internals -> Maybe Range -> Int -> Int -> m (Maybe Range)+subrange self range rangeLocation rangeLength+  = liftDOM+      ((self ^. jsf "subrange"+          [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> +rangeForDictionaryLookupAtLocation ::+                                   (MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range)+rangeForDictionaryLookupAtLocation self x y+  = liftDOM+      ((self ^. jsf "rangeForDictionaryLookupAtLocation"+          [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation> +setDelegatesScrolling :: (MonadDOM m) => Internals -> Bool -> m ()+setDelegatesScrolling self enabled+  = liftDOM+      (void (self ^. jsf "setDelegatesScrolling" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> +lastSpellCheckRequestSequence :: (MonadDOM m) => Internals -> m Int+lastSpellCheckRequestSequence self+  = liftDOM+      (round <$>+         ((self ^. js "lastSpellCheckRequestSequence") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> +lastSpellCheckProcessedSequence ::+                                (MonadDOM m) => Internals -> m Int+lastSpellCheckProcessedSequence self+  = liftDOM+      (round <$>+         ((self ^. js "lastSpellCheckProcessedSequence") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> +userPreferredLanguages ::+                       (MonadDOM m, FromJSString result) => Internals -> m [result]+userPreferredLanguages self+  = liftDOM+      ((self ^. js "userPreferredLanguages") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation> +setUserPreferredLanguages ::+                          (MonadDOM m, ToJSString languages) =>+                            Internals -> [languages] -> m ()+setUserPreferredLanguages self languages+  = liftDOM+      (void+         (self ^. jsf "setUserPreferredLanguages"+            [toJSVal (array languages)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> +wheelEventHandlerCount :: (MonadDOM m) => Internals -> m Word+wheelEventHandlerCount self+  = liftDOM+      (round <$> ((self ^. js "wheelEventHandlerCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> +touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word+touchEventHandlerCount self+  = liftDOM+      (round <$> ((self ^. js "touchEventHandlerCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> +nodesFromRect ::+              (MonadDOM m, IsDocument document) =>+                Internals ->+                  Maybe document ->+                    Int ->+                      Int ->+                        Word ->+                          Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList)+nodesFromRect self document x y topPadding rightPadding+  bottomPadding leftPadding ignoreClipping allowShadowContent+  allowChildFrameContent+  = liftDOM+      ((self ^. jsf "nodesFromRect"+          [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding,+           toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding,+           toJSVal ignoreClipping, toJSVal allowShadowContent,+           toJSVal allowChildFrameContent])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> +parserMetaData ::+               (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result+parserMetaData self func+  = liftDOM+      ((self ^. jsf "parserMetaData" [toJSVal func]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation> +updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m ()+updateEditorUINowIfScheduled self+  = liftDOM (void (self ^. js "updateEditorUINowIfScheduled"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> +hasSpellingMarker ::+                  (MonadDOM m) => Internals -> Int -> Int -> m Bool+hasSpellingMarker self from length+  = liftDOM+      ((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> +hasGrammarMarker ::+                 (MonadDOM m) => Internals -> Int -> Int -> m Bool+hasGrammarMarker self from length+  = liftDOM+      ((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> +hasAutocorrectedMarker ::+                       (MonadDOM m) => Internals -> Int -> Int -> m Bool+hasAutocorrectedMarker self from length+  = liftDOM+      ((self ^. jsf "hasAutocorrectedMarker"+          [toJSVal from, toJSVal length])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation> +setContinuousSpellCheckingEnabled ::+                                  (MonadDOM m) => Internals -> Bool -> m ()+setContinuousSpellCheckingEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setContinuousSpellCheckingEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation> +setAutomaticQuoteSubstitutionEnabled ::+                                     (MonadDOM m) => Internals -> Bool -> m ()+setAutomaticQuoteSubstitutionEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setAutomaticQuoteSubstitutionEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation> +setAutomaticLinkDetectionEnabled ::+                                 (MonadDOM m) => Internals -> Bool -> m ()+setAutomaticLinkDetectionEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setAutomaticLinkDetectionEnabled" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation> +setAutomaticDashSubstitutionEnabled ::+                                    (MonadDOM m) => Internals -> Bool -> m ()+setAutomaticDashSubstitutionEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setAutomaticDashSubstitutionEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation> +setAutomaticTextReplacementEnabled ::+                                   (MonadDOM m) => Internals -> Bool -> m ()+setAutomaticTextReplacementEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setAutomaticTextReplacementEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation> +setAutomaticSpellingCorrectionEnabled ::+                                      (MonadDOM m) => Internals -> Bool -> m ()+setAutomaticSpellingCorrectionEnabled self enabled+  = liftDOM+      (void+         (self ^. jsf "setAutomaticSpellingCorrectionEnabled"+            [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> +isOverwriteModeEnabled :: (MonadDOM m) => Internals -> m Bool+isOverwriteModeEnabled self+  = liftDOM ((self ^. js "isOverwriteModeEnabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation> +toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m ()+toggleOverwriteModeEnabled self+  = liftDOM (void (self ^. js "toggleOverwriteModeEnabled"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> +numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word+numberOfScrollableAreas self+  = liftDOM+      (round <$>+         ((self ^. js "numberOfScrollableAreas") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> +isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool+isPageBoxVisible self pageNumber+  = liftDOM+      ((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> +layerTreeAsText ::+                (MonadDOM m, IsDocument document, FromJSString result) =>+                  Internals -> Maybe document -> Word -> m result+layerTreeAsText self document flags+  = liftDOM+      ((self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> +scrollingStateTreeAsText ::+                         (MonadDOM m, FromJSString result) => Internals -> m result+scrollingStateTreeAsText self+  = liftDOM+      ((self ^. js "scrollingStateTreeAsText") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> +mainThreadScrollingReasons ::+                           (MonadDOM m, FromJSString result) => Internals -> m result+mainThreadScrollingReasons self+  = liftDOM+      ((self ^. js "mainThreadScrollingReasons") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> +nonFastScrollableRects ::+                       (MonadDOM m) => Internals -> m (Maybe ClientRectList)+nonFastScrollableRects self+  = liftDOM ((self ^. js "nonFastScrollableRects") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> +repaintRectsAsText ::+                   (MonadDOM m, FromJSString result) => Internals -> m result+repaintRectsAsText self+  = liftDOM+      ((self ^. js "repaintRectsAsText") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation> +garbageCollectDocumentResources ::+                                (MonadDOM m) => Internals -> m ()+garbageCollectDocumentResources self+  = liftDOM (void (self ^. js "garbageCollectDocumentResources"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation> +allowRoundingHacks :: (MonadDOM m) => Internals -> m ()+allowRoundingHacks self+  = liftDOM (void (self ^. js "allowRoundingHacks"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation> +insertAuthorCSS ::+                (MonadDOM m, ToJSString css) => Internals -> css -> m ()+insertAuthorCSS self css+  = liftDOM (void (self ^. jsf "insertAuthorCSS" [toJSVal css]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation> +insertUserCSS ::+              (MonadDOM m, ToJSString css) => Internals -> css -> m ()+insertUserCSS self css+  = liftDOM (void (self ^. jsf "insertUserCSS" [toJSVal css]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation> +setBatteryStatus ::+                 (MonadDOM m, ToJSString eventType) =>+                   Internals ->+                     eventType -> Bool -> Double -> Double -> Double -> m ()+setBatteryStatus self eventType charging chargingTime+  dischargingTime level+  = liftDOM+      (void+         (self ^. jsf "setBatteryStatus"+            [toJSVal eventType, toJSVal charging, toJSVal chargingTime,+             toJSVal dischargingTime, toJSVal level]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation> +setDeviceProximity ::+                   (MonadDOM m, ToJSString eventType) =>+                     Internals -> eventType -> Double -> Double -> Double -> m ()+setDeviceProximity self eventType value min max+  = liftDOM+      (void+         (self ^. jsf "setDeviceProximity"+            [toJSVal eventType, toJSVal value, toJSVal min, toJSVal max]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> +numberOfLiveNodes :: (MonadDOM m) => Internals -> m Word+numberOfLiveNodes self+  = liftDOM+      (round <$> ((self ^. js "numberOfLiveNodes") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> +numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word+numberOfLiveDocuments self+  = liftDOM+      (round <$> ((self ^. js "numberOfLiveDocuments") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> +consoleMessageArgumentCounts ::+                             (MonadDOM m, FromJSString result) => Internals -> m [result]+consoleMessageArgumentCounts self+  = liftDOM+      ((self ^. js "consoleMessageArgumentCounts") >>=+         fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> +openDummyInspectorFrontend ::+                           (MonadDOM m, ToJSString url) =>+                             Internals -> url -> m (Maybe Window)+openDummyInspectorFrontend self url+  = liftDOM+      ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation> +closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m ()+closeDummyInspectorFrontend self+  = liftDOM (void (self ^. js "closeDummyInspectorFrontend"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation> +setJavaScriptProfilingEnabled ::+                              (MonadDOM m) => Internals -> Bool -> m ()+setJavaScriptProfilingEnabled self creates+  = liftDOM+      (void+         (self ^. jsf "setJavaScriptProfilingEnabled" [toJSVal creates]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation> +setInspectorIsUnderTest ::+                        (MonadDOM m) => Internals -> Bool -> m ()+setInspectorIsUnderTest self isUnderTest+  = liftDOM+      (void+         (self ^. jsf "setInspectorIsUnderTest" [toJSVal isUnderTest]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> +counterValue ::+             (MonadDOM m, IsElement element, FromJSString result) =>+               Internals -> Maybe element -> m result+counterValue self element+  = liftDOM+      ((self ^. jsf "counterValue" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation> +pageNumber ::+           (MonadDOM m, IsElement element) =>+             Internals -> Maybe element -> Float -> Float -> m Int+pageNumber self element pageWidth pageHeight+  = liftDOM+      (round <$>+         ((self ^. jsf "pageNumber"+             [toJSVal element, toJSVal pageWidth, toJSVal pageHeight])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> +shortcutIconURLs ::+                 (MonadDOM m, FromJSString result) => Internals -> m [result]+shortcutIconURLs self+  = liftDOM+      ((self ^. js "shortcutIconURLs") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> +allIconURLs ::+            (MonadDOM m, FromJSString result) => Internals -> m [result]+allIconURLs self+  = liftDOM ((self ^. js "allIconURLs") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> +numberOfPages ::+              (MonadDOM m) => Internals -> Double -> Double -> m Int+numberOfPages self pageWidthInPixels pageHeightInPixels+  = liftDOM+      (round <$>+         ((self ^. jsf "numberOfPages"+             [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> +pageProperty ::+             (MonadDOM m, ToJSString propertyName, FromJSString result) =>+               Internals -> propertyName -> Int -> m result+pageProperty self propertyName pageNumber+  = liftDOM+      ((self ^. jsf "pageProperty"+          [toJSVal propertyName, toJSVal pageNumber])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> +pageSizeAndMarginsInPixels ::+                           (MonadDOM m, FromJSString result) =>+                             Internals ->+                               Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result+pageSizeAndMarginsInPixels self pageIndex width height marginTop+  marginRight marginBottom marginLeft+  = liftDOM+      ((self ^. jsf "pageSizeAndMarginsInPixels"+          [toJSVal pageIndex, toJSVal width, toJSVal height,+           toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom,+           toJSVal marginLeft])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation> +setPageScaleFactor ::+                   (MonadDOM m) => Internals -> Float -> Int -> Int -> m ()+setPageScaleFactor self scaleFactor x y+  = liftDOM+      (void+         (self ^. jsf "setPageScaleFactor"+            [toJSVal scaleFactor, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation> +setPageZoomFactor :: (MonadDOM m) => Internals -> Float -> m ()+setPageZoomFactor self zoomFactor+  = liftDOM+      (void (self ^. jsf "setPageZoomFactor" [toJSVal zoomFactor]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation> +setHeaderHeight :: (MonadDOM m) => Internals -> Float -> m ()+setHeaderHeight self height+  = liftDOM (void (self ^. jsf "setHeaderHeight" [toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation> +setFooterHeight :: (MonadDOM m) => Internals -> Float -> m ()+setFooterHeight self height+  = liftDOM (void (self ^. jsf "setFooterHeight" [toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation> +setTopContentInset :: (MonadDOM m) => Internals -> Float -> m ()+setTopContentInset self contentInset+  = liftDOM+      (void (self ^. jsf "setTopContentInset" [toJSVal contentInset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation> +webkitWillEnterFullScreenForElement ::+                                    (MonadDOM m, IsElement element) =>+                                      Internals -> Maybe element -> m ()+webkitWillEnterFullScreenForElement self element+  = liftDOM+      (void+         (self ^. jsf "webkitWillEnterFullScreenForElement"+            [toJSVal element]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation> +webkitDidEnterFullScreenForElement ::+                                   (MonadDOM m, IsElement element) =>+                                     Internals -> Maybe element -> m ()+webkitDidEnterFullScreenForElement self element+  = liftDOM+      (void+         (self ^. jsf "webkitDidEnterFullScreenForElement"+            [toJSVal element]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation> +webkitWillExitFullScreenForElement ::+                                   (MonadDOM m, IsElement element) =>+                                     Internals -> Maybe element -> m ()+webkitWillExitFullScreenForElement self element+  = liftDOM+      (void+         (self ^. jsf "webkitWillExitFullScreenForElement"+            [toJSVal element]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation> +webkitDidExitFullScreenForElement ::+                                  (MonadDOM m, IsElement element) =>+                                    Internals -> Maybe element -> m ()+webkitDidExitFullScreenForElement self element+  = liftDOM+      (void+         (self ^. jsf "webkitDidExitFullScreenForElement"+            [toJSVal element]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation> +setApplicationCacheOriginQuota ::+                               (MonadDOM m) => Internals -> Word64 -> m ()+setApplicationCacheOriginQuota self quota+  = liftDOM+      (void+         (self ^. jsf "setApplicationCacheOriginQuota" [toJSVal quota]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation> +registerURLSchemeAsBypassingContentSecurityPolicy ::+                                                  (MonadDOM m, ToJSString scheme) =>+                                                    Internals -> scheme -> m ()+registerURLSchemeAsBypassingContentSecurityPolicy self scheme+  = liftDOM+      (void+         (self ^. jsf "registerURLSchemeAsBypassingContentSecurityPolicy"+            [toJSVal scheme]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation> +removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::+                                                          (MonadDOM m, ToJSString scheme) =>+                                                            Internals -> scheme -> m ()+removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self+  scheme+  = liftDOM+      (void+         (self ^.+            jsf "removeURLSchemeRegisteredAsBypassingContentSecurityPolicy"+            [toJSVal scheme]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> +mallocStatistics ::+                 (MonadDOM m) => Internals -> m (Maybe MallocStatistics)+mallocStatistics self+  = liftDOM ((self ^. js "mallocStatistics") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> +typeConversions ::+                (MonadDOM m) => Internals -> m (Maybe TypeConversions)+typeConversions self+  = liftDOM ((self ^. js "typeConversions") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> +memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo)+memoryInfo self = liftDOM ((self ^. js "memoryInfo") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> +getReferencedFilePaths ::+                       (MonadDOM m, FromJSString result) => Internals -> m [result]+getReferencedFilePaths self+  = liftDOM+      ((self ^. js "getReferencedFilePaths") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation> +startTrackingRepaints :: (MonadDOM m) => Internals -> m ()+startTrackingRepaints self+  = liftDOM (void (self ^. js "startTrackingRepaints"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation> +stopTrackingRepaints :: (MonadDOM m) => Internals -> m ()+stopTrackingRepaints self+  = liftDOM (void (self ^. js "stopTrackingRepaints"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> +isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool+isTimerThrottled self timerHandle+  = liftDOM+      ((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation> +updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::+                                                          (MonadDOM m, IsNode node) =>+                                                            Internals -> Maybe node -> m ()+updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node+  = liftDOM+      (void+         (self ^.+            jsf "updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks"+            [toJSVal node]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> +getCurrentCursorInfo ::+                     (MonadDOM m, FromJSString result) => Internals -> m result+getCurrentCursorInfo self+  = liftDOM+      ((self ^. js "getCurrentCursorInfo") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> +markerTextForListItem ::+                      (MonadDOM m, IsElement element, FromJSString result) =>+                        Internals -> Maybe element -> m result+markerTextForListItem self element+  = liftDOM+      ((self ^. jsf "markerTextForListItem" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> +toolTipFromElement ::+                   (MonadDOM m, IsElement element, FromJSString result) =>+                     Internals -> Maybe element -> m result+toolTipFromElement self element+  = liftDOM+      ((self ^. jsf "toolTipFromElement" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> +deserializeBuffer ::+                  (MonadDOM m, IsArrayBuffer buffer) =>+                    Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)+deserializeBuffer self buffer+  = liftDOM+      ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> +serializeObject ::+                (MonadDOM m, IsSerializedScriptValue obj) =>+                  Internals -> Maybe obj -> m (Maybe ArrayBuffer)+serializeObject self obj+  = liftDOM+      ((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation> +setUsesOverlayScrollbars ::+                         (MonadDOM m) => Internals -> Bool -> m ()+setUsesOverlayScrollbars self enabled+  = liftDOM+      (void (self ^. jsf "setUsesOverlayScrollbars" [toJSVal enabled]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation> +forceReload :: (MonadDOM m) => Internals -> Bool -> m ()+forceReload self endToEnd+  = liftDOM (void (self ^. jsf "forceReload" [toJSVal endToEnd]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation> +simulateAudioInterruption ::+                          (MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()+simulateAudioInterruption self node+  = liftDOM+      (void (self ^. jsf "simulateAudioInterruption" [toJSVal node]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation> +mediaElementHasCharacteristic ::+                              (MonadDOM m, IsNode node, ToJSString characteristic) =>+                                Internals -> Maybe node -> characteristic -> m Bool+mediaElementHasCharacteristic self node characteristic+  = liftDOM+      ((self ^. jsf "mediaElementHasCharacteristic"+          [toJSVal node, toJSVal characteristic])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation> +initializeMockCDM :: (MonadDOM m) => Internals -> m ()+initializeMockCDM self+  = liftDOM (void (self ^. js "initializeMockCDM"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation> +enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m ()+enableMockSpeechSynthesizer self+  = liftDOM (void (self ^. js "enableMockSpeechSynthesizer"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> +getImageSourceURL ::+                  (MonadDOM m, IsElement element, FromJSString result) =>+                    Internals -> Maybe element -> m result+getImageSourceURL self element+  = liftDOM+      ((self ^. jsf "getImageSourceURL" [toJSVal element]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> +captionsStyleSheetOverride ::+                           (MonadDOM m, FromJSString result) => Internals -> m result+captionsStyleSheetOverride self+  = liftDOM+      ((self ^. js "captionsStyleSheetOverride") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation> +setCaptionsStyleSheetOverride ::+                              (MonadDOM m, ToJSString override) => Internals -> override -> m ()+setCaptionsStyleSheetOverride self override+  = liftDOM+      (void+         (self ^. jsf "setCaptionsStyleSheetOverride" [toJSVal override]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation> +setPrimaryAudioTrackLanguageOverride ::+                                     (MonadDOM m, ToJSString language) =>+                                       Internals -> language -> m ()+setPrimaryAudioTrackLanguageOverride self language+  = liftDOM+      (void+         (self ^. jsf "setPrimaryAudioTrackLanguageOverride"+            [toJSVal language]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation> +setCaptionDisplayMode ::+                      (MonadDOM m, ToJSString mode) => Internals -> mode -> m ()+setCaptionDisplayMode self mode+  = liftDOM+      (void (self ^. jsf "setCaptionDisplayMode" [toJSVal mode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> +createTimeRanges ::+                 (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>+                   Internals ->+                     Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges)+createTimeRanges self startTimes endTimes+  = liftDOM+      ((self ^. jsf "createTimeRanges"+          [toJSVal startTimes, toJSVal endTimes])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> +closestTimeToTimeRanges ::+                        (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double+closestTimeToTimeRanges self time ranges+  = liftDOM+      ((self ^. jsf "closestTimeToTimeRanges"+          [toJSVal time, toJSVal ranges])+         >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> +isSelectPopupVisible ::+                     (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool+isSelectPopupVisible self node+  = liftDOM+      ((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> +isVibrating :: (MonadDOM m) => Internals -> m Bool+isVibrating self+  = liftDOM ((self ^. js "isVibrating") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> +isPluginUnavailabilityIndicatorObscured ::+                                        (MonadDOM m, IsElement element) =>+                                          Internals -> Maybe element -> m Bool+isPluginUnavailabilityIndicatorObscured self element+  = liftDOM+      ((self ^. jsf "isPluginUnavailabilityIndicatorObscured"+          [toJSVal element])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> +isPluginSnapshotted ::+                    (MonadDOM m, IsElement element) =>+                      Internals -> Maybe element -> m Bool+isPluginSnapshotted self element+  = liftDOM+      ((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> +selectionBounds ::+                (MonadDOM m) => Internals -> m (Maybe ClientRect)+selectionBounds self+  = liftDOM ((self ^. js "selectionBounds") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation> +initializeMockMediaSource :: (MonadDOM m) => Internals -> m ()+initializeMockMediaSource self+  = liftDOM (void (self ^. js "initializeMockMediaSource"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> +bufferedSamplesForTrackID ::+                          (MonadDOM m, ToJSString trackID, FromJSString result) =>+                            Internals -> Maybe SourceBuffer -> trackID -> m [result]+bufferedSamplesForTrackID self buffer trackID+  = liftDOM+      ((self ^. jsf "bufferedSamplesForTrackID"+          [toJSVal buffer, toJSVal trackID])+         >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation> +beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m ()+beginMediaSessionInterruption self+  = liftDOM (void (self ^. js "beginMediaSessionInterruption"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation> +endMediaSessionInterruption ::+                            (MonadDOM m, ToJSString flags) => Internals -> flags -> m ()+endMediaSessionInterruption self flags+  = liftDOM+      (void (self ^. jsf "endMediaSessionInterruption" [toJSVal flags]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation> +applicationWillEnterForeground :: (MonadDOM m) => Internals -> m ()+applicationWillEnterForeground self+  = liftDOM (void (self ^. js "applicationWillEnterForeground"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation> +applicationWillEnterBackground :: (MonadDOM m) => Internals -> m ()+applicationWillEnterBackground self+  = liftDOM (void (self ^. js "applicationWillEnterBackground"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation> +setMediaSessionRestrictions ::+                            (MonadDOM m, ToJSString mediaType, ToJSString restrictions) =>+                              Internals -> mediaType -> restrictions -> m ()+setMediaSessionRestrictions self mediaType restrictions+  = liftDOM+      (void+         (self ^. jsf "setMediaSessionRestrictions"+            [toJSVal mediaType, toJSVal restrictions]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation> +postRemoteControlCommand ::+                         (MonadDOM m, ToJSString command) => Internals -> command -> m ()+postRemoteControlCommand self command+  = liftDOM+      (void (self ^. jsf "postRemoteControlCommand" [toJSVal command]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation> +simulateSystemSleep :: (MonadDOM m) => Internals -> m ()+simulateSystemSleep self+  = liftDOM (void (self ^. js "simulateSystemSleep"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation> +simulateSystemWake :: (MonadDOM m) => Internals -> m ()+simulateSystemWake self+  = liftDOM (void (self ^. js "simulateSystemWake"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> +elementIsBlockingDisplaySleep ::+                              (MonadDOM m, IsElement element) =>+                                Internals -> Maybe element -> m Bool+elementIsBlockingDisplaySleep self element+  = liftDOM+      ((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation> +installMockPageOverlay ::+                       (MonadDOM m) => Internals -> PageOverlayType -> m ()+installMockPageOverlay self type'+  = liftDOM+      (void (self ^. jsf "installMockPageOverlay" [toJSVal type']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> +pageOverlayLayerTreeAsText ::+                           (MonadDOM m, FromJSString result) => Internals -> m result+pageOverlayLayerTreeAsText self+  = liftDOM+      ((self ^. js "pageOverlayLayerTreeAsText") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation> +setPageMuted :: (MonadDOM m) => Internals -> Bool -> m ()+setPageMuted self muted+  = liftDOM (void (self ^. jsf "setPageMuted" [toJSVal muted]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> +isPagePlayingAudio :: (MonadDOM m) => Internals -> m Bool+isPagePlayingAudio self+  = liftDOM ((self ^. js "isPagePlayingAudio") >>= valToBool)+pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1+pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2+pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4+pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8+pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> +getSettings ::+            (MonadDOM m) => Internals -> m (Maybe InternalSettings)+getSettings self = liftDOM ((self ^. js "settings") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.workerThreadCount Mozilla Internals.workerThreadCount documentation> +getWorkerThreadCount :: (MonadDOM m) => Internals -> m Word+getWorkerThreadCount self+  = liftDOM+      (round <$> ((self ^. js "workerThreadCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleProfiles Mozilla Internals.consoleProfiles documentation> +getConsoleProfiles ::+                   (MonadDOM m) => Internals -> m [Maybe ScriptProfile]+getConsoleProfiles self+  = liftDOM ((self ^. js "consoleProfiles") >>= fromJSArray)
+ src/JSDOM/Generated/KeyboardEvent.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.KeyboardEvent+       (initKeyboardEvent, pattern DOM_KEY_LOCATION_STANDARD,+        pattern DOM_KEY_LOCATION_LEFT, pattern DOM_KEY_LOCATION_RIGHT,+        pattern DOM_KEY_LOCATION_NUMPAD, getKeyIdentifier, getLocation,+        getKeyLocation, getCtrlKey, getShiftKey, getAltKey, getMetaKey,+        getAltGraphKey, KeyboardEvent, castToKeyboardEvent,+        gTypeKeyboardEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.initKeyboardEvent Mozilla KeyboardEvent.initKeyboardEvent documentation> +initKeyboardEvent ::+                  (MonadDOM m, ToJSString type', ToJSString keyIdentifier) =>+                    KeyboardEvent ->+                      type' ->+                        Bool ->+                          Bool ->+                            Maybe Window ->+                              keyIdentifier ->+                                Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()+initKeyboardEvent self type' canBubble cancelable view+  keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey+  = liftDOM+      (void+         (self ^. jsf "initKeyboardEvent"+            [toJSVal type', toJSVal canBubble, toJSVal cancelable,+             toJSVal view, toJSVal keyIdentifier, toJSVal location,+             toJSVal ctrlKey, toJSVal altKey, toJSVal shiftKey, toJSVal metaKey,+             toJSVal altGraphKey]))+pattern DOM_KEY_LOCATION_STANDARD = 0+pattern DOM_KEY_LOCATION_LEFT = 1+pattern DOM_KEY_LOCATION_RIGHT = 2+pattern DOM_KEY_LOCATION_NUMPAD = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyIdentifier Mozilla KeyboardEvent.keyIdentifier documentation> +getKeyIdentifier ::+                 (MonadDOM m, FromJSString result) => KeyboardEvent -> m result+getKeyIdentifier self+  = liftDOM ((self ^. js "keyIdentifier") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.location Mozilla KeyboardEvent.location documentation> +getLocation :: (MonadDOM m) => KeyboardEvent -> m Word+getLocation self+  = liftDOM (round <$> ((self ^. js "location") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyLocation Mozilla KeyboardEvent.keyLocation documentation> +getKeyLocation :: (MonadDOM m) => KeyboardEvent -> m Word+getKeyLocation self+  = liftDOM (round <$> ((self ^. js "keyLocation") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.ctrlKey Mozilla KeyboardEvent.ctrlKey documentation> +getCtrlKey :: (MonadDOM m) => KeyboardEvent -> m Bool+getCtrlKey self = liftDOM ((self ^. js "ctrlKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.shiftKey Mozilla KeyboardEvent.shiftKey documentation> +getShiftKey :: (MonadDOM m) => KeyboardEvent -> m Bool+getShiftKey self = liftDOM ((self ^. js "shiftKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altKey Mozilla KeyboardEvent.altKey documentation> +getAltKey :: (MonadDOM m) => KeyboardEvent -> m Bool+getAltKey self = liftDOM ((self ^. js "altKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.metaKey Mozilla KeyboardEvent.metaKey documentation> +getMetaKey :: (MonadDOM m) => KeyboardEvent -> m Bool+getMetaKey self = liftDOM ((self ^. js "metaKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altGraphKey Mozilla KeyboardEvent.altGraphKey documentation> +getAltGraphKey :: (MonadDOM m) => KeyboardEvent -> m Bool+getAltGraphKey self+  = liftDOM ((self ^. js "altGraphKey") >>= valToBool)
+ src/JSDOM/Generated/Location.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Location+       (assign, replace, reload, toString, setHref, getHref, setProtocol,+        getProtocol, setHost, getHost, setHostname, getHostname, setPort,+        getPort, setPathname, getPathname, setSearch, getSearch, setHash,+        getHash, getOrigin, getAncestorOrigins, Location, castToLocation,+        gTypeLocation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.assign Mozilla Location.assign documentation> +assign :: (MonadDOM m, ToJSString url) => Location -> url -> m ()+assign self url+  = liftDOM (void (self ^. jsf "assign" [toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.replace Mozilla Location.replace documentation> +replace :: (MonadDOM m, ToJSString url) => Location -> url -> m ()+replace self url+  = liftDOM (void (self ^. jsf "replace" [toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.reload Mozilla Location.reload documentation> +reload :: (MonadDOM m) => Location -> m ()+reload self = liftDOM (void (self ^. js "reload"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.toString Mozilla Location.toString documentation> +toString ::+         (MonadDOM m, FromJSString result) => Location -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation> +setHref :: (MonadDOM m, ToJSString val) => Location -> val -> m ()+setHref self val = liftDOM (self ^. jss "href" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) => Location -> m result+getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation> +setProtocol ::+            (MonadDOM m, ToJSString val) => Location -> val -> m ()+setProtocol self val+  = liftDOM (self ^. jss "protocol" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) => Location -> m result+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation> +setHost :: (MonadDOM m, ToJSString val) => Location -> val -> m ()+setHost self val = liftDOM (self ^. jss "host" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation> +getHost ::+        (MonadDOM m, FromJSString result) => Location -> m result+getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation> +setHostname ::+            (MonadDOM m, ToJSString val) => Location -> val -> m ()+setHostname self val+  = liftDOM (self ^. jss "hostname" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation> +getHostname ::+            (MonadDOM m, FromJSString result) => Location -> m result+getHostname self+  = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation> +setPort :: (MonadDOM m, ToJSString val) => Location -> val -> m ()+setPort self val = liftDOM (self ^. jss "port" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation> +getPort ::+        (MonadDOM m, FromJSString result) => Location -> m result+getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation> +setPathname ::+            (MonadDOM m, ToJSString val) => Location -> val -> m ()+setPathname self val+  = liftDOM (self ^. jss "pathname" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation> +getPathname ::+            (MonadDOM m, FromJSString result) => Location -> m result+getPathname self+  = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation> +setSearch ::+          (MonadDOM m, ToJSString val) => Location -> val -> m ()+setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation> +getSearch ::+          (MonadDOM m, FromJSString result) => Location -> m result+getSearch self+  = liftDOM ((self ^. js "search") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation> +setHash :: (MonadDOM m, ToJSString val) => Location -> val -> m ()+setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation> +getHash ::+        (MonadDOM m, FromJSString result) => Location -> m result+getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.origin Mozilla Location.origin documentation> +getOrigin ::+          (MonadDOM m, FromJSString result) => Location -> m result+getOrigin self+  = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> +getAncestorOrigins ::+                   (MonadDOM m) => Location -> m (Maybe DOMStringList)+getAncestorOrigins self+  = liftDOM ((self ^. js "ancestorOrigins") >>= fromJSVal)
+ src/JSDOM/Generated/MallocStatistics.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MallocStatistics+       (getReservedVMBytes, getCommittedVMBytes, getFreeListBytes,+        MallocStatistics, castToMallocStatistics, gTypeMallocStatistics)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.reservedVMBytes Mozilla MallocStatistics.reservedVMBytes documentation> +getReservedVMBytes :: (MonadDOM m) => MallocStatistics -> m Word+getReservedVMBytes self+  = liftDOM+      (round <$> ((self ^. js "reservedVMBytes") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.committedVMBytes Mozilla MallocStatistics.committedVMBytes documentation> +getCommittedVMBytes :: (MonadDOM m) => MallocStatistics -> m Word+getCommittedVMBytes self+  = liftDOM+      (round <$> ((self ^. js "committedVMBytes") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.freeListBytes Mozilla MallocStatistics.freeListBytes documentation> +getFreeListBytes :: (MonadDOM m) => MallocStatistics -> m Word+getFreeListBytes self+  = liftDOM+      (round <$> ((self ^. js "freeListBytes") >>= valToNumber))
+ src/JSDOM/Generated/MediaController.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaController+       (newMediaController, play, pause, unpause, getBuffered,+        getSeekable, getDuration, setCurrentTime, getCurrentTime,+        getPaused, getPlayed, getPlaybackState, setDefaultPlaybackRate,+        getDefaultPlaybackRate, setPlaybackRate, getPlaybackRate,+        setVolume, getVolume, setMuted, getMuted, MediaController,+        castToMediaController, gTypeMediaController)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController Mozilla MediaController documentation> +newMediaController :: (MonadDOM m) => m MediaController+newMediaController+  = liftDOM (MediaController <$> new (jsg "MediaController") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.play Mozilla MediaController.play documentation> +play :: (MonadDOM m) => MediaController -> m ()+play self = liftDOM (void (self ^. js "play"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.pause Mozilla MediaController.pause documentation> +pause :: (MonadDOM m) => MediaController -> m ()+pause self = liftDOM (void (self ^. js "pause"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.unpause Mozilla MediaController.unpause documentation> +unpause :: (MonadDOM m) => MediaController -> m ()+unpause self = liftDOM (void (self ^. js "unpause"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> +getBuffered ::+            (MonadDOM m) => MediaController -> m (Maybe TimeRanges)+getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> +getSeekable ::+            (MonadDOM m) => MediaController -> m (Maybe TimeRanges)+getSeekable self = liftDOM ((self ^. js "seekable") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.duration Mozilla MediaController.duration documentation> +getDuration :: (MonadDOM m) => MediaController -> m Double+getDuration self+  = liftDOM ((self ^. js "duration") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation> +setCurrentTime :: (MonadDOM m) => MediaController -> Double -> m ()+setCurrentTime self val+  = liftDOM (self ^. jss "currentTime" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation> +getCurrentTime :: (MonadDOM m) => MediaController -> m Double+getCurrentTime self+  = liftDOM ((self ^. js "currentTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.paused Mozilla MediaController.paused documentation> +getPaused :: (MonadDOM m) => MediaController -> m Bool+getPaused self = liftDOM ((self ^. js "paused") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> +getPlayed ::+          (MonadDOM m) => MediaController -> m (Maybe TimeRanges)+getPlayed self = liftDOM ((self ^. js "played") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackState Mozilla MediaController.playbackState documentation> +getPlaybackState ::+                 (MonadDOM m, FromJSString result) => MediaController -> m result+getPlaybackState self+  = liftDOM ((self ^. js "playbackState") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation> +setDefaultPlaybackRate ::+                       (MonadDOM m) => MediaController -> Double -> m ()+setDefaultPlaybackRate self val+  = liftDOM (self ^. jss "defaultPlaybackRate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation> +getDefaultPlaybackRate ::+                       (MonadDOM m) => MediaController -> m Double+getDefaultPlaybackRate self+  = liftDOM ((self ^. js "defaultPlaybackRate") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation> +setPlaybackRate ::+                (MonadDOM m) => MediaController -> Double -> m ()+setPlaybackRate self val+  = liftDOM (self ^. jss "playbackRate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation> +getPlaybackRate :: (MonadDOM m) => MediaController -> m Double+getPlaybackRate self+  = liftDOM ((self ^. js "playbackRate") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation> +setVolume :: (MonadDOM m) => MediaController -> Double -> m ()+setVolume self val = liftDOM (self ^. jss "volume" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation> +getVolume :: (MonadDOM m) => MediaController -> m Double+getVolume self = liftDOM ((self ^. js "volume") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation> +setMuted :: (MonadDOM m) => MediaController -> Bool -> m ()+setMuted self val = liftDOM (self ^. jss "muted" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation> +getMuted :: (MonadDOM m) => MediaController -> m Bool+getMuted self = liftDOM ((self ^. js "muted") >>= valToBool)
+ src/JSDOM/Generated/MediaControlsHost.hs view
@@ -0,0 +1,170 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaControlsHost+       (sortedTrackListForMenu, sortedTrackListForMenuAudio,+        displayNameForTrack, displayNameForTrackAudio,+        setSelectedTextTrack, updateTextTrackContainer, enteredFullscreen,+        exitedFullscreen, enterFullscreenOptimized, mediaUIImageData,+        getCaptionMenuOffItem, getCaptionMenuAutomaticItem,+        getCaptionDisplayMode, getTextTrackContainer,+        getMediaPlaybackAllowsInline, getSupportsFullscreen,+        getUserGestureRequired, getExternalDeviceDisplayName,+        getExternalDeviceType, setControlsDependOnPageScaleFactor,+        getControlsDependOnPageScaleFactor, MediaControlsHost,+        castToMediaControlsHost, gTypeMediaControlsHost)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> +sortedTrackListForMenu ::+                       (MonadDOM m) =>+                         MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack]+sortedTrackListForMenu self trackList+  = liftDOM+      ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=+         fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> +sortedTrackListForMenuAudio ::+                            (MonadDOM m) =>+                              MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack]+sortedTrackListForMenuAudio self trackList+  = liftDOM+      ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=+         fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> +displayNameForTrack ::+                    (MonadDOM m, FromJSString result) =>+                      MediaControlsHost -> Maybe TextTrack -> m result+displayNameForTrack self track+  = liftDOM+      ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> +displayNameForTrackAudio ::+                         (MonadDOM m, FromJSString result) =>+                           MediaControlsHost -> Maybe AudioTrack -> m result+displayNameForTrackAudio self track+  = liftDOM+      ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.setSelectedTextTrack Mozilla MediaControlsHost.setSelectedTextTrack documentation> +setSelectedTextTrack ::+                     (MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m ()+setSelectedTextTrack self track+  = liftDOM+      (void (self ^. jsf "setSelectedTextTrack" [toJSVal track]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.updateTextTrackContainer Mozilla MediaControlsHost.updateTextTrackContainer documentation> +updateTextTrackContainer ::+                         (MonadDOM m) => MediaControlsHost -> m ()+updateTextTrackContainer self+  = liftDOM (void (self ^. js "updateTextTrackContainer"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enteredFullscreen Mozilla MediaControlsHost.enteredFullscreen documentation> +enteredFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()+enteredFullscreen self+  = liftDOM (void (self ^. js "enteredFullscreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.exitedFullscreen Mozilla MediaControlsHost.exitedFullscreen documentation> +exitedFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()+exitedFullscreen self+  = liftDOM (void (self ^. js "exitedFullscreen"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enterFullscreenOptimized Mozilla MediaControlsHost.enterFullscreenOptimized documentation> +enterFullscreenOptimized ::+                         (MonadDOM m) => MediaControlsHost -> m ()+enterFullscreenOptimized self+  = liftDOM (void (self ^. js "enterFullscreenOptimized"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaUIImageData Mozilla MediaControlsHost.mediaUIImageData documentation> +mediaUIImageData ::+                 (MonadDOM m, FromJSString result) =>+                   MediaControlsHost -> MediaUIPartID -> m result+mediaUIImageData self partID+  = liftDOM+      ((self ^. jsf "mediaUIImageData" [toJSVal partID]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> +getCaptionMenuOffItem ::+                      (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack)+getCaptionMenuOffItem self+  = liftDOM ((self ^. js "captionMenuOffItem") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> +getCaptionMenuAutomaticItem ::+                            (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack)+getCaptionMenuAutomaticItem self+  = liftDOM ((self ^. js "captionMenuAutomaticItem") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionDisplayMode Mozilla MediaControlsHost.captionDisplayMode documentation> +getCaptionDisplayMode ::+                      (MonadDOM m, FromJSString result) => MediaControlsHost -> m result+getCaptionDisplayMode self+  = liftDOM+      ((self ^. js "captionDisplayMode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> +getTextTrackContainer ::+                      (MonadDOM m) => MediaControlsHost -> m (Maybe HTMLElement)+getTextTrackContainer self+  = liftDOM ((self ^. js "textTrackContainer") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaPlaybackAllowsInline Mozilla MediaControlsHost.mediaPlaybackAllowsInline documentation> +getMediaPlaybackAllowsInline ::+                             (MonadDOM m) => MediaControlsHost -> m Bool+getMediaPlaybackAllowsInline self+  = liftDOM ((self ^. js "mediaPlaybackAllowsInline") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.supportsFullscreen Mozilla MediaControlsHost.supportsFullscreen documentation> +getSupportsFullscreen ::+                      (MonadDOM m) => MediaControlsHost -> m Bool+getSupportsFullscreen self+  = liftDOM ((self ^. js "supportsFullscreen") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.userGestureRequired Mozilla MediaControlsHost.userGestureRequired documentation> +getUserGestureRequired ::+                       (MonadDOM m) => MediaControlsHost -> m Bool+getUserGestureRequired self+  = liftDOM ((self ^. js "userGestureRequired") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceDisplayName Mozilla MediaControlsHost.externalDeviceDisplayName documentation> +getExternalDeviceDisplayName ::+                             (MonadDOM m, FromJSString result) => MediaControlsHost -> m result+getExternalDeviceDisplayName self+  = liftDOM+      ((self ^. js "externalDeviceDisplayName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceType Mozilla MediaControlsHost.externalDeviceType documentation> +getExternalDeviceType ::+                      (MonadDOM m) => MediaControlsHost -> m DeviceType+getExternalDeviceType self+  = liftDOM+      ((self ^. js "externalDeviceType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation> +setControlsDependOnPageScaleFactor ::+                                   (MonadDOM m) => MediaControlsHost -> Bool -> m ()+setControlsDependOnPageScaleFactor self val+  = liftDOM+      (self ^. jss "controlsDependOnPageScaleFactor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation> +getControlsDependOnPageScaleFactor ::+                                   (MonadDOM m) => MediaControlsHost -> m Bool+getControlsDependOnPageScaleFactor self+  = liftDOM+      ((self ^. js "controlsDependOnPageScaleFactor") >>= valToBool)
+ src/JSDOM/Generated/MediaElementAudioSourceNode.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaElementAudioSourceNode+       (getMediaElement, MediaElementAudioSourceNode,+        castToMediaElementAudioSourceNode,+        gTypeMediaElementAudioSourceNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> +getMediaElement ::+                (MonadDOM m) =>+                  MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement)+getMediaElement self+  = liftDOM ((self ^. js "mediaElement") >>= fromJSVal)
+ src/JSDOM/Generated/MediaError.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaError+       (pattern MEDIA_ERR_ABORTED, pattern MEDIA_ERR_NETWORK,+        pattern MEDIA_ERR_DECODE, pattern MEDIA_ERR_SRC_NOT_SUPPORTED,+        pattern MEDIA_ERR_ENCRYPTED, getCode, MediaError, castToMediaError,+        gTypeMediaError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern MEDIA_ERR_ABORTED = 1+pattern MEDIA_ERR_NETWORK = 2+pattern MEDIA_ERR_DECODE = 3+pattern MEDIA_ERR_SRC_NOT_SUPPORTED = 4+pattern MEDIA_ERR_ENCRYPTED = 5++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaError.code Mozilla MediaError.code documentation> +getCode :: (MonadDOM m) => MediaError -> m Word+getCode self+  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))
+ src/JSDOM/Generated/MediaKeyError.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaKeyError+       (pattern MEDIA_KEYERR_UNKNOWN, pattern MEDIA_KEYERR_CLIENT,+        pattern MEDIA_KEYERR_SERVICE, pattern MEDIA_KEYERR_OUTPUT,+        pattern MEDIA_KEYERR_HARDWARECHANGE, pattern MEDIA_KEYERR_DOMAIN,+        getCode, getSystemCode, MediaKeyError, castToMediaKeyError,+        gTypeMediaKeyError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern MEDIA_KEYERR_UNKNOWN = 1+pattern MEDIA_KEYERR_CLIENT = 2+pattern MEDIA_KEYERR_SERVICE = 3+pattern MEDIA_KEYERR_OUTPUT = 4+pattern MEDIA_KEYERR_HARDWARECHANGE = 5+pattern MEDIA_KEYERR_DOMAIN = 6++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.code Mozilla WebKitMediaKeyError.code documentation> +getCode :: (MonadDOM m) => MediaKeyError -> m Word+getCode self+  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.systemCode Mozilla WebKitMediaKeyError.systemCode documentation> +getSystemCode :: (MonadDOM m) => MediaKeyError -> m Word+getSystemCode self+  = liftDOM (round <$> ((self ^. js "systemCode") >>= valToNumber))
+ src/JSDOM/Generated/MediaKeyEvent.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaKeyEvent+       (getKeySystem, getSessionId, getInitData, getMessage,+        getDefaultURL, getErrorCode, getSystemCode, MediaKeyEvent,+        castToMediaKeyEvent, gTypeMediaKeyEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.keySystem Mozilla MediaKeyEvent.keySystem documentation> +getKeySystem ::+             (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result+getKeySystem self+  = liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.sessionId Mozilla MediaKeyEvent.sessionId documentation> +getSessionId ::+             (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result+getSessionId self+  = liftDOM ((self ^. js "sessionId") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> +getInitData ::+            (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array)+getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> +getMessage :: (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array)+getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.defaultURL Mozilla MediaKeyEvent.defaultURL documentation> +getDefaultURL ::+              (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result+getDefaultURL self+  = liftDOM ((self ^. js "defaultURL") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> +getErrorCode ::+             (MonadDOM m) => MediaKeyEvent -> m (Maybe MediaKeyError)+getErrorCode self+  = liftDOM ((self ^. js "errorCode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.systemCode Mozilla MediaKeyEvent.systemCode documentation> +getSystemCode :: (MonadDOM m) => MediaKeyEvent -> m Word+getSystemCode self+  = liftDOM (round <$> ((self ^. js "systemCode") >>= valToNumber))
+ src/JSDOM/Generated/MediaKeyMessageEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaKeyMessageEvent+       (getMessage, getDestinationURL, MediaKeyMessageEvent,+        castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> +getMessage ::+           (MonadDOM m) => MediaKeyMessageEvent -> m (Maybe Uint8Array)+getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.destinationURL Mozilla WebKitMediaKeyMessageEvent.destinationURL documentation> +getDestinationURL ::+                  (MonadDOM m, FromJSString result) =>+                    MediaKeyMessageEvent -> m result+getDestinationURL self+  = liftDOM ((self ^. js "destinationURL") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/MediaKeyNeededEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaKeyNeededEvent+       (getInitData, MediaKeyNeededEvent, castToMediaKeyNeededEvent,+        gTypeMediaKeyNeededEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> +getInitData ::+            (MonadDOM m) => MediaKeyNeededEvent -> m (Maybe Uint8Array)+getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal)
+ src/JSDOM/Generated/MediaKeySession.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaKeySession+       (update, close, getError, getKeySystem, getSessionId,+        webKitKeyAdded, webKitKeyError, webKitKeyMessage, MediaKeySession,+        castToMediaKeySession, gTypeMediaKeySession)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.update Mozilla WebKitMediaKeySession.update documentation> +update ::+       (MonadDOM m, IsUint8Array key) =>+         MediaKeySession -> Maybe key -> m ()+update self key+  = liftDOM (void (self ^. jsf "update" [toJSVal key]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.close Mozilla WebKitMediaKeySession.close documentation> +close :: (MonadDOM m) => MediaKeySession -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> +getError ::+         (MonadDOM m) => MediaKeySession -> m (Maybe MediaKeyError)+getError self = liftDOM ((self ^. js "error") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.keySystem Mozilla WebKitMediaKeySession.keySystem documentation> +getKeySystem ::+             (MonadDOM m, FromJSString result) => MediaKeySession -> m result+getKeySystem self+  = liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.sessionId Mozilla WebKitMediaKeySession.sessionId documentation> +getSessionId ::+             (MonadDOM m, FromJSString result) => MediaKeySession -> m result+getSessionId self+  = liftDOM ((self ^. js "sessionId") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyadded Mozilla WebKitMediaKeySession.onwebkitkeyadded documentation> +webKitKeyAdded :: EventName MediaKeySession Event+webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyerror Mozilla WebKitMediaKeySession.onwebkitkeyerror documentation> +webKitKeyError :: EventName MediaKeySession Event+webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeymessage Mozilla WebKitMediaKeySession.onwebkitkeymessage documentation> +webKitKeyMessage :: EventName MediaKeySession Event+webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")
+ src/JSDOM/Generated/MediaKeys.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaKeys+       (newMediaKeys, createSession, isTypeSupported, getKeySystem,+        MediaKeys, castToMediaKeys, gTypeMediaKeys)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys Mozilla WebKitMediaKeys documentation> +newMediaKeys ::+             (MonadDOM m, ToJSString keySystem) => keySystem -> m MediaKeys+newMediaKeys keySystem+  = liftDOM (MediaKeys <$> new (jsg "MediaKeys") [toJSVal keySystem])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> +createSession ::+              (MonadDOM m, ToJSString type', IsUint8Array initData) =>+                MediaKeys -> type' -> Maybe initData -> m (Maybe MediaKeySession)+createSession self type' initData+  = liftDOM+      ((self ^. jsf "createSession" [toJSVal type', toJSVal initData])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.isTypeSupported Mozilla WebKitMediaKeys.isTypeSupported documentation> +isTypeSupported ::+                (MonadDOM m, ToJSString keySystem, ToJSString type') =>+                  MediaKeys -> keySystem -> type' -> m Bool+isTypeSupported self keySystem type'+  = liftDOM+      ((self ^. jsf "isTypeSupported" [toJSVal keySystem, toJSVal type'])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.keySystem Mozilla WebKitMediaKeys.keySystem documentation> +getKeySystem ::+             (MonadDOM m, FromJSString result) => MediaKeys -> m result+getKeySystem self+  = liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/MediaList.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaList+       (item, deleteMedium, appendMedium, setMediaText, getMediaText,+        getLength, MediaList, castToMediaList, gTypeMediaList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> +item ::+     (MonadDOM m, FromJSString result) =>+       MediaList -> Word -> m (Maybe result)+item self index+  = liftDOM+      ((self ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.deleteMedium Mozilla MediaList.deleteMedium documentation> +deleteMedium ::+             (MonadDOM m, ToJSString oldMedium) =>+               MediaList -> oldMedium -> m ()+deleteMedium self oldMedium+  = liftDOM (void (self ^. jsf "deleteMedium" [toJSVal oldMedium]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.appendMedium Mozilla MediaList.appendMedium documentation> +appendMedium ::+             (MonadDOM m, ToJSString newMedium) =>+               MediaList -> newMedium -> m ()+appendMedium self newMedium+  = liftDOM (void (self ^. jsf "appendMedium" [toJSVal newMedium]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> +setMediaText ::+             (MonadDOM m, ToJSString val) => MediaList -> Maybe val -> m ()+setMediaText self val+  = liftDOM (self ^. jss "mediaText" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> +getMediaText ::+             (MonadDOM m, FromJSString result) => MediaList -> m (Maybe result)+getMediaText self+  = liftDOM ((self ^. js "mediaText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.length Mozilla MediaList.length documentation> +getLength :: (MonadDOM m) => MediaList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/MediaQueryList.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaQueryList+       (addListener, removeListener, getMedia, getMatches, MediaQueryList,+        castToMediaQueryList, gTypeMediaQueryList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.addListener Mozilla MediaQueryList.addListener documentation> +addListener ::+            (MonadDOM m) =>+              MediaQueryList -> Maybe MediaQueryListListener -> m ()+addListener self listener+  = liftDOM (void (self ^. jsf "addListener" [toJSVal listener]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.removeListener Mozilla MediaQueryList.removeListener documentation> +removeListener ::+               (MonadDOM m) =>+                 MediaQueryList -> Maybe MediaQueryListListener -> m ()+removeListener self listener+  = liftDOM (void (self ^. jsf "removeListener" [toJSVal listener]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.media Mozilla MediaQueryList.media documentation> +getMedia ::+         (MonadDOM m, FromJSString result) => MediaQueryList -> m result+getMedia self+  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.matches Mozilla MediaQueryList.matches documentation> +getMatches :: (MonadDOM m) => MediaQueryList -> m Bool+getMatches self = liftDOM ((self ^. js "matches") >>= valToBool)
+ src/JSDOM/Generated/MediaQueryListListener.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaQueryListListener+       (newMediaQueryListListener, newMediaQueryListListenerSync,+        newMediaQueryListListenerAsync, MediaQueryListListener)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> +newMediaQueryListListener ::+                          (MonadDOM m) =>+                            (Maybe MediaQueryList -> JSM ()) -> m MediaQueryListListener+newMediaQueryListListener callback+  = liftDOM+      (MediaQueryListListener . Callback <$>+         function ""+           (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> +newMediaQueryListListenerSync ::+                              (MonadDOM m) =>+                                (Maybe MediaQueryList -> JSM ()) -> m MediaQueryListListener+newMediaQueryListListenerSync callback+  = liftDOM+      (MediaQueryListListener . Callback <$>+         function ""+           (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> +newMediaQueryListListenerAsync ::+                               (MonadDOM m) =>+                                 (Maybe MediaQueryList -> JSM ()) -> m MediaQueryListListener+newMediaQueryListListenerAsync callback+  = liftDOM+      (MediaQueryListListener . Callback <$>+         function ""+           (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list'))
+ src/JSDOM/Generated/MediaSource.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaSource+       (newMediaSource, addSourceBuffer, removeSourceBuffer, endOfStream,+        isTypeSupported, getSourceBuffers, getActiveSourceBuffers,+        setDuration, getDuration, getReadyState, MediaSource,+        castToMediaSource, gTypeMediaSource)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource Mozilla MediaSource documentation> +newMediaSource :: (MonadDOM m) => m MediaSource+newMediaSource+  = liftDOM (MediaSource <$> new (jsg "MediaSource") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> +addSourceBuffer ::+                (MonadDOM m, ToJSString type') =>+                  MediaSource -> type' -> m (Maybe SourceBuffer)+addSourceBuffer self type'+  = liftDOM+      ((self ^. jsf "addSourceBuffer" [toJSVal type']) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.removeSourceBuffer Mozilla MediaSource.removeSourceBuffer documentation> +removeSourceBuffer ::+                   (MonadDOM m) => MediaSource -> Maybe SourceBuffer -> m ()+removeSourceBuffer self buffer+  = liftDOM+      (void (self ^. jsf "removeSourceBuffer" [toJSVal buffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.endOfStream Mozilla MediaSource.endOfStream documentation> +endOfStream ::+            (MonadDOM m) => MediaSource -> EndOfStreamError -> m ()+endOfStream self error+  = liftDOM (void (self ^. jsf "endOfStream" [toJSVal error]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.isTypeSupported Mozilla MediaSource.isTypeSupported documentation> +isTypeSupported ::+                (MonadDOM m, ToJSString type') => MediaSource -> type' -> m Bool+isTypeSupported self type'+  = liftDOM+      ((self ^. jsf "isTypeSupported" [toJSVal type']) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> +getSourceBuffers ::+                 (MonadDOM m) => MediaSource -> m (Maybe SourceBufferList)+getSourceBuffers self+  = liftDOM ((self ^. js "sourceBuffers") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> +getActiveSourceBuffers ::+                       (MonadDOM m) => MediaSource -> m (Maybe SourceBufferList)+getActiveSourceBuffers self+  = liftDOM ((self ^. js "activeSourceBuffers") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation> +setDuration :: (MonadDOM m) => MediaSource -> Double -> m ()+setDuration self val+  = liftDOM (self ^. jss "duration" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation> +getDuration :: (MonadDOM m) => MediaSource -> m Double+getDuration self+  = liftDOM ((self ^. js "duration") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.readyState Mozilla MediaSource.readyState documentation> +getReadyState ::+              (MonadDOM m, FromJSString result) => MediaSource -> m result+getReadyState self+  = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/MediaSourceStates.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaSourceStates+       (getSourceType, getSourceId, getWidth, getHeight, getFrameRate,+        getAspectRatio, getFacingMode, getVolume, MediaSourceStates,+        castToMediaSourceStates, gTypeMediaSourceStates)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceType Mozilla MediaSourceStates.sourceType documentation> +getSourceType ::+              (MonadDOM m) => MediaSourceStates -> m SourceTypeEnum+getSourceType self+  = liftDOM ((self ^. js "sourceType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceId Mozilla MediaSourceStates.sourceId documentation> +getSourceId ::+            (MonadDOM m, FromJSString result) => MediaSourceStates -> m result+getSourceId self+  = liftDOM ((self ^. js "sourceId") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> +getWidth :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> +getHeight :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> +getFrameRate ::+             (MonadDOM m) => MediaSourceStates -> m (Maybe Float)+getFrameRate self+  = liftDOM ((self ^. js "frameRate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> +getAspectRatio ::+               (MonadDOM m) => MediaSourceStates -> m (Maybe Float)+getAspectRatio self+  = liftDOM ((self ^. js "aspectRatio") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.facingMode Mozilla MediaSourceStates.facingMode documentation> +getFacingMode ::+              (MonadDOM m) => MediaSourceStates -> m (Maybe VideoFacingModeEnum)+getFacingMode self+  = liftDOM ((self ^. js "facingMode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> +getVolume :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)+getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal)
+ src/JSDOM/Generated/MediaStream.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStream+       (newMediaStream, newMediaStream', newMediaStream'', getAudioTracks,+        getVideoTracks, getTracks, addTrack, removeTrack, getTrackById,+        clone, getId, getActive, active, inactive, addTrackEvent,+        removeTrackEvent, MediaStream, castToMediaStream, gTypeMediaStream)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> +newMediaStream :: (MonadDOM m) => m MediaStream+newMediaStream+  = liftDOM (MediaStream <$> new (jsg "MediaStream") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> +newMediaStream' ::+                (MonadDOM m) => Maybe MediaStream -> m MediaStream+newMediaStream' stream+  = liftDOM+      (MediaStream <$> new (jsg "MediaStream") [toJSVal stream])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> +newMediaStream'' ::+                 (MonadDOM m, IsMediaStreamTrack tracks) =>+                   [Maybe tracks] -> m MediaStream+newMediaStream'' tracks+  = liftDOM+      (MediaStream <$> new (jsg "MediaStream") [toJSVal (array tracks)])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation> +getAudioTracks ::+               (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack]+getAudioTracks self+  = liftDOM ((self ^. js "getAudioTracks") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getVideoTracks Mozilla webkitMediaStream.getVideoTracks documentation> +getVideoTracks ::+               (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack]+getVideoTracks self+  = liftDOM ((self ^. js "getVideoTracks") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTracks Mozilla webkitMediaStream.getTracks documentation> +getTracks ::+          (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack]+getTracks self = liftDOM ((self ^. js "getTracks") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.addTrack Mozilla webkitMediaStream.addTrack documentation> +addTrack ::+         (MonadDOM m, IsMediaStreamTrack track) =>+           MediaStream -> Maybe track -> m ()+addTrack self track+  = liftDOM (void (self ^. jsf "addTrack" [toJSVal track]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.removeTrack Mozilla webkitMediaStream.removeTrack documentation> +removeTrack ::+            (MonadDOM m, IsMediaStreamTrack track) =>+              MediaStream -> Maybe track -> m ()+removeTrack self track+  = liftDOM (void (self ^. jsf "removeTrack" [toJSVal track]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> +getTrackById ::+             (MonadDOM m, ToJSString trackId) =>+               MediaStream -> trackId -> m (Maybe MediaStreamTrack)+getTrackById self trackId+  = liftDOM+      ((self ^. jsf "getTrackById" [toJSVal trackId]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> +clone :: (MonadDOM m) => MediaStream -> m (Maybe MediaStream)+clone self = liftDOM ((self ^. js "clone") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.id Mozilla webkitMediaStream.id documentation> +getId ::+      (MonadDOM m, FromJSString result) => MediaStream -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.active Mozilla webkitMediaStream.active documentation> +getActive :: (MonadDOM m) => MediaStream -> m Bool+getActive self = liftDOM ((self ^. js "active") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onactive Mozilla webkitMediaStream.onactive documentation> +active :: EventName MediaStream Event+active = unsafeEventName (toJSString "active")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.oninactive Mozilla webkitMediaStream.oninactive documentation> +inactive :: EventName MediaStream Event+inactive = unsafeEventName (toJSString "inactive")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onaddtrack Mozilla webkitMediaStream.onaddtrack documentation> +addTrackEvent :: EventName MediaStream Event+addTrackEvent = unsafeEventName (toJSString "addtrack")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onremovetrack Mozilla webkitMediaStream.onremovetrack documentation> +removeTrackEvent :: EventName MediaStream Event+removeTrackEvent = unsafeEventName (toJSString "removetrack")
+ src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStreamAudioDestinationNode+       (getStream, MediaStreamAudioDestinationNode,+        castToMediaStreamAudioDestinationNode,+        gTypeMediaStreamAudioDestinationNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> +getStream ::+          (MonadDOM m) =>+            MediaStreamAudioDestinationNode -> m (Maybe MediaStream)+getStream self = liftDOM ((self ^. js "stream") >>= fromJSVal)
+ src/JSDOM/Generated/MediaStreamAudioSourceNode.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStreamAudioSourceNode+       (getMediaStream, MediaStreamAudioSourceNode,+        castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> +getMediaStream ::+               (MonadDOM m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream)+getMediaStream self+  = liftDOM ((self ^. js "mediaStream") >>= fromJSVal)
+ src/JSDOM/Generated/MediaStreamEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStreamEvent+       (getStream, MediaStreamEvent, castToMediaStreamEvent,+        gTypeMediaStreamEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation> +getStream ::+          (MonadDOM m) => MediaStreamEvent -> m (Maybe MediaStream)+getStream self = liftDOM ((self ^. js "stream") >>= fromJSVal)
+ src/JSDOM/Generated/MediaStreamTrack.hs view
@@ -0,0 +1,170 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStreamTrack+       (getSources, getConstraints, states, getCapabilities,+        applyConstraints, clone, stop, getKind, getId, getLabel,+        setEnabled, getEnabled, getMuted, mute, unmute, get_readonly,+        getRemote, getReadyState, started, ended, overConstrained,+        MediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack,+        IsMediaStreamTrack, toMediaStreamTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSources Mozilla MediaStreamTrack.getSources documentation> +getSources ::+           (MonadDOM m, IsMediaStreamTrack self) =>+             self -> Maybe MediaStreamTrackSourcesCallback -> m ()+getSources self callback+  = liftDOM+      (void+         ((toMediaStreamTrack self) ^. jsf "getSources" [toJSVal callback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> +getConstraints ::+               (MonadDOM m, IsMediaStreamTrack self) =>+                 self -> m (Maybe MediaTrackConstraints)+getConstraints self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "getConstraints") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> +states ::+       (MonadDOM m, IsMediaStreamTrack self) =>+         self -> m (Maybe MediaSourceStates)+states self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "states") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> +getCapabilities ::+                (MonadDOM m, IsMediaStreamTrack self) =>+                  self -> m (Maybe MediaStreamCapabilities)+getCapabilities self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "getCapabilities") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.applyConstraints Mozilla MediaStreamTrack.applyConstraints documentation> +applyConstraints ::+                 (MonadDOM m, IsMediaStreamTrack self, IsDictionary constraints) =>+                   self -> Maybe constraints -> m ()+applyConstraints self constraints+  = liftDOM+      (void+         ((toMediaStreamTrack self) ^. jsf "applyConstraints"+            [toJSVal constraints]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +clone ::+      (MonadDOM m, IsMediaStreamTrack self) =>+        self -> m (Maybe MediaStreamTrack)+clone self+  = liftDOM (((toMediaStreamTrack self) ^. js "clone") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.stop Mozilla MediaStreamTrack.stop documentation> +stop :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()+stop self = liftDOM (void ((toMediaStreamTrack self) ^. js "stop"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.kind Mozilla MediaStreamTrack.kind documentation> +getKind ::+        (MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>+          self -> m result+getKind self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.id Mozilla MediaStreamTrack.id documentation> +getId ::+      (MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>+        self -> m result+getId self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.label Mozilla MediaStreamTrack.label documentation> +getLabel ::+         (MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>+           self -> m result+getLabel self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation> +setEnabled ::+           (MonadDOM m, IsMediaStreamTrack self) => self -> Bool -> m ()+setEnabled self val+  = liftDOM+      ((toMediaStreamTrack self) ^. jss "enabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation> +getEnabled ::+           (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool+getEnabled self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "enabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.muted Mozilla MediaStreamTrack.muted documentation> +getMuted :: (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool+getMuted self+  = liftDOM (((toMediaStreamTrack self) ^. js "muted") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onmute Mozilla MediaStreamTrack.onmute documentation> +mute ::+     (IsMediaStreamTrack self, IsEventTarget self) =>+       EventName self Event+mute = unsafeEventName (toJSString "mute")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onunmute Mozilla MediaStreamTrack.onunmute documentation> +unmute ::+       (IsMediaStreamTrack self, IsEventTarget self) =>+         EventName self Event+unmute = unsafeEventName (toJSString "unmute")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack._readonly Mozilla MediaStreamTrack._readonly documentation> +get_readonly ::+             (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool+get_readonly self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "_readonly") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.remote Mozilla MediaStreamTrack.remote documentation> +getRemote ::+          (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool+getRemote self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "remote") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.readyState Mozilla MediaStreamTrack.readyState documentation> +getReadyState ::+              (MonadDOM m, IsMediaStreamTrack self) =>+                self -> m MediaStreamTrackState+getReadyState self+  = liftDOM+      (((toMediaStreamTrack self) ^. js "readyState") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onstarted Mozilla MediaStreamTrack.onstarted documentation> +started ::+        (IsMediaStreamTrack self, IsEventTarget self) =>+          EventName self Event+started = unsafeEventName (toJSString "started")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onended Mozilla MediaStreamTrack.onended documentation> +ended ::+      (IsMediaStreamTrack self, IsEventTarget self) =>+        EventName self Event+ended = unsafeEventName (toJSString "ended")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onoverconstrained Mozilla MediaStreamTrack.onoverconstrained documentation> +overConstrained ::+                (IsMediaStreamTrack self, IsEventTarget self) =>+                  EventName self Event+overConstrained = unsafeEventName (toJSString "overconstrained")
+ src/JSDOM/Generated/MediaStreamTrackEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStreamTrackEvent+       (getTrack, MediaStreamTrackEvent, castToMediaStreamTrackEvent,+        gTypeMediaStreamTrackEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> +getTrack ::+         (MonadDOM m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack)+getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)
+ src/JSDOM/Generated/MediaStreamTrackSourcesCallback.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaStreamTrackSourcesCallback+       (newMediaStreamTrackSourcesCallback,+        newMediaStreamTrackSourcesCallbackSync,+        newMediaStreamTrackSourcesCallbackAsync,+        MediaStreamTrackSourcesCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> +newMediaStreamTrackSourcesCallback ::+                                   (MonadDOM m) =>+                                     ([Maybe SourceInfo] -> JSM ()) ->+                                       m MediaStreamTrackSourcesCallback+newMediaStreamTrackSourcesCallback callback+  = liftDOM+      (MediaStreamTrackSourcesCallback . Callback <$>+         function ""+           (\ _ _ [sources] ->+              fromJSArray sources >>= \ sources' -> callback sources'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> +newMediaStreamTrackSourcesCallbackSync ::+                                       (MonadDOM m) =>+                                         ([Maybe SourceInfo] -> JSM ()) ->+                                           m MediaStreamTrackSourcesCallback+newMediaStreamTrackSourcesCallbackSync callback+  = liftDOM+      (MediaStreamTrackSourcesCallback . Callback <$>+         function ""+           (\ _ _ [sources] ->+              fromJSArray sources >>= \ sources' -> callback sources'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> +newMediaStreamTrackSourcesCallbackAsync ::+                                        (MonadDOM m) =>+                                          ([Maybe SourceInfo] -> JSM ()) ->+                                            m MediaStreamTrackSourcesCallback+newMediaStreamTrackSourcesCallbackAsync callback+  = liftDOM+      (MediaStreamTrackSourcesCallback . Callback <$>+         function ""+           (\ _ _ [sources] ->+              fromJSArray sources >>= \ sources' -> callback sources'))
+ src/JSDOM/Generated/MediaTrackConstraints.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MediaTrackConstraints+       (getMandatory, getOptional, MediaTrackConstraints,+        castToMediaTrackConstraints, gTypeMediaTrackConstraints)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> +getMandatory ::+             (MonadDOM m) =>+               MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet)+getMandatory self+  = liftDOM ((self ^. js "mandatory") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.optional Mozilla MediaTrackConstraints.optional documentation> +getOptional ::+            (MonadDOM m) =>+              MediaTrackConstraints -> m (Maybe [Maybe MediaTrackConstraint])+getOptional self+  = liftDOM+      ((self ^. js "optional") >>= maybeNullOrUndefined' fromJSArray)
+ src/JSDOM/Generated/MemoryInfo.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MemoryInfo+       (getUsedJSHeapSize, getTotalJSHeapSize, MemoryInfo,+        castToMemoryInfo, gTypeMemoryInfo)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.usedJSHeapSize Mozilla MemoryInfo.usedJSHeapSize documentation> +getUsedJSHeapSize :: (MonadDOM m) => MemoryInfo -> m Word+getUsedJSHeapSize self+  = liftDOM+      (round <$> ((self ^. js "usedJSHeapSize") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.totalJSHeapSize Mozilla MemoryInfo.totalJSHeapSize documentation> +getTotalJSHeapSize :: (MonadDOM m) => MemoryInfo -> m Word+getTotalJSHeapSize self+  = liftDOM+      (round <$> ((self ^. js "totalJSHeapSize") >>= valToNumber))
+ src/JSDOM/Generated/MessageChannel.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MessageChannel+       (newMessageChannel, getPort1, getPort2, MessageChannel,+        castToMessageChannel, gTypeMessageChannel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel Mozilla MessageChannel documentation> +newMessageChannel :: (MonadDOM m) => m MessageChannel+newMessageChannel+  = liftDOM (MessageChannel <$> new (jsg "MessageChannel") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> +getPort1 :: (MonadDOM m) => MessageChannel -> m (Maybe MessagePort)+getPort1 self = liftDOM ((self ^. js "port1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> +getPort2 :: (MonadDOM m) => MessageChannel -> m (Maybe MessagePort)+getPort2 self = liftDOM ((self ^. js "port2") >>= fromJSVal)
+ src/JSDOM/Generated/MessageEvent.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MessageEvent+       (initMessageEvent, webkitInitMessageEvent, getOrigin,+        getLastEventId, getSource, getData, getPorts, MessageEvent,+        castToMessageEvent, gTypeMessageEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.initMessageEvent Mozilla MessageEvent.initMessageEvent documentation> +initMessageEvent ::+                 (MonadDOM m, ToJSString typeArg, ToJSString originArg,+                  ToJSString lastEventIdArg, IsArray messagePorts) =>+                   MessageEvent ->+                     typeArg ->+                       Bool ->+                         Bool ->+                           JSVal ->+                             originArg ->+                               lastEventIdArg -> Maybe Window -> Maybe messagePorts -> m ()+initMessageEvent self typeArg canBubbleArg cancelableArg dataArg+  originArg lastEventIdArg sourceArg messagePorts+  = liftDOM+      (void+         (self ^. jsf "initMessageEvent"+            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,+             toJSVal dataArg, toJSVal originArg, toJSVal lastEventIdArg,+             toJSVal sourceArg, toJSVal messagePorts]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.webkitInitMessageEvent Mozilla MessageEvent.webkitInitMessageEvent documentation> +webkitInitMessageEvent ::+                       (MonadDOM m, ToJSString typeArg, ToJSString originArg,+                        ToJSString lastEventIdArg, IsArray transferables) =>+                         MessageEvent ->+                           typeArg ->+                             Bool ->+                               Bool ->+                                 JSVal ->+                                   originArg ->+                                     lastEventIdArg -> Maybe Window -> Maybe transferables -> m ()+webkitInitMessageEvent self typeArg canBubbleArg cancelableArg+  dataArg originArg lastEventIdArg sourceArg transferables+  = liftDOM+      (void+         (self ^. jsf "webkitInitMessageEvent"+            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,+             toJSVal dataArg, toJSVal originArg, toJSVal lastEventIdArg,+             toJSVal sourceArg, toJSVal transferables]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.origin Mozilla MessageEvent.origin documentation> +getOrigin ::+          (MonadDOM m, FromJSString result) => MessageEvent -> m result+getOrigin self+  = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.lastEventId Mozilla MessageEvent.lastEventId documentation> +getLastEventId ::+               (MonadDOM m, FromJSString result) => MessageEvent -> m result+getLastEventId self+  = liftDOM ((self ^. js "lastEventId") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation> +getSource :: (MonadDOM m) => MessageEvent -> m (Maybe EventTarget)+getSource self = liftDOM ((self ^. js "source") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.data Mozilla MessageEvent.data documentation> +getData :: (MonadDOM m) => MessageEvent -> m JSVal+getData self = liftDOM ((self ^. js "data") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.ports Mozilla MessageEvent.ports documentation> +getPorts :: (MonadDOM m) => MessageEvent -> m [Maybe MessagePort]+getPorts self = liftDOM ((self ^. js "ports") >>= fromJSArray)
+ src/JSDOM/Generated/MessagePort.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MessagePort+       (postMessage, start, close, message, MessagePort,+        castToMessagePort, gTypeMessagePort)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.postMessage Mozilla MessagePort.postMessage documentation> +postMessage ::+            (MonadDOM m, IsArray messagePorts) =>+              MessagePort -> JSVal -> Maybe messagePorts -> m ()+postMessage self message messagePorts+  = liftDOM+      (void+         (self ^. jsf "postMessage"+            [toJSVal message, toJSVal messagePorts]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.start Mozilla MessagePort.start documentation> +start :: (MonadDOM m) => MessagePort -> m ()+start self = liftDOM (void (self ^. js "start"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.close Mozilla MessagePort.close documentation> +close :: (MonadDOM m) => MessagePort -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.onmessage Mozilla MessagePort.onmessage documentation> +message :: EventName MessagePort MessageEvent+message = unsafeEventName (toJSString "message")
+ src/JSDOM/Generated/MimeType.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MimeType+       (getType, getSuffixes, getDescription, getEnabledPlugin, MimeType,+        castToMimeType, gTypeMimeType)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.type Mozilla MimeType.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => MimeType -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.suffixes Mozilla MimeType.suffixes documentation> +getSuffixes ::+            (MonadDOM m, FromJSString result) => MimeType -> m result+getSuffixes self+  = liftDOM ((self ^. js "suffixes") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.description Mozilla MimeType.description documentation> +getDescription ::+               (MonadDOM m, FromJSString result) => MimeType -> m result+getDescription self+  = liftDOM ((self ^. js "description") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> +getEnabledPlugin :: (MonadDOM m) => MimeType -> m (Maybe Plugin)+getEnabledPlugin self+  = liftDOM ((self ^. js "enabledPlugin") >>= fromJSVal)
+ src/JSDOM/Generated/MimeTypeArray.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MimeTypeArray+       (item, namedItem, getLength, MimeTypeArray, castToMimeTypeArray,+        gTypeMimeTypeArray)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation> +item :: (MonadDOM m) => MimeTypeArray -> Word -> m (Maybe MimeType)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            MimeTypeArray -> name -> m (Maybe MimeType)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.length Mozilla MimeTypeArray.length documentation> +getLength :: (MonadDOM m) => MimeTypeArray -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/MouseEvent.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MouseEvent+       (initMouseEvent, getScreenX, getScreenY, getClientX, getClientY,+        getCtrlKey, getShiftKey, getAltKey, getMetaKey, getButton,+        getRelatedTarget, getMovementX, getMovementY, getOffsetX,+        getOffsetY, getX, getY, getFromElement, getToElement,+        getDataTransfer, MouseEvent, castToMouseEvent, gTypeMouseEvent,+        IsMouseEvent, toMouseEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.initMouseEvent Mozilla MouseEvent.initMouseEvent documentation> +initMouseEvent ::+               (MonadDOM m, IsMouseEvent self, ToJSString type',+                IsEventTarget relatedTarget) =>+                 self ->+                   type' ->+                     Bool ->+                       Bool ->+                         Maybe Window ->+                           Int ->+                             Int ->+                               Int ->+                                 Int ->+                                   Int ->+                                     Bool ->+                                       Bool -> Bool -> Bool -> Word -> Maybe relatedTarget -> m ()+initMouseEvent self type' canBubble cancelable view detail screenX+  screenY clientX clientY ctrlKey altKey shiftKey metaKey button+  relatedTarget+  = liftDOM+      (void+         ((toMouseEvent self) ^. jsf "initMouseEvent"+            [toJSVal type', toJSVal canBubble, toJSVal cancelable,+             toJSVal view, toJSVal detail, toJSVal screenX, toJSVal screenY,+             toJSVal clientX, toJSVal clientY, toJSVal ctrlKey, toJSVal altKey,+             toJSVal shiftKey, toJSVal metaKey, toJSVal button,+             toJSVal relatedTarget]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenX Mozilla MouseEvent.screenX documentation> +getScreenX :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getScreenX self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "screenX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenY Mozilla MouseEvent.screenY documentation> +getScreenY :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getScreenY self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "screenY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientX Mozilla MouseEvent.clientX documentation> +getClientX :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getClientX self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "clientX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientY Mozilla MouseEvent.clientY documentation> +getClientY :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getClientY self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "clientY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.ctrlKey Mozilla MouseEvent.ctrlKey documentation> +getCtrlKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool+getCtrlKey self+  = liftDOM (((toMouseEvent self) ^. js "ctrlKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.shiftKey Mozilla MouseEvent.shiftKey documentation> +getShiftKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool+getShiftKey self+  = liftDOM (((toMouseEvent self) ^. js "shiftKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.altKey Mozilla MouseEvent.altKey documentation> +getAltKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool+getAltKey self+  = liftDOM (((toMouseEvent self) ^. js "altKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.metaKey Mozilla MouseEvent.metaKey documentation> +getMetaKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool+getMetaKey self+  = liftDOM (((toMouseEvent self) ^. js "metaKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.button Mozilla MouseEvent.button documentation> +getButton :: (MonadDOM m, IsMouseEvent self) => self -> m Word+getButton self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "button") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation> +getRelatedTarget ::+                 (MonadDOM m, IsMouseEvent self) => self -> m (Maybe EventTarget)+getRelatedTarget self+  = liftDOM+      (((toMouseEvent self) ^. js "relatedTarget") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementX Mozilla MouseEvent.movementX documentation> +getMovementX :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getMovementX self+  = liftDOM+      (round <$>+         (((toMouseEvent self) ^. js "movementX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementY Mozilla MouseEvent.movementY documentation> +getMovementY :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getMovementY self+  = liftDOM+      (round <$>+         (((toMouseEvent self) ^. js "movementY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetX Mozilla MouseEvent.offsetX documentation> +getOffsetX :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getOffsetX self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "offsetX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetY Mozilla MouseEvent.offsetY documentation> +getOffsetY :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getOffsetY self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "offsetY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.x Mozilla MouseEvent.x documentation> +getX :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getX self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.y Mozilla MouseEvent.y documentation> +getY :: (MonadDOM m, IsMouseEvent self) => self -> m Int+getY self+  = liftDOM+      (round <$> (((toMouseEvent self) ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation> +getFromElement ::+               (MonadDOM m, IsMouseEvent self) => self -> m (Maybe Node)+getFromElement self+  = liftDOM (((toMouseEvent self) ^. js "fromElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation> +getToElement ::+             (MonadDOM m, IsMouseEvent self) => self -> m (Maybe Node)+getToElement self+  = liftDOM (((toMouseEvent self) ^. js "toElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation> +getDataTransfer ::+                (MonadDOM m, IsMouseEvent self) => self -> m (Maybe DataTransfer)+getDataTransfer self+  = liftDOM+      (((toMouseEvent self) ^. js "dataTransfer") >>= fromJSVal)
+ src/JSDOM/Generated/MutationEvent.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MutationEvent+       (initMutationEvent, pattern MODIFICATION, pattern ADDITION,+        pattern REMOVAL, getRelatedNode, getPrevValue, getNewValue,+        getAttrName, getAttrChange, MutationEvent, castToMutationEvent,+        gTypeMutationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.initMutationEvent Mozilla MutationEvent.initMutationEvent documentation> +initMutationEvent ::+                  (MonadDOM m, ToJSString type', IsNode relatedNode,+                   ToJSString prevValue, ToJSString newValue, ToJSString attrName) =>+                    MutationEvent ->+                      type' ->+                        Bool ->+                          Bool ->+                            Maybe relatedNode ->+                              prevValue -> newValue -> attrName -> Word -> m ()+initMutationEvent self type' canBubble cancelable relatedNode+  prevValue newValue attrName attrChange+  = liftDOM+      (void+         (self ^. jsf "initMutationEvent"+            [toJSVal type', toJSVal canBubble, toJSVal cancelable,+             toJSVal relatedNode, toJSVal prevValue, toJSVal newValue,+             toJSVal attrName, toJSVal attrChange]))+pattern MODIFICATION = 1+pattern ADDITION = 2+pattern REMOVAL = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation> +getRelatedNode :: (MonadDOM m) => MutationEvent -> m (Maybe Node)+getRelatedNode self+  = liftDOM ((self ^. js "relatedNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.prevValue Mozilla MutationEvent.prevValue documentation> +getPrevValue ::+             (MonadDOM m, FromJSString result) => MutationEvent -> m result+getPrevValue self+  = liftDOM ((self ^. js "prevValue") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.newValue Mozilla MutationEvent.newValue documentation> +getNewValue ::+            (MonadDOM m, FromJSString result) => MutationEvent -> m result+getNewValue self+  = liftDOM ((self ^. js "newValue") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrName Mozilla MutationEvent.attrName documentation> +getAttrName ::+            (MonadDOM m, FromJSString result) => MutationEvent -> m result+getAttrName self+  = liftDOM ((self ^. js "attrName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrChange Mozilla MutationEvent.attrChange documentation> +getAttrChange :: (MonadDOM m) => MutationEvent -> m Word+getAttrChange self+  = liftDOM (round <$> ((self ^. js "attrChange") >>= valToNumber))
+ src/JSDOM/Generated/MutationObserver.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MutationObserver+       (newMutationObserver, observe, takeRecords, disconnect,+        MutationObserver, castToMutationObserver, gTypeMutationObserver)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver Mozilla MutationObserver documentation> +newMutationObserver ::+                    (MonadDOM m, IsMutationCallback callback) =>+                      Maybe callback -> m MutationObserver+newMutationObserver callback+  = liftDOM+      (MutationObserver <$>+         new (jsg "MutationObserver") [toJSVal callback])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.observe Mozilla MutationObserver.observe documentation> +observe ::+        (MonadDOM m, IsNode target, IsDictionary options) =>+          MutationObserver -> Maybe target -> Maybe options -> m ()+observe self target options+  = liftDOM+      (void (self ^. jsf "observe" [toJSVal target, toJSVal options]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.takeRecords Mozilla MutationObserver.takeRecords documentation> +takeRecords ::+            (MonadDOM m) => MutationObserver -> m [Maybe MutationRecord]+takeRecords self+  = liftDOM ((self ^. js "takeRecords") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.disconnect Mozilla MutationObserver.disconnect documentation> +disconnect :: (MonadDOM m) => MutationObserver -> m ()+disconnect self = liftDOM (void (self ^. js "disconnect"))
+ src/JSDOM/Generated/MutationRecord.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.MutationRecord+       (getType, getTarget, getAddedNodes, getRemovedNodes,+        getPreviousSibling, getNextSibling, getAttributeName,+        getAttributeNamespace, getOldValue, MutationRecord,+        castToMutationRecord, gTypeMutationRecord)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.type Mozilla MutationRecord.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => MutationRecord -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> +getTarget :: (MonadDOM m) => MutationRecord -> m (Maybe Node)+getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> +getAddedNodes ::+              (MonadDOM m) => MutationRecord -> m (Maybe NodeList)+getAddedNodes self+  = liftDOM ((self ^. js "addedNodes") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> +getRemovedNodes ::+                (MonadDOM m) => MutationRecord -> m (Maybe NodeList)+getRemovedNodes self+  = liftDOM ((self ^. js "removedNodes") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> +getPreviousSibling ::+                   (MonadDOM m) => MutationRecord -> m (Maybe Node)+getPreviousSibling self+  = liftDOM ((self ^. js "previousSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> +getNextSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node)+getNextSibling self+  = liftDOM ((self ^. js "nextSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation> +getAttributeName ::+                 (MonadDOM m, FromJSString result) =>+                   MutationRecord -> m (Maybe result)+getAttributeName self+  = liftDOM ((self ^. js "attributeName") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation> +getAttributeNamespace ::+                      (MonadDOM m, FromJSString result) =>+                        MutationRecord -> m (Maybe result)+getAttributeNamespace self+  = liftDOM ((self ^. js "attributeNamespace") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation> +getOldValue ::+            (MonadDOM m, FromJSString result) =>+              MutationRecord -> m (Maybe result)+getOldValue self+  = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString)
+ src/JSDOM/Generated/NamedNodeMap.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NamedNodeMap+       (getNamedItem, setNamedItem, removeNamedItem, item, getNamedItemNS,+        setNamedItemNS, removeNamedItemNS, getLength, NamedNodeMap,+        castToNamedNodeMap, gTypeNamedNodeMap)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation> +getNamedItem ::+             (MonadDOM m, ToJSString name) =>+               NamedNodeMap -> name -> m (Maybe Node)+getNamedItem self name+  = liftDOM+      ((self ^. jsf "getNamedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItem ::+             (MonadDOM m, IsNode node) =>+               NamedNodeMap -> Maybe node -> m (Maybe Node)+setNamedItem self node+  = liftDOM+      ((self ^. jsf "setNamedItem" [toJSVal node]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItem ::+                (MonadDOM m, ToJSString name) =>+                  NamedNodeMap -> name -> m (Maybe Node)+removeNamedItem self name+  = liftDOM+      ((self ^. jsf "removeNamedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +item :: (MonadDOM m) => NamedNodeMap -> Word -> m (Maybe Node)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> +getNamedItemNS ::+               (MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>+                 NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)+getNamedItemNS self namespaceURI localName+  = liftDOM+      ((self ^. jsf "getNamedItemNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> +setNamedItemNS ::+               (MonadDOM m, IsNode node) =>+                 NamedNodeMap -> Maybe node -> m (Maybe Node)+setNamedItemNS self node+  = liftDOM+      ((self ^. jsf "setNamedItemNS" [toJSVal node]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> +removeNamedItemNS ::+                  (MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>+                    NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)+removeNamedItemNS self namespaceURI localName+  = liftDOM+      ((self ^. jsf "removeNamedItemNS"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.length Mozilla NamedNodeMap.length documentation> +getLength :: (MonadDOM m) => NamedNodeMap -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/Navigator.hs view
@@ -0,0 +1,203 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Navigator+       (getGamepads, webkitGetUserMedia, registerProtocolHandler,+        isProtocolHandlerRegistered, unregisterProtocolHandler,+        vibratePattern, vibrate, javaEnabled, getStorageUpdates,+        getWebkitBattery, getGeolocation, getWebkitTemporaryStorage,+        getWebkitPersistentStorage, getAppCodeName, getAppName,+        getAppVersion, getLanguage, getUserAgent, getPlatform, getPlugins,+        getMimeTypes, getProduct, getProductSub, getVendor, getVendorSub,+        getCookieEnabled, getOnLine, getHardwareConcurrency, Navigator,+        castToNavigator, gTypeNavigator)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getGamepads Mozilla Navigator.getGamepads documentation> +getGamepads :: (MonadDOM m) => Navigator -> m [Maybe Gamepad]+getGamepads self+  = liftDOM ((self ^. js "getGamepads") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitGetUserMedia Mozilla Navigator.webkitGetUserMedia documentation> +webkitGetUserMedia ::+                   (MonadDOM m, IsDictionary options) =>+                     Navigator ->+                       Maybe options ->+                         Maybe NavigatorUserMediaSuccessCallback ->+                           Maybe NavigatorUserMediaErrorCallback -> m ()+webkitGetUserMedia self options successCallback errorCallback+  = liftDOM+      (void+         (self ^. jsf "webkitGetUserMedia"+            [toJSVal options, toJSVal successCallback, toJSVal errorCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.registerProtocolHandler Mozilla Navigator.registerProtocolHandler documentation> +registerProtocolHandler ::+                        (MonadDOM m, ToJSString scheme, ToJSString url,+                         ToJSString title) =>+                          Navigator -> scheme -> url -> title -> m ()+registerProtocolHandler self scheme url title+  = liftDOM+      (void+         (self ^. jsf "registerProtocolHandler"+            [toJSVal scheme, toJSVal url, toJSVal title]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.isProtocolHandlerRegistered Mozilla Navigator.isProtocolHandlerRegistered documentation> +isProtocolHandlerRegistered ::+                            (MonadDOM m, ToJSString scheme, ToJSString url,+                             FromJSString result) =>+                              Navigator -> scheme -> url -> m result+isProtocolHandlerRegistered self scheme url+  = liftDOM+      ((self ^. jsf "isProtocolHandlerRegistered"+          [toJSVal scheme, toJSVal url])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.unregisterProtocolHandler Mozilla Navigator.unregisterProtocolHandler documentation> +unregisterProtocolHandler ::+                          (MonadDOM m, ToJSString scheme, ToJSString url) =>+                            Navigator -> scheme -> url -> m ()+unregisterProtocolHandler self scheme url+  = liftDOM+      (void+         (self ^. jsf "unregisterProtocolHandler"+            [toJSVal scheme, toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> +vibratePattern :: (MonadDOM m) => Navigator -> [Word] -> m Bool+vibratePattern self pattern'+  = liftDOM+      ((self ^. jsf "vibrate" [toJSVal (array pattern')]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> +vibrate :: (MonadDOM m) => Navigator -> Word -> m Bool+vibrate self time+  = liftDOM ((self ^. jsf "vibrate" [toJSVal time]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation> +javaEnabled :: (MonadDOM m) => Navigator -> m Bool+javaEnabled self+  = liftDOM ((self ^. js "javaEnabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getStorageUpdates Mozilla Navigator.getStorageUpdates documentation> +getStorageUpdates :: (MonadDOM m) => Navigator -> m ()+getStorageUpdates self+  = liftDOM (void (self ^. js "getStorageUpdates"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> +getWebkitBattery ::+                 (MonadDOM m) => Navigator -> m (Maybe BatteryManager)+getWebkitBattery self+  = liftDOM ((self ^. js "webkitBattery") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> +getGeolocation ::+               (MonadDOM m) => Navigator -> m (Maybe Geolocation)+getGeolocation self+  = liftDOM ((self ^. js "geolocation") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> +getWebkitTemporaryStorage ::+                          (MonadDOM m) => Navigator -> m (Maybe StorageQuota)+getWebkitTemporaryStorage self+  = liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> +getWebkitPersistentStorage ::+                           (MonadDOM m) => Navigator -> m (Maybe StorageQuota)+getWebkitPersistentStorage self+  = liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appCodeName Mozilla Navigator.appCodeName documentation> +getAppCodeName ::+               (MonadDOM m, FromJSString result) => Navigator -> m result+getAppCodeName self+  = liftDOM ((self ^. js "appCodeName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appName Mozilla Navigator.appName documentation> +getAppName ::+           (MonadDOM m, FromJSString result) => Navigator -> m result+getAppName self+  = liftDOM ((self ^. js "appName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appVersion Mozilla Navigator.appVersion documentation> +getAppVersion ::+              (MonadDOM m, FromJSString result) => Navigator -> m result+getAppVersion self+  = liftDOM ((self ^. js "appVersion") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.language Mozilla Navigator.language documentation> +getLanguage ::+            (MonadDOM m, FromJSString result) => Navigator -> m result+getLanguage self+  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.userAgent Mozilla Navigator.userAgent documentation> +getUserAgent ::+             (MonadDOM m, FromJSString result) => Navigator -> m result+getUserAgent self+  = liftDOM ((self ^. js "userAgent") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.platform Mozilla Navigator.platform documentation> +getPlatform ::+            (MonadDOM m, FromJSString result) => Navigator -> m result+getPlatform self+  = liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> +getPlugins :: (MonadDOM m) => Navigator -> m (Maybe PluginArray)+getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> +getMimeTypes ::+             (MonadDOM m) => Navigator -> m (Maybe MimeTypeArray)+getMimeTypes self+  = liftDOM ((self ^. js "mimeTypes") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.product Mozilla Navigator.product documentation> +getProduct ::+           (MonadDOM m, FromJSString result) => Navigator -> m result+getProduct self+  = liftDOM ((self ^. js "product") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.productSub Mozilla Navigator.productSub documentation> +getProductSub ::+              (MonadDOM m, FromJSString result) => Navigator -> m result+getProductSub self+  = liftDOM ((self ^. js "productSub") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendor Mozilla Navigator.vendor documentation> +getVendor ::+          (MonadDOM m, FromJSString result) => Navigator -> m result+getVendor self+  = liftDOM ((self ^. js "vendor") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendorSub Mozilla Navigator.vendorSub documentation> +getVendorSub ::+             (MonadDOM m, FromJSString result) => Navigator -> m result+getVendorSub self+  = liftDOM ((self ^. js "vendorSub") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.cookieEnabled Mozilla Navigator.cookieEnabled documentation> +getCookieEnabled :: (MonadDOM m) => Navigator -> m Bool+getCookieEnabled self+  = liftDOM ((self ^. js "cookieEnabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.onLine Mozilla Navigator.onLine documentation> +getOnLine :: (MonadDOM m) => Navigator -> m Bool+getOnLine self = liftDOM ((self ^. js "onLine") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.hardwareConcurrency Mozilla Navigator.hardwareConcurrency documentation> +getHardwareConcurrency :: (MonadDOM m) => Navigator -> m Int+getHardwareConcurrency self+  = liftDOM+      (round <$> ((self ^. js "hardwareConcurrency") >>= valToNumber))
+ src/JSDOM/Generated/NavigatorUserMediaError.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NavigatorUserMediaError+       (getConstraintName, NavigatorUserMediaError,+        castToNavigatorUserMediaError, gTypeNavigatorUserMediaError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaError.constraintName Mozilla NavigatorUserMediaError.constraintName documentation> +getConstraintName ::+                  (MonadDOM m, FromJSString result) =>+                    NavigatorUserMediaError -> m result+getConstraintName self+  = liftDOM ((self ^. js "constraintName") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/NavigatorUserMediaErrorCallback.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NavigatorUserMediaErrorCallback+       (newNavigatorUserMediaErrorCallback,+        newNavigatorUserMediaErrorCallbackSync,+        newNavigatorUserMediaErrorCallbackAsync,+        NavigatorUserMediaErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> +newNavigatorUserMediaErrorCallback ::+                                   (MonadDOM m) =>+                                     (Maybe NavigatorUserMediaError -> JSM ()) ->+                                       m NavigatorUserMediaErrorCallback+newNavigatorUserMediaErrorCallback callback+  = liftDOM+      (NavigatorUserMediaErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> +newNavigatorUserMediaErrorCallbackSync ::+                                       (MonadDOM m) =>+                                         (Maybe NavigatorUserMediaError -> JSM ()) ->+                                           m NavigatorUserMediaErrorCallback+newNavigatorUserMediaErrorCallbackSync callback+  = liftDOM+      (NavigatorUserMediaErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> +newNavigatorUserMediaErrorCallbackAsync ::+                                        (MonadDOM m) =>+                                          (Maybe NavigatorUserMediaError -> JSM ()) ->+                                            m NavigatorUserMediaErrorCallback+newNavigatorUserMediaErrorCallbackAsync callback+  = liftDOM+      (NavigatorUserMediaErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
+ src/JSDOM/Generated/NavigatorUserMediaSuccessCallback.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NavigatorUserMediaSuccessCallback+       (newNavigatorUserMediaSuccessCallback,+        newNavigatorUserMediaSuccessCallbackSync,+        newNavigatorUserMediaSuccessCallbackAsync,+        NavigatorUserMediaSuccessCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> +newNavigatorUserMediaSuccessCallback ::+                                     (MonadDOM m) =>+                                       (Maybe MediaStream -> JSM ()) ->+                                         m NavigatorUserMediaSuccessCallback+newNavigatorUserMediaSuccessCallback callback+  = liftDOM+      (NavigatorUserMediaSuccessCallback . Callback <$>+         function ""+           (\ _ _ [stream] ->+              fromJSVal stream >>= \ stream' -> callback stream'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> +newNavigatorUserMediaSuccessCallbackSync ::+                                         (MonadDOM m) =>+                                           (Maybe MediaStream -> JSM ()) ->+                                             m NavigatorUserMediaSuccessCallback+newNavigatorUserMediaSuccessCallbackSync callback+  = liftDOM+      (NavigatorUserMediaSuccessCallback . Callback <$>+         function ""+           (\ _ _ [stream] ->+              fromJSVal stream >>= \ stream' -> callback stream'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> +newNavigatorUserMediaSuccessCallbackAsync ::+                                          (MonadDOM m) =>+                                            (Maybe MediaStream -> JSM ()) ->+                                              m NavigatorUserMediaSuccessCallback+newNavigatorUserMediaSuccessCallbackAsync callback+  = liftDOM+      (NavigatorUserMediaSuccessCallback . Callback <$>+         function ""+           (\ _ _ [stream] ->+              fromJSVal stream >>= \ stream' -> callback stream'))
+ src/JSDOM/Generated/Node.hs view
@@ -0,0 +1,307 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Node+       (insertBefore, replaceChild, removeChild, appendChild,+        hasChildNodes, cloneNode, normalize, isSupported, isSameNode,+        isEqualNode, lookupPrefix, isDefaultNamespace, lookupNamespaceURI,+        compareDocumentPosition, contains, pattern ELEMENT_NODE,+        pattern ATTRIBUTE_NODE, pattern TEXT_NODE,+        pattern CDATA_SECTION_NODE, pattern ENTITY_REFERENCE_NODE,+        pattern ENTITY_NODE, pattern PROCESSING_INSTRUCTION_NODE,+        pattern COMMENT_NODE, pattern DOCUMENT_NODE,+        pattern DOCUMENT_TYPE_NODE, pattern DOCUMENT_FRAGMENT_NODE,+        pattern NOTATION_NODE, pattern DOCUMENT_POSITION_DISCONNECTED,+        pattern DOCUMENT_POSITION_PRECEDING,+        pattern DOCUMENT_POSITION_FOLLOWING,+        pattern DOCUMENT_POSITION_CONTAINS,+        pattern DOCUMENT_POSITION_CONTAINED_BY,+        pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, getNodeName,+        setNodeValue, getNodeValue, getNodeType, getParentNode,+        getChildNodes, getFirstChild, getLastChild, getPreviousSibling,+        getNextSibling, getOwnerDocument, getNamespaceURI, setPrefix,+        getPrefix, getLocalName, getBaseURI, setTextContent,+        getTextContent, getParentElement, Node, castToNode, gTypeNode,+        IsNode, toNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> +insertBefore ::+             (MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) =>+               self -> Maybe newChild -> Maybe refChild -> m (Maybe Node)+insertBefore self newChild refChild+  = liftDOM+      (((toNode self) ^. jsf "insertBefore"+          [toJSVal newChild, toJSVal refChild])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> +replaceChild ::+             (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) =>+               self -> Maybe newChild -> Maybe oldChild -> m (Maybe Node)+replaceChild self newChild oldChild+  = liftDOM+      (((toNode self) ^. jsf "replaceChild"+          [toJSVal newChild, toJSVal oldChild])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> +removeChild ::+            (MonadDOM m, IsNode self, IsNode oldChild) =>+              self -> Maybe oldChild -> m (Maybe Node)+removeChild self oldChild+  = liftDOM+      (((toNode self) ^. jsf "removeChild" [toJSVal oldChild]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> +appendChild ::+            (MonadDOM m, IsNode self, IsNode newChild) =>+              self -> Maybe newChild -> m (Maybe Node)+appendChild self newChild+  = liftDOM+      (((toNode self) ^. jsf "appendChild" [toJSVal newChild]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.hasChildNodes Mozilla Node.hasChildNodes documentation> +hasChildNodes :: (MonadDOM m, IsNode self) => self -> m Bool+hasChildNodes self+  = liftDOM (((toNode self) ^. js "hasChildNodes") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> +cloneNode ::+          (MonadDOM m, IsNode self) => self -> Bool -> m (Maybe Node)+cloneNode self deep+  = liftDOM+      (((toNode self) ^. jsf "cloneNode" [toJSVal deep]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.normalize Mozilla Node.normalize documentation> +normalize :: (MonadDOM m, IsNode self) => self -> m ()+normalize self = liftDOM (void ((toNode self) ^. js "normalize"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSupported Mozilla Node.isSupported documentation> +isSupported ::+            (MonadDOM m, IsNode self, ToJSString feature,+             ToJSString version) =>+              self -> feature -> Maybe version -> m Bool+isSupported self feature version+  = liftDOM+      (((toNode self) ^. jsf "isSupported"+          [toJSVal feature, toJSVal version])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation> +isSameNode ::+           (MonadDOM m, IsNode self, IsNode other) =>+             self -> Maybe other -> m Bool+isSameNode self other+  = liftDOM+      (((toNode self) ^. jsf "isSameNode" [toJSVal other]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation> +isEqualNode ::+            (MonadDOM m, IsNode self, IsNode other) =>+              self -> Maybe other -> m Bool+isEqualNode self other+  = liftDOM+      (((toNode self) ^. jsf "isEqualNode" [toJSVal other]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> +lookupPrefix ::+             (MonadDOM m, IsNode self, ToJSString namespaceURI,+              FromJSString result) =>+               self -> Maybe namespaceURI -> m (Maybe result)+lookupPrefix self namespaceURI+  = liftDOM+      (((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isDefaultNamespace Mozilla Node.isDefaultNamespace documentation> +isDefaultNamespace ::+                   (MonadDOM m, IsNode self, ToJSString namespaceURI) =>+                     self -> Maybe namespaceURI -> m Bool+isDefaultNamespace self namespaceURI+  = liftDOM+      (((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> +lookupNamespaceURI ::+                   (MonadDOM m, IsNode self, ToJSString prefix,+                    FromJSString result) =>+                     self -> Maybe prefix -> m (Maybe result)+lookupNamespaceURI self prefix+  = liftDOM+      (((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.compareDocumentPosition Mozilla Node.compareDocumentPosition documentation> +compareDocumentPosition ::+                        (MonadDOM m, IsNode self, IsNode other) =>+                          self -> Maybe other -> m Word+compareDocumentPosition self other+  = liftDOM+      (round <$>+         (((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation> +contains ::+         (MonadDOM m, IsNode self, IsNode other) =>+           self -> Maybe other -> m Bool+contains self other+  = liftDOM+      (((toNode self) ^. jsf "contains" [toJSVal other]) >>= valToBool)+pattern ELEMENT_NODE = 1+pattern ATTRIBUTE_NODE = 2+pattern TEXT_NODE = 3+pattern CDATA_SECTION_NODE = 4+pattern ENTITY_REFERENCE_NODE = 5+pattern ENTITY_NODE = 6+pattern PROCESSING_INSTRUCTION_NODE = 7+pattern COMMENT_NODE = 8+pattern DOCUMENT_NODE = 9+pattern DOCUMENT_TYPE_NODE = 10+pattern DOCUMENT_FRAGMENT_NODE = 11+pattern NOTATION_NODE = 12+pattern DOCUMENT_POSITION_DISCONNECTED = 1+pattern DOCUMENT_POSITION_PRECEDING = 2+pattern DOCUMENT_POSITION_FOLLOWING = 4+pattern DOCUMENT_POSITION_CONTAINS = 8+pattern DOCUMENT_POSITION_CONTAINED_BY = 16+pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> +getNodeName ::+            (MonadDOM m, IsNode self, FromJSString result) =>+              self -> m (Maybe result)+getNodeName self+  = liftDOM (((toNode self) ^. js "nodeName") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> +setNodeValue ::+             (MonadDOM m, IsNode self, ToJSString val) =>+               self -> Maybe val -> m ()+setNodeValue self val+  = liftDOM ((toNode self) ^. jss "nodeValue" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> +getNodeValue ::+             (MonadDOM m, IsNode self, FromJSString result) =>+               self -> m (Maybe result)+getNodeValue self+  = liftDOM (((toNode self) ^. js "nodeValue") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeType Mozilla Node.nodeType documentation> +getNodeType :: (MonadDOM m, IsNode self) => self -> m Word+getNodeType self+  = liftDOM+      (round <$> (((toNode self) ^. js "nodeType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation> +getParentNode ::+              (MonadDOM m, IsNode self) => self -> m (Maybe Node)+getParentNode self+  = liftDOM (((toNode self) ^. js "parentNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> +getChildNodes ::+              (MonadDOM m, IsNode self) => self -> m (Maybe NodeList)+getChildNodes self+  = liftDOM (((toNode self) ^. js "childNodes") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation> +getFirstChild ::+              (MonadDOM m, IsNode self) => self -> m (Maybe Node)+getFirstChild self+  = liftDOM (((toNode self) ^. js "firstChild") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation> +getLastChild :: (MonadDOM m, IsNode self) => self -> m (Maybe Node)+getLastChild self+  = liftDOM (((toNode self) ^. js "lastChild") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation> +getPreviousSibling ::+                   (MonadDOM m, IsNode self) => self -> m (Maybe Node)+getPreviousSibling self+  = liftDOM (((toNode self) ^. js "previousSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation> +getNextSibling ::+               (MonadDOM m, IsNode self) => self -> m (Maybe Node)+getNextSibling self+  = liftDOM (((toNode self) ^. js "nextSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation> +getOwnerDocument ::+                 (MonadDOM m, IsNode self) => self -> m (Maybe Document)+getOwnerDocument self+  = liftDOM (((toNode self) ^. js "ownerDocument") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> +getNamespaceURI ::+                (MonadDOM m, IsNode self, FromJSString result) =>+                  self -> m (Maybe result)+getNamespaceURI self+  = liftDOM+      (((toNode self) ^. js "namespaceURI") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> +setPrefix ::+          (MonadDOM m, IsNode self, ToJSString val) =>+            self -> Maybe val -> m ()+setPrefix self val+  = liftDOM ((toNode self) ^. jss "prefix" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> +getPrefix ::+          (MonadDOM m, IsNode self, FromJSString result) =>+            self -> m (Maybe result)+getPrefix self+  = liftDOM (((toNode self) ^. js "prefix") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> +getLocalName ::+             (MonadDOM m, IsNode self, FromJSString result) =>+               self -> m (Maybe result)+getLocalName self+  = liftDOM (((toNode self) ^. js "localName") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> +getBaseURI ::+           (MonadDOM m, IsNode self, FromJSString result) =>+             self -> m (Maybe result)+getBaseURI self+  = liftDOM (((toNode self) ^. js "baseURI") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> +setTextContent ::+               (MonadDOM m, IsNode self, ToJSString val) =>+                 self -> Maybe val -> m ()+setTextContent self val+  = liftDOM ((toNode self) ^. jss "textContent" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> +getTextContent ::+               (MonadDOM m, IsNode self, FromJSString result) =>+                 self -> m (Maybe result)+getTextContent self+  = liftDOM+      (((toNode self) ^. js "textContent") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation> +getParentElement ::+                 (MonadDOM m, IsNode self) => self -> m (Maybe Element)+getParentElement self+  = liftDOM (((toNode self) ^. js "parentElement") >>= fromJSVal)
+ src/JSDOM/Generated/NodeFilter.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NodeFilter+       (acceptNode, pattern FILTER_ACCEPT, pattern FILTER_REJECT,+        pattern FILTER_SKIP, pattern SHOW_ALL, pattern SHOW_ELEMENT,+        pattern SHOW_ATTRIBUTE, pattern SHOW_TEXT,+        pattern SHOW_CDATA_SECTION, pattern SHOW_ENTITY_REFERENCE,+        pattern SHOW_ENTITY, pattern SHOW_PROCESSING_INSTRUCTION,+        pattern SHOW_COMMENT, pattern SHOW_DOCUMENT,+        pattern SHOW_DOCUMENT_TYPE, pattern SHOW_DOCUMENT_FRAGMENT,+        pattern SHOW_NOTATION, NodeFilter, castToNodeFilter,+        gTypeNodeFilter)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter.acceptNode Mozilla NodeFilter.acceptNode documentation> +acceptNode ::+           (MonadDOM m, IsNode n) => NodeFilter -> Maybe n -> m Int+acceptNode self n+  = liftDOM+      (round <$>+         ((self ^. jsf "acceptNode" [toJSVal n]) >>= valToNumber))+pattern FILTER_ACCEPT = 1+pattern FILTER_REJECT = 2+pattern FILTER_SKIP = 3+pattern SHOW_ALL = 4294967295+pattern SHOW_ELEMENT = 1+pattern SHOW_ATTRIBUTE = 2+pattern SHOW_TEXT = 4+pattern SHOW_CDATA_SECTION = 8+pattern SHOW_ENTITY_REFERENCE = 16+pattern SHOW_ENTITY = 32+pattern SHOW_PROCESSING_INSTRUCTION = 64+pattern SHOW_COMMENT = 128+pattern SHOW_DOCUMENT = 256+pattern SHOW_DOCUMENT_TYPE = 512+pattern SHOW_DOCUMENT_FRAGMENT = 1024+pattern SHOW_NOTATION = 2048
+ src/JSDOM/Generated/NodeIterator.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NodeIterator+       (nextNode, previousNode, detach, getRoot, getWhatToShow, getFilter,+        getExpandEntityReferences, getReferenceNode,+        getPointerBeforeReferenceNode, NodeIterator, castToNodeIterator,+        gTypeNodeIterator)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> +nextNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)+nextNode self = liftDOM ((self ^. js "nextNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> +previousNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)+previousNode self+  = liftDOM ((self ^. js "previousNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.detach Mozilla NodeIterator.detach documentation> +detach :: (MonadDOM m) => NodeIterator -> m ()+detach self = liftDOM (void (self ^. js "detach"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> +getRoot :: (MonadDOM m) => NodeIterator -> m (Maybe Node)+getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.whatToShow Mozilla NodeIterator.whatToShow documentation> +getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word+getWhatToShow self+  = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> +getFilter :: (MonadDOM m) => NodeIterator -> m (Maybe NodeFilter)+getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.expandEntityReferences Mozilla NodeIterator.expandEntityReferences documentation> +getExpandEntityReferences :: (MonadDOM m) => NodeIterator -> m Bool+getExpandEntityReferences self+  = liftDOM ((self ^. js "expandEntityReferences") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> +getReferenceNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)+getReferenceNode self+  = liftDOM ((self ^. js "referenceNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.pointerBeforeReferenceNode Mozilla NodeIterator.pointerBeforeReferenceNode documentation> +getPointerBeforeReferenceNode ::+                              (MonadDOM m) => NodeIterator -> m Bool+getPointerBeforeReferenceNode self+  = liftDOM ((self ^. js "pointerBeforeReferenceNode") >>= valToBool)
+ src/JSDOM/Generated/NodeList.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NodeList+       (item, getLength, NodeList, castToNodeList, gTypeNodeList,+        IsNodeList, toNodeList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> +item ::+     (MonadDOM m, IsNodeList self) => self -> Word -> m (Maybe Node)+item self index+  = liftDOM+      (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.length Mozilla NodeList.length documentation> +getLength :: (MonadDOM m, IsNodeList self) => self -> m Word+getLength self+  = liftDOM+      (round <$> (((toNodeList self) ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/Notification.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Notification+       (show, showEvent, error, close, click, Notification,+        castToNotification, gTypeNotification)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.show Mozilla Notification.show documentation> +show :: (MonadDOM m) => Notification -> m ()+show self = liftDOM (void (self ^. js "show"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onshow Mozilla Notification.onshow documentation> +showEvent :: EventName Notification MouseEvent+showEvent = unsafeEventName (toJSString "show")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onerror Mozilla Notification.onerror documentation> +error :: EventName Notification UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclose Mozilla Notification.onclose documentation> +close :: EventName Notification Event+close = unsafeEventName (toJSString "close")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclick Mozilla Notification.onclick documentation> +click :: EventName Notification MouseEvent+click = unsafeEventName (toJSString "click")
+ src/JSDOM/Generated/NotificationCenter.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NotificationCenter+       (createNotification, checkPermission, requestPermission,+        NotificationCenter, castToNotificationCenter,+        gTypeNotificationCenter)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> +createNotification ::+                   (MonadDOM m, ToJSString iconUrl, ToJSString title,+                    ToJSString body) =>+                     NotificationCenter ->+                       iconUrl -> title -> body -> m (Maybe Notification)+createNotification self iconUrl title body+  = liftDOM+      ((self ^. jsf "createNotification"+          [toJSVal iconUrl, toJSVal title, toJSVal body])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation> +checkPermission :: (MonadDOM m) => NotificationCenter -> m Int+checkPermission self+  = liftDOM+      (round <$> ((self ^. js "checkPermission") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.requestPermission Mozilla NotificationCenter.requestPermission documentation> +requestPermission ::+                  (MonadDOM m) => NotificationCenter -> Maybe VoidCallback -> m ()+requestPermission self callback+  = liftDOM+      (void (self ^. jsf "requestPermission" [toJSVal callback]))
+ src/JSDOM/Generated/NotificationPermissionCallback.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.NotificationPermissionCallback+       (newNotificationPermissionCallback,+        newNotificationPermissionCallbackSync,+        newNotificationPermissionCallbackAsync,+        NotificationPermissionCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> +newNotificationPermissionCallback ::+                                  (MonadDOM m, FromJSString permission) =>+                                    (permission -> JSM ()) ->+                                      m (NotificationPermissionCallback permission)+newNotificationPermissionCallback callback+  = liftDOM+      (NotificationPermissionCallback . Callback <$>+         function ""+           (\ _ _ [permission] ->+              fromJSValUnchecked permission >>=+                \ permission' -> callback permission'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> +newNotificationPermissionCallbackSync ::+                                      (MonadDOM m, FromJSString permission) =>+                                        (permission -> JSM ()) ->+                                          m (NotificationPermissionCallback permission)+newNotificationPermissionCallbackSync callback+  = liftDOM+      (NotificationPermissionCallback . Callback <$>+         function ""+           (\ _ _ [permission] ->+              fromJSValUnchecked permission >>=+                \ permission' -> callback permission'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> +newNotificationPermissionCallbackAsync ::+                                       (MonadDOM m, FromJSString permission) =>+                                         (permission -> JSM ()) ->+                                           m (NotificationPermissionCallback permission)+newNotificationPermissionCallbackAsync callback+  = liftDOM+      (NotificationPermissionCallback . Callback <$>+         function ""+           (\ _ _ [permission] ->+              fromJSValUnchecked permission >>=+                \ permission' -> callback permission'))
+ src/JSDOM/Generated/OESStandardDerivatives.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OESStandardDerivatives+       (pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES,+        OESStandardDerivatives, castToOESStandardDerivatives,+        gTypeOESStandardDerivatives)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES = 35723
+ src/JSDOM/Generated/OESTextureHalfFloat.hs view
@@ -0,0 +1,17 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OESTextureHalfFloat+       (pattern HALF_FLOAT_OES, OESTextureHalfFloat,+        castToOESTextureHalfFloat, gTypeOESTextureHalfFloat)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern HALF_FLOAT_OES = 36193
+ src/JSDOM/Generated/OESVertexArrayObject.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OESVertexArrayObject+       (createVertexArrayOES, deleteVertexArrayOES, isVertexArrayOES,+        bindVertexArrayOES, pattern VERTEX_ARRAY_BINDING_OES,+        OESVertexArrayObject, castToOESVertexArrayObject,+        gTypeOESVertexArrayObject)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> +createVertexArrayOES ::+                     (MonadDOM m) =>+                       OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES)+createVertexArrayOES self+  = liftDOM ((self ^. js "createVertexArrayOES") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.deleteVertexArrayOES Mozilla OESVertexArrayObject.deleteVertexArrayOES documentation> +deleteVertexArrayOES ::+                     (MonadDOM m) =>+                       OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()+deleteVertexArrayOES self arrayObject+  = liftDOM+      (void (self ^. jsf "deleteVertexArrayOES" [toJSVal arrayObject]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.isVertexArrayOES Mozilla OESVertexArrayObject.isVertexArrayOES documentation> +isVertexArrayOES ::+                 (MonadDOM m) =>+                   OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool+isVertexArrayOES self arrayObject+  = liftDOM+      ((self ^. jsf "isVertexArrayOES" [toJSVal arrayObject]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.bindVertexArrayOES Mozilla OESVertexArrayObject.bindVertexArrayOES documentation> +bindVertexArrayOES ::+                   (MonadDOM m) =>+                     OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()+bindVertexArrayOES self arrayObject+  = liftDOM+      (void (self ^. jsf "bindVertexArrayOES" [toJSVal arrayObject]))+pattern VERTEX_ARRAY_BINDING_OES = 34229
+ src/JSDOM/Generated/OfflineAudioCompletionEvent.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OfflineAudioCompletionEvent+       (getRenderedBuffer, OfflineAudioCompletionEvent,+        castToOfflineAudioCompletionEvent,+        gTypeOfflineAudioCompletionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> +getRenderedBuffer ::+                  (MonadDOM m) =>+                    OfflineAudioCompletionEvent -> m (Maybe AudioBuffer)+getRenderedBuffer self+  = liftDOM ((self ^. js "renderedBuffer") >>= fromJSVal)
+ src/JSDOM/Generated/OfflineAudioContext.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OfflineAudioContext+       (newOfflineAudioContext, OfflineAudioContext,+        castToOfflineAudioContext, gTypeOfflineAudioContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioContext Mozilla OfflineAudioContext documentation> +newOfflineAudioContext ::+                       (MonadDOM m) => Word -> Word -> Float -> m OfflineAudioContext+newOfflineAudioContext numberOfChannels numberOfFrames sampleRate+  = liftDOM+      (OfflineAudioContext <$>+         new (jsg "OfflineAudioContext")+           [toJSVal numberOfChannels, toJSVal numberOfFrames,+            toJSVal sampleRate])
+ src/JSDOM/Generated/OscillatorNode.hs view
@@ -0,0 +1,84 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OscillatorNode+       (start, stop, noteOn, noteOff, setPeriodicWave, pattern SINE,+        pattern SQUARE, pattern SAWTOOTH, pattern TRIANGLE, pattern CUSTOM,+        pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,+        pattern PLAYING_STATE, pattern FINISHED_STATE, setType, getType,+        getPlaybackState, getFrequency, getDetune, ended, OscillatorNode,+        castToOscillatorNode, gTypeOscillatorNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.start Mozilla OscillatorNode.start documentation> +start :: (MonadDOM m) => OscillatorNode -> Double -> m ()+start self when+  = liftDOM (void (self ^. jsf "start" [toJSVal when]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.stop Mozilla OscillatorNode.stop documentation> +stop :: (MonadDOM m) => OscillatorNode -> Double -> m ()+stop self when = liftDOM (void (self ^. jsf "stop" [toJSVal when]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOn Mozilla OscillatorNode.noteOn documentation> +noteOn :: (MonadDOM m) => OscillatorNode -> Double -> m ()+noteOn self when+  = liftDOM (void (self ^. jsf "noteOn" [toJSVal when]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOff Mozilla OscillatorNode.noteOff documentation> +noteOff :: (MonadDOM m) => OscillatorNode -> Double -> m ()+noteOff self when+  = liftDOM (void (self ^. jsf "noteOff" [toJSVal when]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.setPeriodicWave Mozilla OscillatorNode.setPeriodicWave documentation> +setPeriodicWave ::+                (MonadDOM m) => OscillatorNode -> Maybe PeriodicWave -> m ()+setPeriodicWave self wave+  = liftDOM (void (self ^. jsf "setPeriodicWave" [toJSVal wave]))+pattern SINE = 0+pattern SQUARE = 1+pattern SAWTOOTH = 2+pattern TRIANGLE = 3+pattern CUSTOM = 4+pattern UNSCHEDULED_STATE = 0+pattern SCHEDULED_STATE = 1+pattern PLAYING_STATE = 2+pattern FINISHED_STATE = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => OscillatorNode -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => OscillatorNode -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.playbackState Mozilla OscillatorNode.playbackState documentation> +getPlaybackState :: (MonadDOM m) => OscillatorNode -> m Word+getPlaybackState self+  = liftDOM+      (round <$> ((self ^. js "playbackState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> +getFrequency ::+             (MonadDOM m) => OscillatorNode -> m (Maybe AudioParam)+getFrequency self+  = liftDOM ((self ^. js "frequency") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation> +getDetune :: (MonadDOM m) => OscillatorNode -> m (Maybe AudioParam)+getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.onended Mozilla OscillatorNode.onended documentation> +ended :: EventName OscillatorNode Event+ended = unsafeEventName (toJSString "ended")
+ src/JSDOM/Generated/OverflowEvent.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.OverflowEvent+       (pattern HORIZONTAL, pattern VERTICAL, pattern BOTH, getOrient,+        getHorizontalOverflow, getVerticalOverflow, OverflowEvent,+        castToOverflowEvent, gTypeOverflowEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern HORIZONTAL = 0+pattern VERTICAL = 1+pattern BOTH = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.orient Mozilla OverflowEvent.orient documentation> +getOrient :: (MonadDOM m) => OverflowEvent -> m Word+getOrient self+  = liftDOM (round <$> ((self ^. js "orient") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.horizontalOverflow Mozilla OverflowEvent.horizontalOverflow documentation> +getHorizontalOverflow :: (MonadDOM m) => OverflowEvent -> m Bool+getHorizontalOverflow self+  = liftDOM ((self ^. js "horizontalOverflow") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.verticalOverflow Mozilla OverflowEvent.verticalOverflow documentation> +getVerticalOverflow :: (MonadDOM m) => OverflowEvent -> m Bool+getVerticalOverflow self+  = liftDOM ((self ^. js "verticalOverflow") >>= valToBool)
+ src/JSDOM/Generated/PageTransitionEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PageTransitionEvent+       (getPersisted, PageTransitionEvent, castToPageTransitionEvent,+        gTypePageTransitionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent.persisted Mozilla PageTransitionEvent.persisted documentation> +getPersisted :: (MonadDOM m) => PageTransitionEvent -> m Bool+getPersisted self+  = liftDOM ((self ^. js "persisted") >>= valToBool)
+ src/JSDOM/Generated/PannerNode.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PannerNode+       (setPosition, setOrientation, setVelocity, pattern EQUALPOWER,+        pattern HRTF, pattern SOUNDFIELD, pattern LINEAR_DISTANCE,+        pattern INVERSE_DISTANCE, pattern EXPONENTIAL_DISTANCE,+        setPanningModel, getPanningModel, setDistanceModel,+        getDistanceModel, setRefDistance, getRefDistance, setMaxDistance,+        getMaxDistance, setRolloffFactor, getRolloffFactor,+        setConeInnerAngle, getConeInnerAngle, setConeOuterAngle,+        getConeOuterAngle, setConeOuterGain, getConeOuterGain, PannerNode,+        castToPannerNode, gTypePannerNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setPosition Mozilla webkitAudioPannerNode.setPosition documentation> +setPosition ::+            (MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()+setPosition self x y z+  = liftDOM+      (void+         (self ^. jsf "setPosition" [toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setOrientation Mozilla webkitAudioPannerNode.setOrientation documentation> +setOrientation ::+               (MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()+setOrientation self x y z+  = liftDOM+      (void+         (self ^. jsf "setOrientation" [toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setVelocity Mozilla webkitAudioPannerNode.setVelocity documentation> +setVelocity ::+            (MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()+setVelocity self x y z+  = liftDOM+      (void+         (self ^. jsf "setVelocity" [toJSVal x, toJSVal y, toJSVal z]))+pattern EQUALPOWER = 0+pattern HRTF = 1+pattern SOUNDFIELD = 2+pattern LINEAR_DISTANCE = 0+pattern INVERSE_DISTANCE = 1+pattern EXPONENTIAL_DISTANCE = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> +setPanningModel ::+                (MonadDOM m, ToJSString val) => PannerNode -> val -> m ()+setPanningModel self val+  = liftDOM (self ^. jss "panningModel" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> +getPanningModel ::+                (MonadDOM m, FromJSString result) => PannerNode -> m result+getPanningModel self+  = liftDOM ((self ^. js "panningModel") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation> +setDistanceModel ::+                 (MonadDOM m, ToJSString val) => PannerNode -> val -> m ()+setDistanceModel self val+  = liftDOM (self ^. jss "distanceModel" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation> +getDistanceModel ::+                 (MonadDOM m, FromJSString result) => PannerNode -> m result+getDistanceModel self+  = liftDOM ((self ^. js "distanceModel") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation> +setRefDistance :: (MonadDOM m) => PannerNode -> Double -> m ()+setRefDistance self val+  = liftDOM (self ^. jss "refDistance" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation> +getRefDistance :: (MonadDOM m) => PannerNode -> m Double+getRefDistance self+  = liftDOM ((self ^. js "refDistance") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation> +setMaxDistance :: (MonadDOM m) => PannerNode -> Double -> m ()+setMaxDistance self val+  = liftDOM (self ^. jss "maxDistance" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation> +getMaxDistance :: (MonadDOM m) => PannerNode -> m Double+getMaxDistance self+  = liftDOM ((self ^. js "maxDistance") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation> +setRolloffFactor :: (MonadDOM m) => PannerNode -> Double -> m ()+setRolloffFactor self val+  = liftDOM (self ^. jss "rolloffFactor" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation> +getRolloffFactor :: (MonadDOM m) => PannerNode -> m Double+getRolloffFactor self+  = liftDOM ((self ^. js "rolloffFactor") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation> +setConeInnerAngle :: (MonadDOM m) => PannerNode -> Double -> m ()+setConeInnerAngle self val+  = liftDOM (self ^. jss "coneInnerAngle" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation> +getConeInnerAngle :: (MonadDOM m) => PannerNode -> m Double+getConeInnerAngle self+  = liftDOM ((self ^. js "coneInnerAngle") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation> +setConeOuterAngle :: (MonadDOM m) => PannerNode -> Double -> m ()+setConeOuterAngle self val+  = liftDOM (self ^. jss "coneOuterAngle" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation> +getConeOuterAngle :: (MonadDOM m) => PannerNode -> m Double+getConeOuterAngle self+  = liftDOM ((self ^. js "coneOuterAngle") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation> +setConeOuterGain :: (MonadDOM m) => PannerNode -> Double -> m ()+setConeOuterGain self val+  = liftDOM (self ^. jss "coneOuterGain" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation> +getConeOuterGain :: (MonadDOM m) => PannerNode -> m Double+getConeOuterGain self+  = liftDOM ((self ^. js "coneOuterGain") >>= valToNumber)
+ src/JSDOM/Generated/Path2D.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Path2D+       (newPath2D, newPath2D', newPath2D'', addPath, closePath, moveTo,+        lineTo, quadraticCurveTo, bezierCurveTo, arcTo, rect, arc, Path2D,+        castToPath2D, gTypePath2D)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> +newPath2D :: (MonadDOM m) => m Path2D+newPath2D = liftDOM (Path2D <$> new (jsg "Path2D") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> +newPath2D' :: (MonadDOM m) => Maybe Path2D -> m Path2D+newPath2D' path+  = liftDOM (Path2D <$> new (jsg "Path2D") [toJSVal path])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> +newPath2D'' :: (MonadDOM m, ToJSString text) => text -> m Path2D+newPath2D'' text+  = liftDOM (Path2D <$> new (jsg "Path2D") [toJSVal text])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.addPath Mozilla Path2D.addPath documentation> +addPath ::+        (MonadDOM m) => Path2D -> Maybe Path2D -> Maybe SVGMatrix -> m ()+addPath self path transform+  = liftDOM+      (void (self ^. jsf "addPath" [toJSVal path, toJSVal transform]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.closePath Mozilla Path2D.closePath documentation> +closePath :: (MonadDOM m) => Path2D -> m ()+closePath self = liftDOM (void (self ^. js "closePath"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.moveTo Mozilla Path2D.moveTo documentation> +moveTo :: (MonadDOM m) => Path2D -> Float -> Float -> m ()+moveTo self x y+  = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.lineTo Mozilla Path2D.lineTo documentation> +lineTo :: (MonadDOM m) => Path2D -> Float -> Float -> m ()+lineTo self x y+  = liftDOM (void (self ^. jsf "lineTo" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.quadraticCurveTo Mozilla Path2D.quadraticCurveTo documentation> +quadraticCurveTo ::+                 (MonadDOM m) => Path2D -> Float -> Float -> Float -> Float -> m ()+quadraticCurveTo self cpx cpy x y+  = liftDOM+      (void+         (self ^. jsf "quadraticCurveTo"+            [toJSVal cpx, toJSVal cpy, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.bezierCurveTo Mozilla Path2D.bezierCurveTo documentation> +bezierCurveTo ::+              (MonadDOM m) =>+                Path2D ->+                  Float -> Float -> Float -> Float -> Float -> Float -> m ()+bezierCurveTo self cp1x cp1y cp2x cp2y x y+  = liftDOM+      (void+         (self ^. jsf "bezierCurveTo"+            [toJSVal cp1x, toJSVal cp1y, toJSVal cp2x, toJSVal cp2y, toJSVal x,+             toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arcTo Mozilla Path2D.arcTo documentation> +arcTo ::+      (MonadDOM m) =>+        Path2D -> Float -> Float -> Float -> Float -> Float -> m ()+arcTo self x1 y1 x2 y2 radius+  = liftDOM+      (void+         (self ^. jsf "arcTo"+            [toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2, toJSVal radius]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.rect Mozilla Path2D.rect documentation> +rect ::+     (MonadDOM m) => Path2D -> Float -> Float -> Float -> Float -> m ()+rect self x y width height+  = liftDOM+      (void+         (self ^. jsf "rect"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arc Mozilla Path2D.arc documentation> +arc ::+    (MonadDOM m) =>+      Path2D -> Float -> Float -> Float -> Float -> Float -> Bool -> m ()+arc self x y radius startAngle endAngle anticlockwise+  = liftDOM+      (void+         (self ^. jsf "arc"+            [toJSVal x, toJSVal y, toJSVal radius, toJSVal startAngle,+             toJSVal endAngle, toJSVal anticlockwise]))
+ src/JSDOM/Generated/Performance.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Performance+       (webkitGetEntries, webkitGetEntriesByType, webkitGetEntriesByName,+        webkitClearResourceTimings, webkitSetResourceTimingBufferSize,+        webkitMark, webkitClearMarks, webkitMeasure, webkitClearMeasures,+        now, getNavigation, getTiming, webKitResourceTimingBufferFull,+        Performance, castToPerformance, gTypePerformance)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> +webkitGetEntries ::+                 (MonadDOM m) => Performance -> m (Maybe PerformanceEntryList)+webkitGetEntries self+  = liftDOM ((self ^. js "webkitGetEntries") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> +webkitGetEntriesByType ::+                       (MonadDOM m, ToJSString entryType) =>+                         Performance -> entryType -> m (Maybe PerformanceEntryList)+webkitGetEntriesByType self entryType+  = liftDOM+      ((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> +webkitGetEntriesByName ::+                       (MonadDOM m, ToJSString name, ToJSString entryType) =>+                         Performance -> name -> entryType -> m (Maybe PerformanceEntryList)+webkitGetEntriesByName self name entryType+  = liftDOM+      ((self ^. jsf "webkitGetEntriesByName"+          [toJSVal name, toJSVal entryType])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearResourceTimings Mozilla Performance.webkitClearResourceTimings documentation> +webkitClearResourceTimings :: (MonadDOM m) => Performance -> m ()+webkitClearResourceTimings self+  = liftDOM (void (self ^. js "webkitClearResourceTimings"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitSetResourceTimingBufferSize Mozilla Performance.webkitSetResourceTimingBufferSize documentation> +webkitSetResourceTimingBufferSize ::+                                  (MonadDOM m) => Performance -> Word -> m ()+webkitSetResourceTimingBufferSize self maxSize+  = liftDOM+      (void+         (self ^. jsf "webkitSetResourceTimingBufferSize"+            [toJSVal maxSize]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMark Mozilla Performance.webkitMark documentation> +webkitMark ::+           (MonadDOM m, ToJSString markName) =>+             Performance -> markName -> m ()+webkitMark self markName+  = liftDOM (void (self ^. jsf "webkitMark" [toJSVal markName]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMarks Mozilla Performance.webkitClearMarks documentation> +webkitClearMarks ::+                 (MonadDOM m, ToJSString markName) =>+                   Performance -> markName -> m ()+webkitClearMarks self markName+  = liftDOM+      (void (self ^. jsf "webkitClearMarks" [toJSVal markName]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMeasure Mozilla Performance.webkitMeasure documentation> +webkitMeasure ::+              (MonadDOM m, ToJSString measureName, ToJSString startMark,+               ToJSString endMark) =>+                Performance -> measureName -> startMark -> endMark -> m ()+webkitMeasure self measureName startMark endMark+  = liftDOM+      (void+         (self ^. jsf "webkitMeasure"+            [toJSVal measureName, toJSVal startMark, toJSVal endMark]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMeasures Mozilla Performance.webkitClearMeasures documentation> +webkitClearMeasures ::+                    (MonadDOM m, ToJSString measureName) =>+                      Performance -> measureName -> m ()+webkitClearMeasures self measureName+  = liftDOM+      (void (self ^. jsf "webkitClearMeasures" [toJSVal measureName]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> +now :: (MonadDOM m) => Performance -> m Double+now self = liftDOM ((self ^. js "now") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> +getNavigation ::+              (MonadDOM m) => Performance -> m (Maybe PerformanceNavigation)+getNavigation self+  = liftDOM ((self ^. js "navigation") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation> +getTiming ::+          (MonadDOM m) => Performance -> m (Maybe PerformanceTiming)+getTiming self = liftDOM ((self ^. js "timing") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.onwebkitresourcetimingbufferfull Mozilla Performance.onwebkitresourcetimingbufferfull documentation> +webKitResourceTimingBufferFull :: EventName Performance Event+webKitResourceTimingBufferFull+  = unsafeEventName (toJSString "webkitresourcetimingbufferfull")
+ src/JSDOM/Generated/PerformanceEntry.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PerformanceEntry+       (getName, getEntryType, getStartTime, getDuration,+        PerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry,+        IsPerformanceEntry, toPerformanceEntry)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.name Mozilla PerformanceEntry.name documentation> +getName ::+        (MonadDOM m, IsPerformanceEntry self, FromJSString result) =>+          self -> m result+getName self+  = liftDOM+      (((toPerformanceEntry self) ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.entryType Mozilla PerformanceEntry.entryType documentation> +getEntryType ::+             (MonadDOM m, IsPerformanceEntry self, FromJSString result) =>+               self -> m result+getEntryType self+  = liftDOM+      (((toPerformanceEntry self) ^. js "entryType") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.startTime Mozilla PerformanceEntry.startTime documentation> +getStartTime ::+             (MonadDOM m, IsPerformanceEntry self) => self -> m Double+getStartTime self+  = liftDOM+      (((toPerformanceEntry self) ^. js "startTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.duration Mozilla PerformanceEntry.duration documentation> +getDuration ::+            (MonadDOM m, IsPerformanceEntry self) => self -> m Double+getDuration self+  = liftDOM+      (((toPerformanceEntry self) ^. js "duration") >>= valToNumber)
+ src/JSDOM/Generated/PerformanceEntryList.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PerformanceEntryList+       (item, getLength, PerformanceEntryList, castToPerformanceEntryList,+        gTypePerformanceEntryList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> +item ::+     (MonadDOM m) =>+       PerformanceEntryList -> Word -> m (Maybe PerformanceEntry)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.length Mozilla PerformanceEntryList.length documentation> +getLength :: (MonadDOM m) => PerformanceEntryList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/PerformanceNavigation.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PerformanceNavigation+       (pattern TYPE_NAVIGATE, pattern TYPE_RELOAD,+        pattern TYPE_BACK_FORWARD, pattern TYPE_RESERVED, getType,+        getRedirectCount, PerformanceNavigation,+        castToPerformanceNavigation, gTypePerformanceNavigation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern TYPE_NAVIGATE = 0+pattern TYPE_RELOAD = 1+pattern TYPE_BACK_FORWARD = 2+pattern TYPE_RESERVED = 255++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.type Mozilla PerformanceNavigation.type documentation> +getType :: (MonadDOM m) => PerformanceNavigation -> m Word+getType self+  = liftDOM (round <$> ((self ^. js "type") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.redirectCount Mozilla PerformanceNavigation.redirectCount documentation> +getRedirectCount :: (MonadDOM m) => PerformanceNavigation -> m Word+getRedirectCount self+  = liftDOM+      (round <$> ((self ^. js "redirectCount") >>= valToNumber))
+ src/JSDOM/Generated/PerformanceResourceTiming.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PerformanceResourceTiming+       (getInitiatorType, getRedirectStart, getRedirectEnd, getFetchStart,+        getDomainLookupStart, getDomainLookupEnd, getConnectStart,+        getConnectEnd, getSecureConnectionStart, getRequestStart,+        getResponseEnd, PerformanceResourceTiming,+        castToPerformanceResourceTiming, gTypePerformanceResourceTiming)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.initiatorType Mozilla PerformanceResourceTiming.initiatorType documentation> +getInitiatorType ::+                 (MonadDOM m, FromJSString result) =>+                   PerformanceResourceTiming -> m result+getInitiatorType self+  = liftDOM ((self ^. js "initiatorType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectStart Mozilla PerformanceResourceTiming.redirectStart documentation> +getRedirectStart ::+                 (MonadDOM m) => PerformanceResourceTiming -> m Double+getRedirectStart self+  = liftDOM ((self ^. js "redirectStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectEnd Mozilla PerformanceResourceTiming.redirectEnd documentation> +getRedirectEnd ::+               (MonadDOM m) => PerformanceResourceTiming -> m Double+getRedirectEnd self+  = liftDOM ((self ^. js "redirectEnd") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.fetchStart Mozilla PerformanceResourceTiming.fetchStart documentation> +getFetchStart ::+              (MonadDOM m) => PerformanceResourceTiming -> m Double+getFetchStart self+  = liftDOM ((self ^. js "fetchStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupStart Mozilla PerformanceResourceTiming.domainLookupStart documentation> +getDomainLookupStart ::+                     (MonadDOM m) => PerformanceResourceTiming -> m Double+getDomainLookupStart self+  = liftDOM ((self ^. js "domainLookupStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupEnd Mozilla PerformanceResourceTiming.domainLookupEnd documentation> +getDomainLookupEnd ::+                   (MonadDOM m) => PerformanceResourceTiming -> m Double+getDomainLookupEnd self+  = liftDOM ((self ^. js "domainLookupEnd") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectStart Mozilla PerformanceResourceTiming.connectStart documentation> +getConnectStart ::+                (MonadDOM m) => PerformanceResourceTiming -> m Double+getConnectStart self+  = liftDOM ((self ^. js "connectStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectEnd Mozilla PerformanceResourceTiming.connectEnd documentation> +getConnectEnd ::+              (MonadDOM m) => PerformanceResourceTiming -> m Double+getConnectEnd self+  = liftDOM ((self ^. js "connectEnd") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.secureConnectionStart Mozilla PerformanceResourceTiming.secureConnectionStart documentation> +getSecureConnectionStart ::+                         (MonadDOM m) => PerformanceResourceTiming -> m Double+getSecureConnectionStart self+  = liftDOM ((self ^. js "secureConnectionStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.requestStart Mozilla PerformanceResourceTiming.requestStart documentation> +getRequestStart ::+                (MonadDOM m) => PerformanceResourceTiming -> m Double+getRequestStart self+  = liftDOM ((self ^. js "requestStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.responseEnd Mozilla PerformanceResourceTiming.responseEnd documentation> +getResponseEnd ::+               (MonadDOM m) => PerformanceResourceTiming -> m Double+getResponseEnd self+  = liftDOM ((self ^. js "responseEnd") >>= valToNumber)
+ src/JSDOM/Generated/PerformanceTiming.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PerformanceTiming+       (getNavigationStart, getUnloadEventStart, getUnloadEventEnd,+        getRedirectStart, getRedirectEnd, getFetchStart,+        getDomainLookupStart, getDomainLookupEnd, getConnectStart,+        getConnectEnd, getSecureConnectionStart, getRequestStart,+        getResponseStart, getResponseEnd, getDomLoading, getDomInteractive,+        getDomContentLoadedEventStart, getDomContentLoadedEventEnd,+        getDomComplete, getLoadEventStart, getLoadEventEnd,+        PerformanceTiming, castToPerformanceTiming, gTypePerformanceTiming)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.navigationStart Mozilla PerformanceTiming.navigationStart documentation> +getNavigationStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getNavigationStart self+  = liftDOM+      (round <$> ((self ^. js "navigationStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventStart Mozilla PerformanceTiming.unloadEventStart documentation> +getUnloadEventStart ::+                    (MonadDOM m) => PerformanceTiming -> m Word64+getUnloadEventStart self+  = liftDOM+      (round <$> ((self ^. js "unloadEventStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventEnd Mozilla PerformanceTiming.unloadEventEnd documentation> +getUnloadEventEnd :: (MonadDOM m) => PerformanceTiming -> m Word64+getUnloadEventEnd self+  = liftDOM+      (round <$> ((self ^. js "unloadEventEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectStart Mozilla PerformanceTiming.redirectStart documentation> +getRedirectStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getRedirectStart self+  = liftDOM+      (round <$> ((self ^. js "redirectStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectEnd Mozilla PerformanceTiming.redirectEnd documentation> +getRedirectEnd :: (MonadDOM m) => PerformanceTiming -> m Word64+getRedirectEnd self+  = liftDOM (round <$> ((self ^. js "redirectEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.fetchStart Mozilla PerformanceTiming.fetchStart documentation> +getFetchStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getFetchStart self+  = liftDOM (round <$> ((self ^. js "fetchStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupStart Mozilla PerformanceTiming.domainLookupStart documentation> +getDomainLookupStart ::+                     (MonadDOM m) => PerformanceTiming -> m Word64+getDomainLookupStart self+  = liftDOM+      (round <$> ((self ^. js "domainLookupStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupEnd Mozilla PerformanceTiming.domainLookupEnd documentation> +getDomainLookupEnd :: (MonadDOM m) => PerformanceTiming -> m Word64+getDomainLookupEnd self+  = liftDOM+      (round <$> ((self ^. js "domainLookupEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectStart Mozilla PerformanceTiming.connectStart documentation> +getConnectStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getConnectStart self+  = liftDOM (round <$> ((self ^. js "connectStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectEnd Mozilla PerformanceTiming.connectEnd documentation> +getConnectEnd :: (MonadDOM m) => PerformanceTiming -> m Word64+getConnectEnd self+  = liftDOM (round <$> ((self ^. js "connectEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.secureConnectionStart Mozilla PerformanceTiming.secureConnectionStart documentation> +getSecureConnectionStart ::+                         (MonadDOM m) => PerformanceTiming -> m Word64+getSecureConnectionStart self+  = liftDOM+      (round <$> ((self ^. js "secureConnectionStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.requestStart Mozilla PerformanceTiming.requestStart documentation> +getRequestStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getRequestStart self+  = liftDOM (round <$> ((self ^. js "requestStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseStart Mozilla PerformanceTiming.responseStart documentation> +getResponseStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getResponseStart self+  = liftDOM+      (round <$> ((self ^. js "responseStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseEnd Mozilla PerformanceTiming.responseEnd documentation> +getResponseEnd :: (MonadDOM m) => PerformanceTiming -> m Word64+getResponseEnd self+  = liftDOM (round <$> ((self ^. js "responseEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domLoading Mozilla PerformanceTiming.domLoading documentation> +getDomLoading :: (MonadDOM m) => PerformanceTiming -> m Word64+getDomLoading self+  = liftDOM (round <$> ((self ^. js "domLoading") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domInteractive Mozilla PerformanceTiming.domInteractive documentation> +getDomInteractive :: (MonadDOM m) => PerformanceTiming -> m Word64+getDomInteractive self+  = liftDOM+      (round <$> ((self ^. js "domInteractive") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventStart Mozilla PerformanceTiming.domContentLoadedEventStart documentation> +getDomContentLoadedEventStart ::+                              (MonadDOM m) => PerformanceTiming -> m Word64+getDomContentLoadedEventStart self+  = liftDOM+      (round <$>+         ((self ^. js "domContentLoadedEventStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventEnd Mozilla PerformanceTiming.domContentLoadedEventEnd documentation> +getDomContentLoadedEventEnd ::+                            (MonadDOM m) => PerformanceTiming -> m Word64+getDomContentLoadedEventEnd self+  = liftDOM+      (round <$>+         ((self ^. js "domContentLoadedEventEnd") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domComplete Mozilla PerformanceTiming.domComplete documentation> +getDomComplete :: (MonadDOM m) => PerformanceTiming -> m Word64+getDomComplete self+  = liftDOM (round <$> ((self ^. js "domComplete") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventStart Mozilla PerformanceTiming.loadEventStart documentation> +getLoadEventStart :: (MonadDOM m) => PerformanceTiming -> m Word64+getLoadEventStart self+  = liftDOM+      (round <$> ((self ^. js "loadEventStart") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventEnd Mozilla PerformanceTiming.loadEventEnd documentation> +getLoadEventEnd :: (MonadDOM m) => PerformanceTiming -> m Word64+getLoadEventEnd self+  = liftDOM (round <$> ((self ^. js "loadEventEnd") >>= valToNumber))
+ src/JSDOM/Generated/Plugin.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Plugin+       (item, namedItem, getName, getFilename, getDescription, getLength,+        Plugin, castToPlugin, gTypePlugin)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation> +item :: (MonadDOM m) => Plugin -> Word -> m (Maybe MimeType)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            Plugin -> name -> m (Maybe MimeType)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.name Mozilla Plugin.name documentation> +getName :: (MonadDOM m, FromJSString result) => Plugin -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.filename Mozilla Plugin.filename documentation> +getFilename ::+            (MonadDOM m, FromJSString result) => Plugin -> m result+getFilename self+  = liftDOM ((self ^. js "filename") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.description Mozilla Plugin.description documentation> +getDescription ::+               (MonadDOM m, FromJSString result) => Plugin -> m result+getDescription self+  = liftDOM ((self ^. js "description") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.length Mozilla Plugin.length documentation> +getLength :: (MonadDOM m) => Plugin -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/PluginArray.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PluginArray+       (item, namedItem, refresh, getLength, PluginArray,+        castToPluginArray, gTypePluginArray)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation> +item :: (MonadDOM m) => PluginArray -> Word -> m (Maybe Plugin)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            PluginArray -> name -> m (Maybe Plugin)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.refresh Mozilla PluginArray.refresh documentation> +refresh :: (MonadDOM m) => PluginArray -> Bool -> m ()+refresh self reload+  = liftDOM (void (self ^. jsf "refresh" [toJSVal reload]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.length Mozilla PluginArray.length documentation> +getLength :: (MonadDOM m) => PluginArray -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/PopStateEvent.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PopStateEvent+       (getState, PopStateEvent, castToPopStateEvent, gTypePopStateEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent.state Mozilla PopStateEvent.state documentation> +getState :: (MonadDOM m) => PopStateEvent -> m JSVal+getState self = liftDOM ((self ^. js "state") >>= toJSVal)
+ src/JSDOM/Generated/PositionCallback.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PositionCallback+       (newPositionCallback, newPositionCallbackSync,+        newPositionCallbackAsync, PositionCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> +newPositionCallback ::+                    (MonadDOM m) => (Maybe Geoposition -> JSM ()) -> m PositionCallback+newPositionCallback callback+  = liftDOM+      (PositionCallback . Callback <$>+         function ""+           (\ _ _ [position] ->+              fromJSVal position >>= \ position' -> callback position'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> +newPositionCallbackSync ::+                        (MonadDOM m) => (Maybe Geoposition -> JSM ()) -> m PositionCallback+newPositionCallbackSync callback+  = liftDOM+      (PositionCallback . Callback <$>+         function ""+           (\ _ _ [position] ->+              fromJSVal position >>= \ position' -> callback position'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> +newPositionCallbackAsync ::+                         (MonadDOM m) => (Maybe Geoposition -> JSM ()) -> m PositionCallback+newPositionCallbackAsync callback+  = liftDOM+      (PositionCallback . Callback <$>+         function ""+           (\ _ _ [position] ->+              fromJSVal position >>= \ position' -> callback position'))
+ src/JSDOM/Generated/PositionError.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PositionError+       (pattern PERMISSION_DENIED, pattern POSITION_UNAVAILABLE,+        pattern TIMEOUT, getCode, getMessage, PositionError,+        castToPositionError, gTypePositionError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern PERMISSION_DENIED = 1+pattern POSITION_UNAVAILABLE = 2+pattern TIMEOUT = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.code Mozilla PositionError.code documentation> +getCode :: (MonadDOM m) => PositionError -> m Word+getCode self+  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.message Mozilla PositionError.message documentation> +getMessage ::+           (MonadDOM m, FromJSString result) => PositionError -> m result+getMessage self+  = liftDOM ((self ^. js "message") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/PositionErrorCallback.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.PositionErrorCallback+       (newPositionErrorCallback, newPositionErrorCallbackSync,+        newPositionErrorCallbackAsync, PositionErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> +newPositionErrorCallback ::+                         (MonadDOM m) =>+                           (Maybe PositionError -> JSM ()) -> m PositionErrorCallback+newPositionErrorCallback callback+  = liftDOM+      (PositionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> +newPositionErrorCallbackSync ::+                             (MonadDOM m) =>+                               (Maybe PositionError -> JSM ()) -> m PositionErrorCallback+newPositionErrorCallbackSync callback+  = liftDOM+      (PositionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> +newPositionErrorCallbackAsync ::+                              (MonadDOM m) =>+                                (Maybe PositionError -> JSM ()) -> m PositionErrorCallback+newPositionErrorCallbackAsync callback+  = liftDOM+      (PositionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
+ src/JSDOM/Generated/ProcessingInstruction.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ProcessingInstruction+       (getTarget, getSheet, ProcessingInstruction,+        castToProcessingInstruction, gTypeProcessingInstruction)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation> +getTarget ::+          (MonadDOM m, FromJSString result) =>+            ProcessingInstruction -> m (Maybe result)+getTarget self+  = liftDOM ((self ^. js "target") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> +getSheet ::+         (MonadDOM m) => ProcessingInstruction -> m (Maybe StyleSheet)+getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal)
+ src/JSDOM/Generated/ProgressEvent.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ProgressEvent+       (getLengthComputable, getLoaded, getTotal, ProgressEvent,+        castToProgressEvent, gTypeProgressEvent, IsProgressEvent,+        toProgressEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.lengthComputable Mozilla ProgressEvent.lengthComputable documentation> +getLengthComputable ::+                    (MonadDOM m, IsProgressEvent self) => self -> m Bool+getLengthComputable self+  = liftDOM+      (((toProgressEvent self) ^. js "lengthComputable") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.loaded Mozilla ProgressEvent.loaded documentation> +getLoaded :: (MonadDOM m, IsProgressEvent self) => self -> m Word64+getLoaded self+  = liftDOM+      (round <$>+         (((toProgressEvent self) ^. js "loaded") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.total Mozilla ProgressEvent.total documentation> +getTotal :: (MonadDOM m, IsProgressEvent self) => self -> m Word64+getTotal self+  = liftDOM+      (round <$>+         (((toProgressEvent self) ^. js "total") >>= valToNumber))
+ src/JSDOM/Generated/QuickTimePluginReplacement.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.QuickTimePluginReplacement+       (postEvent, getMovieSize, getTimedMetaData, getAccessLog,+        getErrorLog, QuickTimePluginReplacement,+        castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.postEvent Mozilla QuickTimePluginReplacement.postEvent documentation> +postEvent ::+          (MonadDOM m, ToJSString eventName) =>+            QuickTimePluginReplacement -> eventName -> m ()+postEvent self eventName+  = liftDOM (void (self ^. jsf "postEvent" [toJSVal eventName]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.movieSize Mozilla QuickTimePluginReplacement.movieSize documentation> +getMovieSize ::+             (MonadDOM m) => QuickTimePluginReplacement -> m Word64+getMovieSize self+  = liftDOM (round <$> ((self ^. js "movieSize") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.timedMetaData Mozilla QuickTimePluginReplacement.timedMetaData documentation> +getTimedMetaData ::+                 (MonadDOM m) => QuickTimePluginReplacement -> m JSVal+getTimedMetaData self+  = liftDOM ((self ^. js "timedMetaData") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.accessLog Mozilla QuickTimePluginReplacement.accessLog documentation> +getAccessLog ::+             (MonadDOM m) => QuickTimePluginReplacement -> m JSVal+getAccessLog self = liftDOM ((self ^. js "accessLog") >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.errorLog Mozilla QuickTimePluginReplacement.errorLog documentation> +getErrorLog ::+            (MonadDOM m) => QuickTimePluginReplacement -> m JSVal+getErrorLog self = liftDOM ((self ^. js "errorLog") >>= toJSVal)
+ src/JSDOM/Generated/RGBColor.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RGBColor+       (getRed, getGreen, getBlue, RGBColor, castToRGBColor,+        gTypeRGBColor)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> +getRed :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)+getRed self = liftDOM ((self ^. js "red") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> +getGreen :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)+getGreen self = liftDOM ((self ^. js "green") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> +getBlue :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)+getBlue self = liftDOM ((self ^. js "blue") >>= fromJSVal)
+ src/JSDOM/Generated/RTCConfiguration.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCConfiguration+       (getIceServers, getIceTransports, getRequestIdentity,+        RTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceServers Mozilla RTCConfiguration.iceServers documentation> +getIceServers ::+              (MonadDOM m) => RTCConfiguration -> m [Maybe RTCIceServer]+getIceServers self+  = liftDOM ((self ^. js "iceServers") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceTransports Mozilla RTCConfiguration.iceTransports documentation> +getIceTransports ::+                 (MonadDOM m) => RTCConfiguration -> m RTCIceTransportsEnum+getIceTransports self+  = liftDOM ((self ^. js "iceTransports") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.requestIdentity Mozilla RTCConfiguration.requestIdentity documentation> +getRequestIdentity ::+                   (MonadDOM m) => RTCConfiguration -> m RTCIdentityOptionEnum+getRequestIdentity self+  = liftDOM ((self ^. js "requestIdentity") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/RTCDTMFSender.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCDTMFSender+       (insertDTMF, getCanInsertDTMF, getTrack, getToneBuffer,+        getDuration, getInterToneGap, toneChange, RTCDTMFSender,+        castToRTCDTMFSender, gTypeRTCDTMFSender)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.insertDTMF Mozilla RTCDTMFSender.insertDTMF documentation> +insertDTMF ::+           (MonadDOM m, ToJSString tones) =>+             RTCDTMFSender -> tones -> Int -> Int -> m ()+insertDTMF self tones duration interToneGap+  = liftDOM+      (void+         (self ^. jsf "insertDTMF"+            [toJSVal tones, toJSVal duration, toJSVal interToneGap]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.canInsertDTMF Mozilla RTCDTMFSender.canInsertDTMF documentation> +getCanInsertDTMF :: (MonadDOM m) => RTCDTMFSender -> m Bool+getCanInsertDTMF self+  = liftDOM ((self ^. js "canInsertDTMF") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> +getTrack ::+         (MonadDOM m) => RTCDTMFSender -> m (Maybe MediaStreamTrack)+getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.toneBuffer Mozilla RTCDTMFSender.toneBuffer documentation> +getToneBuffer ::+              (MonadDOM m, FromJSString result) => RTCDTMFSender -> m result+getToneBuffer self+  = liftDOM ((self ^. js "toneBuffer") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.duration Mozilla RTCDTMFSender.duration documentation> +getDuration :: (MonadDOM m) => RTCDTMFSender -> m Int+getDuration self+  = liftDOM (round <$> ((self ^. js "duration") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.interToneGap Mozilla RTCDTMFSender.interToneGap documentation> +getInterToneGap :: (MonadDOM m) => RTCDTMFSender -> m Int+getInterToneGap self+  = liftDOM (round <$> ((self ^. js "interToneGap") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.ontonechange Mozilla RTCDTMFSender.ontonechange documentation> +toneChange :: EventName RTCDTMFSender Event+toneChange = unsafeEventName (toJSString "tonechange")
+ src/JSDOM/Generated/RTCDTMFToneChangeEvent.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCDTMFToneChangeEvent+       (getTone, RTCDTMFToneChangeEvent, castToRTCDTMFToneChangeEvent,+        gTypeRTCDTMFToneChangeEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent.tone Mozilla RTCDTMFToneChangeEvent.tone documentation> +getTone ::+        (MonadDOM m, FromJSString result) =>+          RTCDTMFToneChangeEvent -> m result+getTone self = liftDOM ((self ^. js "tone") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/RTCDataChannel.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCDataChannel+       (send, sendView, sendBlob, sendString, close, getLabel, getOrdered,+        getMaxRetransmitTime, getMaxRetransmits, getProtocol,+        getNegotiated, getId, getReadyState, getBufferedAmount,+        setBinaryType, getBinaryType, open, error, closeEvent, message,+        RTCDataChannel, castToRTCDataChannel, gTypeRTCDataChannel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +send ::+     (MonadDOM m, IsArrayBuffer data') =>+       RTCDataChannel -> Maybe data' -> m ()+send self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +sendView ::+         (MonadDOM m, IsArrayBufferView data') =>+           RTCDataChannel -> Maybe data' -> m ()+sendView self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +sendBlob ::+         (MonadDOM m, IsBlob data') => RTCDataChannel -> Maybe data' -> m ()+sendBlob self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> +sendString ::+           (MonadDOM m, ToJSString data') => RTCDataChannel -> data' -> m ()+sendString self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.close Mozilla RTCDataChannel.close documentation> +close :: (MonadDOM m) => RTCDataChannel -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.label Mozilla RTCDataChannel.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => RTCDataChannel -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.ordered Mozilla RTCDataChannel.ordered documentation> +getOrdered :: (MonadDOM m) => RTCDataChannel -> m Bool+getOrdered self = liftDOM ((self ^. js "ordered") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmitTime Mozilla RTCDataChannel.maxRetransmitTime documentation> +getMaxRetransmitTime :: (MonadDOM m) => RTCDataChannel -> m Word+getMaxRetransmitTime self+  = liftDOM+      (round <$> ((self ^. js "maxRetransmitTime") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmits Mozilla RTCDataChannel.maxRetransmits documentation> +getMaxRetransmits :: (MonadDOM m) => RTCDataChannel -> m Word+getMaxRetransmits self+  = liftDOM+      (round <$> ((self ^. js "maxRetransmits") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.protocol Mozilla RTCDataChannel.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) => RTCDataChannel -> m result+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.negotiated Mozilla RTCDataChannel.negotiated documentation> +getNegotiated :: (MonadDOM m) => RTCDataChannel -> m Bool+getNegotiated self+  = liftDOM ((self ^. js "negotiated") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.id Mozilla RTCDataChannel.id documentation> +getId :: (MonadDOM m) => RTCDataChannel -> m Word+getId self+  = liftDOM (round <$> ((self ^. js "id") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.readyState Mozilla RTCDataChannel.readyState documentation> +getReadyState ::+              (MonadDOM m, FromJSString result) => RTCDataChannel -> m result+getReadyState self+  = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.bufferedAmount Mozilla RTCDataChannel.bufferedAmount documentation> +getBufferedAmount :: (MonadDOM m) => RTCDataChannel -> m Word+getBufferedAmount self+  = liftDOM+      (round <$> ((self ^. js "bufferedAmount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation> +setBinaryType ::+              (MonadDOM m, ToJSString val) => RTCDataChannel -> val -> m ()+setBinaryType self val+  = liftDOM (self ^. jss "binaryType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation> +getBinaryType ::+              (MonadDOM m, FromJSString result) => RTCDataChannel -> m result+getBinaryType self+  = liftDOM ((self ^. js "binaryType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onopen Mozilla RTCDataChannel.onopen documentation> +open :: EventName RTCDataChannel Event+open = unsafeEventName (toJSString "open")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onerror Mozilla RTCDataChannel.onerror documentation> +error :: EventName RTCDataChannel UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onclose Mozilla RTCDataChannel.onclose documentation> +closeEvent :: EventName RTCDataChannel Event+closeEvent = unsafeEventName (toJSString "close")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onmessage Mozilla RTCDataChannel.onmessage documentation> +message :: EventName RTCDataChannel MessageEvent+message = unsafeEventName (toJSString "message")
+ src/JSDOM/Generated/RTCDataChannelEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCDataChannelEvent+       (getChannel, RTCDataChannelEvent, castToRTCDataChannelEvent,+        gTypeRTCDataChannelEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> +getChannel ::+           (MonadDOM m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel)+getChannel self = liftDOM ((self ^. js "channel") >>= fromJSVal)
+ src/JSDOM/Generated/RTCIceCandidate.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCIceCandidate+       (newRTCIceCandidate, getCandidate, getSdpMid, getSdpMLineIndex,+        RTCIceCandidate, castToRTCIceCandidate, gTypeRTCIceCandidate)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate Mozilla RTCIceCandidate documentation> +newRTCIceCandidate ::+                   (MonadDOM m, IsDictionary dictionary) =>+                     Maybe dictionary -> m RTCIceCandidate+newRTCIceCandidate dictionary+  = liftDOM+      (RTCIceCandidate <$>+         new (jsg "RTCIceCandidate") [toJSVal dictionary])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.candidate Mozilla RTCIceCandidate.candidate documentation> +getCandidate ::+             (MonadDOM m, FromJSString result) => RTCIceCandidate -> m result+getCandidate self+  = liftDOM ((self ^. js "candidate") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMid Mozilla RTCIceCandidate.sdpMid documentation> +getSdpMid ::+          (MonadDOM m, FromJSString result) => RTCIceCandidate -> m result+getSdpMid self+  = liftDOM ((self ^. js "sdpMid") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMLineIndex Mozilla RTCIceCandidate.sdpMLineIndex documentation> +getSdpMLineIndex :: (MonadDOM m) => RTCIceCandidate -> m Word+getSdpMLineIndex self+  = liftDOM+      (round <$> ((self ^. js "sdpMLineIndex") >>= valToNumber))
+ src/JSDOM/Generated/RTCIceCandidateEvent.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCIceCandidateEvent+       (getCandidate, RTCIceCandidateEvent, castToRTCIceCandidateEvent,+        gTypeRTCIceCandidateEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> +getCandidate ::+             (MonadDOM m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate)+getCandidate self+  = liftDOM ((self ^. js "candidate") >>= fromJSVal)
+ src/JSDOM/Generated/RTCIceServer.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCIceServer+       (getUrls, getUsername, getCredential, RTCIceServer,+        castToRTCIceServer, gTypeRTCIceServer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.urls Mozilla RTCIceServer.urls documentation> +getUrls ::+        (MonadDOM m, FromJSString result) => RTCIceServer -> m [result]+getUrls self+  = liftDOM ((self ^. js "urls") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.username Mozilla RTCIceServer.username documentation> +getUsername ::+            (MonadDOM m, FromJSString result) => RTCIceServer -> m result+getUsername self+  = liftDOM ((self ^. js "username") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.credential Mozilla RTCIceServer.credential documentation> +getCredential ::+              (MonadDOM m, FromJSString result) => RTCIceServer -> m result+getCredential self+  = liftDOM ((self ^. js "credential") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/RTCPeerConnection.hs view
@@ -0,0 +1,244 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCPeerConnection+       (newRTCPeerConnection, createOffer, createAnswer,+        setLocalDescription, setRemoteDescription, updateIce,+        addIceCandidate, getLocalStreams, getRemoteStreams, getStreamById,+        getConfiguration, addStream, removeStream, getStats,+        createDataChannel, createDTMFSender, close, getLocalDescription,+        getRemoteDescription, getSignalingState, getIceGatheringState,+        getIceConnectionState, negotiationNeeded, iceCandidate,+        signalingStateChange, addStreamEvent, removeStreamEvent,+        iceConnectionStateChange, dataChannel, RTCPeerConnection,+        castToRTCPeerConnection, gTypeRTCPeerConnection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection Mozilla webkitRTCPeerConnection documentation> +newRTCPeerConnection ::+                     (MonadDOM m, IsDictionary rtcConfiguration) =>+                       Maybe rtcConfiguration -> m RTCPeerConnection+newRTCPeerConnection rtcConfiguration+  = liftDOM+      (RTCPeerConnection <$>+         new (jsg "RTCPeerConnection") [toJSVal rtcConfiguration])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createOffer Mozilla webkitRTCPeerConnection.createOffer documentation> +createOffer ::+            (MonadDOM m, IsDictionary offerOptions) =>+              RTCPeerConnection ->+                Maybe RTCSessionDescriptionCallback ->+                  Maybe RTCPeerConnectionErrorCallback -> Maybe offerOptions -> m ()+createOffer self successCallback failureCallback offerOptions+  = liftDOM+      (void+         (self ^. jsf "createOffer"+            [toJSVal successCallback, toJSVal failureCallback,+             toJSVal offerOptions]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation> +createAnswer ::+             (MonadDOM m, IsDictionary answerOptions) =>+               RTCPeerConnection ->+                 Maybe RTCSessionDescriptionCallback ->+                   Maybe RTCPeerConnectionErrorCallback -> Maybe answerOptions -> m ()+createAnswer self successCallback failureCallback answerOptions+  = liftDOM+      (void+         (self ^. jsf "createAnswer"+            [toJSVal successCallback, toJSVal failureCallback,+             toJSVal answerOptions]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation> +setLocalDescription ::+                    (MonadDOM m) =>+                      RTCPeerConnection ->+                        Maybe RTCSessionDescription ->+                          Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()+setLocalDescription self description successCallback+  failureCallback+  = liftDOM+      (void+         (self ^. jsf "setLocalDescription"+            [toJSVal description, toJSVal successCallback,+             toJSVal failureCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation> +setRemoteDescription ::+                     (MonadDOM m) =>+                       RTCPeerConnection ->+                         Maybe RTCSessionDescription ->+                           Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()+setRemoteDescription self description successCallback+  failureCallback+  = liftDOM+      (void+         (self ^. jsf "setRemoteDescription"+            [toJSVal description, toJSVal successCallback,+             toJSVal failureCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.updateIce Mozilla webkitRTCPeerConnection.updateIce documentation> +updateIce ::+          (MonadDOM m, IsDictionary configuration) =>+            RTCPeerConnection -> Maybe configuration -> m ()+updateIce self configuration+  = liftDOM (void (self ^. jsf "updateIce" [toJSVal configuration]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation> +addIceCandidate ::+                (MonadDOM m) =>+                  RTCPeerConnection ->+                    Maybe RTCIceCandidate ->+                      Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()+addIceCandidate self candidate successCallback failureCallback+  = liftDOM+      (void+         (self ^. jsf "addIceCandidate"+            [toJSVal candidate, toJSVal successCallback,+             toJSVal failureCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getLocalStreams Mozilla webkitRTCPeerConnection.getLocalStreams documentation> +getLocalStreams ::+                (MonadDOM m) => RTCPeerConnection -> m [Maybe MediaStream]+getLocalStreams self+  = liftDOM ((self ^. js "getLocalStreams") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getRemoteStreams Mozilla webkitRTCPeerConnection.getRemoteStreams documentation> +getRemoteStreams ::+                 (MonadDOM m) => RTCPeerConnection -> m [Maybe MediaStream]+getRemoteStreams self+  = liftDOM ((self ^. js "getRemoteStreams") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> +getStreamById ::+              (MonadDOM m, ToJSString streamId) =>+                RTCPeerConnection -> streamId -> m (Maybe MediaStream)+getStreamById self streamId+  = liftDOM+      ((self ^. jsf "getStreamById" [toJSVal streamId]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> +getConfiguration ::+                 (MonadDOM m) => RTCPeerConnection -> m (Maybe RTCConfiguration)+getConfiguration self+  = liftDOM ((self ^. js "getConfiguration") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addStream Mozilla webkitRTCPeerConnection.addStream documentation> +addStream ::+          (MonadDOM m) => RTCPeerConnection -> Maybe MediaStream -> m ()+addStream self stream+  = liftDOM (void (self ^. jsf "addStream" [toJSVal stream]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.removeStream Mozilla webkitRTCPeerConnection.removeStream documentation> +removeStream ::+             (MonadDOM m) => RTCPeerConnection -> Maybe MediaStream -> m ()+removeStream self stream+  = liftDOM (void (self ^. jsf "removeStream" [toJSVal stream]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStats Mozilla webkitRTCPeerConnection.getStats documentation> +getStats ::+         (MonadDOM m, IsMediaStreamTrack selector) =>+           RTCPeerConnection ->+             Maybe RTCStatsCallback ->+               Maybe RTCPeerConnectionErrorCallback -> Maybe selector -> m ()+getStats self successCallback failureCallback selector+  = liftDOM+      (void+         (self ^. jsf "getStats"+            [toJSVal successCallback, toJSVal failureCallback,+             toJSVal selector]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> +createDataChannel ::+                  (MonadDOM m, ToJSString label, IsDictionary options) =>+                    RTCPeerConnection ->+                      Maybe label -> Maybe options -> m (Maybe RTCDataChannel)+createDataChannel self label options+  = liftDOM+      ((self ^. jsf "createDataChannel" [toJSVal label, toJSVal options])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> +createDTMFSender ::+                 (MonadDOM m, IsMediaStreamTrack track) =>+                   RTCPeerConnection -> Maybe track -> m (Maybe RTCDTMFSender)+createDTMFSender self track+  = liftDOM+      ((self ^. jsf "createDTMFSender" [toJSVal track]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.close Mozilla webkitRTCPeerConnection.close documentation> +close :: (MonadDOM m) => RTCPeerConnection -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> +getLocalDescription ::+                    (MonadDOM m) =>+                      RTCPeerConnection -> m (Maybe RTCSessionDescription)+getLocalDescription self+  = liftDOM ((self ^. js "localDescription") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> +getRemoteDescription ::+                     (MonadDOM m) =>+                       RTCPeerConnection -> m (Maybe RTCSessionDescription)+getRemoteDescription self+  = liftDOM ((self ^. js "remoteDescription") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.signalingState Mozilla webkitRTCPeerConnection.signalingState documentation> +getSignalingState ::+                  (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result+getSignalingState self+  = liftDOM ((self ^. js "signalingState") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceGatheringState Mozilla webkitRTCPeerConnection.iceGatheringState documentation> +getIceGatheringState ::+                     (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result+getIceGatheringState self+  = liftDOM ((self ^. js "iceGatheringState") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceConnectionState Mozilla webkitRTCPeerConnection.iceConnectionState documentation> +getIceConnectionState ::+                      (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result+getIceConnectionState self+  = liftDOM+      ((self ^. js "iceConnectionState") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onnegotiationneeded Mozilla webkitRTCPeerConnection.onnegotiationneeded documentation> +negotiationNeeded :: EventName RTCPeerConnection Event+negotiationNeeded+  = unsafeEventName (toJSString "negotiationneeded")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onicecandidate Mozilla webkitRTCPeerConnection.onicecandidate documentation> +iceCandidate :: EventName RTCPeerConnection RTCIceCandidateEvent+iceCandidate = unsafeEventName (toJSString "icecandidate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onsignalingstatechange Mozilla webkitRTCPeerConnection.onsignalingstatechange documentation> +signalingStateChange :: EventName RTCPeerConnection Event+signalingStateChange+  = unsafeEventName (toJSString "signalingstatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onaddstream Mozilla webkitRTCPeerConnection.onaddstream documentation> +addStreamEvent :: EventName RTCPeerConnection Event+addStreamEvent = unsafeEventName (toJSString "addstream")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onremovestream Mozilla webkitRTCPeerConnection.onremovestream documentation> +removeStreamEvent :: EventName RTCPeerConnection Event+removeStreamEvent = unsafeEventName (toJSString "removestream")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.oniceconnectionstatechange Mozilla webkitRTCPeerConnection.oniceconnectionstatechange documentation> +iceConnectionStateChange :: EventName RTCPeerConnection Event+iceConnectionStateChange+  = unsafeEventName (toJSString "iceconnectionstatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.ondatachannel Mozilla webkitRTCPeerConnection.ondatachannel documentation> +dataChannel :: EventName RTCPeerConnection Event+dataChannel = unsafeEventName (toJSString "datachannel")
+ src/JSDOM/Generated/RTCPeerConnectionErrorCallback.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCPeerConnectionErrorCallback+       (newRTCPeerConnectionErrorCallback,+        newRTCPeerConnectionErrorCallbackSync,+        newRTCPeerConnectionErrorCallbackAsync,+        RTCPeerConnectionErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> +newRTCPeerConnectionErrorCallback ::+                                  (MonadDOM m) =>+                                    (Maybe DOMError -> JSM ()) -> m RTCPeerConnectionErrorCallback+newRTCPeerConnectionErrorCallback callback+  = liftDOM+      (RTCPeerConnectionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> +newRTCPeerConnectionErrorCallbackSync ::+                                      (MonadDOM m) =>+                                        (Maybe DOMError -> JSM ()) ->+                                          m RTCPeerConnectionErrorCallback+newRTCPeerConnectionErrorCallbackSync callback+  = liftDOM+      (RTCPeerConnectionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> +newRTCPeerConnectionErrorCallbackAsync ::+                                       (MonadDOM m) =>+                                         (Maybe DOMError -> JSM ()) ->+                                           m RTCPeerConnectionErrorCallback+newRTCPeerConnectionErrorCallbackAsync callback+  = liftDOM+      (RTCPeerConnectionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
+ src/JSDOM/Generated/RTCSessionDescription.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCSessionDescription+       (newRTCSessionDescription, setType, getType, setSdp, getSdp,+        RTCSessionDescription, castToRTCSessionDescription,+        gTypeRTCSessionDescription)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription Mozilla RTCSessionDescription documentation> +newRTCSessionDescription ::+                         (MonadDOM m, IsDictionary dictionary) =>+                           Maybe dictionary -> m RTCSessionDescription+newRTCSessionDescription dictionary+  = liftDOM+      (RTCSessionDescription <$>+         new (jsg "RTCSessionDescription") [toJSVal dictionary])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation> +setType ::+        (MonadDOM m, ToJSString val) =>+          RTCSessionDescription -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation> +getType ::+        (MonadDOM m, FromJSString result) =>+          RTCSessionDescription -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation> +setSdp ::+       (MonadDOM m, ToJSString val) =>+         RTCSessionDescription -> val -> m ()+setSdp self val = liftDOM (self ^. jss "sdp" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation> +getSdp ::+       (MonadDOM m, FromJSString result) =>+         RTCSessionDescription -> m result+getSdp self = liftDOM ((self ^. js "sdp") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/RTCSessionDescriptionCallback.hs view
@@ -0,0 +1,51 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCSessionDescriptionCallback+       (newRTCSessionDescriptionCallback,+        newRTCSessionDescriptionCallbackSync,+        newRTCSessionDescriptionCallbackAsync,+        RTCSessionDescriptionCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> +newRTCSessionDescriptionCallback ::+                                 (MonadDOM m) =>+                                   (Maybe RTCSessionDescription -> JSM ()) ->+                                     m RTCSessionDescriptionCallback+newRTCSessionDescriptionCallback callback+  = liftDOM+      (RTCSessionDescriptionCallback . Callback <$>+         function ""+           (\ _ _ [sdp] -> fromJSVal sdp >>= \ sdp' -> callback sdp'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> +newRTCSessionDescriptionCallbackSync ::+                                     (MonadDOM m) =>+                                       (Maybe RTCSessionDescription -> JSM ()) ->+                                         m RTCSessionDescriptionCallback+newRTCSessionDescriptionCallbackSync callback+  = liftDOM+      (RTCSessionDescriptionCallback . Callback <$>+         function ""+           (\ _ _ [sdp] -> fromJSVal sdp >>= \ sdp' -> callback sdp'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> +newRTCSessionDescriptionCallbackAsync ::+                                      (MonadDOM m) =>+                                        (Maybe RTCSessionDescription -> JSM ()) ->+                                          m RTCSessionDescriptionCallback+newRTCSessionDescriptionCallbackAsync callback+  = liftDOM+      (RTCSessionDescriptionCallback . Callback <$>+         function ""+           (\ _ _ [sdp] -> fromJSVal sdp >>= \ sdp' -> callback sdp'))
+ src/JSDOM/Generated/RTCStatsCallback.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCStatsCallback+       (newRTCStatsCallback, newRTCStatsCallbackSync,+        newRTCStatsCallbackAsync, RTCStatsCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> +newRTCStatsCallback ::+                    (MonadDOM m) =>+                      (Maybe RTCStatsResponse -> JSM ()) -> m RTCStatsCallback+newRTCStatsCallback callback+  = liftDOM+      (RTCStatsCallback . Callback <$>+         function ""+           (\ _ _ [response] ->+              fromJSVal response >>= \ response' -> callback response'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> +newRTCStatsCallbackSync ::+                        (MonadDOM m) =>+                          (Maybe RTCStatsResponse -> JSM ()) -> m RTCStatsCallback+newRTCStatsCallbackSync callback+  = liftDOM+      (RTCStatsCallback . Callback <$>+         function ""+           (\ _ _ [response] ->+              fromJSVal response >>= \ response' -> callback response'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> +newRTCStatsCallbackAsync ::+                         (MonadDOM m) =>+                           (Maybe RTCStatsResponse -> JSM ()) -> m RTCStatsCallback+newRTCStatsCallbackAsync callback+  = liftDOM+      (RTCStatsCallback . Callback <$>+         function ""+           (\ _ _ [response] ->+              fromJSVal response >>= \ response' -> callback response'))
+ src/JSDOM/Generated/RTCStatsReport.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCStatsReport+       (stat, names, getTimestamp, getId, getType, getLocal, getRemote,+        RTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.stat Mozilla RTCStatsReport.stat documentation> +stat ::+     (MonadDOM m, ToJSString name, FromJSString result) =>+       RTCStatsReport -> name -> m result+stat self name+  = liftDOM+      ((self ^. jsf "stat" [toJSVal name]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.names Mozilla RTCStatsReport.names documentation> +names ::+      (MonadDOM m, FromJSString result) => RTCStatsReport -> m [result]+names self+  = liftDOM ((self ^. js "names") >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> +getTimestamp :: (MonadDOM m) => RTCStatsReport -> m (Maybe Date)+getTimestamp self+  = liftDOM ((self ^. js "timestamp") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.id Mozilla RTCStatsReport.id documentation> +getId ::+      (MonadDOM m, FromJSString result) => RTCStatsReport -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.type Mozilla RTCStatsReport.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => RTCStatsReport -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> +getLocal ::+         (MonadDOM m) => RTCStatsReport -> m (Maybe RTCStatsReport)+getLocal self = liftDOM ((self ^. js "local") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> +getRemote ::+          (MonadDOM m) => RTCStatsReport -> m (Maybe RTCStatsReport)+getRemote self = liftDOM ((self ^. js "remote") >>= fromJSVal)
+ src/JSDOM/Generated/RTCStatsResponse.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RTCStatsResponse+       (result, namedItem, RTCStatsResponse, castToRTCStatsResponse,+        gTypeRTCStatsResponse)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.result Mozilla RTCStatsResponse.result documentation> +result ::+       (MonadDOM m) => RTCStatsResponse -> m [Maybe RTCStatsReport]+result self = liftDOM ((self ^. js "result") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> +namedItem ::+          (MonadDOM m, ToJSString name) =>+            RTCStatsResponse -> name -> m (Maybe RTCStatsReport)+namedItem self name+  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)
+ src/JSDOM/Generated/RadioNodeList.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RadioNodeList+       (_get, setValue, getValue, RadioNodeList, castToRadioNodeList,+        gTypeRadioNodeList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> +_get :: (MonadDOM m) => RadioNodeList -> Word -> m (Maybe Node)+_get self index+  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation> +setValue ::+         (MonadDOM m, ToJSString val) => RadioNodeList -> val -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation> +getValue ::+         (MonadDOM m, FromJSString result) => RadioNodeList -> m result+getValue self+  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/Range.hs view
@@ -0,0 +1,239 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Range+       (newRange, setStart, setEnd, setStartBefore, setStartAfter,+        setEndBefore, setEndAfter, collapse, selectNode,+        selectNodeContents, compareBoundaryPoints, deleteContents,+        extractContents, cloneContents, insertNode, surroundContents,+        cloneRange, toString, detach, getClientRects,+        getBoundingClientRect, createContextualFragment, intersectsNode,+        compareNode, comparePoint, isPointInRange, expand,+        pattern START_TO_START, pattern START_TO_END, pattern END_TO_END,+        pattern END_TO_START, pattern NODE_BEFORE, pattern NODE_AFTER,+        pattern NODE_BEFORE_AND_AFTER, pattern NODE_INSIDE,+        getStartContainer, getStartOffset, getEndContainer, getEndOffset,+        getCollapsed, getCommonAncestorContainer, Range, castToRange,+        gTypeRange)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range Mozilla Range documentation> +newRange :: (MonadDOM m) => m Range+newRange = liftDOM (Range <$> new (jsg "Range") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStart Mozilla Range.setStart documentation> +setStart ::+         (MonadDOM m, IsNode refNode) =>+           Range -> Maybe refNode -> Int -> m ()+setStart self refNode offset+  = liftDOM+      (void (self ^. jsf "setStart" [toJSVal refNode, toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEnd Mozilla Range.setEnd documentation> +setEnd ::+       (MonadDOM m, IsNode refNode) =>+         Range -> Maybe refNode -> Int -> m ()+setEnd self refNode offset+  = liftDOM+      (void (self ^. jsf "setEnd" [toJSVal refNode, toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartBefore Mozilla Range.setStartBefore documentation> +setStartBefore ::+               (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()+setStartBefore self refNode+  = liftDOM (void (self ^. jsf "setStartBefore" [toJSVal refNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartAfter Mozilla Range.setStartAfter documentation> +setStartAfter ::+              (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()+setStartAfter self refNode+  = liftDOM (void (self ^. jsf "setStartAfter" [toJSVal refNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndBefore Mozilla Range.setEndBefore documentation> +setEndBefore ::+             (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()+setEndBefore self refNode+  = liftDOM (void (self ^. jsf "setEndBefore" [toJSVal refNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndAfter Mozilla Range.setEndAfter documentation> +setEndAfter ::+            (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()+setEndAfter self refNode+  = liftDOM (void (self ^. jsf "setEndAfter" [toJSVal refNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapse Mozilla Range.collapse documentation> +collapse :: (MonadDOM m) => Range -> Bool -> m ()+collapse self toStart+  = liftDOM (void (self ^. jsf "collapse" [toJSVal toStart]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNode Mozilla Range.selectNode documentation> +selectNode ::+           (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()+selectNode self refNode+  = liftDOM (void (self ^. jsf "selectNode" [toJSVal refNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNodeContents Mozilla Range.selectNodeContents documentation> +selectNodeContents ::+                   (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()+selectNodeContents self refNode+  = liftDOM+      (void (self ^. jsf "selectNodeContents" [toJSVal refNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareBoundaryPoints Mozilla Range.compareBoundaryPoints documentation> +compareBoundaryPoints ::+                      (MonadDOM m) => Range -> Word -> Maybe Range -> m Int+compareBoundaryPoints self how sourceRange+  = liftDOM+      (round <$>+         ((self ^. jsf "compareBoundaryPoints"+             [toJSVal how, toJSVal sourceRange])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.deleteContents Mozilla Range.deleteContents documentation> +deleteContents :: (MonadDOM m) => Range -> m ()+deleteContents self = liftDOM (void (self ^. js "deleteContents"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> +extractContents ::+                (MonadDOM m) => Range -> m (Maybe DocumentFragment)+extractContents self+  = liftDOM ((self ^. js "extractContents") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> +cloneContents ::+              (MonadDOM m) => Range -> m (Maybe DocumentFragment)+cloneContents self+  = liftDOM ((self ^. js "cloneContents") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.insertNode Mozilla Range.insertNode documentation> +insertNode ::+           (MonadDOM m, IsNode newNode) => Range -> Maybe newNode -> m ()+insertNode self newNode+  = liftDOM (void (self ^. jsf "insertNode" [toJSVal newNode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.surroundContents Mozilla Range.surroundContents documentation> +surroundContents ::+                 (MonadDOM m, IsNode newParent) => Range -> Maybe newParent -> m ()+surroundContents self newParent+  = liftDOM+      (void (self ^. jsf "surroundContents" [toJSVal newParent]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> +cloneRange :: (MonadDOM m) => Range -> m (Maybe Range)+cloneRange self = liftDOM ((self ^. js "cloneRange") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation> +toString :: (MonadDOM m, FromJSString result) => Range -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.detach Mozilla Range.detach documentation> +detach :: (MonadDOM m) => Range -> m ()+detach self = liftDOM (void (self ^. js "detach"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> +getClientRects :: (MonadDOM m) => Range -> m (Maybe ClientRectList)+getClientRects self+  = liftDOM ((self ^. js "getClientRects") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> +getBoundingClientRect ::+                      (MonadDOM m) => Range -> m (Maybe ClientRect)+getBoundingClientRect self+  = liftDOM ((self ^. js "getBoundingClientRect") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> +createContextualFragment ::+                         (MonadDOM m, ToJSString html) =>+                           Range -> html -> m (Maybe DocumentFragment)+createContextualFragment self html+  = liftDOM+      ((self ^. jsf "createContextualFragment" [toJSVal html]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.intersectsNode Mozilla Range.intersectsNode documentation> +intersectsNode ::+               (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m Bool+intersectsNode self refNode+  = liftDOM+      ((self ^. jsf "intersectsNode" [toJSVal refNode]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> +compareNode ::+            (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m Int+compareNode self refNode+  = liftDOM+      (round <$>+         ((self ^. jsf "compareNode" [toJSVal refNode]) >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.comparePoint Mozilla Range.comparePoint documentation> +comparePoint ::+             (MonadDOM m, IsNode refNode) =>+               Range -> Maybe refNode -> Int -> m Int+comparePoint self refNode offset+  = liftDOM+      (round <$>+         ((self ^. jsf "comparePoint" [toJSVal refNode, toJSVal offset]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.isPointInRange Mozilla Range.isPointInRange documentation> +isPointInRange ::+               (MonadDOM m, IsNode refNode) =>+                 Range -> Maybe refNode -> Int -> m Bool+isPointInRange self refNode offset+  = liftDOM+      ((self ^. jsf "isPointInRange" [toJSVal refNode, toJSVal offset])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.expand Mozilla Range.expand documentation> +expand :: (MonadDOM m, ToJSString unit) => Range -> unit -> m ()+expand self unit+  = liftDOM (void (self ^. jsf "expand" [toJSVal unit]))+pattern START_TO_START = 0+pattern START_TO_END = 1+pattern END_TO_END = 2+pattern END_TO_START = 3+pattern NODE_BEFORE = 0+pattern NODE_AFTER = 1+pattern NODE_BEFORE_AND_AFTER = 2+pattern NODE_INSIDE = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> +getStartContainer :: (MonadDOM m) => Range -> m (Maybe Node)+getStartContainer self+  = liftDOM ((self ^. js "startContainer") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startOffset Mozilla Range.startOffset documentation> +getStartOffset :: (MonadDOM m) => Range -> m Int+getStartOffset self+  = liftDOM (round <$> ((self ^. js "startOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> +getEndContainer :: (MonadDOM m) => Range -> m (Maybe Node)+getEndContainer self+  = liftDOM ((self ^. js "endContainer") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endOffset Mozilla Range.endOffset documentation> +getEndOffset :: (MonadDOM m) => Range -> m Int+getEndOffset self+  = liftDOM (round <$> ((self ^. js "endOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapsed Mozilla Range.collapsed documentation> +getCollapsed :: (MonadDOM m) => Range -> m Bool+getCollapsed self+  = liftDOM ((self ^. js "collapsed") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> +getCommonAncestorContainer ::+                           (MonadDOM m) => Range -> m (Maybe Node)+getCommonAncestorContainer self+  = liftDOM ((self ^. js "commonAncestorContainer") >>= fromJSVal)
+ src/JSDOM/Generated/ReadableStream.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ReadableStream+       (newReadableStream, read, cancel, pipeTo, pipeThrough, getState,+        getClosed, getReady, ReadableStream, castToReadableStream,+        gTypeReadableStream)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream Mozilla ReadableStream documentation> +newReadableStream :: (MonadDOM m) => JSVal -> m ReadableStream+newReadableStream properties+  = liftDOM+      (ReadableStream <$>+         new (jsg "ReadableStream") [toJSVal properties])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> +read :: (MonadDOM m) => ReadableStream -> m (Maybe GObject)+read self = liftDOM ((self ^. js "read") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> +cancel ::+       (MonadDOM m, ToJSString reason) =>+         ReadableStream -> reason -> m (Maybe Promise)+cancel self reason+  = liftDOM ((self ^. jsf "cancel" [toJSVal reason]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> +pipeTo ::+       (MonadDOM m) =>+         ReadableStream -> JSVal -> JSVal -> m (Maybe Promise)+pipeTo self streams options+  = liftDOM+      ((self ^. jsf "pipeTo" [toJSVal streams, toJSVal options]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> +pipeThrough ::+            (MonadDOM m) =>+              ReadableStream -> JSVal -> JSVal -> m (Maybe GObject)+pipeThrough self dest options+  = liftDOM+      ((self ^. jsf "pipeThrough" [toJSVal dest, toJSVal options]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.state Mozilla ReadableStream.state documentation> +getState ::+         (MonadDOM m) => ReadableStream -> m ReadableStreamStateType+getState self+  = liftDOM ((self ^. js "state") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> +getClosed :: (MonadDOM m) => ReadableStream -> m (Maybe Promise)+getClosed self = liftDOM ((self ^. js "closed") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> +getReady :: (MonadDOM m) => ReadableStream -> m (Maybe Promise)+getReady self = liftDOM ((self ^. js "ready") >>= fromJSVal)
+ src/JSDOM/Generated/Rect.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Rect+       (getTop, getRight, getBottom, getLeft, Rect, castToRect, gTypeRect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> +getTop :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)+getTop self = liftDOM ((self ^. js "top") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> +getRight :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)+getRight self = liftDOM ((self ^. js "right") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> +getBottom :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)+getBottom self = liftDOM ((self ^. js "bottom") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> +getLeft :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)+getLeft self = liftDOM ((self ^. js "left") >>= fromJSVal)
+ src/JSDOM/Generated/RequestAnimationFrameCallback.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.RequestAnimationFrameCallback+       (newRequestAnimationFrameCallback,+        newRequestAnimationFrameCallbackSync,+        newRequestAnimationFrameCallbackAsync,+        RequestAnimationFrameCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> +newRequestAnimationFrameCallback ::+                                 (MonadDOM m) =>+                                   (Double -> JSM ()) -> m RequestAnimationFrameCallback+newRequestAnimationFrameCallback callback+  = liftDOM+      (RequestAnimationFrameCallback . Callback <$>+         function ""+           (\ _ _ [highResTime] ->+              fromJSValUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> +newRequestAnimationFrameCallbackSync ::+                                     (MonadDOM m) =>+                                       (Double -> JSM ()) -> m RequestAnimationFrameCallback+newRequestAnimationFrameCallbackSync callback+  = liftDOM+      (RequestAnimationFrameCallback . Callback <$>+         function ""+           (\ _ _ [highResTime] ->+              fromJSValUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> +newRequestAnimationFrameCallbackAsync ::+                                      (MonadDOM m) =>+                                        (Double -> JSM ()) -> m RequestAnimationFrameCallback+newRequestAnimationFrameCallbackAsync callback+  = liftDOM+      (RequestAnimationFrameCallback . Callback <$>+         function ""+           (\ _ _ [highResTime] ->+              fromJSValUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))
+ src/JSDOM/Generated/SQLError.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLError+       (pattern UNKNOWN_ERR, pattern DATABASE_ERR, pattern VERSION_ERR,+        pattern TOO_LARGE_ERR, pattern QUOTA_ERR, pattern SYNTAX_ERR,+        pattern CONSTRAINT_ERR, pattern TIMEOUT_ERR, getCode, getMessage,+        SQLError, castToSQLError, gTypeSQLError)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern UNKNOWN_ERR = 0+pattern DATABASE_ERR = 1+pattern VERSION_ERR = 2+pattern TOO_LARGE_ERR = 3+pattern QUOTA_ERR = 4+pattern SYNTAX_ERR = 5+pattern CONSTRAINT_ERR = 6+pattern TIMEOUT_ERR = 7++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.code Mozilla SQLError.code documentation> +getCode :: (MonadDOM m) => SQLError -> m Word+getCode self+  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.message Mozilla SQLError.message documentation> +getMessage ::+           (MonadDOM m, FromJSString result) => SQLError -> m result+getMessage self+  = liftDOM ((self ^. js "message") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SQLResultSet.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLResultSet+       (getRows, getInsertId, getRowsAffected, SQLResultSet,+        castToSQLResultSet, gTypeSQLResultSet)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> +getRows ::+        (MonadDOM m) => SQLResultSet -> m (Maybe SQLResultSetRowList)+getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.insertId Mozilla SQLResultSet.insertId documentation> +getInsertId :: (MonadDOM m) => SQLResultSet -> m Int+getInsertId self+  = liftDOM (round <$> ((self ^. js "insertId") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rowsAffected Mozilla SQLResultSet.rowsAffected documentation> +getRowsAffected :: (MonadDOM m) => SQLResultSet -> m Int+getRowsAffected self+  = liftDOM (round <$> ((self ^. js "rowsAffected") >>= valToNumber))
+ src/JSDOM/Generated/SQLResultSetRowList.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLResultSetRowList+       (item, getLength, SQLResultSetRowList, castToSQLResultSetRowList,+        gTypeSQLResultSetRowList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation> +item :: (MonadDOM m) => SQLResultSetRowList -> Word -> m JSVal+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.length Mozilla SQLResultSetRowList.length documentation> +getLength :: (MonadDOM m) => SQLResultSetRowList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/SQLStatementCallback.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLStatementCallback+       (newSQLStatementCallback, newSQLStatementCallbackSync,+        newSQLStatementCallbackAsync, SQLStatementCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> +newSQLStatementCallback ::+                        (MonadDOM m) =>+                          (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->+                            m SQLStatementCallback+newSQLStatementCallback callback+  = liftDOM+      (SQLStatementCallback . Callback <$>+         function ""+           (\ _ _ [transaction, resultSet] ->+              fromJSVal resultSet >>=+                \ resultSet' ->+                  fromJSVal transaction >>= \ transaction' -> callback transaction'+                    resultSet'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> +newSQLStatementCallbackSync ::+                            (MonadDOM m) =>+                              (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->+                                m SQLStatementCallback+newSQLStatementCallbackSync callback+  = liftDOM+      (SQLStatementCallback . Callback <$>+         function ""+           (\ _ _ [transaction, resultSet] ->+              fromJSVal resultSet >>=+                \ resultSet' ->+                  fromJSVal transaction >>= \ transaction' -> callback transaction'+                    resultSet'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> +newSQLStatementCallbackAsync ::+                             (MonadDOM m) =>+                               (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->+                                 m SQLStatementCallback+newSQLStatementCallbackAsync callback+  = liftDOM+      (SQLStatementCallback . Callback <$>+         function ""+           (\ _ _ [transaction, resultSet] ->+              fromJSVal resultSet >>=+                \ resultSet' ->+                  fromJSVal transaction >>= \ transaction' -> callback transaction'+                    resultSet'))
+ src/JSDOM/Generated/SQLStatementErrorCallback.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLStatementErrorCallback+       (newSQLStatementErrorCallback, newSQLStatementErrorCallbackSync,+        newSQLStatementErrorCallbackAsync, SQLStatementErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> +newSQLStatementErrorCallback ::+                             (MonadDOM m) =>+                               (Maybe SQLTransaction -> Maybe SQLError -> JSM ()) ->+                                 m SQLStatementErrorCallback+newSQLStatementErrorCallback callback+  = liftDOM+      (SQLStatementErrorCallback . Callback <$>+         function ""+           (\ _ _ [transaction, error] ->+              fromJSVal error >>=+                \ error' ->+                  fromJSVal transaction >>= \ transaction' -> callback transaction'+                    error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> +newSQLStatementErrorCallbackSync ::+                                 (MonadDOM m) =>+                                   (Maybe SQLTransaction -> Maybe SQLError -> JSM ()) ->+                                     m SQLStatementErrorCallback+newSQLStatementErrorCallbackSync callback+  = liftDOM+      (SQLStatementErrorCallback . Callback <$>+         function ""+           (\ _ _ [transaction, error] ->+              fromJSVal error >>=+                \ error' ->+                  fromJSVal transaction >>= \ transaction' -> callback transaction'+                    error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> +newSQLStatementErrorCallbackAsync ::+                                  (MonadDOM m) =>+                                    (Maybe SQLTransaction -> Maybe SQLError -> JSM ()) ->+                                      m SQLStatementErrorCallback+newSQLStatementErrorCallbackAsync callback+  = liftDOM+      (SQLStatementErrorCallback . Callback <$>+         function ""+           (\ _ _ [transaction, error] ->+              fromJSVal error >>=+                \ error' ->+                  fromJSVal transaction >>= \ transaction' -> callback transaction'+                    error'))
+ src/JSDOM/Generated/SQLTransaction.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLTransaction+       (executeSql, SQLTransaction, castToSQLTransaction,+        gTypeSQLTransaction)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction.executeSql Mozilla SQLTransaction.executeSql documentation> +executeSql ::+           (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>+             SQLTransaction ->+               sqlStatement ->+                 Maybe arguments ->+                   Maybe SQLStatementCallback ->+                     Maybe SQLStatementErrorCallback -> m ()+executeSql self sqlStatement arguments callback errorCallback+  = liftDOM+      (void+         (self ^. jsf "executeSql"+            [toJSVal sqlStatement, toJSVal arguments, toJSVal callback,+             toJSVal errorCallback]))
+ src/JSDOM/Generated/SQLTransactionCallback.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLTransactionCallback+       (newSQLTransactionCallback, newSQLTransactionCallbackSync,+        newSQLTransactionCallbackAsync, SQLTransactionCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> +newSQLTransactionCallback ::+                          (MonadDOM m) =>+                            (Maybe SQLTransaction -> JSM ()) -> m SQLTransactionCallback+newSQLTransactionCallback callback+  = liftDOM+      (SQLTransactionCallback . Callback <$>+         function ""+           (\ _ _ [transaction] ->+              fromJSVal transaction >>= \ transaction' -> callback transaction'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> +newSQLTransactionCallbackSync ::+                              (MonadDOM m) =>+                                (Maybe SQLTransaction -> JSM ()) -> m SQLTransactionCallback+newSQLTransactionCallbackSync callback+  = liftDOM+      (SQLTransactionCallback . Callback <$>+         function ""+           (\ _ _ [transaction] ->+              fromJSVal transaction >>= \ transaction' -> callback transaction'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> +newSQLTransactionCallbackAsync ::+                               (MonadDOM m) =>+                                 (Maybe SQLTransaction -> JSM ()) -> m SQLTransactionCallback+newSQLTransactionCallbackAsync callback+  = liftDOM+      (SQLTransactionCallback . Callback <$>+         function ""+           (\ _ _ [transaction] ->+              fromJSVal transaction >>= \ transaction' -> callback transaction'))
+ src/JSDOM/Generated/SQLTransactionErrorCallback.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SQLTransactionErrorCallback+       (newSQLTransactionErrorCallback,+        newSQLTransactionErrorCallbackSync,+        newSQLTransactionErrorCallbackAsync, SQLTransactionErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> +newSQLTransactionErrorCallback ::+                               (MonadDOM m) =>+                                 (Maybe SQLError -> JSM ()) -> m SQLTransactionErrorCallback+newSQLTransactionErrorCallback callback+  = liftDOM+      (SQLTransactionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> +newSQLTransactionErrorCallbackSync ::+                                   (MonadDOM m) =>+                                     (Maybe SQLError -> JSM ()) -> m SQLTransactionErrorCallback+newSQLTransactionErrorCallbackSync callback+  = liftDOM+      (SQLTransactionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> +newSQLTransactionErrorCallbackAsync ::+                                    (MonadDOM m) =>+                                      (Maybe SQLError -> JSM ()) -> m SQLTransactionErrorCallback+newSQLTransactionErrorCallbackAsync callback+  = liftDOM+      (SQLTransactionErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
+ src/JSDOM/Generated/SVGAElement.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAElement+       (getTarget, SVGAElement, castToSVGAElement, gTypeSVGAElement) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> +getTarget ::+          (MonadDOM m) => SVGAElement -> m (Maybe SVGAnimatedString)+getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAltGlyphElement.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAltGlyphElement+       (setGlyphRef, getGlyphRef, setFormat, getFormat,+        SVGAltGlyphElement, castToSVGAltGlyphElement,+        gTypeSVGAltGlyphElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation> +setGlyphRef ::+            (MonadDOM m, ToJSString val) => SVGAltGlyphElement -> val -> m ()+setGlyphRef self val+  = liftDOM (self ^. jss "glyphRef" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation> +getGlyphRef ::+            (MonadDOM m, FromJSString result) => SVGAltGlyphElement -> m result+getGlyphRef self+  = liftDOM ((self ^. js "glyphRef") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation> +setFormat ::+          (MonadDOM m, ToJSString val) => SVGAltGlyphElement -> val -> m ()+setFormat self val = liftDOM (self ^. jss "format" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation> +getFormat ::+          (MonadDOM m, FromJSString result) => SVGAltGlyphElement -> m result+getFormat self+  = liftDOM ((self ^. js "format") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SVGAngle.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAngle+       (newValueSpecifiedUnits, convertToSpecifiedUnits,+        pattern SVG_ANGLETYPE_UNKNOWN, pattern SVG_ANGLETYPE_UNSPECIFIED,+        pattern SVG_ANGLETYPE_DEG, pattern SVG_ANGLETYPE_RAD,+        pattern SVG_ANGLETYPE_GRAD, getUnitType, setValue, getValue,+        setValueInSpecifiedUnits, getValueInSpecifiedUnits,+        setValueAsString, getValueAsString, SVGAngle, castToSVGAngle,+        gTypeSVGAngle)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.newValueSpecifiedUnits Mozilla SVGAngle.newValueSpecifiedUnits documentation> +newValueSpecifiedUnits ::+                       (MonadDOM m) => SVGAngle -> Word -> Float -> m ()+newValueSpecifiedUnits self unitType valueInSpecifiedUnits+  = liftDOM+      (void+         (self ^. jsf "newValueSpecifiedUnits"+            [toJSVal unitType, toJSVal valueInSpecifiedUnits]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.convertToSpecifiedUnits Mozilla SVGAngle.convertToSpecifiedUnits documentation> +convertToSpecifiedUnits :: (MonadDOM m) => SVGAngle -> Word -> m ()+convertToSpecifiedUnits self unitType+  = liftDOM+      (void (self ^. jsf "convertToSpecifiedUnits" [toJSVal unitType]))+pattern SVG_ANGLETYPE_UNKNOWN = 0+pattern SVG_ANGLETYPE_UNSPECIFIED = 1+pattern SVG_ANGLETYPE_DEG = 2+pattern SVG_ANGLETYPE_RAD = 3+pattern SVG_ANGLETYPE_GRAD = 4++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.unitType Mozilla SVGAngle.unitType documentation> +getUnitType :: (MonadDOM m) => SVGAngle -> m Word+getUnitType self+  = liftDOM (round <$> ((self ^. js "unitType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation> +setValue :: (MonadDOM m) => SVGAngle -> Float -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation> +getValue :: (MonadDOM m) => SVGAngle -> m Float+getValue self+  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation> +setValueInSpecifiedUnits ::+                         (MonadDOM m) => SVGAngle -> Float -> m ()+setValueInSpecifiedUnits self val+  = liftDOM (self ^. jss "valueInSpecifiedUnits" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation> +getValueInSpecifiedUnits :: (MonadDOM m) => SVGAngle -> m Float+getValueInSpecifiedUnits self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "valueInSpecifiedUnits") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> +setValueAsString ::+                 (MonadDOM m, ToJSString val) => SVGAngle -> Maybe val -> m ()+setValueAsString self val+  = liftDOM (self ^. jss "valueAsString" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> +getValueAsString ::+                 (MonadDOM m, FromJSString result) => SVGAngle -> m (Maybe result)+getValueAsString self+  = liftDOM ((self ^. js "valueAsString") >>= fromMaybeJSString)
+ src/JSDOM/Generated/SVGAnimatedAngle.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedAngle+       (getBaseVal, getAnimVal, SVGAnimatedAngle, castToSVGAnimatedAngle,+        gTypeSVGAnimatedAngle)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> +getBaseVal ::+           (MonadDOM m) => SVGAnimatedAngle -> m (Maybe SVGAngle)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> +getAnimVal ::+           (MonadDOM m) => SVGAnimatedAngle -> m (Maybe SVGAngle)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimatedBoolean.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedBoolean+       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedBoolean,+        castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation> +setBaseVal :: (MonadDOM m) => SVGAnimatedBoolean -> Bool -> m ()+setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation> +getBaseVal :: (MonadDOM m) => SVGAnimatedBoolean -> m Bool+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.animVal Mozilla SVGAnimatedBoolean.animVal documentation> +getAnimVal :: (MonadDOM m) => SVGAnimatedBoolean -> m Bool+getAnimVal self = liftDOM ((self ^. js "animVal") >>= valToBool)
+ src/JSDOM/Generated/SVGAnimatedEnumeration.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedEnumeration+       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedEnumeration,+        castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation> +setBaseVal ::+           (MonadDOM m) => SVGAnimatedEnumeration -> Word -> m ()+setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation> +getBaseVal :: (MonadDOM m) => SVGAnimatedEnumeration -> m Word+getBaseVal self+  = liftDOM (round <$> ((self ^. js "baseVal") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.animVal Mozilla SVGAnimatedEnumeration.animVal documentation> +getAnimVal :: (MonadDOM m) => SVGAnimatedEnumeration -> m Word+getAnimVal self+  = liftDOM (round <$> ((self ^. js "animVal") >>= valToNumber))
+ src/JSDOM/Generated/SVGAnimatedInteger.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedInteger+       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedInteger,+        castToSVGAnimatedInteger, gTypeSVGAnimatedInteger)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation> +setBaseVal :: (MonadDOM m) => SVGAnimatedInteger -> Int -> m ()+setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation> +getBaseVal :: (MonadDOM m) => SVGAnimatedInteger -> m Int+getBaseVal self+  = liftDOM (round <$> ((self ^. js "baseVal") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.animVal Mozilla SVGAnimatedInteger.animVal documentation> +getAnimVal :: (MonadDOM m) => SVGAnimatedInteger -> m Int+getAnimVal self+  = liftDOM (round <$> ((self ^. js "animVal") >>= valToNumber))
+ src/JSDOM/Generated/SVGAnimatedLength.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedLength+       (getBaseVal, getAnimVal, SVGAnimatedLength,+        castToSVGAnimatedLength, gTypeSVGAnimatedLength)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> +getBaseVal ::+           (MonadDOM m) => SVGAnimatedLength -> m (Maybe SVGLength)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> +getAnimVal ::+           (MonadDOM m) => SVGAnimatedLength -> m (Maybe SVGLength)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimatedLengthList.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedLengthList+       (getBaseVal, getAnimVal, SVGAnimatedLengthList,+        castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> +getBaseVal ::+           (MonadDOM m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> +getAnimVal ::+           (MonadDOM m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimatedNumber.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedNumber+       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedNumber,+        castToSVGAnimatedNumber, gTypeSVGAnimatedNumber)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation> +setBaseVal :: (MonadDOM m) => SVGAnimatedNumber -> Float -> m ()+setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation> +getBaseVal :: (MonadDOM m) => SVGAnimatedNumber -> m Float+getBaseVal self+  = liftDOM (realToFrac <$> ((self ^. js "baseVal") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.animVal Mozilla SVGAnimatedNumber.animVal documentation> +getAnimVal :: (MonadDOM m) => SVGAnimatedNumber -> m Float+getAnimVal self+  = liftDOM (realToFrac <$> ((self ^. js "animVal") >>= valToNumber))
+ src/JSDOM/Generated/SVGAnimatedNumberList.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedNumberList+       (getBaseVal, getAnimVal, SVGAnimatedNumberList,+        castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> +getBaseVal ::+           (MonadDOM m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> +getAnimVal ::+           (MonadDOM m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedPreserveAspectRatio+       (getBaseVal, getAnimVal, SVGAnimatedPreserveAspectRatio,+        castToSVGAnimatedPreserveAspectRatio,+        gTypeSVGAnimatedPreserveAspectRatio)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> +getBaseVal ::+           (MonadDOM m) =>+             SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> +getAnimVal ::+           (MonadDOM m) =>+             SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimatedRect.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedRect+       (getBaseVal, getAnimVal, SVGAnimatedRect, castToSVGAnimatedRect,+        gTypeSVGAnimatedRect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> +getBaseVal :: (MonadDOM m) => SVGAnimatedRect -> m (Maybe SVGRect)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> +getAnimVal :: (MonadDOM m) => SVGAnimatedRect -> m (Maybe SVGRect)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimatedString.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedString+       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedString,+        castToSVGAnimatedString, gTypeSVGAnimatedString)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation> +setBaseVal ::+           (MonadDOM m, ToJSString val) => SVGAnimatedString -> val -> m ()+setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation> +getBaseVal ::+           (MonadDOM m, FromJSString result) => SVGAnimatedString -> m result+getBaseVal self+  = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.animVal Mozilla SVGAnimatedString.animVal documentation> +getAnimVal ::+           (MonadDOM m, FromJSString result) => SVGAnimatedString -> m result+getAnimVal self+  = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SVGAnimatedTransformList.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimatedTransformList+       (getBaseVal, getAnimVal, SVGAnimatedTransformList,+        castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> +getBaseVal ::+           (MonadDOM m) =>+             SVGAnimatedTransformList -> m (Maybe SVGTransformList)+getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> +getAnimVal ::+           (MonadDOM m) =>+             SVGAnimatedTransformList -> m (Maybe SVGTransformList)+getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
+ src/JSDOM/Generated/SVGAnimationElement.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGAnimationElement+       (getStartTime, getCurrentTime, getSimpleDuration, beginElement,+        beginElementAt, endElement, endElementAt, getTargetElement,+        SVGAnimationElement, castToSVGAnimationElement,+        gTypeSVGAnimationElement, IsSVGAnimationElement,+        toSVGAnimationElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getStartTime Mozilla SVGAnimationElement.getStartTime documentation> +getStartTime ::+             (MonadDOM m, IsSVGAnimationElement self) => self -> m Float+getStartTime self+  = liftDOM+      (realToFrac <$>+         (((toSVGAnimationElement self) ^. js "getStartTime") >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getCurrentTime Mozilla SVGAnimationElement.getCurrentTime documentation> +getCurrentTime ::+               (MonadDOM m, IsSVGAnimationElement self) => self -> m Float+getCurrentTime self+  = liftDOM+      (realToFrac <$>+         (((toSVGAnimationElement self) ^. js "getCurrentTime") >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getSimpleDuration Mozilla SVGAnimationElement.getSimpleDuration documentation> +getSimpleDuration ::+                  (MonadDOM m, IsSVGAnimationElement self) => self -> m Float+getSimpleDuration self+  = liftDOM+      (realToFrac <$>+         (((toSVGAnimationElement self) ^. js "getSimpleDuration") >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElement Mozilla SVGAnimationElement.beginElement documentation> +beginElement ::+             (MonadDOM m, IsSVGAnimationElement self) => self -> m ()+beginElement self+  = liftDOM+      (void ((toSVGAnimationElement self) ^. js "beginElement"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElementAt Mozilla SVGAnimationElement.beginElementAt documentation> +beginElementAt ::+               (MonadDOM m, IsSVGAnimationElement self) => self -> Float -> m ()+beginElementAt self offset+  = liftDOM+      (void+         ((toSVGAnimationElement self) ^. jsf "beginElementAt"+            [toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElement Mozilla SVGAnimationElement.endElement documentation> +endElement ::+           (MonadDOM m, IsSVGAnimationElement self) => self -> m ()+endElement self+  = liftDOM (void ((toSVGAnimationElement self) ^. js "endElement"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElementAt Mozilla SVGAnimationElement.endElementAt documentation> +endElementAt ::+             (MonadDOM m, IsSVGAnimationElement self) => self -> Float -> m ()+endElementAt self offset+  = liftDOM+      (void+         ((toSVGAnimationElement self) ^. jsf "endElementAt"+            [toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> +getTargetElement ::+                 (MonadDOM m, IsSVGAnimationElement self) =>+                   self -> m (Maybe SVGElement)+getTargetElement self+  = liftDOM+      (((toSVGAnimationElement self) ^. js "targetElement") >>=+         fromJSVal)
+ src/JSDOM/Generated/SVGCircleElement.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGCircleElement+       (getCx, getCy, getR, SVGCircleElement, castToSVGCircleElement,+        gTypeSVGCircleElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> +getCx ::+      (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)+getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> +getCy ::+      (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)+getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> +getR ::+     (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)+getR self = liftDOM ((self ^. js "r") >>= fromJSVal)
+ src/JSDOM/Generated/SVGClipPathElement.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGClipPathElement+       (getClipPathUnits, SVGClipPathElement, castToSVGClipPathElement,+        gTypeSVGClipPathElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> +getClipPathUnits ::+                 (MonadDOM m) =>+                   SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration)+getClipPathUnits self+  = liftDOM ((self ^. js "clipPathUnits") >>= fromJSVal)
+ src/JSDOM/Generated/SVGColor.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGColor+       (setRGBColor, setRGBColorICCColor, setColor,+        pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR,+        pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR,+        pattern SVG_COLORTYPE_CURRENTCOLOR, getColorType, getRgbColor,+        SVGColor, castToSVGColor, gTypeSVGColor, IsSVGColor, toSVGColor)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColor Mozilla SVGColor.setRGBColor documentation> +setRGBColor ::+            (MonadDOM m, IsSVGColor self, ToJSString rgbColor) =>+              self -> rgbColor -> m ()+setRGBColor self rgbColor+  = liftDOM+      (void ((toSVGColor self) ^. jsf "setRGBColor" [toJSVal rgbColor]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColorICCColor Mozilla SVGColor.setRGBColorICCColor documentation> +setRGBColorICCColor ::+                    (MonadDOM m, IsSVGColor self, ToJSString rgbColor,+                     ToJSString iccColor) =>+                      self -> rgbColor -> iccColor -> m ()+setRGBColorICCColor self rgbColor iccColor+  = liftDOM+      (void+         ((toSVGColor self) ^. jsf "setRGBColorICCColor"+            [toJSVal rgbColor, toJSVal iccColor]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setColor Mozilla SVGColor.setColor documentation> +setColor ::+         (MonadDOM m, IsSVGColor self, ToJSString rgbColor,+          ToJSString iccColor) =>+           self -> Word -> rgbColor -> iccColor -> m ()+setColor self colorType rgbColor iccColor+  = liftDOM+      (void+         ((toSVGColor self) ^. jsf "setColor"+            [toJSVal colorType, toJSVal rgbColor, toJSVal iccColor]))+pattern SVG_COLORTYPE_UNKNOWN = 0+pattern SVG_COLORTYPE_RGBCOLOR = 1+pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR = 2+pattern SVG_COLORTYPE_CURRENTCOLOR = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.colorType Mozilla SVGColor.colorType documentation> +getColorType :: (MonadDOM m, IsSVGColor self) => self -> m Word+getColorType self+  = liftDOM+      (round <$> (((toSVGColor self) ^. js "colorType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> +getRgbColor ::+            (MonadDOM m, IsSVGColor self) => self -> m (Maybe RGBColor)+getRgbColor self+  = liftDOM (((toSVGColor self) ^. js "rgbColor") >>= fromJSVal)
+ src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGComponentTransferFunctionElement+       (pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR,+        pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, getType,+        getTableValues, getSlope, getIntercept, getAmplitude, getExponent,+        getOffset, SVGComponentTransferFunctionElement,+        castToSVGComponentTransferFunctionElement,+        gTypeSVGComponentTransferFunctionElement,+        IsSVGComponentTransferFunctionElement,+        toSVGComponentTransferFunctionElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0+pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1+pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2+pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE = 3+pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR = 4+pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> +getType ::+        (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+          self -> m (Maybe SVGAnimatedEnumeration)+getType self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "type") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> +getTableValues ::+               (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+                 self -> m (Maybe SVGAnimatedNumberList)+getTableValues self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "tableValues")+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> +getSlope ::+         (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+           self -> m (Maybe SVGAnimatedNumber)+getSlope self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "slope") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> +getIntercept ::+             (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+               self -> m (Maybe SVGAnimatedNumber)+getIntercept self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "intercept")+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> +getAmplitude ::+             (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+               self -> m (Maybe SVGAnimatedNumber)+getAmplitude self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "amplitude")+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> +getExponent ::+            (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+              self -> m (Maybe SVGAnimatedNumber)+getExponent self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "exponent")+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> +getOffset ::+          (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>+            self -> m (Maybe SVGAnimatedNumber)+getOffset self+  = liftDOM+      (((toSVGComponentTransferFunctionElement self) ^. js "offset") >>=+         fromJSVal)
+ src/JSDOM/Generated/SVGCursorElement.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGCursorElement+       (getX, getY, SVGCursorElement, castToSVGCursorElement,+        gTypeSVGCursorElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> +getX ::+     (MonadDOM m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> +getY ::+     (MonadDOM m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)
+ src/JSDOM/Generated/SVGDocument.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGDocument+       (createEvent, getRootElement, SVGDocument, castToSVGDocument,+        gTypeSVGDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> +createEvent ::+            (MonadDOM m, ToJSString eventType) =>+              SVGDocument -> eventType -> m (Maybe Event)+createEvent self eventType+  = liftDOM+      ((self ^. jsf "createEvent" [toJSVal eventType]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> +getRootElement ::+               (MonadDOM m) => SVGDocument -> m (Maybe SVGSVGElement)+getRootElement self+  = liftDOM ((self ^. js "rootElement") >>= fromJSVal)
+ src/JSDOM/Generated/SVGElement.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGElement+       (getPresentationAttribute, setXmlbase, getXmlbase,+        getOwnerSVGElement, getViewportElement, setXmllang, getXmllang,+        setXmlspace, getXmlspace, getClassName, getStyle, setTabIndex,+        getTabIndex, SVGElement, castToSVGElement, gTypeSVGElement,+        IsSVGElement, toSVGElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> +getPresentationAttribute ::+                         (MonadDOM m, IsSVGElement self, ToJSString name) =>+                           self -> name -> m (Maybe CSSValue)+getPresentationAttribute self name+  = liftDOM+      (((toSVGElement self) ^. jsf "getPresentationAttribute"+          [toJSVal name])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> +setXmlbase ::+           (MonadDOM m, IsSVGElement self, ToJSString val) =>+             self -> Maybe val -> m ()+setXmlbase self val+  = liftDOM ((toSVGElement self) ^. jss "xmlbase" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> +getXmlbase ::+           (MonadDOM m, IsSVGElement self, FromJSString result) =>+             self -> m (Maybe result)+getXmlbase self+  = liftDOM+      (((toSVGElement self) ^. js "xmlbase") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> +getOwnerSVGElement ::+                   (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGSVGElement)+getOwnerSVGElement self+  = liftDOM+      (((toSVGElement self) ^. js "ownerSVGElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> +getViewportElement ::+                   (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGElement)+getViewportElement self+  = liftDOM+      (((toSVGElement self) ^. js "viewportElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation> +setXmllang ::+           (MonadDOM m, IsSVGElement self, ToJSString val) =>+             self -> val -> m ()+setXmllang self val+  = liftDOM ((toSVGElement self) ^. jss "xmllang" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation> +getXmllang ::+           (MonadDOM m, IsSVGElement self, FromJSString result) =>+             self -> m result+getXmllang self+  = liftDOM+      (((toSVGElement self) ^. js "xmllang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation> +setXmlspace ::+            (MonadDOM m, IsSVGElement self, ToJSString val) =>+              self -> val -> m ()+setXmlspace self val+  = liftDOM ((toSVGElement self) ^. jss "xmlspace" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation> +getXmlspace ::+            (MonadDOM m, IsSVGElement self, FromJSString result) =>+              self -> m result+getXmlspace self+  = liftDOM+      (((toSVGElement self) ^. js "xmlspace") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> +getClassName ::+             (MonadDOM m, IsSVGElement self) =>+               self -> m (Maybe SVGAnimatedString)+getClassName self+  = liftDOM (((toSVGElement self) ^. js "className") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> +getStyle ::+         (MonadDOM m, IsSVGElement self) =>+           self -> m (Maybe CSSStyleDeclaration)+getStyle self+  = liftDOM (((toSVGElement self) ^. js "style") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation> +setTabIndex ::+            (MonadDOM m, IsSVGElement self) => self -> Int -> m ()+setTabIndex self val+  = liftDOM ((toSVGElement self) ^. jss "tabIndex" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation> +getTabIndex :: (MonadDOM m, IsSVGElement self) => self -> m Int+getTabIndex self+  = liftDOM+      (round <$>+         (((toSVGElement self) ^. js "tabIndex") >>= valToNumber))
+ src/JSDOM/Generated/SVGEllipseElement.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGEllipseElement+       (getCx, getCy, getRx, getRy, SVGEllipseElement,+        castToSVGEllipseElement, gTypeSVGEllipseElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> +getCx ::+      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> +getCy ::+      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> +getRx ::+      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> +getRy ::+      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)+getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal)
+ src/JSDOM/Generated/SVGExternalResourcesRequired.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGExternalResourcesRequired+       (getExternalResourcesRequired, SVGExternalResourcesRequired,+        castToSVGExternalResourcesRequired,+        gTypeSVGExternalResourcesRequired)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation> +getExternalResourcesRequired ::+                             (MonadDOM m) =>+                               SVGExternalResourcesRequired -> m (Maybe SVGAnimatedBoolean)+getExternalResourcesRequired self+  = liftDOM ((self ^. js "externalResourcesRequired") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEBlendElement.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEBlendElement+       (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL,+        pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN,+        pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN,+        getIn1, getIn2, getMode, SVGFEBlendElement,+        castToSVGFEBlendElement, gTypeSVGFEBlendElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_FEBLEND_MODE_UNKNOWN = 0+pattern SVG_FEBLEND_MODE_NORMAL = 1+pattern SVG_FEBLEND_MODE_MULTIPLY = 2+pattern SVG_FEBLEND_MODE_SCREEN = 3+pattern SVG_FEBLEND_MODE_DARKEN = 4+pattern SVG_FEBLEND_MODE_LIGHTEN = 5++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation> +getIn1 ::+       (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation> +getIn2 ::+       (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)+getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation> +getMode ::+        (MonadDOM m) =>+          SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration)+getMode self = liftDOM ((self ^. js "mode") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEColorMatrixElement.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEColorMatrixElement+       (pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN,+        pattern SVG_FECOLORMATRIX_TYPE_MATRIX,+        pattern SVG_FECOLORMATRIX_TYPE_SATURATE,+        pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE,+        pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, getIn1, getType,+        getValues, SVGFEColorMatrixElement, castToSVGFEColorMatrixElement,+        gTypeSVGFEColorMatrixElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN = 0+pattern SVG_FECOLORMATRIX_TYPE_MATRIX = 1+pattern SVG_FECOLORMATRIX_TYPE_SATURATE = 2+pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE = 3+pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA = 4++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation> +getType ::+        (MonadDOM m) =>+          SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration)+getType self = liftDOM ((self ^. js "type") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation> +getValues ::+          (MonadDOM m) =>+            SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList)+getValues self = liftDOM ((self ^. js "values") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEComponentTransferElement.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEComponentTransferElement+       (getIn1, SVGFEComponentTransferElement,+        castToSVGFEComponentTransferElement,+        gTypeSVGFEComponentTransferElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFECompositeElement.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFECompositeElement+       (pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN,+        pattern SVG_FECOMPOSITE_OPERATOR_OVER,+        pattern SVG_FECOMPOSITE_OPERATOR_IN,+        pattern SVG_FECOMPOSITE_OPERATOR_OUT,+        pattern SVG_FECOMPOSITE_OPERATOR_ATOP,+        pattern SVG_FECOMPOSITE_OPERATOR_XOR,+        pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, getIn1, getIn2,+        getOperator, getK1, getK2, getK3, getK4, SVGFECompositeElement,+        castToSVGFECompositeElement, gTypeSVGFECompositeElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0+pattern SVG_FECOMPOSITE_OPERATOR_OVER = 1+pattern SVG_FECOMPOSITE_OPERATOR_IN = 2+pattern SVG_FECOMPOSITE_OPERATOR_OUT = 3+pattern SVG_FECOMPOSITE_OPERATOR_ATOP = 4+pattern SVG_FECOMPOSITE_OPERATOR_XOR = 5+pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC = 6++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFECompositeElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation> +getIn2 ::+       (MonadDOM m) =>+         SVGFECompositeElement -> m (Maybe SVGAnimatedString)+getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation> +getOperator ::+            (MonadDOM m) =>+              SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration)+getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation> +getK1 ::+      (MonadDOM m) =>+        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK1 self = liftDOM ((self ^. js "k1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation> +getK2 ::+      (MonadDOM m) =>+        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK2 self = liftDOM ((self ^. js "k2") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation> +getK3 ::+      (MonadDOM m) =>+        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK3 self = liftDOM ((self ^. js "k3") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation> +getK4 ::+      (MonadDOM m) =>+        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)+getK4 self = liftDOM ((self ^. js "k4") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEConvolveMatrixElement+       (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE,+        pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, getIn1,+        getOrderX, getOrderY, getKernelMatrix, getDivisor, getBias,+        getTargetX, getTargetY, getEdgeMode, getKernelUnitLengthX,+        getKernelUnitLengthY, getPreserveAlpha, SVGFEConvolveMatrixElement,+        castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_EDGEMODE_UNKNOWN = 0+pattern SVG_EDGEMODE_DUPLICATE = 1+pattern SVG_EDGEMODE_WRAP = 2+pattern SVG_EDGEMODE_NONE = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation> +getOrderX ::+          (MonadDOM m) =>+            SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getOrderX self = liftDOM ((self ^. js "orderX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation> +getOrderY ::+          (MonadDOM m) =>+            SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getOrderY self = liftDOM ((self ^. js "orderY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation> +getKernelMatrix ::+                (MonadDOM m) =>+                  SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumberList)+getKernelMatrix self+  = liftDOM ((self ^. js "kernelMatrix") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation> +getDivisor ::+           (MonadDOM m) =>+             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getDivisor self = liftDOM ((self ^. js "divisor") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation> +getBias ::+        (MonadDOM m) =>+          SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getBias self = liftDOM ((self ^. js "bias") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation> +getTargetX ::+           (MonadDOM m) =>+             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getTargetX self = liftDOM ((self ^. js "targetX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation> +getTargetY ::+           (MonadDOM m) =>+             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)+getTargetY self = liftDOM ((self ^. js "targetY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation> +getEdgeMode ::+            (MonadDOM m) =>+              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration)+getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation> +getKernelUnitLengthX ::+                     (MonadDOM m) =>+                       SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthX self+  = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation> +getKernelUnitLengthY ::+                     (MonadDOM m) =>+                       SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthY self+  = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation> +getPreserveAlpha ::+                 (MonadDOM m) =>+                   SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean)+getPreserveAlpha self+  = liftDOM ((self ^. js "preserveAlpha") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEDiffuseLightingElement+       (getIn1, getSurfaceScale, getDiffuseConstant, getKernelUnitLengthX,+        getKernelUnitLengthY, SVGFEDiffuseLightingElement,+        castToSVGFEDiffuseLightingElement,+        gTypeSVGFEDiffuseLightingElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation> +getSurfaceScale ::+                (MonadDOM m) =>+                  SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getSurfaceScale self+  = liftDOM ((self ^. js "surfaceScale") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation> +getDiffuseConstant ::+                   (MonadDOM m) =>+                     SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getDiffuseConstant self+  = liftDOM ((self ^. js "diffuseConstant") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation> +getKernelUnitLengthX ::+                     (MonadDOM m) =>+                       SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthX self+  = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation> +getKernelUnitLengthY ::+                     (MonadDOM m) =>+                       SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)+getKernelUnitLengthY self+  = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEDisplacementMapElement.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEDisplacementMapElement+       (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R,+        pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B,+        pattern SVG_CHANNEL_A, getIn1, getIn2, getScale,+        getXChannelSelector, getYChannelSelector,+        SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement,+        gTypeSVGFEDisplacementMapElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_CHANNEL_UNKNOWN = 0+pattern SVG_CHANNEL_R = 1+pattern SVG_CHANNEL_G = 2+pattern SVG_CHANNEL_B = 3+pattern SVG_CHANNEL_A = 4++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation> +getIn2 ::+       (MonadDOM m) =>+         SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)+getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation> +getScale ::+         (MonadDOM m) =>+           SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber)+getScale self = liftDOM ((self ^. js "scale") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation> +getXChannelSelector ::+                    (MonadDOM m) =>+                      SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration)+getXChannelSelector self+  = liftDOM ((self ^. js "xChannelSelector") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation> +getYChannelSelector ::+                    (MonadDOM m) =>+                      SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration)+getYChannelSelector self+  = liftDOM ((self ^. js "yChannelSelector") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEDistantLightElement.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEDistantLightElement+       (getAzimuth, getElevation, SVGFEDistantLightElement,+        castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation> +getAzimuth ::+           (MonadDOM m) =>+             SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber)+getAzimuth self = liftDOM ((self ^. js "azimuth") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation> +getElevation ::+             (MonadDOM m) =>+               SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber)+getElevation self+  = liftDOM ((self ^. js "elevation") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEDropShadowElement.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEDropShadowElement+       (setStdDeviation, getIn1, getDx, getDy, getStdDeviationX,+        getStdDeviationY, SVGFEDropShadowElement,+        castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.setStdDeviation Mozilla SVGFEDropShadowElement.setStdDeviation documentation> +setStdDeviation ::+                (MonadDOM m) => SVGFEDropShadowElement -> Float -> Float -> m ()+setStdDeviation self stdDeviationX stdDeviationY+  = liftDOM+      (void+         (self ^. jsf "setStdDeviation"+            [toJSVal stdDeviationX, toJSVal stdDeviationY]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEDropShadowElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation> +getDx ::+      (MonadDOM m) =>+        SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getDx self = liftDOM ((self ^. js "dx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation> +getDy ::+      (MonadDOM m) =>+        SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getDy self = liftDOM ((self ^. js "dy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation> +getStdDeviationX ::+                 (MonadDOM m) =>+                   SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationX self+  = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation> +getStdDeviationY ::+                 (MonadDOM m) =>+                   SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationY self+  = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEGaussianBlurElement.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEGaussianBlurElement+       (setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN,+        pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP,+        pattern SVG_EDGEMODE_NONE, getIn1, getStdDeviationX,+        getStdDeviationY, getEdgeMode, SVGFEGaussianBlurElement,+        castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.setStdDeviation Mozilla SVGFEGaussianBlurElement.setStdDeviation documentation> +setStdDeviation ::+                (MonadDOM m) => SVGFEGaussianBlurElement -> Float -> Float -> m ()+setStdDeviation self stdDeviationX stdDeviationY+  = liftDOM+      (void+         (self ^. jsf "setStdDeviation"+            [toJSVal stdDeviationX, toJSVal stdDeviationY]))+pattern SVG_EDGEMODE_UNKNOWN = 0+pattern SVG_EDGEMODE_DUPLICATE = 1+pattern SVG_EDGEMODE_WRAP = 2+pattern SVG_EDGEMODE_NONE = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation> +getStdDeviationX ::+                 (MonadDOM m) =>+                   SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationX self+  = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation> +getStdDeviationY ::+                 (MonadDOM m) =>+                   SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber)+getStdDeviationY self+  = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation> +getEdgeMode ::+            (MonadDOM m) =>+              SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration)+getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEImageElement.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEImageElement+       (getPreserveAspectRatio, SVGFEImageElement,+        castToSVGFEImageElement, gTypeSVGFEImageElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation> +getPreserveAspectRatio ::+                       (MonadDOM m) =>+                         SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio)+getPreserveAspectRatio self+  = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEMergeNodeElement.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEMergeNodeElement+       (getIn1, SVGFEMergeNodeElement, castToSVGFEMergeNodeElement,+        gTypeSVGFEMergeNodeElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEMorphologyElement.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEMorphologyElement+       (setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN,+        pattern SVG_MORPHOLOGY_OPERATOR_ERODE,+        pattern SVG_MORPHOLOGY_OPERATOR_DILATE, getIn1, getOperator,+        getRadiusX, getRadiusY, SVGFEMorphologyElement,+        castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.setRadius Mozilla SVGFEMorphologyElement.setRadius documentation> +setRadius ::+          (MonadDOM m) => SVGFEMorphologyElement -> Float -> Float -> m ()+setRadius self radiusX radiusY+  = liftDOM+      (void (self ^. jsf "setRadius" [toJSVal radiusX, toJSVal radiusY]))+pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0+pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1+pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFEMorphologyElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation> +getOperator ::+            (MonadDOM m) =>+              SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration)+getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation> +getRadiusX ::+           (MonadDOM m) =>+             SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber)+getRadiusX self = liftDOM ((self ^. js "radiusX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation> +getRadiusY ::+           (MonadDOM m) =>+             SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber)+getRadiusY self = liftDOM ((self ^. js "radiusY") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEOffsetElement.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEOffsetElement+       (getIn1, getDx, getDy, SVGFEOffsetElement,+        castToSVGFEOffsetElement, gTypeSVGFEOffsetElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation> +getIn1 ::+       (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation> +getDx ::+      (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)+getDx self = liftDOM ((self ^. js "dx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation> +getDy ::+      (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)+getDy self = liftDOM ((self ^. js "dy") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFEPointLightElement.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFEPointLightElement+       (getX, getY, getZ, SVGFEPointLightElement,+        castToSVGFEPointLightElement, gTypeSVGFEPointLightElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation> +getX ::+     (MonadDOM m) =>+       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation> +getY ::+     (MonadDOM m) =>+       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation> +getZ ::+     (MonadDOM m) =>+       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)+getZ self = liftDOM ((self ^. js "z") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFESpecularLightingElement.hs view
@@ -0,0 +1,44 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFESpecularLightingElement+       (getIn1, getSurfaceScale, getSpecularConstant, getSpecularExponent,+        SVGFESpecularLightingElement, castToSVGFESpecularLightingElement,+        gTypeSVGFESpecularLightingElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation> +getIn1 ::+       (MonadDOM m) =>+         SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation> +getSurfaceScale ::+                (MonadDOM m) =>+                  SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)+getSurfaceScale self+  = liftDOM ((self ^. js "surfaceScale") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation> +getSpecularConstant ::+                    (MonadDOM m) =>+                      SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)+getSpecularConstant self+  = liftDOM ((self ^. js "specularConstant") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation> +getSpecularExponent ::+                    (MonadDOM m) =>+                      SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)+getSpecularExponent self+  = liftDOM ((self ^. js "specularExponent") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFESpotLightElement.hs view
@@ -0,0 +1,70 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFESpotLightElement+       (getX, getY, getZ, getPointsAtX, getPointsAtY, getPointsAtZ,+        getSpecularExponent, getLimitingConeAngle, SVGFESpotLightElement,+        castToSVGFESpotLightElement, gTypeSVGFESpotLightElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation> +getX ::+     (MonadDOM m) =>+       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation> +getY ::+     (MonadDOM m) =>+       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation> +getZ ::+     (MonadDOM m) =>+       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getZ self = liftDOM ((self ^. js "z") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation> +getPointsAtX ::+             (MonadDOM m) =>+               SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getPointsAtX self+  = liftDOM ((self ^. js "pointsAtX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation> +getPointsAtY ::+             (MonadDOM m) =>+               SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getPointsAtY self+  = liftDOM ((self ^. js "pointsAtY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation> +getPointsAtZ ::+             (MonadDOM m) =>+               SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getPointsAtZ self+  = liftDOM ((self ^. js "pointsAtZ") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation> +getSpecularExponent ::+                    (MonadDOM m) =>+                      SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getSpecularExponent self+  = liftDOM ((self ^. js "specularExponent") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation> +getLimitingConeAngle ::+                     (MonadDOM m) =>+                       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)+getLimitingConeAngle self+  = liftDOM ((self ^. js "limitingConeAngle") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFETileElement.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFETileElement+       (getIn1, SVGFETileElement, castToSVGFETileElement,+        gTypeSVGFETileElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation> +getIn1 ::+       (MonadDOM m) => SVGFETileElement -> m (Maybe SVGAnimatedString)+getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFETurbulenceElement.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFETurbulenceElement+       (pattern SVG_TURBULENCE_TYPE_UNKNOWN,+        pattern SVG_TURBULENCE_TYPE_FRACTALNOISE,+        pattern SVG_TURBULENCE_TYPE_TURBULENCE,+        pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH,+        pattern SVG_STITCHTYPE_NOSTITCH, getBaseFrequencyX,+        getBaseFrequencyY, getNumOctaves, getSeed, getStitchTiles, getType,+        SVGFETurbulenceElement, castToSVGFETurbulenceElement,+        gTypeSVGFETurbulenceElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_TURBULENCE_TYPE_UNKNOWN = 0+pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1+pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2+pattern SVG_STITCHTYPE_UNKNOWN = 0+pattern SVG_STITCHTYPE_STITCH = 1+pattern SVG_STITCHTYPE_NOSTITCH = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation> +getBaseFrequencyX ::+                  (MonadDOM m) =>+                    SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)+getBaseFrequencyX self+  = liftDOM ((self ^. js "baseFrequencyX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation> +getBaseFrequencyY ::+                  (MonadDOM m) =>+                    SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)+getBaseFrequencyY self+  = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation> +getNumOctaves ::+              (MonadDOM m) =>+                SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger)+getNumOctaves self+  = liftDOM ((self ^. js "numOctaves") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation> +getSeed ::+        (MonadDOM m) =>+          SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)+getSeed self = liftDOM ((self ^. js "seed") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation> +getStitchTiles ::+               (MonadDOM m) =>+                 SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)+getStitchTiles self+  = liftDOM ((self ^. js "stitchTiles") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation> +getType ::+        (MonadDOM m) =>+          SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)+getType self = liftDOM ((self ^. js "type") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFilterElement.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFilterElement+       (setFilterRes, getFilterUnits, getPrimitiveUnits, getX, getY,+        getWidth, getHeight, getFilterResX, getFilterResY,+        SVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.setFilterRes Mozilla SVGFilterElement.setFilterRes documentation> +setFilterRes ::+             (MonadDOM m) => SVGFilterElement -> Word -> Word -> m ()+setFilterRes self filterResX filterResY+  = liftDOM+      (void+         (self ^. jsf "setFilterRes"+            [toJSVal filterResX, toJSVal filterResY]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation> +getFilterUnits ::+               (MonadDOM m) =>+                 SVGFilterElement -> m (Maybe SVGAnimatedEnumeration)+getFilterUnits self+  = liftDOM ((self ^. js "filterUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation> +getPrimitiveUnits ::+                  (MonadDOM m) =>+                    SVGFilterElement -> m (Maybe SVGAnimatedEnumeration)+getPrimitiveUnits self+  = liftDOM ((self ^. js "primitiveUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation> +getX ::+     (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation> +getY ::+     (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation> +getFilterResX ::+              (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger)+getFilterResX self+  = liftDOM ((self ^. js "filterResX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation> +getFilterResY ::+              (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger)+getFilterResY self+  = liftDOM ((self ^. js "filterResY") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFilterPrimitiveStandardAttributes+       (getX, getY, getWidth, getHeight, getResult,+        SVGFilterPrimitiveStandardAttributes,+        castToSVGFilterPrimitiveStandardAttributes,+        gTypeSVGFilterPrimitiveStandardAttributes)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation> +getX ::+     (MonadDOM m) =>+       SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation> +getY ::+     (MonadDOM m) =>+       SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation> +getWidth ::+         (MonadDOM m) =>+           SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation> +getHeight ::+          (MonadDOM m) =>+            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation> +getResult ::+          (MonadDOM m) =>+            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString)+getResult self = liftDOM ((self ^. js "result") >>= fromJSVal)
+ src/JSDOM/Generated/SVGFitToViewBox.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGFitToViewBox+       (getViewBox, getPreserveAspectRatio, SVGFitToViewBox,+        castToSVGFitToViewBox, gTypeSVGFitToViewBox)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation> +getViewBox ::+           (MonadDOM m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect)+getViewBox self = liftDOM ((self ^. js "viewBox") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation> +getPreserveAspectRatio ::+                       (MonadDOM m) =>+                         SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio)+getPreserveAspectRatio self+  = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal)
+ src/JSDOM/Generated/SVGForeignObjectElement.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGForeignObjectElement+       (getX, getY, getWidth, getHeight, SVGForeignObjectElement,+        castToSVGForeignObjectElement, gTypeSVGForeignObjectElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation> +getX ::+     (MonadDOM m) =>+       SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation> +getY ::+     (MonadDOM m) =>+       SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation> +getWidth ::+         (MonadDOM m) =>+           SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation> +getHeight ::+          (MonadDOM m) =>+            SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
+ src/JSDOM/Generated/SVGGlyphRefElement.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGGlyphRefElement+       (setGlyphRef, getGlyphRef, setFormat, getFormat, setX, getX, setY,+        getY, setDx, getDx, setDy, getDy, SVGGlyphRefElement,+        castToSVGGlyphRefElement, gTypeSVGGlyphRefElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation> +setGlyphRef ::+            (MonadDOM m, ToJSString val) => SVGGlyphRefElement -> val -> m ()+setGlyphRef self val+  = liftDOM (self ^. jss "glyphRef" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation> +getGlyphRef ::+            (MonadDOM m, FromJSString result) => SVGGlyphRefElement -> m result+getGlyphRef self+  = liftDOM ((self ^. js "glyphRef") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation> +setFormat ::+          (MonadDOM m, ToJSString val) => SVGGlyphRefElement -> val -> m ()+setFormat self val = liftDOM (self ^. jss "format" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation> +getFormat ::+          (MonadDOM m, FromJSString result) => SVGGlyphRefElement -> m result+getFormat self+  = liftDOM ((self ^. js "format") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation> +setX :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation> +getX :: (MonadDOM m) => SVGGlyphRefElement -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation> +setY :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation> +getY :: (MonadDOM m) => SVGGlyphRefElement -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation> +setDx :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()+setDx self val = liftDOM (self ^. jss "dx" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation> +getDx :: (MonadDOM m) => SVGGlyphRefElement -> m Float+getDx self+  = liftDOM (realToFrac <$> ((self ^. js "dx") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation> +setDy :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()+setDy self val = liftDOM (self ^. jss "dy" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation> +getDy :: (MonadDOM m) => SVGGlyphRefElement -> m Float+getDy self+  = liftDOM (realToFrac <$> ((self ^. js "dy") >>= valToNumber))
+ src/JSDOM/Generated/SVGGradientElement.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGGradientElement+       (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD,+        pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT,+        getGradientUnits, getGradientTransform, getSpreadMethod,+        SVGGradientElement, castToSVGGradientElement,+        gTypeSVGGradientElement, IsSVGGradientElement,+        toSVGGradientElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_SPREADMETHOD_UNKNOWN = 0+pattern SVG_SPREADMETHOD_PAD = 1+pattern SVG_SPREADMETHOD_REFLECT = 2+pattern SVG_SPREADMETHOD_REPEAT = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation> +getGradientUnits ::+                 (MonadDOM m, IsSVGGradientElement self) =>+                   self -> m (Maybe SVGAnimatedEnumeration)+getGradientUnits self+  = liftDOM+      (((toSVGGradientElement self) ^. js "gradientUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation> +getGradientTransform ::+                     (MonadDOM m, IsSVGGradientElement self) =>+                       self -> m (Maybe SVGAnimatedTransformList)+getGradientTransform self+  = liftDOM+      (((toSVGGradientElement self) ^. js "gradientTransform") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation> +getSpreadMethod ::+                (MonadDOM m, IsSVGGradientElement self) =>+                  self -> m (Maybe SVGAnimatedEnumeration)+getSpreadMethod self+  = liftDOM+      (((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSVal)
+ src/JSDOM/Generated/SVGGraphicsElement.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGGraphicsElement+       (getBBox, getCTM, getScreenCTM, getTransformToElement,+        getTransform, getNearestViewportElement,+        getFarthestViewportElement, SVGGraphicsElement,+        castToSVGGraphicsElement, gTypeSVGGraphicsElement,+        IsSVGGraphicsElement, toSVGGraphicsElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation> +getBBox ::+        (MonadDOM m, IsSVGGraphicsElement self) =>+          self -> m (Maybe SVGRect)+getBBox self+  = liftDOM+      (((toSVGGraphicsElement self) ^. js "getBBox") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation> +getCTM ::+       (MonadDOM m, IsSVGGraphicsElement self) =>+         self -> m (Maybe SVGMatrix)+getCTM self+  = liftDOM+      (((toSVGGraphicsElement self) ^. js "getCTM") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation> +getScreenCTM ::+             (MonadDOM m, IsSVGGraphicsElement self) =>+               self -> m (Maybe SVGMatrix)+getScreenCTM self+  = liftDOM+      (((toSVGGraphicsElement self) ^. js "getScreenCTM") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation> +getTransformToElement ::+                      (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) =>+                        self -> Maybe element -> m (Maybe SVGMatrix)+getTransformToElement self element+  = liftDOM+      (((toSVGGraphicsElement self) ^. jsf "getTransformToElement"+          [toJSVal element])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation> +getTransform ::+             (MonadDOM m, IsSVGGraphicsElement self) =>+               self -> m (Maybe SVGAnimatedTransformList)+getTransform self+  = liftDOM+      (((toSVGGraphicsElement self) ^. js "transform") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation> +getNearestViewportElement ::+                          (MonadDOM m, IsSVGGraphicsElement self) =>+                            self -> m (Maybe SVGElement)+getNearestViewportElement self+  = liftDOM+      (((toSVGGraphicsElement self) ^. js "nearestViewportElement") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation> +getFarthestViewportElement ::+                           (MonadDOM m, IsSVGGraphicsElement self) =>+                             self -> m (Maybe SVGElement)+getFarthestViewportElement self+  = liftDOM+      (((toSVGGraphicsElement self) ^. js "farthestViewportElement") >>=+         fromJSVal)
+ src/JSDOM/Generated/SVGImageElement.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGImageElement+       (getX, getY, getWidth, getHeight, getPreserveAspectRatio,+        SVGImageElement, castToSVGImageElement, gTypeSVGImageElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation> +getX ::+     (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation> +getY ::+     (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation> +getPreserveAspectRatio ::+                       (MonadDOM m) =>+                         SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio)+getPreserveAspectRatio self+  = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal)
+ src/JSDOM/Generated/SVGLength.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGLength+       (newValueSpecifiedUnits, convertToSpecifiedUnits,+        pattern SVG_LENGTHTYPE_UNKNOWN, pattern SVG_LENGTHTYPE_NUMBER,+        pattern SVG_LENGTHTYPE_PERCENTAGE, pattern SVG_LENGTHTYPE_EMS,+        pattern SVG_LENGTHTYPE_EXS, pattern SVG_LENGTHTYPE_PX,+        pattern SVG_LENGTHTYPE_CM, pattern SVG_LENGTHTYPE_MM,+        pattern SVG_LENGTHTYPE_IN, pattern SVG_LENGTHTYPE_PT,+        pattern SVG_LENGTHTYPE_PC, getUnitType, setValue, getValue,+        setValueInSpecifiedUnits, getValueInSpecifiedUnits,+        setValueAsString, getValueAsString, SVGLength, castToSVGLength,+        gTypeSVGLength)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.newValueSpecifiedUnits Mozilla SVGLength.newValueSpecifiedUnits documentation> +newValueSpecifiedUnits ::+                       (MonadDOM m) => SVGLength -> Word -> Float -> m ()+newValueSpecifiedUnits self unitType valueInSpecifiedUnits+  = liftDOM+      (void+         (self ^. jsf "newValueSpecifiedUnits"+            [toJSVal unitType, toJSVal valueInSpecifiedUnits]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.convertToSpecifiedUnits Mozilla SVGLength.convertToSpecifiedUnits documentation> +convertToSpecifiedUnits ::+                        (MonadDOM m) => SVGLength -> Word -> m ()+convertToSpecifiedUnits self unitType+  = liftDOM+      (void (self ^. jsf "convertToSpecifiedUnits" [toJSVal unitType]))+pattern SVG_LENGTHTYPE_UNKNOWN = 0+pattern SVG_LENGTHTYPE_NUMBER = 1+pattern SVG_LENGTHTYPE_PERCENTAGE = 2+pattern SVG_LENGTHTYPE_EMS = 3+pattern SVG_LENGTHTYPE_EXS = 4+pattern SVG_LENGTHTYPE_PX = 5+pattern SVG_LENGTHTYPE_CM = 6+pattern SVG_LENGTHTYPE_MM = 7+pattern SVG_LENGTHTYPE_IN = 8+pattern SVG_LENGTHTYPE_PT = 9+pattern SVG_LENGTHTYPE_PC = 10++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.unitType Mozilla SVGLength.unitType documentation> +getUnitType :: (MonadDOM m) => SVGLength -> m Word+getUnitType self+  = liftDOM (round <$> ((self ^. js "unitType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation> +setValue :: (MonadDOM m) => SVGLength -> Float -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation> +getValue :: (MonadDOM m) => SVGLength -> m Float+getValue self+  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation> +setValueInSpecifiedUnits ::+                         (MonadDOM m) => SVGLength -> Float -> m ()+setValueInSpecifiedUnits self val+  = liftDOM (self ^. jss "valueInSpecifiedUnits" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation> +getValueInSpecifiedUnits :: (MonadDOM m) => SVGLength -> m Float+getValueInSpecifiedUnits self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "valueInSpecifiedUnits") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> +setValueAsString ::+                 (MonadDOM m, ToJSString val) => SVGLength -> Maybe val -> m ()+setValueAsString self val+  = liftDOM (self ^. jss "valueAsString" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> +getValueAsString ::+                 (MonadDOM m, FromJSString result) => SVGLength -> m (Maybe result)+getValueAsString self+  = liftDOM ((self ^. js "valueAsString") >>= fromMaybeJSString)
+ src/JSDOM/Generated/SVGLengthList.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGLengthList+       (clear, initialize, getItem, insertItemBefore, replaceItem,+        removeItem, appendItem, getNumberOfItems, SVGLengthList,+        castToSVGLengthList, gTypeSVGLengthList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.clear Mozilla SVGLengthList.clear documentation> +clear :: (MonadDOM m) => SVGLengthList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation> +initialize ::+           (MonadDOM m) =>+             SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength)+initialize self item+  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation> +getItem ::+        (MonadDOM m) => SVGLengthList -> Word -> m (Maybe SVGLength)+getItem self index+  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadDOM m) =>+                   SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength)+insertItemBefore self item index+  = liftDOM+      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation> +replaceItem ::+            (MonadDOM m) =>+              SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength)+replaceItem self item index+  = liftDOM+      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation> +removeItem ::+           (MonadDOM m) => SVGLengthList -> Word -> m (Maybe SVGLength)+removeItem self index+  = liftDOM+      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation> +appendItem ::+           (MonadDOM m) =>+             SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength)+appendItem self item+  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.numberOfItems Mozilla SVGLengthList.numberOfItems documentation> +getNumberOfItems :: (MonadDOM m) => SVGLengthList -> m Word+getNumberOfItems self+  = liftDOM+      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
+ src/JSDOM/Generated/SVGLineElement.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGLineElement+       (getX1, getY1, getX2, getY2, SVGLineElement, castToSVGLineElement,+        gTypeSVGLineElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation> +getX1 ::+      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation> +getY1 ::+      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation> +getX2 ::+      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation> +getY2 ::+      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)+getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal)
+ src/JSDOM/Generated/SVGLinearGradientElement.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGLinearGradientElement+       (getX1, getY1, getX2, getY2, SVGLinearGradientElement,+        castToSVGLinearGradientElement, gTypeSVGLinearGradientElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation> +getX1 ::+      (MonadDOM m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation> +getY1 ::+      (MonadDOM m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation> +getX2 ::+      (MonadDOM m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation> +getY2 ::+      (MonadDOM m) =>+        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)+getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal)
+ src/JSDOM/Generated/SVGMarkerElement.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGMarkerElement+       (setOrientToAuto, setOrientToAngle,+        pattern SVG_MARKERUNITS_UNKNOWN,+        pattern SVG_MARKERUNITS_USERSPACEONUSE,+        pattern SVG_MARKERUNITS_STROKEWIDTH,+        pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO,+        pattern SVG_MARKER_ORIENT_ANGLE, getRefX, getRefY, getMarkerUnits,+        getMarkerWidth, getMarkerHeight, getOrientType, getOrientAngle,+        SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAuto Mozilla SVGMarkerElement.setOrientToAuto documentation> +setOrientToAuto :: (MonadDOM m) => SVGMarkerElement -> m ()+setOrientToAuto self+  = liftDOM (void (self ^. js "setOrientToAuto"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAngle Mozilla SVGMarkerElement.setOrientToAngle documentation> +setOrientToAngle ::+                 (MonadDOM m) => SVGMarkerElement -> Maybe SVGAngle -> m ()+setOrientToAngle self angle+  = liftDOM (void (self ^. jsf "setOrientToAngle" [toJSVal angle]))+pattern SVG_MARKERUNITS_UNKNOWN = 0+pattern SVG_MARKERUNITS_USERSPACEONUSE = 1+pattern SVG_MARKERUNITS_STROKEWIDTH = 2+pattern SVG_MARKER_ORIENT_UNKNOWN = 0+pattern SVG_MARKER_ORIENT_AUTO = 1+pattern SVG_MARKER_ORIENT_ANGLE = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation> +getRefX ::+        (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getRefX self = liftDOM ((self ^. js "refX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation> +getRefY ::+        (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getRefY self = liftDOM ((self ^. js "refY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation> +getMarkerUnits ::+               (MonadDOM m) =>+                 SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)+getMarkerUnits self+  = liftDOM ((self ^. js "markerUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation> +getMarkerWidth ::+               (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getMarkerWidth self+  = liftDOM ((self ^. js "markerWidth") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation> +getMarkerHeight ::+                (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)+getMarkerHeight self+  = liftDOM ((self ^. js "markerHeight") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation> +getOrientType ::+              (MonadDOM m) =>+                SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)+getOrientType self+  = liftDOM ((self ^. js "orientType") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation> +getOrientAngle ::+               (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle)+getOrientAngle self+  = liftDOM ((self ^. js "orientAngle") >>= fromJSVal)
+ src/JSDOM/Generated/SVGMaskElement.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGMaskElement+       (getMaskUnits, getMaskContentUnits, getX, getY, getWidth,+        getHeight, SVGMaskElement, castToSVGMaskElement,+        gTypeSVGMaskElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation> +getMaskUnits ::+             (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration)+getMaskUnits self+  = liftDOM ((self ^. js "maskUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation> +getMaskContentUnits ::+                    (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration)+getMaskContentUnits self+  = liftDOM ((self ^. js "maskContentUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation> +getX ::+     (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation> +getY ::+     (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
+ src/JSDOM/Generated/SVGMatrix.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGMatrix+       (multiply, inverse, translate, scale, scaleNonUniform, rotate,+        rotateFromVector, flipX, flipY, skewX, skewY, setA, getA, setB,+        getB, setC, getC, setD, getD, setE, getE, setF, getF, SVGMatrix,+        castToSVGMatrix, gTypeSVGMatrix)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation> +multiply ::+         (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m (Maybe SVGMatrix)+multiply self secondMatrix+  = liftDOM+      ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation> +inverse :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix)+inverse self = liftDOM ((self ^. js "inverse") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation> +translate ::+          (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)+translate self x y+  = liftDOM+      ((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation> +scale :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+scale self scaleFactor+  = liftDOM+      ((self ^. jsf "scale" [toJSVal scaleFactor]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation> +scaleNonUniform ::+                (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)+scaleNonUniform self scaleFactorX scaleFactorY+  = liftDOM+      ((self ^. jsf "scaleNonUniform"+          [toJSVal scaleFactorX, toJSVal scaleFactorY])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation> +rotate :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+rotate self angle+  = liftDOM ((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation> +rotateFromVector ::+                 (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)+rotateFromVector self x y+  = liftDOM+      ((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation> +flipX :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix)+flipX self = liftDOM ((self ^. js "flipX") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation> +flipY :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix)+flipY self = liftDOM ((self ^. js "flipY") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation> +skewX :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+skewX self angle+  = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation> +skewY :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)+skewY self angle+  = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation> +setA :: (MonadDOM m) => SVGMatrix -> Double -> m ()+setA self val = liftDOM (self ^. jss "a" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation> +getA :: (MonadDOM m) => SVGMatrix -> m Double+getA self = liftDOM ((self ^. js "a") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation> +setB :: (MonadDOM m) => SVGMatrix -> Double -> m ()+setB self val = liftDOM (self ^. jss "b" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation> +getB :: (MonadDOM m) => SVGMatrix -> m Double+getB self = liftDOM ((self ^. js "b") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation> +setC :: (MonadDOM m) => SVGMatrix -> Double -> m ()+setC self val = liftDOM (self ^. jss "c" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation> +getC :: (MonadDOM m) => SVGMatrix -> m Double+getC self = liftDOM ((self ^. js "c") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation> +setD :: (MonadDOM m) => SVGMatrix -> Double -> m ()+setD self val = liftDOM (self ^. jss "d" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation> +getD :: (MonadDOM m) => SVGMatrix -> m Double+getD self = liftDOM ((self ^. js "d") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation> +setE :: (MonadDOM m) => SVGMatrix -> Double -> m ()+setE self val = liftDOM (self ^. jss "e" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation> +getE :: (MonadDOM m) => SVGMatrix -> m Double+getE self = liftDOM ((self ^. js "e") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation> +setF :: (MonadDOM m) => SVGMatrix -> Double -> m ()+setF self val = liftDOM (self ^. jss "f" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation> +getF :: (MonadDOM m) => SVGMatrix -> m Double+getF self = liftDOM ((self ^. js "f") >>= valToNumber)
+ src/JSDOM/Generated/SVGNumber.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGNumber+       (setValue, getValue, SVGNumber, castToSVGNumber, gTypeSVGNumber)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation> +setValue :: (MonadDOM m) => SVGNumber -> Float -> m ()+setValue self val = liftDOM (self ^. jss "value" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation> +getValue :: (MonadDOM m) => SVGNumber -> m Float+getValue self+  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))
+ src/JSDOM/Generated/SVGNumberList.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGNumberList+       (clear, initialize, getItem, insertItemBefore, replaceItem,+        removeItem, appendItem, getNumberOfItems, SVGNumberList,+        castToSVGNumberList, gTypeSVGNumberList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.clear Mozilla SVGNumberList.clear documentation> +clear :: (MonadDOM m) => SVGNumberList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation> +initialize ::+           (MonadDOM m) =>+             SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber)+initialize self item+  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation> +getItem ::+        (MonadDOM m) => SVGNumberList -> Word -> m (Maybe SVGNumber)+getItem self index+  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadDOM m) =>+                   SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber)+insertItemBefore self item index+  = liftDOM+      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation> +replaceItem ::+            (MonadDOM m) =>+              SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber)+replaceItem self item index+  = liftDOM+      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation> +removeItem ::+           (MonadDOM m) => SVGNumberList -> Word -> m (Maybe SVGNumber)+removeItem self index+  = liftDOM+      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation> +appendItem ::+           (MonadDOM m) =>+             SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber)+appendItem self item+  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.numberOfItems Mozilla SVGNumberList.numberOfItems documentation> +getNumberOfItems :: (MonadDOM m) => SVGNumberList -> m Word+getNumberOfItems self+  = liftDOM+      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
+ src/JSDOM/Generated/SVGPaint.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPaint+       (setUri, setPaint, pattern SVG_PAINTTYPE_UNKNOWN,+        pattern SVG_PAINTTYPE_RGBCOLOR,+        pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR,+        pattern SVG_PAINTTYPE_NONE, pattern SVG_PAINTTYPE_CURRENTCOLOR,+        pattern SVG_PAINTTYPE_URI_NONE,+        pattern SVG_PAINTTYPE_URI_CURRENTCOLOR,+        pattern SVG_PAINTTYPE_URI_RGBCOLOR,+        pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR,+        pattern SVG_PAINTTYPE_URI, getPaintType, getUri, SVGPaint,+        castToSVGPaint, gTypeSVGPaint)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setUri Mozilla SVGPaint.setUri documentation> +setUri :: (MonadDOM m, ToJSString uri) => SVGPaint -> uri -> m ()+setUri self uri+  = liftDOM (void (self ^. jsf "setUri" [toJSVal uri]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setPaint Mozilla SVGPaint.setPaint documentation> +setPaint ::+         (MonadDOM m, ToJSString uri, ToJSString rgbColor,+          ToJSString iccColor) =>+           SVGPaint -> Word -> uri -> rgbColor -> iccColor -> m ()+setPaint self paintType uri rgbColor iccColor+  = liftDOM+      (void+         (self ^. jsf "setPaint"+            [toJSVal paintType, toJSVal uri, toJSVal rgbColor,+             toJSVal iccColor]))+pattern SVG_PAINTTYPE_UNKNOWN = 0+pattern SVG_PAINTTYPE_RGBCOLOR = 1+pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR = 2+pattern SVG_PAINTTYPE_NONE = 101+pattern SVG_PAINTTYPE_CURRENTCOLOR = 102+pattern SVG_PAINTTYPE_URI_NONE = 103+pattern SVG_PAINTTYPE_URI_CURRENTCOLOR = 104+pattern SVG_PAINTTYPE_URI_RGBCOLOR = 105+pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR = 106+pattern SVG_PAINTTYPE_URI = 107++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.paintType Mozilla SVGPaint.paintType documentation> +getPaintType :: (MonadDOM m) => SVGPaint -> m Word+getPaintType self+  = liftDOM (round <$> ((self ^. js "paintType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.uri Mozilla SVGPaint.uri documentation> +getUri :: (MonadDOM m, FromJSString result) => SVGPaint -> m result+getUri self = liftDOM ((self ^. js "uri") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SVGPathElement.hs view
@@ -0,0 +1,309 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathElement+       (getTotalLength, getPointAtLength, getPathSegAtLength,+        createSVGPathSegClosePath, createSVGPathSegMovetoAbs,+        createSVGPathSegMovetoRel, createSVGPathSegLinetoAbs,+        createSVGPathSegLinetoRel, createSVGPathSegCurvetoCubicAbs,+        createSVGPathSegCurvetoCubicRel,+        createSVGPathSegCurvetoQuadraticAbs,+        createSVGPathSegCurvetoQuadraticRel, createSVGPathSegArcAbs,+        createSVGPathSegArcRel, createSVGPathSegLinetoHorizontalAbs,+        createSVGPathSegLinetoHorizontalRel,+        createSVGPathSegLinetoVerticalAbs,+        createSVGPathSegLinetoVerticalRel,+        createSVGPathSegCurvetoCubicSmoothAbs,+        createSVGPathSegCurvetoCubicSmoothRel,+        createSVGPathSegCurvetoQuadraticSmoothAbs,+        createSVGPathSegCurvetoQuadraticSmoothRel, getPathLength,+        getPathSegList, getNormalizedPathSegList, getAnimatedPathSegList,+        getAnimatedNormalizedPathSegList, SVGPathElement,+        castToSVGPathElement, gTypeSVGPathElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getTotalLength Mozilla SVGPathElement.getTotalLength documentation> +getTotalLength :: (MonadDOM m) => SVGPathElement -> m Float+getTotalLength self+  = liftDOM+      (realToFrac <$> ((self ^. js "getTotalLength") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation> +getPointAtLength ::+                 (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPoint)+getPointAtLength self distance+  = liftDOM+      ((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPathSegAtLength Mozilla SVGPathElement.getPathSegAtLength documentation> +getPathSegAtLength ::+                   (MonadDOM m) => SVGPathElement -> Float -> m Word+getPathSegAtLength self distance+  = liftDOM+      (round <$>+         ((self ^. jsf "getPathSegAtLength" [toJSVal distance]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation> +createSVGPathSegClosePath ::+                          (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegClosePath)+createSVGPathSegClosePath self+  = liftDOM ((self ^. js "createSVGPathSegClosePath") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation> +createSVGPathSegMovetoAbs ::+                          (MonadDOM m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoAbs)+createSVGPathSegMovetoAbs self x y+  = liftDOM+      ((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation> +createSVGPathSegMovetoRel ::+                          (MonadDOM m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoRel)+createSVGPathSegMovetoRel self x y+  = liftDOM+      ((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation> +createSVGPathSegLinetoAbs ::+                          (MonadDOM m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoAbs)+createSVGPathSegLinetoAbs self x y+  = liftDOM+      ((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation> +createSVGPathSegLinetoRel ::+                          (MonadDOM m) =>+                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoRel)+createSVGPathSegLinetoRel self x y+  = liftDOM+      ((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation> +createSVGPathSegCurvetoCubicAbs ::+                                (MonadDOM m) =>+                                  SVGPathElement ->+                                    Float ->+                                      Float ->+                                        Float ->+                                          Float ->+                                            Float -> Float -> m (Maybe SVGPathSegCurvetoCubicAbs)+createSVGPathSegCurvetoCubicAbs self x y x1 y1 x2 y2+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoCubicAbs"+          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2,+           toJSVal y2])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation> +createSVGPathSegCurvetoCubicRel ::+                                (MonadDOM m) =>+                                  SVGPathElement ->+                                    Float ->+                                      Float ->+                                        Float ->+                                          Float ->+                                            Float -> Float -> m (Maybe SVGPathSegCurvetoCubicRel)+createSVGPathSegCurvetoCubicRel self x y x1 y1 x2 y2+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoCubicRel"+          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2,+           toJSVal y2])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation> +createSVGPathSegCurvetoQuadraticAbs ::+                                    (MonadDOM m) =>+                                      SVGPathElement ->+                                        Float ->+                                          Float ->+                                            Float ->+                                              Float -> m (Maybe SVGPathSegCurvetoQuadraticAbs)+createSVGPathSegCurvetoQuadraticAbs self x y x1 y1+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoQuadraticAbs"+          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation> +createSVGPathSegCurvetoQuadraticRel ::+                                    (MonadDOM m) =>+                                      SVGPathElement ->+                                        Float ->+                                          Float ->+                                            Float ->+                                              Float -> m (Maybe SVGPathSegCurvetoQuadraticRel)+createSVGPathSegCurvetoQuadraticRel self x y x1 y1+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoQuadraticRel"+          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation> +createSVGPathSegArcAbs ::+                       (MonadDOM m) =>+                         SVGPathElement ->+                           Float ->+                             Float ->+                               Float ->+                                 Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcAbs)+createSVGPathSegArcAbs self x y r1 r2 angle largeArcFlag sweepFlag+  = liftDOM+      ((self ^. jsf "createSVGPathSegArcAbs"+          [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle,+           toJSVal largeArcFlag, toJSVal sweepFlag])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation> +createSVGPathSegArcRel ::+                       (MonadDOM m) =>+                         SVGPathElement ->+                           Float ->+                             Float ->+                               Float ->+                                 Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcRel)+createSVGPathSegArcRel self x y r1 r2 angle largeArcFlag sweepFlag+  = liftDOM+      ((self ^. jsf "createSVGPathSegArcRel"+          [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle,+           toJSVal largeArcFlag, toJSVal sweepFlag])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation> +createSVGPathSegLinetoHorizontalAbs ::+                                    (MonadDOM m) =>+                                      SVGPathElement ->+                                        Float -> m (Maybe SVGPathSegLinetoHorizontalAbs)+createSVGPathSegLinetoHorizontalAbs self x+  = liftDOM+      ((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation> +createSVGPathSegLinetoHorizontalRel ::+                                    (MonadDOM m) =>+                                      SVGPathElement ->+                                        Float -> m (Maybe SVGPathSegLinetoHorizontalRel)+createSVGPathSegLinetoHorizontalRel self x+  = liftDOM+      ((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation> +createSVGPathSegLinetoVerticalAbs ::+                                  (MonadDOM m) =>+                                    SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalAbs)+createSVGPathSegLinetoVerticalAbs self y+  = liftDOM+      ((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation> +createSVGPathSegLinetoVerticalRel ::+                                  (MonadDOM m) =>+                                    SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalRel)+createSVGPathSegLinetoVerticalRel self y+  = liftDOM+      ((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation> +createSVGPathSegCurvetoCubicSmoothAbs ::+                                      (MonadDOM m) =>+                                        SVGPathElement ->+                                          Float ->+                                            Float ->+                                              Float ->+                                                Float -> m (Maybe SVGPathSegCurvetoCubicSmoothAbs)+createSVGPathSegCurvetoCubicSmoothAbs self x y x2 y2+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs"+          [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation> +createSVGPathSegCurvetoCubicSmoothRel ::+                                      (MonadDOM m) =>+                                        SVGPathElement ->+                                          Float ->+                                            Float ->+                                              Float ->+                                                Float -> m (Maybe SVGPathSegCurvetoCubicSmoothRel)+createSVGPathSegCurvetoCubicSmoothRel self x y x2 y2+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel"+          [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation> +createSVGPathSegCurvetoQuadraticSmoothAbs ::+                                          (MonadDOM m) =>+                                            SVGPathElement ->+                                              Float ->+                                                Float ->+                                                  m (Maybe SVGPathSegCurvetoQuadraticSmoothAbs)+createSVGPathSegCurvetoQuadraticSmoothAbs self x y+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs"+          [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation> +createSVGPathSegCurvetoQuadraticSmoothRel ::+                                          (MonadDOM m) =>+                                            SVGPathElement ->+                                              Float ->+                                                Float ->+                                                  m (Maybe SVGPathSegCurvetoQuadraticSmoothRel)+createSVGPathSegCurvetoQuadraticSmoothRel self x y+  = liftDOM+      ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel"+          [toJSVal x, toJSVal y])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation> +getPathLength ::+              (MonadDOM m) => SVGPathElement -> m (Maybe SVGAnimatedNumber)+getPathLength self+  = liftDOM ((self ^. js "pathLength") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation> +getPathSegList ::+               (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)+getPathSegList self+  = liftDOM ((self ^. js "pathSegList") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation> +getNormalizedPathSegList ::+                         (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)+getNormalizedPathSegList self+  = liftDOM ((self ^. js "normalizedPathSegList") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation> +getAnimatedPathSegList ::+                       (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)+getAnimatedPathSegList self+  = liftDOM ((self ^. js "animatedPathSegList") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation> +getAnimatedNormalizedPathSegList ::+                                 (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)+getAnimatedNormalizedPathSegList self+  = liftDOM+      ((self ^. js "animatedNormalizedPathSegList") >>= fromJSVal)
+ src/JSDOM/Generated/SVGPathSeg.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSeg+       (pattern PATHSEG_UNKNOWN, pattern PATHSEG_CLOSEPATH,+        pattern PATHSEG_MOVETO_ABS, pattern PATHSEG_MOVETO_REL,+        pattern PATHSEG_LINETO_ABS, pattern PATHSEG_LINETO_REL,+        pattern PATHSEG_CURVETO_CUBIC_ABS,+        pattern PATHSEG_CURVETO_CUBIC_REL,+        pattern PATHSEG_CURVETO_QUADRATIC_ABS,+        pattern PATHSEG_CURVETO_QUADRATIC_REL, pattern PATHSEG_ARC_ABS,+        pattern PATHSEG_ARC_REL, pattern PATHSEG_LINETO_HORIZONTAL_ABS,+        pattern PATHSEG_LINETO_HORIZONTAL_REL,+        pattern PATHSEG_LINETO_VERTICAL_ABS,+        pattern PATHSEG_LINETO_VERTICAL_REL,+        pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS,+        pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL,+        pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS,+        pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL, getPathSegType,+        getPathSegTypeAsLetter, SVGPathSeg, castToSVGPathSeg,+        gTypeSVGPathSeg, IsSVGPathSeg, toSVGPathSeg)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern PATHSEG_UNKNOWN = 0+pattern PATHSEG_CLOSEPATH = 1+pattern PATHSEG_MOVETO_ABS = 2+pattern PATHSEG_MOVETO_REL = 3+pattern PATHSEG_LINETO_ABS = 4+pattern PATHSEG_LINETO_REL = 5+pattern PATHSEG_CURVETO_CUBIC_ABS = 6+pattern PATHSEG_CURVETO_CUBIC_REL = 7+pattern PATHSEG_CURVETO_QUADRATIC_ABS = 8+pattern PATHSEG_CURVETO_QUADRATIC_REL = 9+pattern PATHSEG_ARC_ABS = 10+pattern PATHSEG_ARC_REL = 11+pattern PATHSEG_LINETO_HORIZONTAL_ABS = 12+pattern PATHSEG_LINETO_HORIZONTAL_REL = 13+pattern PATHSEG_LINETO_VERTICAL_ABS = 14+pattern PATHSEG_LINETO_VERTICAL_REL = 15+pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS = 16+pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL = 17+pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS = 18+pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL = 19++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegType Mozilla SVGPathSeg.pathSegType documentation> +getPathSegType :: (MonadDOM m, IsSVGPathSeg self) => self -> m Word+getPathSegType self+  = liftDOM+      (round <$>+         (((toSVGPathSeg self) ^. js "pathSegType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegTypeAsLetter Mozilla SVGPathSeg.pathSegTypeAsLetter documentation> +getPathSegTypeAsLetter ::+                       (MonadDOM m, IsSVGPathSeg self, FromJSString result) =>+                         self -> m result+getPathSegTypeAsLetter self+  = liftDOM+      (((toSVGPathSeg self) ^. js "pathSegTypeAsLetter") >>=+         fromJSValUnchecked)
+ src/JSDOM/Generated/SVGPathSegArcAbs.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegArcAbs+       (setX, getX, setY, getY, setR1, getR1, setR2, getR2, setAngle,+        getAngle, setLargeArcFlag, getLargeArcFlag, setSweepFlag,+        getSweepFlag, SVGPathSegArcAbs, castToSVGPathSegArcAbs,+        gTypeSVGPathSegArcAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation> +setX :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegArcAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation> +setY :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegArcAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation> +setR1 :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()+setR1 self val = liftDOM (self ^. jss "r1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation> +getR1 :: (MonadDOM m) => SVGPathSegArcAbs -> m Float+getR1 self+  = liftDOM (realToFrac <$> ((self ^. js "r1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation> +setR2 :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()+setR2 self val = liftDOM (self ^. jss "r2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation> +getR2 :: (MonadDOM m) => SVGPathSegArcAbs -> m Float+getR2 self+  = liftDOM (realToFrac <$> ((self ^. js "r2") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation> +setAngle :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()+setAngle self val = liftDOM (self ^. jss "angle" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation> +getAngle :: (MonadDOM m) => SVGPathSegArcAbs -> m Float+getAngle self+  = liftDOM (realToFrac <$> ((self ^. js "angle") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation> +setLargeArcFlag :: (MonadDOM m) => SVGPathSegArcAbs -> Bool -> m ()+setLargeArcFlag self val+  = liftDOM (self ^. jss "largeArcFlag" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation> +getLargeArcFlag :: (MonadDOM m) => SVGPathSegArcAbs -> m Bool+getLargeArcFlag self+  = liftDOM ((self ^. js "largeArcFlag") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation> +setSweepFlag :: (MonadDOM m) => SVGPathSegArcAbs -> Bool -> m ()+setSweepFlag self val+  = liftDOM (self ^. jss "sweepFlag" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation> +getSweepFlag :: (MonadDOM m) => SVGPathSegArcAbs -> m Bool+getSweepFlag self+  = liftDOM ((self ^. js "sweepFlag") >>= valToBool)
+ src/JSDOM/Generated/SVGPathSegArcRel.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegArcRel+       (setX, getX, setY, getY, setR1, getR1, setR2, getR2, setAngle,+        getAngle, setLargeArcFlag, getLargeArcFlag, setSweepFlag,+        getSweepFlag, SVGPathSegArcRel, castToSVGPathSegArcRel,+        gTypeSVGPathSegArcRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation> +setX :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegArcRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation> +setY :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegArcRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation> +setR1 :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()+setR1 self val = liftDOM (self ^. jss "r1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation> +getR1 :: (MonadDOM m) => SVGPathSegArcRel -> m Float+getR1 self+  = liftDOM (realToFrac <$> ((self ^. js "r1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation> +setR2 :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()+setR2 self val = liftDOM (self ^. jss "r2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation> +getR2 :: (MonadDOM m) => SVGPathSegArcRel -> m Float+getR2 self+  = liftDOM (realToFrac <$> ((self ^. js "r2") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation> +setAngle :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()+setAngle self val = liftDOM (self ^. jss "angle" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation> +getAngle :: (MonadDOM m) => SVGPathSegArcRel -> m Float+getAngle self+  = liftDOM (realToFrac <$> ((self ^. js "angle") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation> +setLargeArcFlag :: (MonadDOM m) => SVGPathSegArcRel -> Bool -> m ()+setLargeArcFlag self val+  = liftDOM (self ^. jss "largeArcFlag" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation> +getLargeArcFlag :: (MonadDOM m) => SVGPathSegArcRel -> m Bool+getLargeArcFlag self+  = liftDOM ((self ^. js "largeArcFlag") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation> +setSweepFlag :: (MonadDOM m) => SVGPathSegArcRel -> Bool -> m ()+setSweepFlag self val+  = liftDOM (self ^. jss "sweepFlag" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation> +getSweepFlag :: (MonadDOM m) => SVGPathSegArcRel -> m Bool+getSweepFlag self+  = liftDOM ((self ^. js "sweepFlag") >>= valToBool)
+ src/JSDOM/Generated/SVGPathSegCurvetoCubicAbs.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoCubicAbs+       (setX, getX, setY, getY, setX1, getX1, setY1, getY1, setX2, getX2,+        setY2, getY2, SVGPathSegCurvetoCubicAbs,+        castToSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation> +setX :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation> +setY :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation> +setX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation> +getX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float+getX1 self+  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation> +setY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation> +getY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float+getY1 self+  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation> +setX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation> +getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float+getX2 self+  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation> +setY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()+setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation> +getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float+getY2 self+  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoCubicRel.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoCubicRel+       (setX, getX, setY, getY, setX1, getX1, setY1, getY1, setX2, getX2,+        setY2, getY2, SVGPathSegCurvetoCubicRel,+        castToSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation> +setX :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation> +setY :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation> +setX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation> +getX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float+getX1 self+  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation> +setY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation> +getY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float+getY1 self+  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation> +setX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation> +getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float+getX2 self+  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation> +setY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()+setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation> +getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float+getY2 self+  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoCubicSmoothAbs+       (setX, getX, setY, getY, setX2, getX2, setY2, getY2,+        SVGPathSegCurvetoCubicSmoothAbs,+        castToSVGPathSegCurvetoCubicSmoothAbs,+        gTypeSVGPathSegCurvetoCubicSmoothAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation> +setX ::+     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation> +setY ::+     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation> +setX2 ::+      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation> +getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getX2 self+  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation> +setY2 ::+      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()+setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation> +getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float+getY2 self+  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothRel.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoCubicSmoothRel+       (setX, getX, setY, getY, setX2, getX2, setY2, getY2,+        SVGPathSegCurvetoCubicSmoothRel,+        castToSVGPathSegCurvetoCubicSmoothRel,+        gTypeSVGPathSegCurvetoCubicSmoothRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation> +setX ::+     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation> +setY ::+     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation> +setX2 ::+      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation> +getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getX2 self+  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation> +setY2 ::+      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()+setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation> +getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float+getY2 self+  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoQuadraticAbs.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoQuadraticAbs+       (setX, getX, setY, getY, setX1, getX1, setY1, getY1,+        SVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs,+        gTypeSVGPathSegCurvetoQuadraticAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation> +setX ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation> +setY ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation> +setX1 ::+      (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation> +getX1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getX1 self+  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation> +setY1 ::+      (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()+setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation> +getY1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float+getY1 self+  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoQuadraticRel.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoQuadraticRel+       (setX, getX, setY, getY, setX1, getX1, setY1, getY1,+        SVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel,+        gTypeSVGPathSegCurvetoQuadraticRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation> +setX ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation> +setY ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation> +setX1 ::+      (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation> +getX1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float+getX1 self+  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation> +setY1 ::+      (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()+setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation> +getY1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float+getY1 self+  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoQuadraticSmoothAbs+       (setX, getX, setY, getY, SVGPathSegCurvetoQuadraticSmoothAbs,+        castToSVGPathSegCurvetoQuadraticSmoothAbs,+        gTypeSVGPathSegCurvetoQuadraticSmoothAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation> +setX ::+     (MonadDOM m) =>+       SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation> +getX ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation> +setY ::+     (MonadDOM m) =>+       SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation> +getY ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegCurvetoQuadraticSmoothRel+       (setX, getX, setY, getY, SVGPathSegCurvetoQuadraticSmoothRel,+        castToSVGPathSegCurvetoQuadraticSmoothRel,+        gTypeSVGPathSegCurvetoQuadraticSmoothRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation> +setX ::+     (MonadDOM m) =>+       SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation> +getX ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation> +setY ::+     (MonadDOM m) =>+       SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation> +getY ::+     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegLinetoAbs.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegLinetoAbs+       (setX, getX, setY, getY, SVGPathSegLinetoAbs,+        castToSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation> +setX :: (MonadDOM m) => SVGPathSegLinetoAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegLinetoAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation> +setY :: (MonadDOM m) => SVGPathSegLinetoAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegLinetoAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegLinetoHorizontalAbs.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegLinetoHorizontalAbs+       (setX, getX, SVGPathSegLinetoHorizontalAbs,+        castToSVGPathSegLinetoHorizontalAbs,+        gTypeSVGPathSegLinetoHorizontalAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation> +setX ::+     (MonadDOM m) => SVGPathSegLinetoHorizontalAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegLinetoHorizontalAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegLinetoHorizontalRel.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegLinetoHorizontalRel+       (setX, getX, SVGPathSegLinetoHorizontalRel,+        castToSVGPathSegLinetoHorizontalRel,+        gTypeSVGPathSegLinetoHorizontalRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation> +setX ::+     (MonadDOM m) => SVGPathSegLinetoHorizontalRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegLinetoHorizontalRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegLinetoRel.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegLinetoRel+       (setX, getX, setY, getY, SVGPathSegLinetoRel,+        castToSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation> +setX :: (MonadDOM m) => SVGPathSegLinetoRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegLinetoRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation> +setY :: (MonadDOM m) => SVGPathSegLinetoRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegLinetoRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegLinetoVerticalAbs.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegLinetoVerticalAbs+       (setY, getY, SVGPathSegLinetoVerticalAbs,+        castToSVGPathSegLinetoVerticalAbs,+        gTypeSVGPathSegLinetoVerticalAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation> +setY ::+     (MonadDOM m) => SVGPathSegLinetoVerticalAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegLinetoVerticalAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegLinetoVerticalRel.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegLinetoVerticalRel+       (setY, getY, SVGPathSegLinetoVerticalRel,+        castToSVGPathSegLinetoVerticalRel,+        gTypeSVGPathSegLinetoVerticalRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation> +setY ::+     (MonadDOM m) => SVGPathSegLinetoVerticalRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegLinetoVerticalRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegList.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegList+       (clear, initialize, getItem, insertItemBefore, replaceItem,+        removeItem, appendItem, getNumberOfItems, SVGPathSegList,+        castToSVGPathSegList, gTypeSVGPathSegList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.clear Mozilla SVGPathSegList.clear documentation> +clear :: (MonadDOM m) => SVGPathSegList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation> +initialize ::+           (MonadDOM m, IsSVGPathSeg newItem) =>+             SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg)+initialize self newItem+  = liftDOM+      ((self ^. jsf "initialize" [toJSVal newItem]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation> +getItem ::+        (MonadDOM m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg)+getItem self index+  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadDOM m, IsSVGPathSeg newItem) =>+                   SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg)+insertItemBefore self newItem index+  = liftDOM+      ((self ^. jsf "insertItemBefore" [toJSVal newItem, toJSVal index])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation> +replaceItem ::+            (MonadDOM m, IsSVGPathSeg newItem) =>+              SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg)+replaceItem self newItem index+  = liftDOM+      ((self ^. jsf "replaceItem" [toJSVal newItem, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation> +removeItem ::+           (MonadDOM m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg)+removeItem self index+  = liftDOM+      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation> +appendItem ::+           (MonadDOM m, IsSVGPathSeg newItem) =>+             SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg)+appendItem self newItem+  = liftDOM+      ((self ^. jsf "appendItem" [toJSVal newItem]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.numberOfItems Mozilla SVGPathSegList.numberOfItems documentation> +getNumberOfItems :: (MonadDOM m) => SVGPathSegList -> m Word+getNumberOfItems self+  = liftDOM+      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegMovetoAbs.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegMovetoAbs+       (setX, getX, setY, getY, SVGPathSegMovetoAbs,+        castToSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation> +setX :: (MonadDOM m) => SVGPathSegMovetoAbs -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation> +getX :: (MonadDOM m) => SVGPathSegMovetoAbs -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation> +setY :: (MonadDOM m) => SVGPathSegMovetoAbs -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation> +getY :: (MonadDOM m) => SVGPathSegMovetoAbs -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPathSegMovetoRel.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPathSegMovetoRel+       (setX, getX, setY, getY, SVGPathSegMovetoRel,+        castToSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation> +setX :: (MonadDOM m) => SVGPathSegMovetoRel -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation> +getX :: (MonadDOM m) => SVGPathSegMovetoRel -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation> +setY :: (MonadDOM m) => SVGPathSegMovetoRel -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation> +getY :: (MonadDOM m) => SVGPathSegMovetoRel -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPatternElement.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPatternElement+       (getPatternUnits, getPatternContentUnits, getPatternTransform,+        getX, getY, getWidth, getHeight, SVGPatternElement,+        castToSVGPatternElement, gTypeSVGPatternElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation> +getPatternUnits ::+                (MonadDOM m) =>+                  SVGPatternElement -> m (Maybe SVGAnimatedEnumeration)+getPatternUnits self+  = liftDOM ((self ^. js "patternUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation> +getPatternContentUnits ::+                       (MonadDOM m) =>+                         SVGPatternElement -> m (Maybe SVGAnimatedEnumeration)+getPatternContentUnits self+  = liftDOM ((self ^. js "patternContentUnits") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation> +getPatternTransform ::+                    (MonadDOM m) =>+                      SVGPatternElement -> m (Maybe SVGAnimatedTransformList)+getPatternTransform self+  = liftDOM ((self ^. js "patternTransform") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation> +getX ::+     (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation> +getY ::+     (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
+ src/JSDOM/Generated/SVGPoint.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPoint+       (matrixTransform, setX, getX, setY, getY, SVGPoint, castToSVGPoint,+        gTypeSVGPoint)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation> +matrixTransform ::+                (MonadDOM m) => SVGPoint -> Maybe SVGMatrix -> m (Maybe SVGPoint)+matrixTransform self matrix+  = liftDOM+      ((self ^. jsf "matrixTransform" [toJSVal matrix]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation> +setX :: (MonadDOM m) => SVGPoint -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation> +getX :: (MonadDOM m) => SVGPoint -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation> +setY :: (MonadDOM m) => SVGPoint -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation> +getY :: (MonadDOM m) => SVGPoint -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/SVGPointList.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPointList+       (clear, initialize, getItem, insertItemBefore, replaceItem,+        removeItem, appendItem, getNumberOfItems, SVGPointList,+        castToSVGPointList, gTypeSVGPointList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.clear Mozilla SVGPointList.clear documentation> +clear :: (MonadDOM m) => SVGPointList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation> +initialize ::+           (MonadDOM m) =>+             SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint)+initialize self item+  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation> +getItem ::+        (MonadDOM m) => SVGPointList -> Word -> m (Maybe SVGPoint)+getItem self index+  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadDOM m) =>+                   SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint)+insertItemBefore self item index+  = liftDOM+      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation> +replaceItem ::+            (MonadDOM m) =>+              SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint)+replaceItem self item index+  = liftDOM+      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation> +removeItem ::+           (MonadDOM m) => SVGPointList -> Word -> m (Maybe SVGPoint)+removeItem self index+  = liftDOM+      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation> +appendItem ::+           (MonadDOM m) =>+             SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint)+appendItem self item+  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.numberOfItems Mozilla SVGPointList.numberOfItems documentation> +getNumberOfItems :: (MonadDOM m) => SVGPointList -> m Word+getNumberOfItems self+  = liftDOM+      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
+ src/JSDOM/Generated/SVGPolygonElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPolygonElement+       (getPoints, getAnimatedPoints, SVGPolygonElement,+        castToSVGPolygonElement, gTypeSVGPolygonElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation> +getPoints ::+          (MonadDOM m) => SVGPolygonElement -> m (Maybe SVGPointList)+getPoints self = liftDOM ((self ^. js "points") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation> +getAnimatedPoints ::+                  (MonadDOM m) => SVGPolygonElement -> m (Maybe SVGPointList)+getAnimatedPoints self+  = liftDOM ((self ^. js "animatedPoints") >>= fromJSVal)
+ src/JSDOM/Generated/SVGPolylineElement.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPolylineElement+       (getPoints, getAnimatedPoints, SVGPolylineElement,+        castToSVGPolylineElement, gTypeSVGPolylineElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.points Mozilla SVGPolylineElement.points documentation> +getPoints ::+          (MonadDOM m) => SVGPolylineElement -> m (Maybe SVGPointList)+getPoints self = liftDOM ((self ^. js "points") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.animatedPoints Mozilla SVGPolylineElement.animatedPoints documentation> +getAnimatedPoints ::+                  (MonadDOM m) => SVGPolylineElement -> m (Maybe SVGPointList)+getAnimatedPoints self+  = liftDOM ((self ^. js "animatedPoints") >>= fromJSVal)
+ src/JSDOM/Generated/SVGPreserveAspectRatio.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGPreserveAspectRatio+       (pattern SVG_PRESERVEASPECTRATIO_UNKNOWN,+        pattern SVG_PRESERVEASPECTRATIO_NONE,+        pattern SVG_PRESERVEASPECTRATIO_XMINYMIN,+        pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN,+        pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN,+        pattern SVG_PRESERVEASPECTRATIO_XMINYMID,+        pattern SVG_PRESERVEASPECTRATIO_XMIDYMID,+        pattern SVG_PRESERVEASPECTRATIO_XMAXYMID,+        pattern SVG_PRESERVEASPECTRATIO_XMINYMAX,+        pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX,+        pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX,+        pattern SVG_MEETORSLICE_UNKNOWN, pattern SVG_MEETORSLICE_MEET,+        pattern SVG_MEETORSLICE_SLICE, setAlign, getAlign, setMeetOrSlice,+        getMeetOrSlice, SVGPreserveAspectRatio,+        castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_PRESERVEASPECTRATIO_UNKNOWN = 0+pattern SVG_PRESERVEASPECTRATIO_NONE = 1+pattern SVG_PRESERVEASPECTRATIO_XMINYMIN = 2+pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN = 3+pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN = 4+pattern SVG_PRESERVEASPECTRATIO_XMINYMID = 5+pattern SVG_PRESERVEASPECTRATIO_XMIDYMID = 6+pattern SVG_PRESERVEASPECTRATIO_XMAXYMID = 7+pattern SVG_PRESERVEASPECTRATIO_XMINYMAX = 8+pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX = 9+pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX = 10+pattern SVG_MEETORSLICE_UNKNOWN = 0+pattern SVG_MEETORSLICE_MEET = 1+pattern SVG_MEETORSLICE_SLICE = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.align Mozilla SVGPreserveAspectRatio.align documentation> +setAlign :: (MonadDOM m) => SVGPreserveAspectRatio -> Word -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.align Mozilla SVGPreserveAspectRatio.align documentation> +getAlign :: (MonadDOM m) => SVGPreserveAspectRatio -> m Word+getAlign self+  = liftDOM (round <$> ((self ^. js "align") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.meetOrSlice Mozilla SVGPreserveAspectRatio.meetOrSlice documentation> +setMeetOrSlice ::+               (MonadDOM m) => SVGPreserveAspectRatio -> Word -> m ()+setMeetOrSlice self val+  = liftDOM (self ^. jss "meetOrSlice" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.meetOrSlice Mozilla SVGPreserveAspectRatio.meetOrSlice documentation> +getMeetOrSlice :: (MonadDOM m) => SVGPreserveAspectRatio -> m Word+getMeetOrSlice self+  = liftDOM (round <$> ((self ^. js "meetOrSlice") >>= valToNumber))
+ src/JSDOM/Generated/SVGRadialGradientElement.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGRadialGradientElement+       (getCx, getCy, getR, getFx, getFy, getFr, SVGRadialGradientElement,+        castToSVGRadialGradientElement, gTypeSVGRadialGradientElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cx Mozilla SVGRadialGradientElement.cx documentation> +getCx ::+      (MonadDOM m) =>+        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)+getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cy Mozilla SVGRadialGradientElement.cy documentation> +getCy ::+      (MonadDOM m) =>+        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)+getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.r Mozilla SVGRadialGradientElement.r documentation> +getR ::+     (MonadDOM m) =>+       SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)+getR self = liftDOM ((self ^. js "r") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fx Mozilla SVGRadialGradientElement.fx documentation> +getFx ::+      (MonadDOM m) =>+        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)+getFx self = liftDOM ((self ^. js "fx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fy Mozilla SVGRadialGradientElement.fy documentation> +getFy ::+      (MonadDOM m) =>+        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)+getFy self = liftDOM ((self ^. js "fy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fr Mozilla SVGRadialGradientElement.fr documentation> +getFr ::+      (MonadDOM m) =>+        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)+getFr self = liftDOM ((self ^. js "fr") >>= fromJSVal)
+ src/JSDOM/Generated/SVGRect.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGRect+       (setX, getX, setY, getY, setWidth, getWidth, setHeight, getHeight,+        SVGRect, castToSVGRect, gTypeSVGRect)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.x Mozilla SVGRect.x documentation> +setX :: (MonadDOM m) => SVGRect -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.x Mozilla SVGRect.x documentation> +getX :: (MonadDOM m) => SVGRect -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.y Mozilla SVGRect.y documentation> +setY :: (MonadDOM m) => SVGRect -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.y Mozilla SVGRect.y documentation> +getY :: (MonadDOM m) => SVGRect -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.width Mozilla SVGRect.width documentation> +setWidth :: (MonadDOM m) => SVGRect -> Float -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.width Mozilla SVGRect.width documentation> +getWidth :: (MonadDOM m) => SVGRect -> m Float+getWidth self+  = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.height Mozilla SVGRect.height documentation> +setHeight :: (MonadDOM m) => SVGRect -> Float -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.height Mozilla SVGRect.height documentation> +getHeight :: (MonadDOM m) => SVGRect -> m Float+getHeight self+  = liftDOM (realToFrac <$> ((self ^. js "height") >>= valToNumber))
+ src/JSDOM/Generated/SVGRectElement.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGRectElement+       (getX, getY, getWidth, getHeight, getRx, getRy, SVGRectElement,+        castToSVGRectElement, gTypeSVGRectElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.x Mozilla SVGRectElement.x documentation> +getX ::+     (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.y Mozilla SVGRectElement.y documentation> +getY ::+     (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.width Mozilla SVGRectElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.height Mozilla SVGRectElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.rx Mozilla SVGRectElement.rx documentation> +getRx ::+      (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)+getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.ry Mozilla SVGRectElement.ry documentation> +getRy ::+      (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)+getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal)
+ src/JSDOM/Generated/SVGRenderingIntent.hs view
@@ -0,0 +1,26 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGRenderingIntent+       (pattern RENDERING_INTENT_UNKNOWN, pattern RENDERING_INTENT_AUTO,+        pattern RENDERING_INTENT_PERCEPTUAL,+        pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC,+        pattern RENDERING_INTENT_SATURATION,+        pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC, SVGRenderingIntent,+        castToSVGRenderingIntent, gTypeSVGRenderingIntent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern RENDERING_INTENT_UNKNOWN = 0+pattern RENDERING_INTENT_AUTO = 1+pattern RENDERING_INTENT_PERCEPTUAL = 2+pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC = 3+pattern RENDERING_INTENT_SATURATION = 4+pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC = 5
+ src/JSDOM/Generated/SVGSVGElement.hs view
@@ -0,0 +1,287 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGSVGElement+       (suspendRedraw, unsuspendRedraw, unsuspendRedrawAll, forceRedraw,+        pauseAnimations, unpauseAnimations, animationsPaused,+        getCurrentTime, setCurrentTime, getIntersectionList,+        getEnclosureList, checkIntersection, checkEnclosure, deselectAll,+        createSVGNumber, createSVGLength, createSVGAngle, createSVGPoint,+        createSVGMatrix, createSVGRect, createSVGTransform,+        createSVGTransformFromMatrix, getElementById, getX, getY, getWidth,+        getHeight, setContentScriptType, getContentScriptType,+        setContentStyleType, getContentStyleType, getViewport,+        getPixelUnitToMillimeterX, getPixelUnitToMillimeterY,+        getScreenPixelToMillimeterX, getScreenPixelToMillimeterY,+        getUseCurrentView, getCurrentView, setCurrentScale,+        getCurrentScale, getCurrentTranslate, SVGSVGElement,+        castToSVGSVGElement, gTypeSVGSVGElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.suspendRedraw Mozilla SVGSVGElement.suspendRedraw documentation> +suspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m Word+suspendRedraw self maxWaitMilliseconds+  = liftDOM+      (round <$>+         ((self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.unsuspendRedraw Mozilla SVGSVGElement.unsuspendRedraw documentation> +unsuspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m ()+unsuspendRedraw self suspendHandleId+  = liftDOM+      (void (self ^. jsf "unsuspendRedraw" [toJSVal suspendHandleId]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.unsuspendRedrawAll Mozilla SVGSVGElement.unsuspendRedrawAll documentation> +unsuspendRedrawAll :: (MonadDOM m) => SVGSVGElement -> m ()+unsuspendRedrawAll self+  = liftDOM (void (self ^. js "unsuspendRedrawAll"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.forceRedraw Mozilla SVGSVGElement.forceRedraw documentation> +forceRedraw :: (MonadDOM m) => SVGSVGElement -> m ()+forceRedraw self = liftDOM (void (self ^. js "forceRedraw"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.pauseAnimations Mozilla SVGSVGElement.pauseAnimations documentation> +pauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()+pauseAnimations self+  = liftDOM (void (self ^. js "pauseAnimations"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.unpauseAnimations Mozilla SVGSVGElement.unpauseAnimations documentation> +unpauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()+unpauseAnimations self+  = liftDOM (void (self ^. js "unpauseAnimations"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.animationsPaused Mozilla SVGSVGElement.animationsPaused documentation> +animationsPaused :: (MonadDOM m) => SVGSVGElement -> m Bool+animationsPaused self+  = liftDOM ((self ^. js "animationsPaused") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getCurrentTime Mozilla SVGSVGElement.getCurrentTime documentation> +getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float+getCurrentTime self+  = liftDOM+      (realToFrac <$> ((self ^. js "getCurrentTime") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.setCurrentTime Mozilla SVGSVGElement.setCurrentTime documentation> +setCurrentTime :: (MonadDOM m) => SVGSVGElement -> Float -> m ()+setCurrentTime self seconds+  = liftDOM (void (self ^. jsf "setCurrentTime" [toJSVal seconds]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getIntersectionList Mozilla SVGSVGElement.getIntersectionList documentation> +getIntersectionList ::+                    (MonadDOM m, IsSVGElement referenceElement) =>+                      SVGSVGElement ->+                        Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList)+getIntersectionList self rect referenceElement+  = liftDOM+      ((self ^. jsf "getIntersectionList"+          [toJSVal rect, toJSVal referenceElement])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getEnclosureList Mozilla SVGSVGElement.getEnclosureList documentation> +getEnclosureList ::+                 (MonadDOM m, IsSVGElement referenceElement) =>+                   SVGSVGElement ->+                     Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList)+getEnclosureList self rect referenceElement+  = liftDOM+      ((self ^. jsf "getEnclosureList"+          [toJSVal rect, toJSVal referenceElement])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.checkIntersection Mozilla SVGSVGElement.checkIntersection documentation> +checkIntersection ::+                  (MonadDOM m, IsSVGElement element) =>+                    SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool+checkIntersection self element rect+  = liftDOM+      ((self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.checkEnclosure Mozilla SVGSVGElement.checkEnclosure documentation> +checkEnclosure ::+               (MonadDOM m, IsSVGElement element) =>+                 SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool+checkEnclosure self element rect+  = liftDOM+      ((self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]) >>=+         valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.deselectAll Mozilla SVGSVGElement.deselectAll documentation> +deselectAll :: (MonadDOM m) => SVGSVGElement -> m ()+deselectAll self = liftDOM (void (self ^. js "deselectAll"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGNumber Mozilla SVGSVGElement.createSVGNumber documentation> +createSVGNumber ::+                (MonadDOM m) => SVGSVGElement -> m (Maybe SVGNumber)+createSVGNumber self+  = liftDOM ((self ^. js "createSVGNumber") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGLength Mozilla SVGSVGElement.createSVGLength documentation> +createSVGLength ::+                (MonadDOM m) => SVGSVGElement -> m (Maybe SVGLength)+createSVGLength self+  = liftDOM ((self ^. js "createSVGLength") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGAngle Mozilla SVGSVGElement.createSVGAngle documentation> +createSVGAngle ::+               (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAngle)+createSVGAngle self+  = liftDOM ((self ^. js "createSVGAngle") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGPoint Mozilla SVGSVGElement.createSVGPoint documentation> +createSVGPoint ::+               (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint)+createSVGPoint self+  = liftDOM ((self ^. js "createSVGPoint") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGMatrix Mozilla SVGSVGElement.createSVGMatrix documentation> +createSVGMatrix ::+                (MonadDOM m) => SVGSVGElement -> m (Maybe SVGMatrix)+createSVGMatrix self+  = liftDOM ((self ^. js "createSVGMatrix") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGRect Mozilla SVGSVGElement.createSVGRect documentation> +createSVGRect :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect)+createSVGRect self+  = liftDOM ((self ^. js "createSVGRect") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransform Mozilla SVGSVGElement.createSVGTransform documentation> +createSVGTransform ::+                   (MonadDOM m) => SVGSVGElement -> m (Maybe SVGTransform)+createSVGTransform self+  = liftDOM ((self ^. js "createSVGTransform") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransformFromMatrix Mozilla SVGSVGElement.createSVGTransformFromMatrix documentation> +createSVGTransformFromMatrix ::+                             (MonadDOM m) =>+                               SVGSVGElement -> Maybe SVGMatrix -> m (Maybe SVGTransform)+createSVGTransformFromMatrix self matrix+  = liftDOM+      ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getElementById Mozilla SVGSVGElement.getElementById documentation> +getElementById ::+               (MonadDOM m, ToJSString elementId) =>+                 SVGSVGElement -> elementId -> m (Maybe Element)+getElementById self elementId+  = liftDOM+      ((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.x Mozilla SVGSVGElement.x documentation> +getX ::+     (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.y Mozilla SVGSVGElement.y documentation> +getY ::+     (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.width Mozilla SVGSVGElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.height Mozilla SVGSVGElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentScriptType Mozilla SVGSVGElement.contentScriptType documentation> +setContentScriptType ::+                     (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()+setContentScriptType self val+  = liftDOM (self ^. jss "contentScriptType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentScriptType Mozilla SVGSVGElement.contentScriptType documentation> +getContentScriptType ::+                     (MonadDOM m, FromJSString result) => SVGSVGElement -> m result+getContentScriptType self+  = liftDOM ((self ^. js "contentScriptType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentStyleType Mozilla SVGSVGElement.contentStyleType documentation> +setContentStyleType ::+                    (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()+setContentStyleType self val+  = liftDOM (self ^. jss "contentStyleType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentStyleType Mozilla SVGSVGElement.contentStyleType documentation> +getContentStyleType ::+                    (MonadDOM m, FromJSString result) => SVGSVGElement -> m result+getContentStyleType self+  = liftDOM ((self ^. js "contentStyleType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.viewport Mozilla SVGSVGElement.viewport documentation> +getViewport :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect)+getViewport self = liftDOM ((self ^. js "viewport") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.pixelUnitToMillimeterX Mozilla SVGSVGElement.pixelUnitToMillimeterX documentation> +getPixelUnitToMillimeterX ::+                          (MonadDOM m) => SVGSVGElement -> m Float+getPixelUnitToMillimeterX self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "pixelUnitToMillimeterX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.pixelUnitToMillimeterY Mozilla SVGSVGElement.pixelUnitToMillimeterY documentation> +getPixelUnitToMillimeterY ::+                          (MonadDOM m) => SVGSVGElement -> m Float+getPixelUnitToMillimeterY self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "pixelUnitToMillimeterY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.screenPixelToMillimeterX Mozilla SVGSVGElement.screenPixelToMillimeterX documentation> +getScreenPixelToMillimeterX ::+                            (MonadDOM m) => SVGSVGElement -> m Float+getScreenPixelToMillimeterX self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "screenPixelToMillimeterX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.screenPixelToMillimeterY Mozilla SVGSVGElement.screenPixelToMillimeterY documentation> +getScreenPixelToMillimeterY ::+                            (MonadDOM m) => SVGSVGElement -> m Float+getScreenPixelToMillimeterY self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "screenPixelToMillimeterY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.useCurrentView Mozilla SVGSVGElement.useCurrentView documentation> +getUseCurrentView :: (MonadDOM m) => SVGSVGElement -> m Bool+getUseCurrentView self+  = liftDOM ((self ^. js "useCurrentView") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentView Mozilla SVGSVGElement.currentView documentation> +getCurrentView ::+               (MonadDOM m) => SVGSVGElement -> m (Maybe SVGViewSpec)+getCurrentView self+  = liftDOM ((self ^. js "currentView") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentScale Mozilla SVGSVGElement.currentScale documentation> +setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m ()+setCurrentScale self val+  = liftDOM (self ^. jss "currentScale" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentScale Mozilla SVGSVGElement.currentScale documentation> +getCurrentScale :: (MonadDOM m) => SVGSVGElement -> m Float+getCurrentScale self+  = liftDOM+      (realToFrac <$> ((self ^. js "currentScale") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentTranslate Mozilla SVGSVGElement.currentTranslate documentation> +getCurrentTranslate ::+                    (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint)+getCurrentTranslate self+  = liftDOM ((self ^. js "currentTranslate") >>= fromJSVal)
+ src/JSDOM/Generated/SVGScriptElement.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGScriptElement+       (setType, getType, SVGScriptElement, castToSVGScriptElement,+        gTypeSVGScriptElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) =>+          SVGScriptElement -> Maybe val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) =>+          SVGScriptElement -> m (Maybe result)+getType self = liftDOM ((self ^. js "type") >>= fromMaybeJSString)
+ src/JSDOM/Generated/SVGStopElement.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGStopElement+       (getOffset, SVGStopElement, castToSVGStopElement,+        gTypeSVGStopElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStopElement.offset Mozilla SVGStopElement.offset documentation> +getOffset ::+          (MonadDOM m) => SVGStopElement -> m (Maybe SVGAnimatedNumber)+getOffset self = liftDOM ((self ^. js "offset") >>= fromJSVal)
+ src/JSDOM/Generated/SVGStringList.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGStringList+       (clear, initialize, getItem, insertItemBefore, replaceItem,+        removeItem, appendItem, getNumberOfItems, SVGStringList,+        castToSVGStringList, gTypeSVGStringList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.clear Mozilla SVGStringList.clear documentation> +clear :: (MonadDOM m) => SVGStringList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.initialize Mozilla SVGStringList.initialize documentation> +initialize ::+           (MonadDOM m, ToJSString item, FromJSString result) =>+             SVGStringList -> item -> m result+initialize self item+  = liftDOM+      ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.getItem Mozilla SVGStringList.getItem documentation> +getItem ::+        (MonadDOM m, FromJSString result) =>+          SVGStringList -> Word -> m result+getItem self index+  = liftDOM+      ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.insertItemBefore Mozilla SVGStringList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadDOM m, ToJSString item, FromJSString result) =>+                   SVGStringList -> item -> Word -> m result+insertItemBefore self item index+  = liftDOM+      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.replaceItem Mozilla SVGStringList.replaceItem documentation> +replaceItem ::+            (MonadDOM m, ToJSString item, FromJSString result) =>+              SVGStringList -> item -> Word -> m result+replaceItem self item index+  = liftDOM+      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.removeItem Mozilla SVGStringList.removeItem documentation> +removeItem ::+           (MonadDOM m, FromJSString result) =>+             SVGStringList -> Word -> m result+removeItem self index+  = liftDOM+      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.appendItem Mozilla SVGStringList.appendItem documentation> +appendItem ::+           (MonadDOM m, ToJSString item, FromJSString result) =>+             SVGStringList -> item -> m result+appendItem self item+  = liftDOM+      ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.numberOfItems Mozilla SVGStringList.numberOfItems documentation> +getNumberOfItems :: (MonadDOM m) => SVGStringList -> m Word+getNumberOfItems self+  = liftDOM+      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
+ src/JSDOM/Generated/SVGStyleElement.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGStyleElement+       (setDisabled, getDisabled, setType, getType, setMedia, getMedia,+        setTitle, getTitle, SVGStyleElement, castToSVGStyleElement,+        gTypeSVGStyleElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.disabled Mozilla SVGStyleElement.disabled documentation> +setDisabled :: (MonadDOM m) => SVGStyleElement -> Bool -> m ()+setDisabled self val+  = liftDOM (self ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.disabled Mozilla SVGStyleElement.disabled documentation> +getDisabled :: (MonadDOM m) => SVGStyleElement -> m Bool+getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.type Mozilla SVGStyleElement.type documentation> +setType ::+        (MonadDOM m, ToJSString val) => SVGStyleElement -> val -> m ()+setType self val = liftDOM (self ^. jss "type" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.type Mozilla SVGStyleElement.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => SVGStyleElement -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.media Mozilla SVGStyleElement.media documentation> +setMedia ::+         (MonadDOM m, ToJSString val) => SVGStyleElement -> val -> m ()+setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.media Mozilla SVGStyleElement.media documentation> +getMedia ::+         (MonadDOM m, FromJSString result) => SVGStyleElement -> m result+getMedia self+  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.title Mozilla SVGStyleElement.title documentation> +setTitle ::+         (MonadDOM m, ToJSString val) => SVGStyleElement -> val -> m ()+setTitle self val = liftDOM (self ^. jss "title" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.title Mozilla SVGStyleElement.title documentation> +getTitle ::+         (MonadDOM m, FromJSString result) => SVGStyleElement -> m result+getTitle self+  = liftDOM ((self ^. js "title") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SVGTests.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGTests+       (hasExtension, getRequiredFeatures, getRequiredExtensions,+        getSystemLanguage, SVGTests, castToSVGTests, gTypeSVGTests)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.hasExtension Mozilla SVGTests.hasExtension documentation> +hasExtension ::+             (MonadDOM m, ToJSString extension) =>+               SVGTests -> extension -> m Bool+hasExtension self extension+  = liftDOM+      ((self ^. jsf "hasExtension" [toJSVal extension]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.requiredFeatures Mozilla SVGTests.requiredFeatures documentation> +getRequiredFeatures ::+                    (MonadDOM m) => SVGTests -> m (Maybe SVGStringList)+getRequiredFeatures self+  = liftDOM ((self ^. js "requiredFeatures") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.requiredExtensions Mozilla SVGTests.requiredExtensions documentation> +getRequiredExtensions ::+                      (MonadDOM m) => SVGTests -> m (Maybe SVGStringList)+getRequiredExtensions self+  = liftDOM ((self ^. js "requiredExtensions") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.systemLanguage Mozilla SVGTests.systemLanguage documentation> +getSystemLanguage ::+                  (MonadDOM m) => SVGTests -> m (Maybe SVGStringList)+getSystemLanguage self+  = liftDOM ((self ^. js "systemLanguage") >>= fromJSVal)
+ src/JSDOM/Generated/SVGTextContentElement.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGTextContentElement+       (getNumberOfChars, getComputedTextLength, getSubStringLength,+        getStartPositionOfChar, getEndPositionOfChar, getExtentOfChar,+        getRotationOfChar, getCharNumAtPosition, selectSubString,+        pattern LENGTHADJUST_UNKNOWN, pattern LENGTHADJUST_SPACING,+        pattern LENGTHADJUST_SPACINGANDGLYPHS, getTextLength,+        getLengthAdjust, SVGTextContentElement,+        castToSVGTextContentElement, gTypeSVGTextContentElement,+        IsSVGTextContentElement, toSVGTextContentElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getNumberOfChars Mozilla SVGTextContentElement.getNumberOfChars documentation> +getNumberOfChars ::+                 (MonadDOM m, IsSVGTextContentElement self) => self -> m Int+getNumberOfChars self+  = liftDOM+      (round <$>+         (((toSVGTextContentElement self) ^. js "getNumberOfChars") >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getComputedTextLength Mozilla SVGTextContentElement.getComputedTextLength documentation> +getComputedTextLength ::+                      (MonadDOM m, IsSVGTextContentElement self) => self -> m Float+getComputedTextLength self+  = liftDOM+      (realToFrac <$>+         (((toSVGTextContentElement self) ^. js "getComputedTextLength") >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getSubStringLength Mozilla SVGTextContentElement.getSubStringLength documentation> +getSubStringLength ::+                   (MonadDOM m, IsSVGTextContentElement self) =>+                     self -> Word -> Word -> m Float+getSubStringLength self offset length+  = liftDOM+      (realToFrac <$>+         (((toSVGTextContentElement self) ^. jsf "getSubStringLength"+             [toJSVal offset, toJSVal length])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getStartPositionOfChar Mozilla SVGTextContentElement.getStartPositionOfChar documentation> +getStartPositionOfChar ::+                       (MonadDOM m, IsSVGTextContentElement self) =>+                         self -> Word -> m (Maybe SVGPoint)+getStartPositionOfChar self offset+  = liftDOM+      (((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar"+          [toJSVal offset])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getEndPositionOfChar Mozilla SVGTextContentElement.getEndPositionOfChar documentation> +getEndPositionOfChar ::+                     (MonadDOM m, IsSVGTextContentElement self) =>+                       self -> Word -> m (Maybe SVGPoint)+getEndPositionOfChar self offset+  = liftDOM+      (((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar"+          [toJSVal offset])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getExtentOfChar Mozilla SVGTextContentElement.getExtentOfChar documentation> +getExtentOfChar ::+                (MonadDOM m, IsSVGTextContentElement self) =>+                  self -> Word -> m (Maybe SVGRect)+getExtentOfChar self offset+  = liftDOM+      (((toSVGTextContentElement self) ^. jsf "getExtentOfChar"+          [toJSVal offset])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getRotationOfChar Mozilla SVGTextContentElement.getRotationOfChar documentation> +getRotationOfChar ::+                  (MonadDOM m, IsSVGTextContentElement self) =>+                    self -> Word -> m Float+getRotationOfChar self offset+  = liftDOM+      (realToFrac <$>+         (((toSVGTextContentElement self) ^. jsf "getRotationOfChar"+             [toJSVal offset])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getCharNumAtPosition Mozilla SVGTextContentElement.getCharNumAtPosition documentation> +getCharNumAtPosition ::+                     (MonadDOM m, IsSVGTextContentElement self) =>+                       self -> Maybe SVGPoint -> m Int+getCharNumAtPosition self point+  = liftDOM+      (round <$>+         (((toSVGTextContentElement self) ^. jsf "getCharNumAtPosition"+             [toJSVal point])+            >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.selectSubString Mozilla SVGTextContentElement.selectSubString documentation> +selectSubString ::+                (MonadDOM m, IsSVGTextContentElement self) =>+                  self -> Word -> Word -> m ()+selectSubString self offset length+  = liftDOM+      (void+         ((toSVGTextContentElement self) ^. jsf "selectSubString"+            [toJSVal offset, toJSVal length]))+pattern LENGTHADJUST_UNKNOWN = 0+pattern LENGTHADJUST_SPACING = 1+pattern LENGTHADJUST_SPACINGANDGLYPHS = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.textLength Mozilla SVGTextContentElement.textLength documentation> +getTextLength ::+              (MonadDOM m, IsSVGTextContentElement self) =>+                self -> m (Maybe SVGAnimatedLength)+getTextLength self+  = liftDOM+      (((toSVGTextContentElement self) ^. js "textLength") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.lengthAdjust Mozilla SVGTextContentElement.lengthAdjust documentation> +getLengthAdjust ::+                (MonadDOM m, IsSVGTextContentElement self) =>+                  self -> m (Maybe SVGAnimatedEnumeration)+getLengthAdjust self+  = liftDOM+      (((toSVGTextContentElement self) ^. js "lengthAdjust") >>=+         fromJSVal)
+ src/JSDOM/Generated/SVGTextPathElement.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGTextPathElement+       (pattern TEXTPATH_METHODTYPE_UNKNOWN,+        pattern TEXTPATH_METHODTYPE_ALIGN,+        pattern TEXTPATH_METHODTYPE_STRETCH,+        pattern TEXTPATH_SPACINGTYPE_UNKNOWN,+        pattern TEXTPATH_SPACINGTYPE_AUTO,+        pattern TEXTPATH_SPACINGTYPE_EXACT, getStartOffset, getMethod,+        getSpacing, SVGTextPathElement, castToSVGTextPathElement,+        gTypeSVGTextPathElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern TEXTPATH_METHODTYPE_UNKNOWN = 0+pattern TEXTPATH_METHODTYPE_ALIGN = 1+pattern TEXTPATH_METHODTYPE_STRETCH = 2+pattern TEXTPATH_SPACINGTYPE_UNKNOWN = 0+pattern TEXTPATH_SPACINGTYPE_AUTO = 1+pattern TEXTPATH_SPACINGTYPE_EXACT = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement.startOffset Mozilla SVGTextPathElement.startOffset documentation> +getStartOffset ::+               (MonadDOM m) => SVGTextPathElement -> m (Maybe SVGAnimatedLength)+getStartOffset self+  = liftDOM ((self ^. js "startOffset") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement.method Mozilla SVGTextPathElement.method documentation> +getMethod ::+          (MonadDOM m) =>+            SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration)+getMethod self = liftDOM ((self ^. js "method") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement.spacing Mozilla SVGTextPathElement.spacing documentation> +getSpacing ::+           (MonadDOM m) =>+             SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration)+getSpacing self = liftDOM ((self ^. js "spacing") >>= fromJSVal)
+ src/JSDOM/Generated/SVGTextPositioningElement.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGTextPositioningElement+       (getX, getY, getDx, getDy, getRotate, SVGTextPositioningElement,+        castToSVGTextPositioningElement, gTypeSVGTextPositioningElement,+        IsSVGTextPositioningElement, toSVGTextPositioningElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.x Mozilla SVGTextPositioningElement.x documentation> +getX ::+     (MonadDOM m, IsSVGTextPositioningElement self) =>+       self -> m (Maybe SVGAnimatedLengthList)+getX self+  = liftDOM+      (((toSVGTextPositioningElement self) ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.y Mozilla SVGTextPositioningElement.y documentation> +getY ::+     (MonadDOM m, IsSVGTextPositioningElement self) =>+       self -> m (Maybe SVGAnimatedLengthList)+getY self+  = liftDOM+      (((toSVGTextPositioningElement self) ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.dx Mozilla SVGTextPositioningElement.dx documentation> +getDx ::+      (MonadDOM m, IsSVGTextPositioningElement self) =>+        self -> m (Maybe SVGAnimatedLengthList)+getDx self+  = liftDOM+      (((toSVGTextPositioningElement self) ^. js "dx") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.dy Mozilla SVGTextPositioningElement.dy documentation> +getDy ::+      (MonadDOM m, IsSVGTextPositioningElement self) =>+        self -> m (Maybe SVGAnimatedLengthList)+getDy self+  = liftDOM+      (((toSVGTextPositioningElement self) ^. js "dy") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.rotate Mozilla SVGTextPositioningElement.rotate documentation> +getRotate ::+          (MonadDOM m, IsSVGTextPositioningElement self) =>+            self -> m (Maybe SVGAnimatedNumberList)+getRotate self+  = liftDOM+      (((toSVGTextPositioningElement self) ^. js "rotate") >>= fromJSVal)
+ src/JSDOM/Generated/SVGTransform.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGTransform+       (setMatrix, setTranslate, setScale, setRotate, setSkewX, setSkewY,+        pattern SVG_TRANSFORM_UNKNOWN, pattern SVG_TRANSFORM_MATRIX,+        pattern SVG_TRANSFORM_TRANSLATE, pattern SVG_TRANSFORM_SCALE,+        pattern SVG_TRANSFORM_ROTATE, pattern SVG_TRANSFORM_SKEWX,+        pattern SVG_TRANSFORM_SKEWY, getType, getMatrix, getAngle,+        SVGTransform, castToSVGTransform, gTypeSVGTransform)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setMatrix Mozilla SVGTransform.setMatrix documentation> +setMatrix ::+          (MonadDOM m) => SVGTransform -> Maybe SVGMatrix -> m ()+setMatrix self matrix+  = liftDOM (void (self ^. jsf "setMatrix" [toJSVal matrix]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setTranslate Mozilla SVGTransform.setTranslate documentation> +setTranslate ::+             (MonadDOM m) => SVGTransform -> Float -> Float -> m ()+setTranslate self tx ty+  = liftDOM+      (void (self ^. jsf "setTranslate" [toJSVal tx, toJSVal ty]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setScale Mozilla SVGTransform.setScale documentation> +setScale :: (MonadDOM m) => SVGTransform -> Float -> Float -> m ()+setScale self sx sy+  = liftDOM (void (self ^. jsf "setScale" [toJSVal sx, toJSVal sy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setRotate Mozilla SVGTransform.setRotate documentation> +setRotate ::+          (MonadDOM m) => SVGTransform -> Float -> Float -> Float -> m ()+setRotate self angle cx cy+  = liftDOM+      (void+         (self ^. jsf "setRotate" [toJSVal angle, toJSVal cx, toJSVal cy]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setSkewX Mozilla SVGTransform.setSkewX documentation> +setSkewX :: (MonadDOM m) => SVGTransform -> Float -> m ()+setSkewX self angle+  = liftDOM (void (self ^. jsf "setSkewX" [toJSVal angle]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setSkewY Mozilla SVGTransform.setSkewY documentation> +setSkewY :: (MonadDOM m) => SVGTransform -> Float -> m ()+setSkewY self angle+  = liftDOM (void (self ^. jsf "setSkewY" [toJSVal angle]))+pattern SVG_TRANSFORM_UNKNOWN = 0+pattern SVG_TRANSFORM_MATRIX = 1+pattern SVG_TRANSFORM_TRANSLATE = 2+pattern SVG_TRANSFORM_SCALE = 3+pattern SVG_TRANSFORM_ROTATE = 4+pattern SVG_TRANSFORM_SKEWX = 5+pattern SVG_TRANSFORM_SKEWY = 6++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.type Mozilla SVGTransform.type documentation> +getType :: (MonadDOM m) => SVGTransform -> m Word+getType self+  = liftDOM (round <$> ((self ^. js "type") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.matrix Mozilla SVGTransform.matrix documentation> +getMatrix :: (MonadDOM m) => SVGTransform -> m (Maybe SVGMatrix)+getMatrix self = liftDOM ((self ^. js "matrix") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.angle Mozilla SVGTransform.angle documentation> +getAngle :: (MonadDOM m) => SVGTransform -> m Float+getAngle self+  = liftDOM (realToFrac <$> ((self ^. js "angle") >>= valToNumber))
+ src/JSDOM/Generated/SVGTransformList.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGTransformList+       (clear, initialize, getItem, insertItemBefore, replaceItem,+        removeItem, appendItem, createSVGTransformFromMatrix, consolidate,+        getNumberOfItems, SVGTransformList, castToSVGTransformList,+        gTypeSVGTransformList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.clear Mozilla SVGTransformList.clear documentation> +clear :: (MonadDOM m) => SVGTransformList -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.initialize Mozilla SVGTransformList.initialize documentation> +initialize ::+           (MonadDOM m) =>+             SVGTransformList -> Maybe SVGTransform -> m (Maybe SVGTransform)+initialize self item+  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.getItem Mozilla SVGTransformList.getItem documentation> +getItem ::+        (MonadDOM m) => SVGTransformList -> Word -> m (Maybe SVGTransform)+getItem self index+  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.insertItemBefore Mozilla SVGTransformList.insertItemBefore documentation> +insertItemBefore ::+                 (MonadDOM m) =>+                   SVGTransformList ->+                     Maybe SVGTransform -> Word -> m (Maybe SVGTransform)+insertItemBefore self item index+  = liftDOM+      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.replaceItem Mozilla SVGTransformList.replaceItem documentation> +replaceItem ::+            (MonadDOM m) =>+              SVGTransformList ->+                Maybe SVGTransform -> Word -> m (Maybe SVGTransform)+replaceItem self item index+  = liftDOM+      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.removeItem Mozilla SVGTransformList.removeItem documentation> +removeItem ::+           (MonadDOM m) => SVGTransformList -> Word -> m (Maybe SVGTransform)+removeItem self index+  = liftDOM+      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.appendItem Mozilla SVGTransformList.appendItem documentation> +appendItem ::+           (MonadDOM m) =>+             SVGTransformList -> Maybe SVGTransform -> m (Maybe SVGTransform)+appendItem self item+  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.createSVGTransformFromMatrix Mozilla SVGTransformList.createSVGTransformFromMatrix documentation> +createSVGTransformFromMatrix ::+                             (MonadDOM m) =>+                               SVGTransformList -> Maybe SVGMatrix -> m (Maybe SVGTransform)+createSVGTransformFromMatrix self matrix+  = liftDOM+      ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.consolidate Mozilla SVGTransformList.consolidate documentation> +consolidate ::+            (MonadDOM m) => SVGTransformList -> m (Maybe SVGTransform)+consolidate self+  = liftDOM ((self ^. js "consolidate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.numberOfItems Mozilla SVGTransformList.numberOfItems documentation> +getNumberOfItems :: (MonadDOM m) => SVGTransformList -> m Word+getNumberOfItems self+  = liftDOM+      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
+ src/JSDOM/Generated/SVGURIReference.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGURIReference+       (getHref, SVGURIReference, castToSVGURIReference,+        gTypeSVGURIReference)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGURIReference.href Mozilla SVGURIReference.href documentation> +getHref ::+        (MonadDOM m) => SVGURIReference -> m (Maybe SVGAnimatedString)+getHref self = liftDOM ((self ^. js "href") >>= fromJSVal)
+ src/JSDOM/Generated/SVGUnitTypes.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGUnitTypes+       (pattern SVG_UNIT_TYPE_UNKNOWN,+        pattern SVG_UNIT_TYPE_USERSPACEONUSE,+        pattern SVG_UNIT_TYPE_OBJECTBOUNDINGBOX, SVGUnitTypes,+        castToSVGUnitTypes, gTypeSVGUnitTypes)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_UNIT_TYPE_UNKNOWN = 0+pattern SVG_UNIT_TYPE_USERSPACEONUSE = 1+pattern SVG_UNIT_TYPE_OBJECTBOUNDINGBOX = 2
+ src/JSDOM/Generated/SVGUseElement.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGUseElement+       (getX, getY, getWidth, getHeight, SVGUseElement,+        castToSVGUseElement, gTypeSVGUseElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.x Mozilla SVGUseElement.x documentation> +getX ::+     (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)+getX self = liftDOM ((self ^. js "x") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.y Mozilla SVGUseElement.y documentation> +getY ::+     (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)+getY self = liftDOM ((self ^. js "y") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.width Mozilla SVGUseElement.width documentation> +getWidth ::+         (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)+getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.height Mozilla SVGUseElement.height documentation> +getHeight ::+          (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)+getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
+ src/JSDOM/Generated/SVGViewElement.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGViewElement+       (getViewTarget, SVGViewElement, castToSVGViewElement,+        gTypeSVGViewElement)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewElement.viewTarget Mozilla SVGViewElement.viewTarget documentation> +getViewTarget ::+              (MonadDOM m) => SVGViewElement -> m (Maybe SVGStringList)+getViewTarget self+  = liftDOM ((self ^. js "viewTarget") >>= fromJSVal)
+ src/JSDOM/Generated/SVGViewSpec.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGViewSpec+       (getTransform, getViewTarget, getViewBoxString,+        getPreserveAspectRatioString, getTransformString,+        getViewTargetString, setZoomAndPan, getZoomAndPan, SVGViewSpec,+        castToSVGViewSpec, gTypeSVGViewSpec)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.transform Mozilla SVGViewSpec.transform documentation> +getTransform ::+             (MonadDOM m) => SVGViewSpec -> m (Maybe SVGTransformList)+getTransform self+  = liftDOM ((self ^. js "transform") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.viewTarget Mozilla SVGViewSpec.viewTarget documentation> +getViewTarget ::+              (MonadDOM m) => SVGViewSpec -> m (Maybe SVGElement)+getViewTarget self+  = liftDOM ((self ^. js "viewTarget") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.viewBoxString Mozilla SVGViewSpec.viewBoxString documentation> +getViewBoxString ::+                 (MonadDOM m, FromJSString result) => SVGViewSpec -> m result+getViewBoxString self+  = liftDOM ((self ^. js "viewBoxString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.preserveAspectRatioString Mozilla SVGViewSpec.preserveAspectRatioString documentation> +getPreserveAspectRatioString ::+                             (MonadDOM m, FromJSString result) => SVGViewSpec -> m result+getPreserveAspectRatioString self+  = liftDOM+      ((self ^. js "preserveAspectRatioString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.transformString Mozilla SVGViewSpec.transformString documentation> +getTransformString ::+                   (MonadDOM m, FromJSString result) => SVGViewSpec -> m result+getTransformString self+  = liftDOM ((self ^. js "transformString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.viewTargetString Mozilla SVGViewSpec.viewTargetString documentation> +getViewTargetString ::+                    (MonadDOM m, FromJSString result) => SVGViewSpec -> m result+getViewTargetString self+  = liftDOM ((self ^. js "viewTargetString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.zoomAndPan Mozilla SVGViewSpec.zoomAndPan documentation> +setZoomAndPan :: (MonadDOM m) => SVGViewSpec -> Word -> m ()+setZoomAndPan self val+  = liftDOM (self ^. jss "zoomAndPan" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.zoomAndPan Mozilla SVGViewSpec.zoomAndPan documentation> +getZoomAndPan :: (MonadDOM m) => SVGViewSpec -> m Word+getZoomAndPan self+  = liftDOM (round <$> ((self ^. js "zoomAndPan") >>= valToNumber))
+ src/JSDOM/Generated/SVGZoomAndPan.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGZoomAndPan+       (pattern SVG_ZOOMANDPAN_UNKNOWN, pattern SVG_ZOOMANDPAN_DISABLE,+        pattern SVG_ZOOMANDPAN_MAGNIFY, setZoomAndPan, getZoomAndPan,+        SVGZoomAndPan, castToSVGZoomAndPan, gTypeSVGZoomAndPan)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern SVG_ZOOMANDPAN_UNKNOWN = 0+pattern SVG_ZOOMANDPAN_DISABLE = 1+pattern SVG_ZOOMANDPAN_MAGNIFY = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomAndPan.zoomAndPan Mozilla SVGZoomAndPan.zoomAndPan documentation> +setZoomAndPan :: (MonadDOM m) => SVGZoomAndPan -> Word -> m ()+setZoomAndPan self val+  = liftDOM (self ^. jss "zoomAndPan" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomAndPan.zoomAndPan Mozilla SVGZoomAndPan.zoomAndPan documentation> +getZoomAndPan :: (MonadDOM m) => SVGZoomAndPan -> m Word+getZoomAndPan self+  = liftDOM (round <$> ((self ^. js "zoomAndPan") >>= valToNumber))
+ src/JSDOM/Generated/SVGZoomEvent.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SVGZoomEvent+       (getZoomRectScreen, getPreviousScale, getPreviousTranslate,+        getNewScale, getNewTranslate, SVGZoomEvent, castToSVGZoomEvent,+        gTypeSVGZoomEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.zoomRectScreen Mozilla SVGZoomEvent.zoomRectScreen documentation> +getZoomRectScreen ::+                  (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGRect)+getZoomRectScreen self+  = liftDOM ((self ^. js "zoomRectScreen") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.previousScale Mozilla SVGZoomEvent.previousScale documentation> +getPreviousScale :: (MonadDOM m) => SVGZoomEvent -> m Float+getPreviousScale self+  = liftDOM+      (realToFrac <$> ((self ^. js "previousScale") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.previousTranslate Mozilla SVGZoomEvent.previousTranslate documentation> +getPreviousTranslate ::+                     (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGPoint)+getPreviousTranslate self+  = liftDOM ((self ^. js "previousTranslate") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.newScale Mozilla SVGZoomEvent.newScale documentation> +getNewScale :: (MonadDOM m) => SVGZoomEvent -> m Float+getNewScale self+  = liftDOM+      (realToFrac <$> ((self ^. js "newScale") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.newTranslate Mozilla SVGZoomEvent.newTranslate documentation> +getNewTranslate ::+                (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGPoint)+getNewTranslate self+  = liftDOM ((self ^. js "newTranslate") >>= fromJSVal)
+ src/JSDOM/Generated/Screen.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Screen+       (getHeight, getWidth, getColorDepth, getPixelDepth, getAvailLeft,+        getAvailTop, getAvailHeight, getAvailWidth, Screen, castToScreen,+        gTypeScreen)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.height Mozilla Screen.height documentation> +getHeight :: (MonadDOM m) => Screen -> m Word+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.width Mozilla Screen.width documentation> +getWidth :: (MonadDOM m) => Screen -> m Word+getWidth self+  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.colorDepth Mozilla Screen.colorDepth documentation> +getColorDepth :: (MonadDOM m) => Screen -> m Word+getColorDepth self+  = liftDOM (round <$> ((self ^. js "colorDepth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.pixelDepth Mozilla Screen.pixelDepth documentation> +getPixelDepth :: (MonadDOM m) => Screen -> m Word+getPixelDepth self+  = liftDOM (round <$> ((self ^. js "pixelDepth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availLeft Mozilla Screen.availLeft documentation> +getAvailLeft :: (MonadDOM m) => Screen -> m Int+getAvailLeft self+  = liftDOM (round <$> ((self ^. js "availLeft") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availTop Mozilla Screen.availTop documentation> +getAvailTop :: (MonadDOM m) => Screen -> m Int+getAvailTop self+  = liftDOM (round <$> ((self ^. js "availTop") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availHeight Mozilla Screen.availHeight documentation> +getAvailHeight :: (MonadDOM m) => Screen -> m Word+getAvailHeight self+  = liftDOM (round <$> ((self ^. js "availHeight") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availWidth Mozilla Screen.availWidth documentation> +getAvailWidth :: (MonadDOM m) => Screen -> m Word+getAvailWidth self+  = liftDOM (round <$> ((self ^. js "availWidth") >>= valToNumber))
+ src/JSDOM/Generated/ScriptProcessorNode.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ScriptProcessorNode+       (audioProcess, getBufferSize, ScriptProcessorNode,+        castToScriptProcessorNode, gTypeScriptProcessorNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProcessorNode.onaudioprocess Mozilla ScriptProcessorNode.onaudioprocess documentation> +audioProcess :: EventName ScriptProcessorNode AudioProcessingEvent+audioProcess = unsafeEventName (toJSString "audioprocess")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProcessorNode.bufferSize Mozilla ScriptProcessorNode.bufferSize documentation> +getBufferSize :: (MonadDOM m) => ScriptProcessorNode -> m Int+getBufferSize self+  = liftDOM (round <$> ((self ^. js "bufferSize") >>= valToNumber))
+ src/JSDOM/Generated/ScriptProfile.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ScriptProfile+       (getTitle, getUid, getRootNode, ScriptProfile, castToScriptProfile,+        gTypeScriptProfile)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile.title Mozilla ScriptProfile.title documentation> +getTitle ::+         (MonadDOM m, FromJSString result) => ScriptProfile -> m result+getTitle self+  = liftDOM ((self ^. js "title") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile.uid Mozilla ScriptProfile.uid documentation> +getUid :: (MonadDOM m) => ScriptProfile -> m Word+getUid self+  = liftDOM (round <$> ((self ^. js "uid") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile.rootNode Mozilla ScriptProfile.rootNode documentation> +getRootNode ::+            (MonadDOM m) => ScriptProfile -> m (Maybe ScriptProfileNode)+getRootNode self = liftDOM ((self ^. js "rootNode") >>= fromJSVal)
+ src/JSDOM/Generated/ScriptProfileNode.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ScriptProfileNode+       (children, getId, getFunctionName, getUrl, getLineNumber,+        getColumnNumber, ScriptProfileNode, castToScriptProfileNode,+        gTypeScriptProfileNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.children Mozilla ScriptProfileNode.children documentation> +children ::+         (MonadDOM m) => ScriptProfileNode -> m [Maybe ScriptProfileNode]+children self = liftDOM ((self ^. js "children") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.id Mozilla ScriptProfileNode.id documentation> +getId :: (MonadDOM m) => ScriptProfileNode -> m Word+getId self+  = liftDOM (round <$> ((self ^. js "id") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.functionName Mozilla ScriptProfileNode.functionName documentation> +getFunctionName ::+                (MonadDOM m, FromJSString result) => ScriptProfileNode -> m result+getFunctionName self+  = liftDOM ((self ^. js "functionName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.url Mozilla ScriptProfileNode.url documentation> +getUrl ::+       (MonadDOM m, FromJSString result) => ScriptProfileNode -> m result+getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.lineNumber Mozilla ScriptProfileNode.lineNumber documentation> +getLineNumber :: (MonadDOM m) => ScriptProfileNode -> m Word+getLineNumber self+  = liftDOM (round <$> ((self ^. js "lineNumber") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.columnNumber Mozilla ScriptProfileNode.columnNumber documentation> +getColumnNumber :: (MonadDOM m) => ScriptProfileNode -> m Word+getColumnNumber self+  = liftDOM (round <$> ((self ^. js "columnNumber") >>= valToNumber))
+ src/JSDOM/Generated/SecurityPolicy.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SecurityPolicy+       (allowsConnectionTo, allowsFontFrom, allowsFormAction,+        allowsFrameFrom, allowsImageFrom, allowsMediaFrom,+        allowsObjectFrom, allowsPluginType, allowsScriptFrom,+        allowsStyleFrom, getAllowsEval, getAllowsInlineScript,+        getAllowsInlineStyle, getIsActive, getReportURIs, SecurityPolicy,+        castToSecurityPolicy, gTypeSecurityPolicy)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsConnectionTo Mozilla SecurityPolicy.allowsConnectionTo documentation> +allowsConnectionTo ::+                   (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsConnectionTo self url+  = liftDOM+      ((self ^. jsf "allowsConnectionTo" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsFontFrom Mozilla SecurityPolicy.allowsFontFrom documentation> +allowsFontFrom ::+               (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsFontFrom self url+  = liftDOM+      ((self ^. jsf "allowsFontFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsFormAction Mozilla SecurityPolicy.allowsFormAction documentation> +allowsFormAction ::+                 (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsFormAction self url+  = liftDOM+      ((self ^. jsf "allowsFormAction" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsFrameFrom Mozilla SecurityPolicy.allowsFrameFrom documentation> +allowsFrameFrom ::+                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsFrameFrom self url+  = liftDOM+      ((self ^. jsf "allowsFrameFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsImageFrom Mozilla SecurityPolicy.allowsImageFrom documentation> +allowsImageFrom ::+                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsImageFrom self url+  = liftDOM+      ((self ^. jsf "allowsImageFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsMediaFrom Mozilla SecurityPolicy.allowsMediaFrom documentation> +allowsMediaFrom ::+                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsMediaFrom self url+  = liftDOM+      ((self ^. jsf "allowsMediaFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsObjectFrom Mozilla SecurityPolicy.allowsObjectFrom documentation> +allowsObjectFrom ::+                 (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsObjectFrom self url+  = liftDOM+      ((self ^. jsf "allowsObjectFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsPluginType Mozilla SecurityPolicy.allowsPluginType documentation> +allowsPluginType ::+                 (MonadDOM m, ToJSString type') => SecurityPolicy -> type' -> m Bool+allowsPluginType self type'+  = liftDOM+      ((self ^. jsf "allowsPluginType" [toJSVal type']) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsScriptFrom Mozilla SecurityPolicy.allowsScriptFrom documentation> +allowsScriptFrom ::+                 (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsScriptFrom self url+  = liftDOM+      ((self ^. jsf "allowsScriptFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsStyleFrom Mozilla SecurityPolicy.allowsStyleFrom documentation> +allowsStyleFrom ::+                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool+allowsStyleFrom self url+  = liftDOM+      ((self ^. jsf "allowsStyleFrom" [toJSVal url]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsEval Mozilla SecurityPolicy.allowsEval documentation> +getAllowsEval :: (MonadDOM m) => SecurityPolicy -> m Bool+getAllowsEval self+  = liftDOM ((self ^. js "allowsEval") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsInlineScript Mozilla SecurityPolicy.allowsInlineScript documentation> +getAllowsInlineScript :: (MonadDOM m) => SecurityPolicy -> m Bool+getAllowsInlineScript self+  = liftDOM ((self ^. js "allowsInlineScript") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsInlineStyle Mozilla SecurityPolicy.allowsInlineStyle documentation> +getAllowsInlineStyle :: (MonadDOM m) => SecurityPolicy -> m Bool+getAllowsInlineStyle self+  = liftDOM ((self ^. js "allowsInlineStyle") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.isActive Mozilla SecurityPolicy.isActive documentation> +getIsActive :: (MonadDOM m) => SecurityPolicy -> m Bool+getIsActive self = liftDOM ((self ^. js "isActive") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.reportURIs Mozilla SecurityPolicy.reportURIs documentation> +getReportURIs ::+              (MonadDOM m) => SecurityPolicy -> m (Maybe DOMStringList)+getReportURIs self+  = liftDOM ((self ^. js "reportURIs") >>= fromJSVal)
+ src/JSDOM/Generated/SecurityPolicyViolationEvent.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SecurityPolicyViolationEvent+       (getDocumentURI, getReferrer, getBlockedURI, getViolatedDirective,+        getEffectiveDirective, getOriginalPolicy, getSourceFile,+        getLineNumber, SecurityPolicyViolationEvent,+        castToSecurityPolicyViolationEvent,+        gTypeSecurityPolicyViolationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.documentURI Mozilla SecurityPolicyViolationEvent.documentURI documentation> +getDocumentURI ::+               (MonadDOM m, FromJSString result) =>+                 SecurityPolicyViolationEvent -> m result+getDocumentURI self+  = liftDOM ((self ^. js "documentURI") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.referrer Mozilla SecurityPolicyViolationEvent.referrer documentation> +getReferrer ::+            (MonadDOM m, FromJSString result) =>+              SecurityPolicyViolationEvent -> m result+getReferrer self+  = liftDOM ((self ^. js "referrer") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.blockedURI Mozilla SecurityPolicyViolationEvent.blockedURI documentation> +getBlockedURI ::+              (MonadDOM m, FromJSString result) =>+                SecurityPolicyViolationEvent -> m result+getBlockedURI self+  = liftDOM ((self ^. js "blockedURI") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.violatedDirective Mozilla SecurityPolicyViolationEvent.violatedDirective documentation> +getViolatedDirective ::+                     (MonadDOM m, FromJSString result) =>+                       SecurityPolicyViolationEvent -> m result+getViolatedDirective self+  = liftDOM ((self ^. js "violatedDirective") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.effectiveDirective Mozilla SecurityPolicyViolationEvent.effectiveDirective documentation> +getEffectiveDirective ::+                      (MonadDOM m, FromJSString result) =>+                        SecurityPolicyViolationEvent -> m result+getEffectiveDirective self+  = liftDOM+      ((self ^. js "effectiveDirective") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.originalPolicy Mozilla SecurityPolicyViolationEvent.originalPolicy documentation> +getOriginalPolicy ::+                  (MonadDOM m, FromJSString result) =>+                    SecurityPolicyViolationEvent -> m result+getOriginalPolicy self+  = liftDOM ((self ^. js "originalPolicy") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.sourceFile Mozilla SecurityPolicyViolationEvent.sourceFile documentation> +getSourceFile ::+              (MonadDOM m, FromJSString result) =>+                SecurityPolicyViolationEvent -> m result+getSourceFile self+  = liftDOM ((self ^. js "sourceFile") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.lineNumber Mozilla SecurityPolicyViolationEvent.lineNumber documentation> +getLineNumber ::+              (MonadDOM m) => SecurityPolicyViolationEvent -> m Int+getLineNumber self+  = liftDOM (round <$> ((self ^. js "lineNumber") >>= valToNumber))
+ src/JSDOM/Generated/Selection.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Selection+       (collapse, collapseToEnd, collapseToStart, deleteFromDocument,+        containsNode, selectAllChildren, extend, getRangeAt,+        removeAllRanges, addRange, toString, modify, setBaseAndExtent,+        setPosition, empty, getAnchorNode, getAnchorOffset, getFocusNode,+        getFocusOffset, getIsCollapsed, getRangeCount, getBaseNode,+        getBaseOffset, getExtentNode, getExtentOffset, getType, Selection,+        castToSelection, gTypeSelection)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.collapse Mozilla Selection.collapse documentation> +collapse ::+         (MonadDOM m, IsNode node) => Selection -> Maybe node -> Int -> m ()+collapse self node index+  = liftDOM+      (void (self ^. jsf "collapse" [toJSVal node, toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.collapseToEnd Mozilla Selection.collapseToEnd documentation> +collapseToEnd :: (MonadDOM m) => Selection -> m ()+collapseToEnd self = liftDOM (void (self ^. js "collapseToEnd"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.collapseToStart Mozilla Selection.collapseToStart documentation> +collapseToStart :: (MonadDOM m) => Selection -> m ()+collapseToStart self+  = liftDOM (void (self ^. js "collapseToStart"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.deleteFromDocument Mozilla Selection.deleteFromDocument documentation> +deleteFromDocument :: (MonadDOM m) => Selection -> m ()+deleteFromDocument self+  = liftDOM (void (self ^. js "deleteFromDocument"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.containsNode Mozilla Selection.containsNode documentation> +containsNode ::+             (MonadDOM m, IsNode node) =>+               Selection -> Maybe node -> Bool -> m Bool+containsNode self node allowPartial+  = liftDOM+      ((self ^. jsf "containsNode" [toJSVal node, toJSVal allowPartial])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.selectAllChildren Mozilla Selection.selectAllChildren documentation> +selectAllChildren ::+                  (MonadDOM m, IsNode node) => Selection -> Maybe node -> m ()+selectAllChildren self node+  = liftDOM (void (self ^. jsf "selectAllChildren" [toJSVal node]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.extend Mozilla Selection.extend documentation> +extend ::+       (MonadDOM m, IsNode node) => Selection -> Maybe node -> Int -> m ()+extend self node offset+  = liftDOM+      (void (self ^. jsf "extend" [toJSVal node, toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.getRangeAt Mozilla Selection.getRangeAt documentation> +getRangeAt :: (MonadDOM m) => Selection -> Int -> m (Maybe Range)+getRangeAt self index+  = liftDOM+      ((self ^. jsf "getRangeAt" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.removeAllRanges Mozilla Selection.removeAllRanges documentation> +removeAllRanges :: (MonadDOM m) => Selection -> m ()+removeAllRanges self+  = liftDOM (void (self ^. js "removeAllRanges"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.addRange Mozilla Selection.addRange documentation> +addRange :: (MonadDOM m) => Selection -> Maybe Range -> m ()+addRange self range+  = liftDOM (void (self ^. jsf "addRange" [toJSVal range]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.toString Mozilla Selection.toString documentation> +toString ::+         (MonadDOM m, FromJSString result) => Selection -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.modify Mozilla Selection.modify documentation> +modify ::+       (MonadDOM m, ToJSString alter, ToJSString direction,+        ToJSString granularity) =>+         Selection -> alter -> direction -> granularity -> m ()+modify self alter direction granularity+  = liftDOM+      (void+         (self ^. jsf "modify"+            [toJSVal alter, toJSVal direction, toJSVal granularity]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.setBaseAndExtent Mozilla Selection.setBaseAndExtent documentation> +setBaseAndExtent ::+                 (MonadDOM m, IsNode baseNode, IsNode extentNode) =>+                   Selection ->+                     Maybe baseNode -> Int -> Maybe extentNode -> Int -> m ()+setBaseAndExtent self baseNode baseOffset extentNode extentOffset+  = liftDOM+      (void+         (self ^. jsf "setBaseAndExtent"+            [toJSVal baseNode, toJSVal baseOffset, toJSVal extentNode,+             toJSVal extentOffset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.setPosition Mozilla Selection.setPosition documentation> +setPosition ::+            (MonadDOM m, IsNode node) => Selection -> Maybe node -> Int -> m ()+setPosition self node offset+  = liftDOM+      (void (self ^. jsf "setPosition" [toJSVal node, toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.empty Mozilla Selection.empty documentation> +empty :: (MonadDOM m) => Selection -> m ()+empty self = liftDOM (void (self ^. js "empty"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.anchorNode Mozilla Selection.anchorNode documentation> +getAnchorNode :: (MonadDOM m) => Selection -> m (Maybe Node)+getAnchorNode self+  = liftDOM ((self ^. js "anchorNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.anchorOffset Mozilla Selection.anchorOffset documentation> +getAnchorOffset :: (MonadDOM m) => Selection -> m Int+getAnchorOffset self+  = liftDOM (round <$> ((self ^. js "anchorOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.focusNode Mozilla Selection.focusNode documentation> +getFocusNode :: (MonadDOM m) => Selection -> m (Maybe Node)+getFocusNode self+  = liftDOM ((self ^. js "focusNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.focusOffset Mozilla Selection.focusOffset documentation> +getFocusOffset :: (MonadDOM m) => Selection -> m Int+getFocusOffset self+  = liftDOM (round <$> ((self ^. js "focusOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.isCollapsed Mozilla Selection.isCollapsed documentation> +getIsCollapsed :: (MonadDOM m) => Selection -> m Bool+getIsCollapsed self+  = liftDOM ((self ^. js "isCollapsed") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.rangeCount Mozilla Selection.rangeCount documentation> +getRangeCount :: (MonadDOM m) => Selection -> m Int+getRangeCount self+  = liftDOM (round <$> ((self ^. js "rangeCount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.baseNode Mozilla Selection.baseNode documentation> +getBaseNode :: (MonadDOM m) => Selection -> m (Maybe Node)+getBaseNode self = liftDOM ((self ^. js "baseNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.baseOffset Mozilla Selection.baseOffset documentation> +getBaseOffset :: (MonadDOM m) => Selection -> m Int+getBaseOffset self+  = liftDOM (round <$> ((self ^. js "baseOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.extentNode Mozilla Selection.extentNode documentation> +getExtentNode :: (MonadDOM m) => Selection -> m (Maybe Node)+getExtentNode self+  = liftDOM ((self ^. js "extentNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.extentOffset Mozilla Selection.extentOffset documentation> +getExtentOffset :: (MonadDOM m) => Selection -> m Int+getExtentOffset self+  = liftDOM (round <$> ((self ^. js "extentOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.type Mozilla Selection.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => Selection -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SourceBuffer.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SourceBuffer+       (appendBuffer, appendBufferView, abort, remove, setMode, getMode,+        getUpdating, getBuffered, setTimestampOffset, getTimestampOffset,+        getAudioTracks, getVideoTracks, getTextTracks,+        setAppendWindowStart, getAppendWindowStart, setAppendWindowEnd,+        getAppendWindowEnd, SourceBuffer, castToSourceBuffer,+        gTypeSourceBuffer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendBuffer Mozilla SourceBuffer.appendBuffer documentation> +appendBuffer ::+             (MonadDOM m, IsArrayBuffer data') =>+               SourceBuffer -> Maybe data' -> m ()+appendBuffer self data'+  = liftDOM (void (self ^. jsf "appendBuffer" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendBuffer Mozilla SourceBuffer.appendBuffer documentation> +appendBufferView ::+                 (MonadDOM m, IsArrayBufferView data') =>+                   SourceBuffer -> Maybe data' -> m ()+appendBufferView self data'+  = liftDOM (void (self ^. jsf "appendBuffer" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.abort Mozilla SourceBuffer.abort documentation> +abort :: (MonadDOM m) => SourceBuffer -> m ()+abort self = liftDOM (void (self ^. js "abort"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.remove Mozilla SourceBuffer.remove documentation> +remove :: (MonadDOM m) => SourceBuffer -> Double -> Double -> m ()+remove self start end+  = liftDOM+      (void (self ^. jsf "remove" [toJSVal start, toJSVal end]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.mode Mozilla SourceBuffer.mode documentation> +setMode :: (MonadDOM m) => SourceBuffer -> AppendMode -> m ()+setMode self val = liftDOM (self ^. jss "mode" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.mode Mozilla SourceBuffer.mode documentation> +getMode :: (MonadDOM m) => SourceBuffer -> m AppendMode+getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.updating Mozilla SourceBuffer.updating documentation> +getUpdating :: (MonadDOM m) => SourceBuffer -> m Bool+getUpdating self = liftDOM ((self ^. js "updating") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.buffered Mozilla SourceBuffer.buffered documentation> +getBuffered :: (MonadDOM m) => SourceBuffer -> m (Maybe TimeRanges)+getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.timestampOffset Mozilla SourceBuffer.timestampOffset documentation> +setTimestampOffset ::+                   (MonadDOM m) => SourceBuffer -> Double -> m ()+setTimestampOffset self val+  = liftDOM (self ^. jss "timestampOffset" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.timestampOffset Mozilla SourceBuffer.timestampOffset documentation> +getTimestampOffset :: (MonadDOM m) => SourceBuffer -> m Double+getTimestampOffset self+  = liftDOM ((self ^. js "timestampOffset") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.audioTracks Mozilla SourceBuffer.audioTracks documentation> +getAudioTracks ::+               (MonadDOM m) => SourceBuffer -> m (Maybe AudioTrackList)+getAudioTracks self+  = liftDOM ((self ^. js "audioTracks") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.videoTracks Mozilla SourceBuffer.videoTracks documentation> +getVideoTracks ::+               (MonadDOM m) => SourceBuffer -> m (Maybe VideoTrackList)+getVideoTracks self+  = liftDOM ((self ^. js "videoTracks") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.textTracks Mozilla SourceBuffer.textTracks documentation> +getTextTracks ::+              (MonadDOM m) => SourceBuffer -> m (Maybe TextTrackList)+getTextTracks self+  = liftDOM ((self ^. js "textTracks") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowStart Mozilla SourceBuffer.appendWindowStart documentation> +setAppendWindowStart ::+                     (MonadDOM m) => SourceBuffer -> Double -> m ()+setAppendWindowStart self val+  = liftDOM (self ^. jss "appendWindowStart" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowStart Mozilla SourceBuffer.appendWindowStart documentation> +getAppendWindowStart :: (MonadDOM m) => SourceBuffer -> m Double+getAppendWindowStart self+  = liftDOM ((self ^. js "appendWindowStart") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowEnd Mozilla SourceBuffer.appendWindowEnd documentation> +setAppendWindowEnd ::+                   (MonadDOM m) => SourceBuffer -> Double -> m ()+setAppendWindowEnd self val+  = liftDOM (self ^. jss "appendWindowEnd" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowEnd Mozilla SourceBuffer.appendWindowEnd documentation> +getAppendWindowEnd :: (MonadDOM m) => SourceBuffer -> m Double+getAppendWindowEnd self+  = liftDOM ((self ^. js "appendWindowEnd") >>= valToNumber)
+ src/JSDOM/Generated/SourceBufferList.hs view
@@ -0,0 +1,27 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SourceBufferList+       (item, getLength, SourceBufferList, castToSourceBufferList,+        gTypeSourceBufferList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBufferList.item Mozilla SourceBufferList.item documentation> +item ::+     (MonadDOM m) => SourceBufferList -> Word -> m (Maybe SourceBuffer)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBufferList.length Mozilla SourceBufferList.length documentation> +getLength :: (MonadDOM m) => SourceBufferList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/SourceInfo.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SourceInfo+       (getSourceId, getKind, getLabel, SourceInfo, castToSourceInfo,+        gTypeSourceInfo)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo.sourceId Mozilla SourceInfo.sourceId documentation> +getSourceId ::+            (MonadDOM m, FromJSString result) => SourceInfo -> m result+getSourceId self+  = liftDOM ((self ^. js "sourceId") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo.kind Mozilla SourceInfo.kind documentation> +getKind ::+        (MonadDOM m, FromJSString result) => SourceInfo -> m result+getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo.label Mozilla SourceInfo.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => SourceInfo -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SpeechSynthesis.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SpeechSynthesis+       (speak, cancel, pause, resume, getVoices, getPending, getSpeaking,+        getPaused, SpeechSynthesis, castToSpeechSynthesis,+        gTypeSpeechSynthesis)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.speak Mozilla SpeechSynthesis.speak documentation> +speak ::+      (MonadDOM m) =>+        SpeechSynthesis -> Maybe SpeechSynthesisUtterance -> m ()+speak self utterance+  = liftDOM (void (self ^. jsf "speak" [toJSVal utterance]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.cancel Mozilla SpeechSynthesis.cancel documentation> +cancel :: (MonadDOM m) => SpeechSynthesis -> m ()+cancel self = liftDOM (void (self ^. js "cancel"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.pause Mozilla SpeechSynthesis.pause documentation> +pause :: (MonadDOM m) => SpeechSynthesis -> m ()+pause self = liftDOM (void (self ^. js "pause"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.resume Mozilla SpeechSynthesis.resume documentation> +resume :: (MonadDOM m) => SpeechSynthesis -> m ()+resume self = liftDOM (void (self ^. js "resume"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.getVoices Mozilla SpeechSynthesis.getVoices documentation> +getVoices ::+          (MonadDOM m) => SpeechSynthesis -> m [Maybe SpeechSynthesisVoice]+getVoices self = liftDOM ((self ^. js "getVoices") >>= fromJSArray)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.pending Mozilla SpeechSynthesis.pending documentation> +getPending :: (MonadDOM m) => SpeechSynthesis -> m Bool+getPending self = liftDOM ((self ^. js "pending") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.speaking Mozilla SpeechSynthesis.speaking documentation> +getSpeaking :: (MonadDOM m) => SpeechSynthesis -> m Bool+getSpeaking self = liftDOM ((self ^. js "speaking") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.paused Mozilla SpeechSynthesis.paused documentation> +getPaused :: (MonadDOM m) => SpeechSynthesis -> m Bool+getPaused self = liftDOM ((self ^. js "paused") >>= valToBool)
+ src/JSDOM/Generated/SpeechSynthesisEvent.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SpeechSynthesisEvent+       (getCharIndex, getElapsedTime, getName, SpeechSynthesisEvent,+        castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent.charIndex Mozilla SpeechSynthesisEvent.charIndex documentation> +getCharIndex :: (MonadDOM m) => SpeechSynthesisEvent -> m Word+getCharIndex self+  = liftDOM (round <$> ((self ^. js "charIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent.elapsedTime Mozilla SpeechSynthesisEvent.elapsedTime documentation> +getElapsedTime :: (MonadDOM m) => SpeechSynthesisEvent -> m Float+getElapsedTime self+  = liftDOM+      (realToFrac <$> ((self ^. js "elapsedTime") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent.name Mozilla SpeechSynthesisEvent.name documentation> +getName ::+        (MonadDOM m, FromJSString result) =>+          SpeechSynthesisEvent -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/SpeechSynthesisUtterance.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SpeechSynthesisUtterance+       (newSpeechSynthesisUtterance, setText, getText, setLang, getLang,+        setVoice, getVoice, setVolume, getVolume, setRate, getRate,+        setPitch, getPitch, start, end, error, pause, resume, mark,+        boundary, SpeechSynthesisUtterance, castToSpeechSynthesisUtterance,+        gTypeSpeechSynthesisUtterance)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance Mozilla SpeechSynthesisUtterance documentation> +newSpeechSynthesisUtterance ::+                            (MonadDOM m, ToJSString text) => text -> m SpeechSynthesisUtterance+newSpeechSynthesisUtterance text+  = liftDOM+      (SpeechSynthesisUtterance <$>+         new (jsg "SpeechSynthesisUtterance") [toJSVal text])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.text Mozilla SpeechSynthesisUtterance.text documentation> +setText ::+        (MonadDOM m, ToJSString val) =>+          SpeechSynthesisUtterance -> val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.text Mozilla SpeechSynthesisUtterance.text documentation> +getText ::+        (MonadDOM m, FromJSString result) =>+          SpeechSynthesisUtterance -> m result+getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.lang Mozilla SpeechSynthesisUtterance.lang documentation> +setLang ::+        (MonadDOM m, ToJSString val) =>+          SpeechSynthesisUtterance -> val -> m ()+setLang self val = liftDOM (self ^. jss "lang" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.lang Mozilla SpeechSynthesisUtterance.lang documentation> +getLang ::+        (MonadDOM m, FromJSString result) =>+          SpeechSynthesisUtterance -> m result+getLang self = liftDOM ((self ^. js "lang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.voice Mozilla SpeechSynthesisUtterance.voice documentation> +setVoice ::+         (MonadDOM m) =>+           SpeechSynthesisUtterance -> Maybe SpeechSynthesisVoice -> m ()+setVoice self val = liftDOM (self ^. jss "voice" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.voice Mozilla SpeechSynthesisUtterance.voice documentation> +getVoice ::+         (MonadDOM m) =>+           SpeechSynthesisUtterance -> m (Maybe SpeechSynthesisVoice)+getVoice self = liftDOM ((self ^. js "voice") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.volume Mozilla SpeechSynthesisUtterance.volume documentation> +setVolume ::+          (MonadDOM m) => SpeechSynthesisUtterance -> Float -> m ()+setVolume self val = liftDOM (self ^. jss "volume" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.volume Mozilla SpeechSynthesisUtterance.volume documentation> +getVolume :: (MonadDOM m) => SpeechSynthesisUtterance -> m Float+getVolume self+  = liftDOM (realToFrac <$> ((self ^. js "volume") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.rate Mozilla SpeechSynthesisUtterance.rate documentation> +setRate ::+        (MonadDOM m) => SpeechSynthesisUtterance -> Float -> m ()+setRate self val = liftDOM (self ^. jss "rate" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.rate Mozilla SpeechSynthesisUtterance.rate documentation> +getRate :: (MonadDOM m) => SpeechSynthesisUtterance -> m Float+getRate self+  = liftDOM (realToFrac <$> ((self ^. js "rate") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.pitch Mozilla SpeechSynthesisUtterance.pitch documentation> +setPitch ::+         (MonadDOM m) => SpeechSynthesisUtterance -> Float -> m ()+setPitch self val = liftDOM (self ^. jss "pitch" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.pitch Mozilla SpeechSynthesisUtterance.pitch documentation> +getPitch :: (MonadDOM m) => SpeechSynthesisUtterance -> m Float+getPitch self+  = liftDOM (realToFrac <$> ((self ^. js "pitch") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onstart Mozilla SpeechSynthesisUtterance.onstart documentation> +start :: EventName SpeechSynthesisUtterance Event+start = unsafeEventName (toJSString "start")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onend Mozilla SpeechSynthesisUtterance.onend documentation> +end :: EventName SpeechSynthesisUtterance Event+end = unsafeEventName (toJSString "end")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onerror Mozilla SpeechSynthesisUtterance.onerror documentation> +error :: EventName SpeechSynthesisUtterance UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onpause Mozilla SpeechSynthesisUtterance.onpause documentation> +pause :: EventName SpeechSynthesisUtterance Event+pause = unsafeEventName (toJSString "pause")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onresume Mozilla SpeechSynthesisUtterance.onresume documentation> +resume :: EventName SpeechSynthesisUtterance Event+resume = unsafeEventName (toJSString "resume")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onmark Mozilla SpeechSynthesisUtterance.onmark documentation> +mark :: EventName SpeechSynthesisUtterance Event+mark = unsafeEventName (toJSString "mark")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onboundary Mozilla SpeechSynthesisUtterance.onboundary documentation> +boundary :: EventName SpeechSynthesisUtterance Event+boundary = unsafeEventName (toJSString "boundary")
+ src/JSDOM/Generated/SpeechSynthesisVoice.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SpeechSynthesisVoice+       (getVoiceURI, getName, getLang, getLocalService, getDefault,+        SpeechSynthesisVoice, castToSpeechSynthesisVoice,+        gTypeSpeechSynthesisVoice)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.voiceURI Mozilla SpeechSynthesisVoice.voiceURI documentation> +getVoiceURI ::+            (MonadDOM m, FromJSString result) =>+              SpeechSynthesisVoice -> m result+getVoiceURI self+  = liftDOM ((self ^. js "voiceURI") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.name Mozilla SpeechSynthesisVoice.name documentation> +getName ::+        (MonadDOM m, FromJSString result) =>+          SpeechSynthesisVoice -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.lang Mozilla SpeechSynthesisVoice.lang documentation> +getLang ::+        (MonadDOM m, FromJSString result) =>+          SpeechSynthesisVoice -> m result+getLang self = liftDOM ((self ^. js "lang") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.localService Mozilla SpeechSynthesisVoice.localService documentation> +getLocalService :: (MonadDOM m) => SpeechSynthesisVoice -> m Bool+getLocalService self+  = liftDOM ((self ^. js "localService") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.default Mozilla SpeechSynthesisVoice.default documentation> +getDefault :: (MonadDOM m) => SpeechSynthesisVoice -> m Bool+getDefault self = liftDOM ((self ^. js "default") >>= valToBool)
+ src/JSDOM/Generated/Storage.hs view
@@ -0,0 +1,55 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Storage+       (key, getItem, setItem, removeItem, clear, getLength, Storage,+        castToStorage, gTypeStorage)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.key Mozilla Storage.key documentation> +key ::+    (MonadDOM m, FromJSString result) =>+      Storage -> Word -> m (Maybe result)+key self index+  = liftDOM+      ((self ^. jsf "key" [toJSVal index]) >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.getItem Mozilla Storage.getItem documentation> +getItem ::+        (MonadDOM m, ToJSString key, FromJSString result) =>+          Storage -> key -> m (Maybe result)+getItem self key+  = liftDOM+      ((self ^. jsf "getItem" [toJSVal key]) >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.setItem Mozilla Storage.setItem documentation> +setItem ::+        (MonadDOM m, ToJSString key, ToJSString data') =>+          Storage -> key -> data' -> m ()+setItem self key data'+  = liftDOM+      (void (self ^. jsf "setItem" [toJSVal key, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.removeItem Mozilla Storage.removeItem documentation> +removeItem ::+           (MonadDOM m, ToJSString key) => Storage -> key -> m ()+removeItem self key+  = liftDOM (void (self ^. jsf "removeItem" [toJSVal key]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.clear Mozilla Storage.clear documentation> +clear :: (MonadDOM m) => Storage -> m ()+clear self = liftDOM (void (self ^. js "clear"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.length Mozilla Storage.length documentation> +getLength :: (MonadDOM m) => Storage -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/StorageErrorCallback.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StorageErrorCallback+       (newStorageErrorCallback, newStorageErrorCallbackSync,+        newStorageErrorCallbackAsync, StorageErrorCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageErrorCallback Mozilla StorageErrorCallback documentation> +newStorageErrorCallback ::+                        (MonadDOM m) =>+                          (Maybe DOMException -> JSM ()) -> m StorageErrorCallback+newStorageErrorCallback callback+  = liftDOM+      (StorageErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageErrorCallback Mozilla StorageErrorCallback documentation> +newStorageErrorCallbackSync ::+                            (MonadDOM m) =>+                              (Maybe DOMException -> JSM ()) -> m StorageErrorCallback+newStorageErrorCallbackSync callback+  = liftDOM+      (StorageErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageErrorCallback Mozilla StorageErrorCallback documentation> +newStorageErrorCallbackAsync ::+                             (MonadDOM m) =>+                               (Maybe DOMException -> JSM ()) -> m StorageErrorCallback+newStorageErrorCallbackAsync callback+  = liftDOM+      (StorageErrorCallback . Callback <$>+         function ""+           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
+ src/JSDOM/Generated/StorageEvent.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StorageEvent+       (initStorageEvent, getKey, getOldValue, getNewValue, getUrl,+        getStorageArea, StorageEvent, castToStorageEvent,+        gTypeStorageEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.initStorageEvent Mozilla StorageEvent.initStorageEvent documentation> +initStorageEvent ::+                 (MonadDOM m, ToJSString typeArg, ToJSString keyArg,+                  ToJSString oldValueArg, ToJSString newValueArg,+                  ToJSString urlArg) =>+                   StorageEvent ->+                     typeArg ->+                       Bool ->+                         Bool ->+                           keyArg ->+                             Maybe oldValueArg ->+                               Maybe newValueArg -> urlArg -> Maybe Storage -> m ()+initStorageEvent self typeArg canBubbleArg cancelableArg keyArg+  oldValueArg newValueArg urlArg storageAreaArg+  = liftDOM+      (void+         (self ^. jsf "initStorageEvent"+            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,+             toJSVal keyArg, toJSVal oldValueArg, toJSVal newValueArg,+             toJSVal urlArg, toJSVal storageAreaArg]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.key Mozilla StorageEvent.key documentation> +getKey ::+       (MonadDOM m, FromJSString result) => StorageEvent -> m result+getKey self = liftDOM ((self ^. js "key") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.oldValue Mozilla StorageEvent.oldValue documentation> +getOldValue ::+            (MonadDOM m, FromJSString result) =>+              StorageEvent -> m (Maybe result)+getOldValue self+  = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.newValue Mozilla StorageEvent.newValue documentation> +getNewValue ::+            (MonadDOM m, FromJSString result) =>+              StorageEvent -> m (Maybe result)+getNewValue self+  = liftDOM ((self ^. js "newValue") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.url Mozilla StorageEvent.url documentation> +getUrl ::+       (MonadDOM m, FromJSString result) => StorageEvent -> m result+getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.storageArea Mozilla StorageEvent.storageArea documentation> +getStorageArea :: (MonadDOM m) => StorageEvent -> m (Maybe Storage)+getStorageArea self+  = liftDOM ((self ^. js "storageArea") >>= fromJSVal)
+ src/JSDOM/Generated/StorageInfo.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StorageInfo+       (queryUsageAndQuota, requestQuota, pattern TEMPORARY,+        pattern PERSISTENT, StorageInfo, castToStorageInfo,+        gTypeStorageInfo)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageInfo.queryUsageAndQuota Mozilla StorageInfo.queryUsageAndQuota documentation> +queryUsageAndQuota ::+                   (MonadDOM m) =>+                     StorageInfo ->+                       Word ->+                         Maybe StorageUsageCallback -> Maybe StorageErrorCallback -> m ()+queryUsageAndQuota self storageType usageCallback errorCallback+  = liftDOM+      (void+         (self ^. jsf "queryUsageAndQuota"+            [toJSVal storageType, toJSVal usageCallback,+             toJSVal errorCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageInfo.requestQuota Mozilla StorageInfo.requestQuota documentation> +requestQuota ::+             (MonadDOM m) =>+               StorageInfo ->+                 Word ->+                   Word64 ->+                     Maybe StorageQuotaCallback -> Maybe StorageErrorCallback -> m ()+requestQuota self storageType newQuotaInBytes quotaCallback+  errorCallback+  = liftDOM+      (void+         (self ^. jsf "requestQuota"+            [toJSVal storageType, toJSVal newQuotaInBytes,+             toJSVal quotaCallback, toJSVal errorCallback]))+pattern TEMPORARY = 0+pattern PERSISTENT = 1
+ src/JSDOM/Generated/StorageQuota.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StorageQuota+       (queryUsageAndQuota, requestQuota, StorageQuota,+        castToStorageQuota, gTypeStorageQuota)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuota.queryUsageAndQuota Mozilla StorageQuota.queryUsageAndQuota documentation> +queryUsageAndQuota ::+                   (MonadDOM m) =>+                     StorageQuota ->+                       Maybe StorageUsageCallback -> Maybe StorageErrorCallback -> m ()+queryUsageAndQuota self usageCallback errorCallback+  = liftDOM+      (void+         (self ^. jsf "queryUsageAndQuota"+            [toJSVal usageCallback, toJSVal errorCallback]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuota.requestQuota Mozilla StorageQuota.requestQuota documentation> +requestQuota ::+             (MonadDOM m) =>+               StorageQuota ->+                 Word64 ->+                   Maybe StorageQuotaCallback -> Maybe StorageErrorCallback -> m ()+requestQuota self newQuotaInBytes quotaCallback errorCallback+  = liftDOM+      (void+         (self ^. jsf "requestQuota"+            [toJSVal newQuotaInBytes, toJSVal quotaCallback,+             toJSVal errorCallback]))
+ src/JSDOM/Generated/StorageQuotaCallback.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StorageQuotaCallback+       (newStorageQuotaCallback, newStorageQuotaCallbackSync,+        newStorageQuotaCallbackAsync, StorageQuotaCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuotaCallback Mozilla StorageQuotaCallback documentation> +newStorageQuotaCallback ::+                        (MonadDOM m) => (Double -> JSM ()) -> m StorageQuotaCallback+newStorageQuotaCallback callback+  = liftDOM+      (StorageQuotaCallback . Callback <$>+         function ""+           (\ _ _ [grantedQuotaInBytes] ->+              fromJSValUnchecked grantedQuotaInBytes >>=+                \ grantedQuotaInBytes' -> callback grantedQuotaInBytes'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuotaCallback Mozilla StorageQuotaCallback documentation> +newStorageQuotaCallbackSync ::+                            (MonadDOM m) => (Double -> JSM ()) -> m StorageQuotaCallback+newStorageQuotaCallbackSync callback+  = liftDOM+      (StorageQuotaCallback . Callback <$>+         function ""+           (\ _ _ [grantedQuotaInBytes] ->+              fromJSValUnchecked grantedQuotaInBytes >>=+                \ grantedQuotaInBytes' -> callback grantedQuotaInBytes'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuotaCallback Mozilla StorageQuotaCallback documentation> +newStorageQuotaCallbackAsync ::+                             (MonadDOM m) => (Double -> JSM ()) -> m StorageQuotaCallback+newStorageQuotaCallbackAsync callback+  = liftDOM+      (StorageQuotaCallback . Callback <$>+         function ""+           (\ _ _ [grantedQuotaInBytes] ->+              fromJSValUnchecked grantedQuotaInBytes >>=+                \ grantedQuotaInBytes' -> callback grantedQuotaInBytes'))
+ src/JSDOM/Generated/StorageUsageCallback.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StorageUsageCallback+       (newStorageUsageCallback, newStorageUsageCallbackSync,+        newStorageUsageCallbackAsync, StorageUsageCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageUsageCallback Mozilla StorageUsageCallback documentation> +newStorageUsageCallback ::+                        (MonadDOM m) =>+                          (Double -> Double -> JSM ()) -> m StorageUsageCallback+newStorageUsageCallback callback+  = liftDOM+      (StorageUsageCallback . Callback <$>+         function ""+           (\ _ _ [currentUsageInBytes, currentQuotaInBytes] ->+              fromJSValUnchecked currentQuotaInBytes >>=+                \ currentQuotaInBytes' ->+                  fromJSValUnchecked currentUsageInBytes >>=+                    \ currentUsageInBytes' -> callback currentUsageInBytes'+                    currentQuotaInBytes'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageUsageCallback Mozilla StorageUsageCallback documentation> +newStorageUsageCallbackSync ::+                            (MonadDOM m) =>+                              (Double -> Double -> JSM ()) -> m StorageUsageCallback+newStorageUsageCallbackSync callback+  = liftDOM+      (StorageUsageCallback . Callback <$>+         function ""+           (\ _ _ [currentUsageInBytes, currentQuotaInBytes] ->+              fromJSValUnchecked currentQuotaInBytes >>=+                \ currentQuotaInBytes' ->+                  fromJSValUnchecked currentUsageInBytes >>=+                    \ currentUsageInBytes' -> callback currentUsageInBytes'+                    currentQuotaInBytes'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageUsageCallback Mozilla StorageUsageCallback documentation> +newStorageUsageCallbackAsync ::+                             (MonadDOM m) =>+                               (Double -> Double -> JSM ()) -> m StorageUsageCallback+newStorageUsageCallbackAsync callback+  = liftDOM+      (StorageUsageCallback . Callback <$>+         function ""+           (\ _ _ [currentUsageInBytes, currentQuotaInBytes] ->+              fromJSValUnchecked currentQuotaInBytes >>=+                \ currentQuotaInBytes' ->+                  fromJSValUnchecked currentUsageInBytes >>=+                    \ currentUsageInBytes' -> callback currentUsageInBytes'+                    currentQuotaInBytes'))
+ src/JSDOM/Generated/StringCallback.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StringCallback+       (newStringCallback, newStringCallbackSync, newStringCallbackAsync,+        StringCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StringCallback Mozilla StringCallback documentation> +newStringCallback ::+                  (MonadDOM m, FromJSString data') =>+                    (data' -> JSM ()) -> m (StringCallback data')+newStringCallback callback+  = liftDOM+      (StringCallback . Callback <$>+         function ""+           (\ _ _ [data'] ->+              fromJSValUnchecked data' >>= \ data'' -> callback data''))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StringCallback Mozilla StringCallback documentation> +newStringCallbackSync ::+                      (MonadDOM m, FromJSString data') =>+                        (data' -> JSM ()) -> m (StringCallback data')+newStringCallbackSync callback+  = liftDOM+      (StringCallback . Callback <$>+         function ""+           (\ _ _ [data'] ->+              fromJSValUnchecked data' >>= \ data'' -> callback data''))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StringCallback Mozilla StringCallback documentation> +newStringCallbackAsync ::+                       (MonadDOM m, FromJSString data') =>+                         (data' -> JSM ()) -> m (StringCallback data')+newStringCallbackAsync callback+  = liftDOM+      (StringCallback . Callback <$>+         function ""+           (\ _ _ [data'] ->+              fromJSValUnchecked data' >>= \ data'' -> callback data''))
+ src/JSDOM/Generated/StyleMedia.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StyleMedia+       (matchMedium, getType, StyleMedia, castToStyleMedia,+        gTypeStyleMedia)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleMedia.matchMedium Mozilla StyleMedia.matchMedium documentation> +matchMedium ::+            (MonadDOM m, ToJSString mediaquery) =>+              StyleMedia -> mediaquery -> m Bool+matchMedium self mediaquery+  = liftDOM+      ((self ^. jsf "matchMedium" [toJSVal mediaquery]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleMedia.type Mozilla StyleMedia.type documentation> +getType ::+        (MonadDOM m, FromJSString result) => StyleMedia -> m result+getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/StyleSheet.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StyleSheet+       (getType, setDisabled, getDisabled, getOwnerNode,+        getParentStyleSheet, getHref, getTitle, getMedia, StyleSheet,+        castToStyleSheet, gTypeStyleSheet, IsStyleSheet, toStyleSheet)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.type Mozilla StyleSheet.type documentation> +getType ::+        (MonadDOM m, IsStyleSheet self, FromJSString result) =>+          self -> m (Maybe result)+getType self+  = liftDOM+      (((toStyleSheet self) ^. js "type") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.disabled Mozilla StyleSheet.disabled documentation> +setDisabled ::+            (MonadDOM m, IsStyleSheet self) => self -> Bool -> m ()+setDisabled self val+  = liftDOM ((toStyleSheet self) ^. jss "disabled" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.disabled Mozilla StyleSheet.disabled documentation> +getDisabled :: (MonadDOM m, IsStyleSheet self) => self -> m Bool+getDisabled self+  = liftDOM (((toStyleSheet self) ^. js "disabled") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.ownerNode Mozilla StyleSheet.ownerNode documentation> +getOwnerNode ::+             (MonadDOM m, IsStyleSheet self) => self -> m (Maybe Node)+getOwnerNode self+  = liftDOM (((toStyleSheet self) ^. js "ownerNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.parentStyleSheet Mozilla StyleSheet.parentStyleSheet documentation> +getParentStyleSheet ::+                    (MonadDOM m, IsStyleSheet self) => self -> m (Maybe StyleSheet)+getParentStyleSheet self+  = liftDOM+      (((toStyleSheet self) ^. js "parentStyleSheet") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.href Mozilla StyleSheet.href documentation> +getHref ::+        (MonadDOM m, IsStyleSheet self, FromJSString result) =>+          self -> m (Maybe result)+getHref self+  = liftDOM+      (((toStyleSheet self) ^. js "href") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.title Mozilla StyleSheet.title documentation> +getTitle ::+         (MonadDOM m, IsStyleSheet self, FromJSString result) =>+           self -> m (Maybe result)+getTitle self+  = liftDOM+      (((toStyleSheet self) ^. js "title") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.media Mozilla StyleSheet.media documentation> +getMedia ::+         (MonadDOM m, IsStyleSheet self) => self -> m (Maybe MediaList)+getMedia self+  = liftDOM (((toStyleSheet self) ^. js "media") >>= fromJSVal)
+ src/JSDOM/Generated/StyleSheetList.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.StyleSheetList+       (item, _get, getLength, StyleSheetList, castToStyleSheetList,+        gTypeStyleSheetList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList.item Mozilla StyleSheetList.item documentation> +item ::+     (MonadDOM m) => StyleSheetList -> Word -> m (Maybe StyleSheet)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList._get Mozilla StyleSheetList._get documentation> +_get ::+     (MonadDOM m, ToJSString name) =>+       StyleSheetList -> name -> m (Maybe CSSStyleSheet)+_get self name+  = liftDOM ((self ^. jsf "_get" [toJSVal name]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList.length Mozilla StyleSheetList.length documentation> +getLength :: (MonadDOM m) => StyleSheetList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/SubtleCrypto.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.SubtleCrypto+       (encrypt, decrypt, sign, verify, digest, generateKey, importKey,+        exportKey, wrapKey, unwrapKey, SubtleCrypto, castToSubtleCrypto,+        gTypeSubtleCrypto)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.encrypt Mozilla WebKitSubtleCrypto.encrypt documentation> +encrypt ::+        (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>+          SubtleCrypto ->+            algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise)+encrypt self algorithm key data'+  = liftDOM+      ((self ^. jsf "encrypt"+          [toJSVal algorithm, toJSVal key, toJSVal (array data')])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.decrypt Mozilla WebKitSubtleCrypto.decrypt documentation> +decrypt ::+        (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>+          SubtleCrypto ->+            algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise)+decrypt self algorithm key data'+  = liftDOM+      ((self ^. jsf "decrypt"+          [toJSVal algorithm, toJSVal key, toJSVal (array data')])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.sign Mozilla WebKitSubtleCrypto.sign documentation> +sign ::+     (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>+       SubtleCrypto ->+         algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise)+sign self algorithm key data'+  = liftDOM+      ((self ^. jsf "sign"+          [toJSVal algorithm, toJSVal key, toJSVal (array data')])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.verify Mozilla WebKitSubtleCrypto.verify documentation> +verify ::+       (MonadDOM m, ToJSString algorithm, IsCryptoOperationData signature,+        IsCryptoOperationData data') =>+         SubtleCrypto ->+           algorithm ->+             Maybe CryptoKey ->+               Maybe signature -> [Maybe data'] -> m (Maybe Promise)+verify self algorithm key signature data'+  = liftDOM+      ((self ^. jsf "verify"+          [toJSVal algorithm, toJSVal key, toJSVal signature,+           toJSVal (array data')])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.digest Mozilla WebKitSubtleCrypto.digest documentation> +digest ::+       (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>+         SubtleCrypto -> algorithm -> [Maybe data'] -> m (Maybe Promise)+digest self algorithm data'+  = liftDOM+      ((self ^. jsf "digest" [toJSVal algorithm, toJSVal (array data')])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.generateKey Mozilla WebKitSubtleCrypto.generateKey documentation> +generateKey ::+            (MonadDOM m, ToJSString algorithm) =>+              SubtleCrypto ->+                algorithm -> Bool -> [KeyUsage] -> m (Maybe Promise)+generateKey self algorithm extractable keyUsages+  = liftDOM+      ((self ^. jsf "generateKey"+          [toJSVal algorithm, toJSVal extractable,+           toJSVal (array keyUsages)])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.importKey Mozilla WebKitSubtleCrypto.importKey documentation> +importKey ::+          (MonadDOM m, ToJSString format, IsCryptoOperationData keyData,+           ToJSString algorithm) =>+            SubtleCrypto ->+              format ->+                Maybe keyData ->+                  algorithm -> Bool -> [KeyUsage] -> m (Maybe Promise)+importKey self format keyData algorithm extractable keyUsages+  = liftDOM+      ((self ^. jsf "importKey"+          [toJSVal format, toJSVal keyData, toJSVal algorithm,+           toJSVal extractable, toJSVal (array keyUsages)])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.exportKey Mozilla WebKitSubtleCrypto.exportKey documentation> +exportKey ::+          (MonadDOM m, ToJSString format) =>+            SubtleCrypto -> format -> Maybe CryptoKey -> m (Maybe Promise)+exportKey self format key+  = liftDOM+      ((self ^. jsf "exportKey" [toJSVal format, toJSVal key]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.wrapKey Mozilla WebKitSubtleCrypto.wrapKey documentation> +wrapKey ::+        (MonadDOM m, ToJSString format, ToJSString wrapAlgorithm) =>+          SubtleCrypto ->+            format ->+              Maybe CryptoKey ->+                Maybe CryptoKey -> wrapAlgorithm -> m (Maybe Promise)+wrapKey self format key wrappingKey wrapAlgorithm+  = liftDOM+      ((self ^. jsf "wrapKey"+          [toJSVal format, toJSVal key, toJSVal wrappingKey,+           toJSVal wrapAlgorithm])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.unwrapKey Mozilla WebKitSubtleCrypto.unwrapKey documentation> +unwrapKey ::+          (MonadDOM m, ToJSString format, IsCryptoOperationData wrappedKey,+           ToJSString unwrapAlgorithm, ToJSString unwrappedKeyAlgorithm) =>+            SubtleCrypto ->+              format ->+                Maybe wrappedKey ->+                  Maybe CryptoKey ->+                    unwrapAlgorithm ->+                      unwrappedKeyAlgorithm -> Bool -> [KeyUsage] -> m (Maybe Promise)+unwrapKey self format wrappedKey unwrappingKey unwrapAlgorithm+  unwrappedKeyAlgorithm extractable keyUsages+  = liftDOM+      ((self ^. jsf "unwrapKey"+          [toJSVal format, toJSVal wrappedKey, toJSVal unwrappingKey,+           toJSVal unwrapAlgorithm, toJSVal unwrappedKeyAlgorithm,+           toJSVal extractable, toJSVal (array keyUsages)])+         >>= fromJSVal)
+ src/JSDOM/Generated/Text.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Text+       (newText, splitText, replaceWholeText, getWholeText, Text,+        castToText, gTypeText, IsText, toText)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Text Mozilla Text documentation> +newText :: (MonadDOM m, ToJSString data') => data' -> m Text+newText data' = liftDOM (Text <$> new (jsg "Text") [toJSVal data'])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Text.splitText Mozilla Text.splitText documentation> +splitText ::+          (MonadDOM m, IsText self) => self -> Word -> m (Maybe Text)+splitText self offset+  = liftDOM+      (((toText self) ^. jsf "splitText" [toJSVal offset]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Text.replaceWholeText Mozilla Text.replaceWholeText documentation> +replaceWholeText ::+                 (MonadDOM m, IsText self, ToJSString content) =>+                   self -> content -> m (Maybe Text)+replaceWholeText self content+  = liftDOM+      (((toText self) ^. jsf "replaceWholeText" [toJSVal content]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Text.wholeText Mozilla Text.wholeText documentation> +getWholeText ::+             (MonadDOM m, IsText self, FromJSString result) => self -> m result+getWholeText self+  = liftDOM+      (((toText self) ^. js "wholeText") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/TextEvent.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TextEvent+       (initTextEvent, getData, TextEvent, castToTextEvent,+        gTypeTextEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextEvent.initTextEvent Mozilla TextEvent.initTextEvent documentation> +initTextEvent ::+              (MonadDOM m, ToJSString typeArg, ToJSString dataArg) =>+                TextEvent ->+                  typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m ()+initTextEvent self typeArg canBubbleArg cancelableArg viewArg+  dataArg+  = liftDOM+      (void+         (self ^. jsf "initTextEvent"+            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,+             toJSVal viewArg, toJSVal dataArg]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextEvent.data Mozilla TextEvent.data documentation> +getData ::+        (MonadDOM m, FromJSString result) => TextEvent -> m result+getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/TextMetrics.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TextMetrics+       (getWidth, TextMetrics, castToTextMetrics, gTypeTextMetrics) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextMetrics.width Mozilla TextMetrics.width documentation> +getWidth :: (MonadDOM m) => TextMetrics -> m Float+getWidth self+  = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber))
+ src/JSDOM/Generated/TextTrack.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TextTrack+       (addCue, removeCue, addRegion, removeRegion, getId, setKind,+        getKind, getLabel, setLanguage, getLanguage,+        getInBandMetadataTrackDispatchType, setMode, getMode, getCues,+        getActiveCues, cueChange, getRegions, getSourceBuffer, TextTrack,+        castToTextTrack, gTypeTextTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.addCue Mozilla TextTrack.addCue documentation> +addCue ::+       (MonadDOM m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m ()+addCue self cue+  = liftDOM (void (self ^. jsf "addCue" [toJSVal cue]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.removeCue Mozilla TextTrack.removeCue documentation> +removeCue ::+          (MonadDOM m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m ()+removeCue self cue+  = liftDOM (void (self ^. jsf "removeCue" [toJSVal cue]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.addRegion Mozilla TextTrack.addRegion documentation> +addRegion :: (MonadDOM m) => TextTrack -> Maybe VTTRegion -> m ()+addRegion self region+  = liftDOM (void (self ^. jsf "addRegion" [toJSVal region]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.removeRegion Mozilla TextTrack.removeRegion documentation> +removeRegion ::+             (MonadDOM m) => TextTrack -> Maybe VTTRegion -> m ()+removeRegion self region+  = liftDOM (void (self ^. jsf "removeRegion" [toJSVal region]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.id Mozilla TextTrack.id documentation> +getId :: (MonadDOM m, FromJSString result) => TextTrack -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.kind Mozilla TextTrack.kind documentation> +setKind :: (MonadDOM m) => TextTrack -> TextTrackKind -> m ()+setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.kind Mozilla TextTrack.kind documentation> +getKind :: (MonadDOM m) => TextTrack -> m TextTrackKind+getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.label Mozilla TextTrack.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => TextTrack -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.language Mozilla TextTrack.language documentation> +setLanguage ::+            (MonadDOM m, ToJSString val) => TextTrack -> val -> m ()+setLanguage self val+  = liftDOM (self ^. jss "language" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.language Mozilla TextTrack.language documentation> +getLanguage ::+            (MonadDOM m, FromJSString result) => TextTrack -> m result+getLanguage self+  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.inBandMetadataTrackDispatchType Mozilla TextTrack.inBandMetadataTrackDispatchType documentation> +getInBandMetadataTrackDispatchType ::+                                   (MonadDOM m, FromJSString result) => TextTrack -> m result+getInBandMetadataTrackDispatchType self+  = liftDOM+      ((self ^. js "inBandMetadataTrackDispatchType") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.mode Mozilla TextTrack.mode documentation> +setMode :: (MonadDOM m) => TextTrack -> TextTrackMode -> m ()+setMode self val = liftDOM (self ^. jss "mode" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.mode Mozilla TextTrack.mode documentation> +getMode :: (MonadDOM m) => TextTrack -> m TextTrackMode+getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.cues Mozilla TextTrack.cues documentation> +getCues :: (MonadDOM m) => TextTrack -> m (Maybe TextTrackCueList)+getCues self = liftDOM ((self ^. js "cues") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.activeCues Mozilla TextTrack.activeCues documentation> +getActiveCues ::+              (MonadDOM m) => TextTrack -> m (Maybe TextTrackCueList)+getActiveCues self+  = liftDOM ((self ^. js "activeCues") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.oncuechange Mozilla TextTrack.oncuechange documentation> +cueChange :: EventName TextTrack Event+cueChange = unsafeEventName (toJSString "cuechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.regions Mozilla TextTrack.regions documentation> +getRegions :: (MonadDOM m) => TextTrack -> m (Maybe VTTRegionList)+getRegions self = liftDOM ((self ^. js "regions") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.sourceBuffer Mozilla TextTrack.sourceBuffer documentation> +getSourceBuffer ::+                (MonadDOM m) => TextTrack -> m (Maybe SourceBuffer)+getSourceBuffer self+  = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal)
+ src/JSDOM/Generated/TextTrackCue.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TextTrackCue+       (newTextTrackCue, getTrack, setId, getId, setStartTime,+        getStartTime, setEndTime, getEndTime, setPauseOnExit,+        getPauseOnExit, enter, exit, TextTrackCue, castToTextTrackCue,+        gTypeTextTrackCue, IsTextTrackCue, toTextTrackCue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue Mozilla TextTrackCue documentation> +newTextTrackCue ::+                (MonadDOM m, ToJSString text) =>+                  Double -> Double -> text -> m TextTrackCue+newTextTrackCue startTime endTime text+  = liftDOM+      (TextTrackCue <$>+         new (jsg "TextTrackCue")+           [toJSVal startTime, toJSVal endTime, toJSVal text])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.track Mozilla TextTrackCue.track documentation> +getTrack ::+         (MonadDOM m, IsTextTrackCue self) => self -> m (Maybe TextTrack)+getTrack self+  = liftDOM (((toTextTrackCue self) ^. js "track") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.id Mozilla TextTrackCue.id documentation> +setId ::+      (MonadDOM m, IsTextTrackCue self, ToJSString val) =>+        self -> val -> m ()+setId self val+  = liftDOM ((toTextTrackCue self) ^. jss "id" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.id Mozilla TextTrackCue.id documentation> +getId ::+      (MonadDOM m, IsTextTrackCue self, FromJSString result) =>+        self -> m result+getId self+  = liftDOM+      (((toTextTrackCue self) ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.startTime Mozilla TextTrackCue.startTime documentation> +setStartTime ::+             (MonadDOM m, IsTextTrackCue self) => self -> Double -> m ()+setStartTime self val+  = liftDOM ((toTextTrackCue self) ^. jss "startTime" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.startTime Mozilla TextTrackCue.startTime documentation> +getStartTime ::+             (MonadDOM m, IsTextTrackCue self) => self -> m Double+getStartTime self+  = liftDOM+      (((toTextTrackCue self) ^. js "startTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.endTime Mozilla TextTrackCue.endTime documentation> +setEndTime ::+           (MonadDOM m, IsTextTrackCue self) => self -> Double -> m ()+setEndTime self val+  = liftDOM ((toTextTrackCue self) ^. jss "endTime" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.endTime Mozilla TextTrackCue.endTime documentation> +getEndTime :: (MonadDOM m, IsTextTrackCue self) => self -> m Double+getEndTime self+  = liftDOM (((toTextTrackCue self) ^. js "endTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.pauseOnExit Mozilla TextTrackCue.pauseOnExit documentation> +setPauseOnExit ::+               (MonadDOM m, IsTextTrackCue self) => self -> Bool -> m ()+setPauseOnExit self val+  = liftDOM+      ((toTextTrackCue self) ^. jss "pauseOnExit" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.pauseOnExit Mozilla TextTrackCue.pauseOnExit documentation> +getPauseOnExit ::+               (MonadDOM m, IsTextTrackCue self) => self -> m Bool+getPauseOnExit self+  = liftDOM+      (((toTextTrackCue self) ^. js "pauseOnExit") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.onenter Mozilla TextTrackCue.onenter documentation> +enter ::+      (IsTextTrackCue self, IsEventTarget self) => EventName self Event+enter = unsafeEventName (toJSString "enter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.onexit Mozilla TextTrackCue.onexit documentation> +exit ::+     (IsTextTrackCue self, IsEventTarget self) => EventName self Event+exit = unsafeEventName (toJSString "exit")
+ src/JSDOM/Generated/TextTrackCueList.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TextTrackCueList+       (item, getCueById, getLength, TextTrackCueList,+        castToTextTrackCueList, gTypeTextTrackCueList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList.item Mozilla TextTrackCueList.item documentation> +item ::+     (MonadDOM m) => TextTrackCueList -> Word -> m (Maybe TextTrackCue)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList.getCueById Mozilla TextTrackCueList.getCueById documentation> +getCueById ::+           (MonadDOM m, ToJSString id) =>+             TextTrackCueList -> id -> m (Maybe TextTrackCue)+getCueById self id+  = liftDOM ((self ^. jsf "getCueById" [toJSVal id]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList.length Mozilla TextTrackCueList.length documentation> +getLength :: (MonadDOM m) => TextTrackCueList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/TextTrackList.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TextTrackList+       (item, getTrackById, getLength, addTrack, change, removeTrack,+        TextTrackList, castToTextTrackList, gTypeTextTrackList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.item Mozilla TextTrackList.item documentation> +item ::+     (MonadDOM m) => TextTrackList -> Word -> m (Maybe TextTrack)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.getTrackById Mozilla TextTrackList.getTrackById documentation> +getTrackById ::+             (MonadDOM m, ToJSString id) =>+               TextTrackList -> id -> m (Maybe TextTrack)+getTrackById self id+  = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.length Mozilla TextTrackList.length documentation> +getLength :: (MonadDOM m) => TextTrackList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.onaddtrack Mozilla TextTrackList.onaddtrack documentation> +addTrack :: EventName TextTrackList Event+addTrack = unsafeEventName (toJSString "addtrack")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.onchange Mozilla TextTrackList.onchange documentation> +change :: EventName TextTrackList Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.onremovetrack Mozilla TextTrackList.onremovetrack documentation> +removeTrack :: EventName TextTrackList Event+removeTrack = unsafeEventName (toJSString "removetrack")
+ src/JSDOM/Generated/TimeRanges.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TimeRanges+       (start, end, getLength, TimeRanges, castToTimeRanges,+        gTypeTimeRanges)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges.start Mozilla TimeRanges.start documentation> +start :: (MonadDOM m) => TimeRanges -> Word -> m Double+start self index+  = liftDOM ((self ^. jsf "start" [toJSVal index]) >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges.end Mozilla TimeRanges.end documentation> +end :: (MonadDOM m) => TimeRanges -> Word -> m Double+end self index+  = liftDOM ((self ^. jsf "end" [toJSVal index]) >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges.length Mozilla TimeRanges.length documentation> +getLength :: (MonadDOM m) => TimeRanges -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/Touch.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Touch+       (getClientX, getClientY, getScreenX, getScreenY, getPageX,+        getPageY, getTarget, getIdentifier, getWebkitRadiusX,+        getWebkitRadiusY, getWebkitRotationAngle, getWebkitForce, Touch,+        castToTouch, gTypeTouch)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.clientX Mozilla Touch.clientX documentation> +getClientX :: (MonadDOM m) => Touch -> m Int+getClientX self+  = liftDOM (round <$> ((self ^. js "clientX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.clientY Mozilla Touch.clientY documentation> +getClientY :: (MonadDOM m) => Touch -> m Int+getClientY self+  = liftDOM (round <$> ((self ^. js "clientY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.screenX Mozilla Touch.screenX documentation> +getScreenX :: (MonadDOM m) => Touch -> m Int+getScreenX self+  = liftDOM (round <$> ((self ^. js "screenX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.screenY Mozilla Touch.screenY documentation> +getScreenY :: (MonadDOM m) => Touch -> m Int+getScreenY self+  = liftDOM (round <$> ((self ^. js "screenY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.pageX Mozilla Touch.pageX documentation> +getPageX :: (MonadDOM m) => Touch -> m Int+getPageX self+  = liftDOM (round <$> ((self ^. js "pageX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.pageY Mozilla Touch.pageY documentation> +getPageY :: (MonadDOM m) => Touch -> m Int+getPageY self+  = liftDOM (round <$> ((self ^. js "pageY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.target Mozilla Touch.target documentation> +getTarget :: (MonadDOM m) => Touch -> m (Maybe EventTarget)+getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.identifier Mozilla Touch.identifier documentation> +getIdentifier :: (MonadDOM m) => Touch -> m Word+getIdentifier self+  = liftDOM (round <$> ((self ^. js "identifier") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitRadiusX Mozilla Touch.webkitRadiusX documentation> +getWebkitRadiusX :: (MonadDOM m) => Touch -> m Int+getWebkitRadiusX self+  = liftDOM+      (round <$> ((self ^. js "webkitRadiusX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitRadiusY Mozilla Touch.webkitRadiusY documentation> +getWebkitRadiusY :: (MonadDOM m) => Touch -> m Int+getWebkitRadiusY self+  = liftDOM+      (round <$> ((self ^. js "webkitRadiusY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitRotationAngle Mozilla Touch.webkitRotationAngle documentation> +getWebkitRotationAngle :: (MonadDOM m) => Touch -> m Float+getWebkitRotationAngle self+  = liftDOM+      (realToFrac <$>+         ((self ^. js "webkitRotationAngle") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitForce Mozilla Touch.webkitForce documentation> +getWebkitForce :: (MonadDOM m) => Touch -> m Float+getWebkitForce self+  = liftDOM+      (realToFrac <$> ((self ^. js "webkitForce") >>= valToNumber))
+ src/JSDOM/Generated/TouchEvent.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TouchEvent+       (initTouchEvent, getTouches, getTargetTouches, getChangedTouches,+        getCtrlKey, getShiftKey, getAltKey, getMetaKey, TouchEvent,+        castToTouchEvent, gTypeTouchEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.initTouchEvent Mozilla TouchEvent.initTouchEvent documentation> +initTouchEvent ::+               (MonadDOM m, ToJSString type') =>+                 TouchEvent ->+                   Maybe TouchList ->+                     Maybe TouchList ->+                       Maybe TouchList ->+                         type' ->+                           Maybe Window ->+                             Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m ()+initTouchEvent self touches targetTouches changedTouches type' view+  screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey+  = liftDOM+      (void+         (self ^. jsf "initTouchEvent"+            [toJSVal touches, toJSVal targetTouches, toJSVal changedTouches,+             toJSVal type', toJSVal view, toJSVal screenX, toJSVal screenY,+             toJSVal clientX, toJSVal clientY, toJSVal ctrlKey, toJSVal altKey,+             toJSVal shiftKey, toJSVal metaKey]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.touches Mozilla TouchEvent.touches documentation> +getTouches :: (MonadDOM m) => TouchEvent -> m (Maybe TouchList)+getTouches self = liftDOM ((self ^. js "touches") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.targetTouches Mozilla TouchEvent.targetTouches documentation> +getTargetTouches ::+                 (MonadDOM m) => TouchEvent -> m (Maybe TouchList)+getTargetTouches self+  = liftDOM ((self ^. js "targetTouches") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.changedTouches Mozilla TouchEvent.changedTouches documentation> +getChangedTouches ::+                  (MonadDOM m) => TouchEvent -> m (Maybe TouchList)+getChangedTouches self+  = liftDOM ((self ^. js "changedTouches") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.ctrlKey Mozilla TouchEvent.ctrlKey documentation> +getCtrlKey :: (MonadDOM m) => TouchEvent -> m Bool+getCtrlKey self = liftDOM ((self ^. js "ctrlKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.shiftKey Mozilla TouchEvent.shiftKey documentation> +getShiftKey :: (MonadDOM m) => TouchEvent -> m Bool+getShiftKey self = liftDOM ((self ^. js "shiftKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.altKey Mozilla TouchEvent.altKey documentation> +getAltKey :: (MonadDOM m) => TouchEvent -> m Bool+getAltKey self = liftDOM ((self ^. js "altKey") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.metaKey Mozilla TouchEvent.metaKey documentation> +getMetaKey :: (MonadDOM m) => TouchEvent -> m Bool+getMetaKey self = liftDOM ((self ^. js "metaKey") >>= valToBool)
+ src/JSDOM/Generated/TouchList.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TouchList+       (item, getLength, TouchList, castToTouchList, gTypeTouchList) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchList.item Mozilla TouchList.item documentation> +item :: (MonadDOM m) => TouchList -> Word -> m (Maybe Touch)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchList.length Mozilla TouchList.length documentation> +getLength :: (MonadDOM m) => TouchList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/TrackEvent.hs view
@@ -0,0 +1,18 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TrackEvent+       (getTrack, TrackEvent, castToTrackEvent, gTypeTrackEvent) where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TrackEvent.track Mozilla TrackEvent.track documentation> +getTrack :: (MonadDOM m) => TrackEvent -> m (Maybe GObject)+getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)
+ src/JSDOM/Generated/TransitionEvent.hs view
@@ -0,0 +1,33 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TransitionEvent+       (getPropertyName, getElapsedTime, getPseudoElement,+        TransitionEvent, castToTransitionEvent, gTypeTransitionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent.propertyName Mozilla TransitionEvent.propertyName documentation> +getPropertyName ::+                (MonadDOM m, FromJSString result) => TransitionEvent -> m result+getPropertyName self+  = liftDOM ((self ^. js "propertyName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent.elapsedTime Mozilla TransitionEvent.elapsedTime documentation> +getElapsedTime :: (MonadDOM m) => TransitionEvent -> m Double+getElapsedTime self+  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent.pseudoElement Mozilla TransitionEvent.pseudoElement documentation> +getPseudoElement ::+                 (MonadDOM m, FromJSString result) => TransitionEvent -> m result+getPseudoElement self+  = liftDOM ((self ^. js "pseudoElement") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/TreeWalker.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TreeWalker+       (parentNode, firstChild, lastChild, previousSibling, nextSibling,+        previousNode, nextNode, getRoot, getWhatToShow, getFilter,+        getExpandEntityReferences, setCurrentNode, getCurrentNode,+        TreeWalker, castToTreeWalker, gTypeTreeWalker)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.parentNode Mozilla TreeWalker.parentNode documentation> +parentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+parentNode self = liftDOM ((self ^. js "parentNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.firstChild Mozilla TreeWalker.firstChild documentation> +firstChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+firstChild self = liftDOM ((self ^. js "firstChild") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.lastChild Mozilla TreeWalker.lastChild documentation> +lastChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+lastChild self = liftDOM ((self ^. js "lastChild") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.previousSibling Mozilla TreeWalker.previousSibling documentation> +previousSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+previousSibling self+  = liftDOM ((self ^. js "previousSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.nextSibling Mozilla TreeWalker.nextSibling documentation> +nextSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+nextSibling self+  = liftDOM ((self ^. js "nextSibling") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.previousNode Mozilla TreeWalker.previousNode documentation> +previousNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+previousNode self+  = liftDOM ((self ^. js "previousNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.nextNode Mozilla TreeWalker.nextNode documentation> +nextNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+nextNode self = liftDOM ((self ^. js "nextNode") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.root Mozilla TreeWalker.root documentation> +getRoot :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.whatToShow Mozilla TreeWalker.whatToShow documentation> +getWhatToShow :: (MonadDOM m) => TreeWalker -> m Word+getWhatToShow self+  = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.filter Mozilla TreeWalker.filter documentation> +getFilter :: (MonadDOM m) => TreeWalker -> m (Maybe NodeFilter)+getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.expandEntityReferences Mozilla TreeWalker.expandEntityReferences documentation> +getExpandEntityReferences :: (MonadDOM m) => TreeWalker -> m Bool+getExpandEntityReferences self+  = liftDOM ((self ^. js "expandEntityReferences") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.currentNode Mozilla TreeWalker.currentNode documentation> +setCurrentNode ::+               (MonadDOM m, IsNode val) => TreeWalker -> Maybe val -> m ()+setCurrentNode self val+  = liftDOM (self ^. jss "currentNode" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.currentNode Mozilla TreeWalker.currentNode documentation> +getCurrentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)+getCurrentNode self+  = liftDOM ((self ^. js "currentNode") >>= fromJSVal)
+ src/JSDOM/Generated/TypeConversions.hs view
@@ -0,0 +1,224 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.TypeConversions+       (setTestLong, getTestLong, setTestEnforceRangeLong,+        getTestEnforceRangeLong, setTestUnsignedLong, getTestUnsignedLong,+        setTestEnforceRangeUnsignedLong, getTestEnforceRangeUnsignedLong,+        setTestLongLong, getTestLongLong, setTestEnforceRangeLongLong,+        getTestEnforceRangeLongLong, setTestUnsignedLongLong,+        getTestUnsignedLongLong, setTestEnforceRangeUnsignedLongLong,+        getTestEnforceRangeUnsignedLongLong, setTestByte, getTestByte,+        setTestEnforceRangeByte, getTestEnforceRangeByte, setTestOctet,+        getTestOctet, setTestEnforceRangeOctet, getTestEnforceRangeOctet,+        setTestShort, getTestShort, setTestEnforceRangeShort,+        getTestEnforceRangeShort, setTestUnsignedShort,+        getTestUnsignedShort, setTestEnforceRangeUnsignedShort,+        getTestEnforceRangeUnsignedShort, TypeConversions,+        castToTypeConversions, gTypeTypeConversions)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLong Mozilla TypeConversions.testLong documentation> +setTestLong :: (MonadDOM m) => TypeConversions -> Int -> m ()+setTestLong self val+  = liftDOM (self ^. jss "testLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLong Mozilla TypeConversions.testLong documentation> +getTestLong :: (MonadDOM m) => TypeConversions -> m Int+getTestLong self+  = liftDOM (round <$> ((self ^. js "testLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLong Mozilla TypeConversions.testEnforceRangeLong documentation> +setTestEnforceRangeLong ::+                        (MonadDOM m) => TypeConversions -> Int -> m ()+setTestEnforceRangeLong self val+  = liftDOM (self ^. jss "testEnforceRangeLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLong Mozilla TypeConversions.testEnforceRangeLong documentation> +getTestEnforceRangeLong :: (MonadDOM m) => TypeConversions -> m Int+getTestEnforceRangeLong self+  = liftDOM+      (round <$> ((self ^. js "testEnforceRangeLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLong Mozilla TypeConversions.testUnsignedLong documentation> +setTestUnsignedLong ::+                    (MonadDOM m) => TypeConversions -> Word -> m ()+setTestUnsignedLong self val+  = liftDOM (self ^. jss "testUnsignedLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLong Mozilla TypeConversions.testUnsignedLong documentation> +getTestUnsignedLong :: (MonadDOM m) => TypeConversions -> m Word+getTestUnsignedLong self+  = liftDOM+      (round <$> ((self ^. js "testUnsignedLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLong Mozilla TypeConversions.testEnforceRangeUnsignedLong documentation> +setTestEnforceRangeUnsignedLong ::+                                (MonadDOM m) => TypeConversions -> Word -> m ()+setTestEnforceRangeUnsignedLong self val+  = liftDOM+      (self ^. jss "testEnforceRangeUnsignedLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLong Mozilla TypeConversions.testEnforceRangeUnsignedLong documentation> +getTestEnforceRangeUnsignedLong ::+                                (MonadDOM m) => TypeConversions -> m Word+getTestEnforceRangeUnsignedLong self+  = liftDOM+      (round <$>+         ((self ^. js "testEnforceRangeUnsignedLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLongLong Mozilla TypeConversions.testLongLong documentation> +setTestLongLong :: (MonadDOM m) => TypeConversions -> Int64 -> m ()+setTestLongLong self val+  = liftDOM (self ^. jss "testLongLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLongLong Mozilla TypeConversions.testLongLong documentation> +getTestLongLong :: (MonadDOM m) => TypeConversions -> m Int64+getTestLongLong self+  = liftDOM (round <$> ((self ^. js "testLongLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLongLong Mozilla TypeConversions.testEnforceRangeLongLong documentation> +setTestEnforceRangeLongLong ::+                            (MonadDOM m) => TypeConversions -> Int64 -> m ()+setTestEnforceRangeLongLong self val+  = liftDOM (self ^. jss "testEnforceRangeLongLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLongLong Mozilla TypeConversions.testEnforceRangeLongLong documentation> +getTestEnforceRangeLongLong ::+                            (MonadDOM m) => TypeConversions -> m Int64+getTestEnforceRangeLongLong self+  = liftDOM+      (round <$>+         ((self ^. js "testEnforceRangeLongLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLongLong Mozilla TypeConversions.testUnsignedLongLong documentation> +setTestUnsignedLongLong ::+                        (MonadDOM m) => TypeConversions -> Word64 -> m ()+setTestUnsignedLongLong self val+  = liftDOM (self ^. jss "testUnsignedLongLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLongLong Mozilla TypeConversions.testUnsignedLongLong documentation> +getTestUnsignedLongLong ::+                        (MonadDOM m) => TypeConversions -> m Word64+getTestUnsignedLongLong self+  = liftDOM+      (round <$> ((self ^. js "testUnsignedLongLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLongLong Mozilla TypeConversions.testEnforceRangeUnsignedLongLong documentation> +setTestEnforceRangeUnsignedLongLong ::+                                    (MonadDOM m) => TypeConversions -> Word64 -> m ()+setTestEnforceRangeUnsignedLongLong self val+  = liftDOM+      (self ^. jss "testEnforceRangeUnsignedLongLong" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLongLong Mozilla TypeConversions.testEnforceRangeUnsignedLongLong documentation> +getTestEnforceRangeUnsignedLongLong ::+                                    (MonadDOM m) => TypeConversions -> m Word64+getTestEnforceRangeUnsignedLongLong self+  = liftDOM+      (round <$>+         ((self ^. js "testEnforceRangeUnsignedLongLong") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testByte Mozilla TypeConversions.testByte documentation> +setTestByte :: (MonadDOM m) => TypeConversions -> Int -> m ()+setTestByte self val+  = liftDOM (self ^. jss "testByte" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testByte Mozilla TypeConversions.testByte documentation> +getTestByte :: (MonadDOM m) => TypeConversions -> m Int+getTestByte self+  = liftDOM (round <$> ((self ^. js "testByte") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeByte Mozilla TypeConversions.testEnforceRangeByte documentation> +setTestEnforceRangeByte ::+                        (MonadDOM m) => TypeConversions -> Int -> m ()+setTestEnforceRangeByte self val+  = liftDOM (self ^. jss "testEnforceRangeByte" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeByte Mozilla TypeConversions.testEnforceRangeByte documentation> +getTestEnforceRangeByte :: (MonadDOM m) => TypeConversions -> m Int+getTestEnforceRangeByte self+  = liftDOM+      (round <$> ((self ^. js "testEnforceRangeByte") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testOctet Mozilla TypeConversions.testOctet documentation> +setTestOctet :: (MonadDOM m) => TypeConversions -> Word -> m ()+setTestOctet self val+  = liftDOM (self ^. jss "testOctet" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testOctet Mozilla TypeConversions.testOctet documentation> +getTestOctet :: (MonadDOM m) => TypeConversions -> m Word+getTestOctet self+  = liftDOM (round <$> ((self ^. js "testOctet") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeOctet Mozilla TypeConversions.testEnforceRangeOctet documentation> +setTestEnforceRangeOctet ::+                         (MonadDOM m) => TypeConversions -> Word -> m ()+setTestEnforceRangeOctet self val+  = liftDOM (self ^. jss "testEnforceRangeOctet" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeOctet Mozilla TypeConversions.testEnforceRangeOctet documentation> +getTestEnforceRangeOctet ::+                         (MonadDOM m) => TypeConversions -> m Word+getTestEnforceRangeOctet self+  = liftDOM+      (round <$> ((self ^. js "testEnforceRangeOctet") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testShort Mozilla TypeConversions.testShort documentation> +setTestShort :: (MonadDOM m) => TypeConversions -> Int -> m ()+setTestShort self val+  = liftDOM (self ^. jss "testShort" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testShort Mozilla TypeConversions.testShort documentation> +getTestShort :: (MonadDOM m) => TypeConversions -> m Int+getTestShort self+  = liftDOM (round <$> ((self ^. js "testShort") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeShort Mozilla TypeConversions.testEnforceRangeShort documentation> +setTestEnforceRangeShort ::+                         (MonadDOM m) => TypeConversions -> Int -> m ()+setTestEnforceRangeShort self val+  = liftDOM (self ^. jss "testEnforceRangeShort" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeShort Mozilla TypeConversions.testEnforceRangeShort documentation> +getTestEnforceRangeShort ::+                         (MonadDOM m) => TypeConversions -> m Int+getTestEnforceRangeShort self+  = liftDOM+      (round <$> ((self ^. js "testEnforceRangeShort") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedShort Mozilla TypeConversions.testUnsignedShort documentation> +setTestUnsignedShort ::+                     (MonadDOM m) => TypeConversions -> Word -> m ()+setTestUnsignedShort self val+  = liftDOM (self ^. jss "testUnsignedShort" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedShort Mozilla TypeConversions.testUnsignedShort documentation> +getTestUnsignedShort :: (MonadDOM m) => TypeConversions -> m Word+getTestUnsignedShort self+  = liftDOM+      (round <$> ((self ^. js "testUnsignedShort") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedShort Mozilla TypeConversions.testEnforceRangeUnsignedShort documentation> +setTestEnforceRangeUnsignedShort ::+                                 (MonadDOM m) => TypeConversions -> Word -> m ()+setTestEnforceRangeUnsignedShort self val+  = liftDOM+      (self ^. jss "testEnforceRangeUnsignedShort" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedShort Mozilla TypeConversions.testEnforceRangeUnsignedShort documentation> +getTestEnforceRangeUnsignedShort ::+                                 (MonadDOM m) => TypeConversions -> m Word+getTestEnforceRangeUnsignedShort self+  = liftDOM+      (round <$>+         ((self ^. js "testEnforceRangeUnsignedShort") >>= valToNumber))
+ src/JSDOM/Generated/UIEvent.hs view
@@ -0,0 +1,80 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.UIEvent+       (initUIEvent, getView, getDetail, getKeyCode, getCharCode,+        getLayerX, getLayerY, getPageX, getPageY, getWhich, UIEvent,+        castToUIEvent, gTypeUIEvent, IsUIEvent, toUIEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.initUIEvent Mozilla UIEvent.initUIEvent documentation> +initUIEvent ::+            (MonadDOM m, IsUIEvent self, ToJSString type') =>+              self -> type' -> Bool -> Bool -> Maybe Window -> Int -> m ()+initUIEvent self type' canBubble cancelable view detail+  = liftDOM+      (void+         ((toUIEvent self) ^. jsf "initUIEvent"+            [toJSVal type', toJSVal canBubble, toJSVal cancelable,+             toJSVal view, toJSVal detail]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.view Mozilla UIEvent.view documentation> +getView :: (MonadDOM m, IsUIEvent self) => self -> m (Maybe Window)+getView self+  = liftDOM (((toUIEvent self) ^. js "view") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.detail Mozilla UIEvent.detail documentation> +getDetail :: (MonadDOM m, IsUIEvent self) => self -> m Int+getDetail self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "detail") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.keyCode Mozilla UIEvent.keyCode documentation> +getKeyCode :: (MonadDOM m, IsUIEvent self) => self -> m Int+getKeyCode self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "keyCode") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.charCode Mozilla UIEvent.charCode documentation> +getCharCode :: (MonadDOM m, IsUIEvent self) => self -> m Int+getCharCode self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "charCode") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.layerX Mozilla UIEvent.layerX documentation> +getLayerX :: (MonadDOM m, IsUIEvent self) => self -> m Int+getLayerX self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "layerX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.layerY Mozilla UIEvent.layerY documentation> +getLayerY :: (MonadDOM m, IsUIEvent self) => self -> m Int+getLayerY self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "layerY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.pageX Mozilla UIEvent.pageX documentation> +getPageX :: (MonadDOM m, IsUIEvent self) => self -> m Int+getPageX self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "pageX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.pageY Mozilla UIEvent.pageY documentation> +getPageY :: (MonadDOM m, IsUIEvent self) => self -> m Int+getPageY self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "pageY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.which Mozilla UIEvent.which documentation> +getWhich :: (MonadDOM m, IsUIEvent self) => self -> m Int+getWhich self+  = liftDOM+      (round <$> (((toUIEvent self) ^. js "which") >>= valToNumber))
+ src/JSDOM/Generated/UIRequestEvent.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.UIRequestEvent+       (getReceiver, UIRequestEvent, castToUIRequestEvent,+        gTypeUIRequestEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UIRequestEvent.receiver Mozilla UIRequestEvent.receiver documentation> +getReceiver ::+            (MonadDOM m) => UIRequestEvent -> m (Maybe EventTarget)+getReceiver self = liftDOM ((self ^. js "receiver") >>= fromJSVal)
+ src/JSDOM/Generated/URL.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.URL+       (newURL, newURL', newURL'', createObjectURL, revokeObjectURL,+        createObjectURLSource, createObjectURLStream, URL, castToURL,+        gTypeURL)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation> +newURL :: (MonadDOM m, ToJSString url) => url -> m URL+newURL url = liftDOM (URL <$> new (jsg "URL") [toJSVal url])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation> +newURL' ::+        (MonadDOM m, ToJSString url, ToJSString base) =>+          url -> base -> m URL+newURL' url base+  = liftDOM (URL <$> new (jsg "URL") [toJSVal url, toJSVal base])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation> +newURL'' ::+         (MonadDOM m, ToJSString url) => url -> Maybe URL -> m URL+newURL'' url base+  = liftDOM (URL <$> new (jsg "URL") [toJSVal url, toJSVal base])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.createObjectURL Mozilla URL.createObjectURL documentation> +createObjectURL ::+                (MonadDOM m, IsBlob blob, FromJSString result) =>+                  URL -> Maybe blob -> m (Maybe result)+createObjectURL self blob+  = liftDOM+      ((self ^. jsf "createObjectURL" [toJSVal blob]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.revokeObjectURL Mozilla URL.revokeObjectURL documentation> +revokeObjectURL ::+                (MonadDOM m, ToJSString url) => URL -> url -> m ()+revokeObjectURL self url+  = liftDOM (void (self ^. jsf "revokeObjectURL" [toJSVal url]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.createObjectURL Mozilla URL.createObjectURL documentation> +createObjectURLSource ::+                      (MonadDOM m, FromJSString result) =>+                        URL -> Maybe MediaSource -> m (Maybe result)+createObjectURLSource self source+  = liftDOM+      ((self ^. jsf "createObjectURL" [toJSVal source]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.createObjectURL Mozilla URL.createObjectURL documentation> +createObjectURLStream ::+                      (MonadDOM m, FromJSString result) =>+                        URL -> Maybe MediaStream -> m (Maybe result)+createObjectURLStream self stream+  = liftDOM+      ((self ^. jsf "createObjectURL" [toJSVal stream]) >>=+         fromMaybeJSString)
+ src/JSDOM/Generated/URLUtils.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.URLUtils+       (toString, setHref, getHref, getOrigin, setProtocol, getProtocol,+        setUsername, getUsername, setPassword, getPassword, setHost,+        getHost, setHostname, getHostname, setPort, getPort, setPathname,+        getPathname, setSearch, getSearch, setHash, getHash, URLUtils,+        castToURLUtils, gTypeURLUtils)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.toString Mozilla URLUtils.toString documentation> +toString ::+         (MonadDOM m, FromJSString result) => URLUtils -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.href Mozilla URLUtils.href documentation> +setHref :: (MonadDOM m, ToJSString val) => URLUtils -> val -> m ()+setHref self val = liftDOM (self ^. jss "href" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.href Mozilla URLUtils.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) => URLUtils -> m result+getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.origin Mozilla URLUtils.origin documentation> +getOrigin ::+          (MonadDOM m, FromJSString result) => URLUtils -> m result+getOrigin self+  = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.protocol Mozilla URLUtils.protocol documentation> +setProtocol ::+            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setProtocol self val+  = liftDOM (self ^. jss "protocol" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.protocol Mozilla URLUtils.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.username Mozilla URLUtils.username documentation> +setUsername ::+            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setUsername self val+  = liftDOM (self ^. jss "username" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.username Mozilla URLUtils.username documentation> +getUsername ::+            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getUsername self+  = liftDOM ((self ^. js "username") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.password Mozilla URLUtils.password documentation> +setPassword ::+            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setPassword self val+  = liftDOM (self ^. jss "password" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.password Mozilla URLUtils.password documentation> +getPassword ::+            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getPassword self+  = liftDOM ((self ^. js "password") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.host Mozilla URLUtils.host documentation> +setHost ::+        (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setHost self val = liftDOM (self ^. jss "host" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.host Mozilla URLUtils.host documentation> +getHost ::+        (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hostname Mozilla URLUtils.hostname documentation> +setHostname ::+            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setHostname self val+  = liftDOM (self ^. jss "hostname" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hostname Mozilla URLUtils.hostname documentation> +getHostname ::+            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getHostname self+  = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.port Mozilla URLUtils.port documentation> +setPort ::+        (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setPort self val = liftDOM (self ^. jss "port" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.port Mozilla URLUtils.port documentation> +getPort ::+        (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.pathname Mozilla URLUtils.pathname documentation> +setPathname ::+            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setPathname self val+  = liftDOM (self ^. jss "pathname" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.pathname Mozilla URLUtils.pathname documentation> +getPathname ::+            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getPathname self+  = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.search Mozilla URLUtils.search documentation> +setSearch ::+          (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.search Mozilla URLUtils.search documentation> +getSearch ::+          (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getSearch self+  = liftDOM ((self ^. js "search") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hash Mozilla URLUtils.hash documentation> +setHash ::+        (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()+setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hash Mozilla URLUtils.hash documentation> +getHash ::+        (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)+getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString)
+ src/JSDOM/Generated/UserMessageHandler.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.UserMessageHandler+       (postMessage, UserMessageHandler, castToUserMessageHandler,+        gTypeUserMessageHandler)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/UserMessageHandler.postMessage Mozilla UserMessageHandler.postMessage documentation> +postMessage ::+            (MonadDOM m, IsSerializedScriptValue message) =>+              UserMessageHandler -> Maybe message -> m ()+postMessage self message+  = liftDOM (void (self ^. jsf "postMessage" [toJSVal message]))
+ src/JSDOM/Generated/VTTCue.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VTTCue+       (newVTTCue, getCueAsHTML, setVertical, getVertical, setSnapToLines,+        getSnapToLines, setLine, getLine, setPosition, getPosition,+        setSize, getSize, setAlign, getAlign, setText, getText,+        setRegionId, getRegionId, VTTCue, castToVTTCue, gTypeVTTCue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue Mozilla VTTCue documentation> +newVTTCue ::+          (MonadDOM m, ToJSString text) =>+            Double -> Double -> text -> m VTTCue+newVTTCue startTime endTime text+  = liftDOM+      (VTTCue <$>+         new (jsg "VTTCue")+           [toJSVal startTime, toJSVal endTime, toJSVal text])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.getCueAsHTML Mozilla VTTCue.getCueAsHTML documentation> +getCueAsHTML ::+             (MonadDOM m) => VTTCue -> m (Maybe DocumentFragment)+getCueAsHTML self+  = liftDOM ((self ^. js "getCueAsHTML") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.vertical Mozilla VTTCue.vertical documentation> +setVertical ::+            (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()+setVertical self val+  = liftDOM (self ^. jss "vertical" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.vertical Mozilla VTTCue.vertical documentation> +getVertical ::+            (MonadDOM m, FromJSString result) => VTTCue -> m result+getVertical self+  = liftDOM ((self ^. js "vertical") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.snapToLines Mozilla VTTCue.snapToLines documentation> +setSnapToLines :: (MonadDOM m) => VTTCue -> Bool -> m ()+setSnapToLines self val+  = liftDOM (self ^. jss "snapToLines" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.snapToLines Mozilla VTTCue.snapToLines documentation> +getSnapToLines :: (MonadDOM m) => VTTCue -> m Bool+getSnapToLines self+  = liftDOM ((self ^. js "snapToLines") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.line Mozilla VTTCue.line documentation> +setLine :: (MonadDOM m) => VTTCue -> Double -> m ()+setLine self val = liftDOM (self ^. jss "line" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.line Mozilla VTTCue.line documentation> +getLine :: (MonadDOM m) => VTTCue -> m Double+getLine self = liftDOM ((self ^. js "line") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.position Mozilla VTTCue.position documentation> +setPosition :: (MonadDOM m) => VTTCue -> Double -> m ()+setPosition self val+  = liftDOM (self ^. jss "position" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.position Mozilla VTTCue.position documentation> +getPosition :: (MonadDOM m) => VTTCue -> m Double+getPosition self+  = liftDOM ((self ^. js "position") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.size Mozilla VTTCue.size documentation> +setSize :: (MonadDOM m) => VTTCue -> Double -> m ()+setSize self val = liftDOM (self ^. jss "size" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.size Mozilla VTTCue.size documentation> +getSize :: (MonadDOM m) => VTTCue -> m Double+getSize self = liftDOM ((self ^. js "size") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.align Mozilla VTTCue.align documentation> +setAlign :: (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()+setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.align Mozilla VTTCue.align documentation> +getAlign :: (MonadDOM m, FromJSString result) => VTTCue -> m result+getAlign self+  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.text Mozilla VTTCue.text documentation> +setText :: (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()+setText self val = liftDOM (self ^. jss "text" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.text Mozilla VTTCue.text documentation> +getText :: (MonadDOM m, FromJSString result) => VTTCue -> m result+getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.regionId Mozilla VTTCue.regionId documentation> +setRegionId ::+            (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()+setRegionId self val+  = liftDOM (self ^. jss "regionId" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.regionId Mozilla VTTCue.regionId documentation> +getRegionId ::+            (MonadDOM m, FromJSString result) => VTTCue -> m result+getRegionId self+  = liftDOM ((self ^. js "regionId") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/VTTRegion.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VTTRegion+       (newVTTRegion, getTrack, setId, getId, setWidth, getWidth,+        setHeight, getHeight, setRegionAnchorX, getRegionAnchorX,+        setRegionAnchorY, getRegionAnchorY, setViewportAnchorX,+        getViewportAnchorX, setViewportAnchorY, getViewportAnchorY,+        setScroll, getScroll, VTTRegion, castToVTTRegion, gTypeVTTRegion)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion Mozilla VTTRegion documentation> +newVTTRegion :: (MonadDOM m) => m VTTRegion+newVTTRegion = liftDOM (VTTRegion <$> new (jsg "VTTRegion") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.track Mozilla VTTRegion.track documentation> +getTrack :: (MonadDOM m) => VTTRegion -> m (Maybe TextTrack)+getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.id Mozilla VTTRegion.id documentation> +setId :: (MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()+setId self val = liftDOM (self ^. jss "id" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.id Mozilla VTTRegion.id documentation> +getId :: (MonadDOM m, FromJSString result) => VTTRegion -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.width Mozilla VTTRegion.width documentation> +setWidth :: (MonadDOM m) => VTTRegion -> Double -> m ()+setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.width Mozilla VTTRegion.width documentation> +getWidth :: (MonadDOM m) => VTTRegion -> m Double+getWidth self = liftDOM ((self ^. js "width") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.height Mozilla VTTRegion.height documentation> +setHeight :: (MonadDOM m) => VTTRegion -> Int -> m ()+setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.height Mozilla VTTRegion.height documentation> +getHeight :: (MonadDOM m) => VTTRegion -> m Int+getHeight self+  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorX Mozilla VTTRegion.regionAnchorX documentation> +setRegionAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()+setRegionAnchorX self val+  = liftDOM (self ^. jss "regionAnchorX" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorX Mozilla VTTRegion.regionAnchorX documentation> +getRegionAnchorX :: (MonadDOM m) => VTTRegion -> m Double+getRegionAnchorX self+  = liftDOM ((self ^. js "regionAnchorX") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorY Mozilla VTTRegion.regionAnchorY documentation> +setRegionAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()+setRegionAnchorY self val+  = liftDOM (self ^. jss "regionAnchorY" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorY Mozilla VTTRegion.regionAnchorY documentation> +getRegionAnchorY :: (MonadDOM m) => VTTRegion -> m Double+getRegionAnchorY self+  = liftDOM ((self ^. js "regionAnchorY") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorX Mozilla VTTRegion.viewportAnchorX documentation> +setViewportAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()+setViewportAnchorX self val+  = liftDOM (self ^. jss "viewportAnchorX" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorX Mozilla VTTRegion.viewportAnchorX documentation> +getViewportAnchorX :: (MonadDOM m) => VTTRegion -> m Double+getViewportAnchorX self+  = liftDOM ((self ^. js "viewportAnchorX") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorY Mozilla VTTRegion.viewportAnchorY documentation> +setViewportAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()+setViewportAnchorY self val+  = liftDOM (self ^. jss "viewportAnchorY" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorY Mozilla VTTRegion.viewportAnchorY documentation> +getViewportAnchorY :: (MonadDOM m) => VTTRegion -> m Double+getViewportAnchorY self+  = liftDOM ((self ^. js "viewportAnchorY") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.scroll Mozilla VTTRegion.scroll documentation> +setScroll ::+          (MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()+setScroll self val = liftDOM (self ^. jss "scroll" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.scroll Mozilla VTTRegion.scroll documentation> +getScroll ::+          (MonadDOM m, FromJSString result) => VTTRegion -> m result+getScroll self+  = liftDOM ((self ^. js "scroll") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/VTTRegionList.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VTTRegionList+       (item, getRegionById, getLength, VTTRegionList,+        castToVTTRegionList, gTypeVTTRegionList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList.item Mozilla VTTRegionList.item documentation> +item ::+     (MonadDOM m) => VTTRegionList -> Word -> m (Maybe VTTRegion)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList.getRegionById Mozilla VTTRegionList.getRegionById documentation> +getRegionById ::+              (MonadDOM m, ToJSString id) =>+                VTTRegionList -> id -> m (Maybe VTTRegion)+getRegionById self id+  = liftDOM+      ((self ^. jsf "getRegionById" [toJSVal id]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList.length Mozilla VTTRegionList.length documentation> +getLength :: (MonadDOM m) => VTTRegionList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
+ src/JSDOM/Generated/ValidityState.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.ValidityState+       (getValueMissing, getTypeMismatch, getPatternMismatch, getTooLong,+        getRangeUnderflow, getRangeOverflow, getStepMismatch, getBadInput,+        getCustomError, getValid, ValidityState, castToValidityState,+        gTypeValidityState)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.valueMissing Mozilla ValidityState.valueMissing documentation> +getValueMissing :: (MonadDOM m) => ValidityState -> m Bool+getValueMissing self+  = liftDOM ((self ^. js "valueMissing") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.typeMismatch Mozilla ValidityState.typeMismatch documentation> +getTypeMismatch :: (MonadDOM m) => ValidityState -> m Bool+getTypeMismatch self+  = liftDOM ((self ^. js "typeMismatch") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.patternMismatch Mozilla ValidityState.patternMismatch documentation> +getPatternMismatch :: (MonadDOM m) => ValidityState -> m Bool+getPatternMismatch self+  = liftDOM ((self ^. js "patternMismatch") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.tooLong Mozilla ValidityState.tooLong documentation> +getTooLong :: (MonadDOM m) => ValidityState -> m Bool+getTooLong self = liftDOM ((self ^. js "tooLong") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.rangeUnderflow Mozilla ValidityState.rangeUnderflow documentation> +getRangeUnderflow :: (MonadDOM m) => ValidityState -> m Bool+getRangeUnderflow self+  = liftDOM ((self ^. js "rangeUnderflow") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.rangeOverflow Mozilla ValidityState.rangeOverflow documentation> +getRangeOverflow :: (MonadDOM m) => ValidityState -> m Bool+getRangeOverflow self+  = liftDOM ((self ^. js "rangeOverflow") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.stepMismatch Mozilla ValidityState.stepMismatch documentation> +getStepMismatch :: (MonadDOM m) => ValidityState -> m Bool+getStepMismatch self+  = liftDOM ((self ^. js "stepMismatch") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.badInput Mozilla ValidityState.badInput documentation> +getBadInput :: (MonadDOM m) => ValidityState -> m Bool+getBadInput self = liftDOM ((self ^. js "badInput") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.customError Mozilla ValidityState.customError documentation> +getCustomError :: (MonadDOM m) => ValidityState -> m Bool+getCustomError self+  = liftDOM ((self ^. js "customError") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.valid Mozilla ValidityState.valid documentation> +getValid :: (MonadDOM m) => ValidityState -> m Bool+getValid self = liftDOM ((self ^. js "valid") >>= valToBool)
+ src/JSDOM/Generated/VideoPlaybackQuality.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VideoPlaybackQuality+       (getCreationTime, getTotalVideoFrames, getDroppedVideoFrames,+        getCorruptedVideoFrames, getTotalFrameDelay, VideoPlaybackQuality,+        castToVideoPlaybackQuality, gTypeVideoPlaybackQuality)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.creationTime Mozilla VideoPlaybackQuality.creationTime documentation> +getCreationTime :: (MonadDOM m) => VideoPlaybackQuality -> m Double+getCreationTime self+  = liftDOM ((self ^. js "creationTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.totalVideoFrames Mozilla VideoPlaybackQuality.totalVideoFrames documentation> +getTotalVideoFrames ::+                    (MonadDOM m) => VideoPlaybackQuality -> m Word+getTotalVideoFrames self+  = liftDOM+      (round <$> ((self ^. js "totalVideoFrames") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.droppedVideoFrames Mozilla VideoPlaybackQuality.droppedVideoFrames documentation> +getDroppedVideoFrames ::+                      (MonadDOM m) => VideoPlaybackQuality -> m Word+getDroppedVideoFrames self+  = liftDOM+      (round <$> ((self ^. js "droppedVideoFrames") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.corruptedVideoFrames Mozilla VideoPlaybackQuality.corruptedVideoFrames documentation> +getCorruptedVideoFrames ::+                        (MonadDOM m) => VideoPlaybackQuality -> m Word+getCorruptedVideoFrames self+  = liftDOM+      (round <$> ((self ^. js "corruptedVideoFrames") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.totalFrameDelay Mozilla VideoPlaybackQuality.totalFrameDelay documentation> +getTotalFrameDelay ::+                   (MonadDOM m) => VideoPlaybackQuality -> m Double+getTotalFrameDelay self+  = liftDOM ((self ^. js "totalFrameDelay") >>= valToNumber)
+ src/JSDOM/Generated/VideoStreamTrack.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VideoStreamTrack+       (newVideoStreamTrack, VideoStreamTrack, castToVideoStreamTrack,+        gTypeVideoStreamTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoStreamTrack Mozilla VideoStreamTrack documentation> +newVideoStreamTrack ::+                    (MonadDOM m, IsDictionary videoConstraints) =>+                      Maybe videoConstraints -> m VideoStreamTrack+newVideoStreamTrack videoConstraints+  = liftDOM+      (VideoStreamTrack <$>+         new (jsg "VideoStreamTrack") [toJSVal videoConstraints])
+ src/JSDOM/Generated/VideoTrack.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VideoTrack+       (getId, setKind, getKind, getLabel, setLanguage, getLanguage,+        setSelected, getSelected, getSourceBuffer, VideoTrack,+        castToVideoTrack, gTypeVideoTrack)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.id Mozilla VideoTrack.id documentation> +getId ::+      (MonadDOM m, FromJSString result) => VideoTrack -> m result+getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.kind Mozilla VideoTrack.kind documentation> +setKind ::+        (MonadDOM m, ToJSString val) => VideoTrack -> val -> m ()+setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.kind Mozilla VideoTrack.kind documentation> +getKind ::+        (MonadDOM m, FromJSString result) => VideoTrack -> m result+getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.label Mozilla VideoTrack.label documentation> +getLabel ::+         (MonadDOM m, FromJSString result) => VideoTrack -> m result+getLabel self+  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.language Mozilla VideoTrack.language documentation> +setLanguage ::+            (MonadDOM m, ToJSString val) => VideoTrack -> val -> m ()+setLanguage self val+  = liftDOM (self ^. jss "language" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.language Mozilla VideoTrack.language documentation> +getLanguage ::+            (MonadDOM m, FromJSString result) => VideoTrack -> m result+getLanguage self+  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.selected Mozilla VideoTrack.selected documentation> +setSelected :: (MonadDOM m) => VideoTrack -> Bool -> m ()+setSelected self val+  = liftDOM (self ^. jss "selected" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.selected Mozilla VideoTrack.selected documentation> +getSelected :: (MonadDOM m) => VideoTrack -> m Bool+getSelected self = liftDOM ((self ^. js "selected") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.sourceBuffer Mozilla VideoTrack.sourceBuffer documentation> +getSourceBuffer ::+                (MonadDOM m) => VideoTrack -> m (Maybe SourceBuffer)+getSourceBuffer self+  = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal)
+ src/JSDOM/Generated/VideoTrackList.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VideoTrackList+       (item, getTrackById, getLength, getSelectedIndex, change, addTrack,+        removeTrack, VideoTrackList, castToVideoTrackList,+        gTypeVideoTrackList)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.item Mozilla VideoTrackList.item documentation> +item ::+     (MonadDOM m) => VideoTrackList -> Word -> m (Maybe VideoTrack)+item self index+  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.getTrackById Mozilla VideoTrackList.getTrackById documentation> +getTrackById ::+             (MonadDOM m, ToJSString id) =>+               VideoTrackList -> id -> m (Maybe VideoTrack)+getTrackById self id+  = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.length Mozilla VideoTrackList.length documentation> +getLength :: (MonadDOM m) => VideoTrackList -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.selectedIndex Mozilla VideoTrackList.selectedIndex documentation> +getSelectedIndex :: (MonadDOM m) => VideoTrackList -> m Int+getSelectedIndex self+  = liftDOM+      (round <$> ((self ^. js "selectedIndex") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.onchange Mozilla VideoTrackList.onchange documentation> +change :: EventName VideoTrackList Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.onaddtrack Mozilla VideoTrackList.onaddtrack documentation> +addTrack :: EventName VideoTrackList Event+addTrack = unsafeEventName (toJSString "addtrack")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.onremovetrack Mozilla VideoTrackList.onremovetrack documentation> +removeTrack :: EventName VideoTrackList Event+removeTrack = unsafeEventName (toJSString "removetrack")
+ src/JSDOM/Generated/VoidCallback.hs view
@@ -0,0 +1,34 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.VoidCallback+       (newVoidCallback, newVoidCallbackSync, newVoidCallbackAsync,+        VoidCallback)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VoidCallback Mozilla VoidCallback documentation> +newVoidCallback :: (MonadDOM m) => JSM () -> m VoidCallback+newVoidCallback callback+  = liftDOM+      (VoidCallback . Callback <$> function "" (\ _ _ [] -> callback))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VoidCallback Mozilla VoidCallback documentation> +newVoidCallbackSync :: (MonadDOM m) => JSM () -> m VoidCallback+newVoidCallbackSync callback+  = liftDOM+      (VoidCallback . Callback <$> function "" (\ _ _ [] -> callback))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/VoidCallback Mozilla VoidCallback documentation> +newVoidCallbackAsync :: (MonadDOM m) => JSM () -> m VoidCallback+newVoidCallbackAsync callback+  = liftDOM+      (VoidCallback . Callback <$> function "" (\ _ _ [] -> callback))
+ src/JSDOM/Generated/WaveShaperNode.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WaveShaperNode+       (setCurve, getCurve, setOversample, getOversample, WaveShaperNode,+        castToWaveShaperNode, gTypeWaveShaperNode)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.curve Mozilla WaveShaperNode.curve documentation> +setCurve ::+         (MonadDOM m, IsFloat32Array val) =>+           WaveShaperNode -> Maybe val -> m ()+setCurve self val = liftDOM (self ^. jss "curve" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.curve Mozilla WaveShaperNode.curve documentation> +getCurve ::+         (MonadDOM m) => WaveShaperNode -> m (Maybe Float32Array)+getCurve self = liftDOM ((self ^. js "curve") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.oversample Mozilla WaveShaperNode.oversample documentation> +setOversample ::+              (MonadDOM m) => WaveShaperNode -> OverSampleType -> m ()+setOversample self val+  = liftDOM (self ^. jss "oversample" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.oversample Mozilla WaveShaperNode.oversample documentation> +getOversample :: (MonadDOM m) => WaveShaperNode -> m OverSampleType+getOversample self+  = liftDOM ((self ^. js "oversample") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WebGL2RenderingContext.hs view
@@ -0,0 +1,1478 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGL2RenderingContext+       (copyBufferSubData, getBufferSubDataView, getBufferSubData,+        getFramebufferAttachmentParameter, blitFramebuffer,+        framebufferTextureLayer, getInternalformatParameter,+        invalidateFramebuffer, invalidateSubFramebuffer, readBuffer,+        renderbufferStorageMultisample, texStorage2D, texStorage3D,+        texImage3D, texSubImage3DView, texSubImage3DData, texSubImage3D,+        texSubImage3DCanvas, texSubImage3DVideo, copyTexSubImage3D,+        compressedTexImage3D, compressedTexSubImage3D, getFragDataLocation,+        uniform1ui, uniform2ui, uniform3ui, uniform4ui, uniform1uiv,+        uniform2uiv, uniform3uiv, uniform4uiv, uniformMatrix2x3fv,+        uniformMatrix3x2fv, uniformMatrix2x4fv, uniformMatrix4x2fv,+        uniformMatrix3x4fv, uniformMatrix4x3fv, vertexAttribI4i,+        vertexAttribI4iv, vertexAttribI4ui, vertexAttribI4uiv,+        vertexAttribIPointer, vertexAttribDivisor, drawArraysInstanced,+        drawElementsInstanced, drawRangeElements, drawBuffers,+        clearBufferiv, clearBufferuiv, clearBufferfv, clearBufferfi,+        createQuery, deleteQuery, isQuery, beginQuery, endQuery, getQuery,+        getQueryParameter, createSampler, deleteSampler, isSampler,+        bindSampler, samplerParameteri, samplerParameterf,+        getSamplerParameter, fenceSync, isSync, deleteSync, clientWaitSync,+        waitSync, getSyncParameter, createTransformFeedback,+        deleteTransformFeedback, isTransformFeedback,+        bindTransformFeedback, beginTransformFeedback,+        endTransformFeedback, transformFeedbackVaryings,+        getTransformFeedbackVarying, pauseTransformFeedback,+        resumeTransformFeedback, bindBufferBase, bindBufferRange,+        getIndexedParameter, getUniformIndices, getActiveUniforms,+        getUniformBlockIndex, getActiveUniformBlockParameter,+        getActiveUniformBlockName, uniformBlockBinding, createVertexArray,+        deleteVertexArray, isVertexArray, bindVertexArray,+        pattern READ_BUFFER, pattern UNPACK_ROW_LENGTH,+        pattern UNPACK_SKIP_ROWS, pattern UNPACK_SKIP_PIXELS,+        pattern PACK_ROW_LENGTH, pattern PACK_SKIP_ROWS,+        pattern PACK_SKIP_PIXELS, pattern COLOR, pattern DEPTH,+        pattern STENCIL, pattern RED, pattern RGB8, pattern RGBA8,+        pattern RGB10_A2, pattern TEXTURE_BINDING_3D,+        pattern UNPACK_SKIP_IMAGES, pattern UNPACK_IMAGE_HEIGHT,+        pattern TEXTURE_3D, pattern TEXTURE_WRAP_R,+        pattern MAX_3D_TEXTURE_SIZE, pattern UNSIGNED_INT_2_10_10_10_REV,+        pattern MAX_ELEMENTS_VERTICES, pattern MAX_ELEMENTS_INDICES,+        pattern TEXTURE_MIN_LOD, pattern TEXTURE_MAX_LOD,+        pattern TEXTURE_BASE_LEVEL, pattern TEXTURE_MAX_LEVEL, pattern MIN,+        pattern MAX, pattern DEPTH_COMPONENT24,+        pattern MAX_TEXTURE_LOD_BIAS, pattern TEXTURE_COMPARE_MODE,+        pattern TEXTURE_COMPARE_FUNC, pattern CURRENT_QUERY,+        pattern QUERY_RESULT, pattern QUERY_RESULT_AVAILABLE,+        pattern STREAM_READ, pattern STREAM_COPY, pattern STATIC_READ,+        pattern STATIC_COPY, pattern DYNAMIC_READ, pattern DYNAMIC_COPY,+        pattern MAX_DRAW_BUFFERS, pattern DRAW_BUFFER0,+        pattern DRAW_BUFFER1, pattern DRAW_BUFFER2, pattern DRAW_BUFFER3,+        pattern DRAW_BUFFER4, pattern DRAW_BUFFER5, pattern DRAW_BUFFER6,+        pattern DRAW_BUFFER7, pattern DRAW_BUFFER8, pattern DRAW_BUFFER9,+        pattern DRAW_BUFFER10, pattern DRAW_BUFFER11,+        pattern DRAW_BUFFER12, pattern DRAW_BUFFER13,+        pattern DRAW_BUFFER14, pattern DRAW_BUFFER15,+        pattern MAX_FRAGMENT_UNIFORM_COMPONENTS,+        pattern MAX_VERTEX_UNIFORM_COMPONENTS, pattern SAMPLER_3D,+        pattern SAMPLER_2D_SHADOW, pattern FRAGMENT_SHADER_DERIVATIVE_HINT,+        pattern PIXEL_PACK_BUFFER, pattern PIXEL_UNPACK_BUFFER,+        pattern PIXEL_PACK_BUFFER_BINDING,+        pattern PIXEL_UNPACK_BUFFER_BINDING, pattern FLOAT_MAT2x3,+        pattern FLOAT_MAT2x4, pattern FLOAT_MAT3x2, pattern FLOAT_MAT3x4,+        pattern FLOAT_MAT4x2, pattern FLOAT_MAT4x3, pattern SRGB,+        pattern SRGB8, pattern SRGB8_ALPHA8,+        pattern COMPARE_REF_TO_TEXTURE, pattern RGBA32F, pattern RGB32F,+        pattern RGBA16F, pattern RGB16F,+        pattern VERTEX_ATTRIB_ARRAY_INTEGER,+        pattern MAX_ARRAY_TEXTURE_LAYERS, pattern MIN_PROGRAM_TEXEL_OFFSET,+        pattern MAX_PROGRAM_TEXEL_OFFSET, pattern MAX_VARYING_COMPONENTS,+        pattern TEXTURE_2D_ARRAY, pattern TEXTURE_BINDING_2D_ARRAY,+        pattern R11F_G11F_B10F, pattern UNSIGNED_INT_10F_11F_11F_REV,+        pattern RGB9_E5, pattern UNSIGNED_INT_5_9_9_9_REV,+        pattern TRANSFORM_FEEDBACK_BUFFER_MODE,+        pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS,+        pattern TRANSFORM_FEEDBACK_VARYINGS,+        pattern TRANSFORM_FEEDBACK_BUFFER_START,+        pattern TRANSFORM_FEEDBACK_BUFFER_SIZE,+        pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN,+        pattern RASTERIZER_DISCARD,+        pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS,+        pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS,+        pattern INTERLEAVED_ATTRIBS, pattern SEPARATE_ATTRIBS,+        pattern TRANSFORM_FEEDBACK_BUFFER,+        pattern TRANSFORM_FEEDBACK_BUFFER_BINDING, pattern RGBA32UI,+        pattern RGB32UI, pattern RGBA16UI, pattern RGB16UI,+        pattern RGBA8UI, pattern RGB8UI, pattern RGBA32I, pattern RGB32I,+        pattern RGBA16I, pattern RGB16I, pattern RGBA8I, pattern RGB8I,+        pattern RED_INTEGER, pattern RGB_INTEGER, pattern RGBA_INTEGER,+        pattern SAMPLER_2D_ARRAY, pattern SAMPLER_2D_ARRAY_SHADOW,+        pattern SAMPLER_CUBE_SHADOW, pattern UNSIGNED_INT_VEC2,+        pattern UNSIGNED_INT_VEC3, pattern UNSIGNED_INT_VEC4,+        pattern INT_SAMPLER_2D, pattern INT_SAMPLER_3D,+        pattern INT_SAMPLER_CUBE, pattern INT_SAMPLER_2D_ARRAY,+        pattern UNSIGNED_INT_SAMPLER_2D, pattern UNSIGNED_INT_SAMPLER_3D,+        pattern UNSIGNED_INT_SAMPLER_CUBE,+        pattern UNSIGNED_INT_SAMPLER_2D_ARRAY, pattern DEPTH_COMPONENT32F,+        pattern DEPTH32F_STENCIL8, pattern FLOAT_32_UNSIGNED_INT_24_8_REV,+        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING,+        pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE,+        pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE,+        pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE,+        pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE,+        pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE,+        pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE,+        pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE,+        pattern FRAMEBUFFER_DEFAULT, pattern DEPTH_STENCIL_ATTACHMENT,+        pattern DEPTH_STENCIL, pattern UNSIGNED_INT_24_8,+        pattern DEPTH24_STENCIL8, pattern UNSIGNED_NORMALIZED,+        pattern DRAW_FRAMEBUFFER_BINDING, pattern READ_FRAMEBUFFER,+        pattern DRAW_FRAMEBUFFER, pattern READ_FRAMEBUFFER_BINDING,+        pattern RENDERBUFFER_SAMPLES,+        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER,+        pattern MAX_COLOR_ATTACHMENTS, pattern COLOR_ATTACHMENT1,+        pattern COLOR_ATTACHMENT2, pattern COLOR_ATTACHMENT3,+        pattern COLOR_ATTACHMENT4, pattern COLOR_ATTACHMENT5,+        pattern COLOR_ATTACHMENT6, pattern COLOR_ATTACHMENT7,+        pattern COLOR_ATTACHMENT8, pattern COLOR_ATTACHMENT9,+        pattern COLOR_ATTACHMENT10, pattern COLOR_ATTACHMENT11,+        pattern COLOR_ATTACHMENT12, pattern COLOR_ATTACHMENT13,+        pattern COLOR_ATTACHMENT14, pattern COLOR_ATTACHMENT15,+        pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE, pattern MAX_SAMPLES,+        pattern HALF_FLOAT, pattern RG, pattern RG_INTEGER, pattern R8,+        pattern RG8, pattern R16F, pattern R32F, pattern RG16F,+        pattern RG32F, pattern R8I, pattern R8UI, pattern R16I,+        pattern R16UI, pattern R32I, pattern R32UI, pattern RG8I,+        pattern RG8UI, pattern RG16I, pattern RG16UI, pattern RG32I,+        pattern RG32UI, pattern VERTEX_ARRAY_BINDING, pattern R8_SNORM,+        pattern RG8_SNORM, pattern RGB8_SNORM, pattern RGBA8_SNORM,+        pattern SIGNED_NORMALIZED, pattern PRIMITIVE_RESTART_FIXED_INDEX,+        pattern COPY_READ_BUFFER, pattern COPY_WRITE_BUFFER,+        pattern COPY_READ_BUFFER_BINDING,+        pattern COPY_WRITE_BUFFER_BINDING, pattern UNIFORM_BUFFER,+        pattern UNIFORM_BUFFER_BINDING, pattern UNIFORM_BUFFER_START,+        pattern UNIFORM_BUFFER_SIZE, pattern MAX_VERTEX_UNIFORM_BLOCKS,+        pattern MAX_FRAGMENT_UNIFORM_BLOCKS,+        pattern MAX_COMBINED_UNIFORM_BLOCKS,+        pattern MAX_UNIFORM_BUFFER_BINDINGS,+        pattern MAX_UNIFORM_BLOCK_SIZE,+        pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS,+        pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS,+        pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT,+        pattern ACTIVE_UNIFORM_BLOCKS, pattern UNIFORM_TYPE,+        pattern UNIFORM_SIZE, pattern UNIFORM_BLOCK_INDEX,+        pattern UNIFORM_OFFSET, pattern UNIFORM_ARRAY_STRIDE,+        pattern UNIFORM_MATRIX_STRIDE, pattern UNIFORM_IS_ROW_MAJOR,+        pattern UNIFORM_BLOCK_BINDING, pattern UNIFORM_BLOCK_DATA_SIZE,+        pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS,+        pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES,+        pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER,+        pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER,+        pattern INVALID_INDEX, pattern MAX_VERTEX_OUTPUT_COMPONENTS,+        pattern MAX_FRAGMENT_INPUT_COMPONENTS,+        pattern MAX_SERVER_WAIT_TIMEOUT, pattern OBJECT_TYPE,+        pattern SYNC_CONDITION, pattern SYNC_STATUS, pattern SYNC_FLAGS,+        pattern SYNC_FENCE, pattern SYNC_GPU_COMMANDS_COMPLETE,+        pattern UNSIGNALED, pattern SIGNALED, pattern ALREADY_SIGNALED,+        pattern TIMEOUT_EXPIRED, pattern CONDITION_SATISFIED,+        pattern WAIT_FAILED, pattern SYNC_FLUSH_COMMANDS_BIT,+        pattern VERTEX_ATTRIB_ARRAY_DIVISOR, pattern ANY_SAMPLES_PASSED,+        pattern ANY_SAMPLES_PASSED_CONSERVATIVE, pattern SAMPLER_BINDING,+        pattern RGB10_A2UI, pattern TEXTURE_SWIZZLE_R,+        pattern TEXTURE_SWIZZLE_G, pattern TEXTURE_SWIZZLE_B,+        pattern TEXTURE_SWIZZLE_A, pattern GREEN, pattern BLUE,+        pattern INT_2_10_10_10_REV, pattern TRANSFORM_FEEDBACK,+        pattern TRANSFORM_FEEDBACK_PAUSED,+        pattern TRANSFORM_FEEDBACK_ACTIVE,+        pattern TRANSFORM_FEEDBACK_BINDING, pattern COMPRESSED_R11_EAC,+        pattern COMPRESSED_SIGNED_R11_EAC, pattern COMPRESSED_RG11_EAC,+        pattern COMPRESSED_SIGNED_RG11_EAC, pattern COMPRESSED_RGB8_ETC2,+        pattern COMPRESSED_SRGB8_ETC2,+        pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2,+        pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2,+        pattern COMPRESSED_RGBA8_ETC2_EAC,+        pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC,+        pattern TEXTURE_IMMUTABLE_FORMAT, pattern MAX_ELEMENT_INDEX,+        pattern NUM_SAMPLE_COUNTS, pattern TEXTURE_IMMUTABLE_LEVELS,+        pattern TIMEOUT_IGNORED, WebGL2RenderingContext,+        castToWebGL2RenderingContext, gTypeWebGL2RenderingContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.copyBufferSubData Mozilla WebGL2RenderingContext.copyBufferSubData documentation> +copyBufferSubData ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext ->+                      GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> m ()+copyBufferSubData self readTarget writeTarget readOffset+  writeOffset size+  = liftDOM+      (void+         (self ^. jsf "copyBufferSubData"+            [toJSVal readTarget, toJSVal writeTarget, toJSVal readOffset,+             toJSVal writeOffset, toJSVal size]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getBufferSubData Mozilla WebGL2RenderingContext.getBufferSubData documentation> +getBufferSubDataView ::+                     (MonadDOM m, IsArrayBufferView returnedData) =>+                       WebGL2RenderingContext ->+                         GLenum -> GLintptr -> Maybe returnedData -> m ()+getBufferSubDataView self target offset returnedData+  = liftDOM+      (void+         (self ^. jsf "getBufferSubData"+            [toJSVal target, toJSVal offset, toJSVal returnedData]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getBufferSubData Mozilla WebGL2RenderingContext.getBufferSubData documentation> +getBufferSubData ::+                 (MonadDOM m, IsArrayBuffer returnedData) =>+                   WebGL2RenderingContext ->+                     GLenum -> GLintptr -> Maybe returnedData -> m ()+getBufferSubData self target offset returnedData+  = liftDOM+      (void+         (self ^. jsf "getBufferSubData"+            [toJSVal target, toJSVal offset, toJSVal returnedData]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getFramebufferAttachmentParameter Mozilla WebGL2RenderingContext.getFramebufferAttachmentParameter documentation> +getFramebufferAttachmentParameter ::+                                  (MonadDOM m) =>+                                    WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal+getFramebufferAttachmentParameter self target attachment pname+  = liftDOM+      ((self ^. jsf "getFramebufferAttachmentParameter"+          [toJSVal target, toJSVal attachment, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.blitFramebuffer Mozilla WebGL2RenderingContext.blitFramebuffer documentation> +blitFramebuffer ::+                (MonadDOM m) =>+                  WebGL2RenderingContext ->+                    GLint ->+                      GLint ->+                        GLint ->+                          GLint ->+                            GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> m ()+blitFramebuffer self srcX0 srcY0 srcX1 srcY1 dstX0 dstY0 dstX1+  dstY1 mask filter+  = liftDOM+      (void+         (self ^. jsf "blitFramebuffer"+            [toJSVal srcX0, toJSVal srcY0, toJSVal srcX1, toJSVal srcY1,+             toJSVal dstX0, toJSVal dstY0, toJSVal dstX1, toJSVal dstY1,+             toJSVal mask, toJSVal filter]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.framebufferTextureLayer Mozilla WebGL2RenderingContext.framebufferTextureLayer documentation> +framebufferTextureLayer ::+                        (MonadDOM m) =>+                          WebGL2RenderingContext ->+                            GLenum -> GLenum -> GLuint -> GLint -> GLint -> m ()+framebufferTextureLayer self target attachment texture level layer+  = liftDOM+      (void+         (self ^. jsf "framebufferTextureLayer"+            [toJSVal target, toJSVal attachment, toJSVal texture,+             toJSVal level, toJSVal layer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getInternalformatParameter Mozilla WebGL2RenderingContext.getInternalformatParameter documentation> +getInternalformatParameter ::+                           (MonadDOM m) =>+                             WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal+getInternalformatParameter self target internalformat pname+  = liftDOM+      ((self ^. jsf "getInternalformatParameter"+          [toJSVal target, toJSVal internalformat, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.invalidateFramebuffer Mozilla WebGL2RenderingContext.invalidateFramebuffer documentation> +invalidateFramebuffer ::+                      (MonadDOM m) =>+                        WebGL2RenderingContext -> GLenum -> [GLenum] -> m ()+invalidateFramebuffer self target attachments+  = liftDOM+      (void+         (self ^. jsf "invalidateFramebuffer"+            [toJSVal target, toJSVal (array attachments)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.invalidateSubFramebuffer Mozilla WebGL2RenderingContext.invalidateSubFramebuffer documentation> +invalidateSubFramebuffer ::+                         (MonadDOM m) =>+                           WebGL2RenderingContext ->+                             GLenum -> [GLenum] -> GLint -> GLint -> GLsizei -> GLsizei -> m ()+invalidateSubFramebuffer self target attachments x y width height+  = liftDOM+      (void+         (self ^. jsf "invalidateSubFramebuffer"+            [toJSVal target, toJSVal (array attachments), toJSVal x, toJSVal y,+             toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.readBuffer Mozilla WebGL2RenderingContext.readBuffer documentation> +readBuffer ::+           (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()+readBuffer self src+  = liftDOM (void (self ^. jsf "readBuffer" [toJSVal src]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.renderbufferStorageMultisample Mozilla WebGL2RenderingContext.renderbufferStorageMultisample documentation> +renderbufferStorageMultisample ::+                               (MonadDOM m) =>+                                 WebGL2RenderingContext ->+                                   GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m ()+renderbufferStorageMultisample self target samples internalformat+  width height+  = liftDOM+      (void+         (self ^. jsf "renderbufferStorageMultisample"+            [toJSVal target, toJSVal samples, toJSVal internalformat,+             toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texStorage2D Mozilla WebGL2RenderingContext.texStorage2D documentation> +texStorage2D ::+             (MonadDOM m) =>+               WebGL2RenderingContext ->+                 GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m ()+texStorage2D self target levels internalformat width height+  = liftDOM+      (void+         (self ^. jsf "texStorage2D"+            [toJSVal target, toJSVal levels, toJSVal internalformat,+             toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texStorage3D Mozilla WebGL2RenderingContext.texStorage3D documentation> +texStorage3D ::+             (MonadDOM m) =>+               WebGL2RenderingContext ->+                 GLenum ->+                   GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> m ()+texStorage3D self target levels internalformat width height depth+  = liftDOM+      (void+         (self ^. jsf "texStorage3D"+            [toJSVal target, toJSVal levels, toJSVal internalformat,+             toJSVal width, toJSVal height, toJSVal depth]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texImage3D Mozilla WebGL2RenderingContext.texImage3D documentation> +texImage3D ::+           (MonadDOM m, IsArrayBufferView pixels) =>+             WebGL2RenderingContext ->+               GLenum ->+                 GLint ->+                   GLint ->+                     GLsizei ->+                       GLsizei ->+                         GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m ()+texImage3D self target level internalformat width height depth+  border format type' pixels+  = liftDOM+      (void+         (self ^. jsf "texImage3D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal width, toJSVal height, toJSVal depth, toJSVal border,+             toJSVal format, toJSVal type', toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> +texSubImage3DView ::+                  (MonadDOM m, IsArrayBufferView pixels) =>+                    WebGL2RenderingContext ->+                      GLenum ->+                        GLint ->+                          GLint ->+                            GLint ->+                              GLint ->+                                GLsizei ->+                                  GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()+texSubImage3DView self target level xoffset yoffset zoffset width+  height depth format type' pixels+  = liftDOM+      (void+         (self ^. jsf "texSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal width, toJSVal height, toJSVal depth,+             toJSVal format, toJSVal type', toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> +texSubImage3DData ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext ->+                      GLenum ->+                        GLint ->+                          GLint ->+                            GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m ()+texSubImage3DData self target level xoffset yoffset zoffset format+  type' source+  = liftDOM+      (void+         (self ^. jsf "texSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> +texSubImage3D ::+              (MonadDOM m) =>+                WebGL2RenderingContext ->+                  GLenum ->+                    GLint ->+                      GLint ->+                        GLint ->+                          GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m ()+texSubImage3D self target level xoffset yoffset zoffset format+  type' source+  = liftDOM+      (void+         (self ^. jsf "texSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> +texSubImage3DCanvas ::+                    (MonadDOM m) =>+                      WebGL2RenderingContext ->+                        GLenum ->+                          GLint ->+                            GLint ->+                              GLint ->+                                GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m ()+texSubImage3DCanvas self target level xoffset yoffset zoffset+  format type' source+  = liftDOM+      (void+         (self ^. jsf "texSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> +texSubImage3DVideo ::+                   (MonadDOM m) =>+                     WebGL2RenderingContext ->+                       GLenum ->+                         GLint ->+                           GLint ->+                             GLint ->+                               GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m ()+texSubImage3DVideo self target level xoffset yoffset zoffset format+  type' source+  = liftDOM+      (void+         (self ^. jsf "texSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.copyTexSubImage3D Mozilla WebGL2RenderingContext.copyTexSubImage3D documentation> +copyTexSubImage3D ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext ->+                      GLenum ->+                        GLint ->+                          GLint ->+                            GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m ()+copyTexSubImage3D self target level xoffset yoffset zoffset x y+  width height+  = liftDOM+      (void+         (self ^. jsf "copyTexSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal x, toJSVal y, toJSVal width,+             toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.compressedTexImage3D Mozilla WebGL2RenderingContext.compressedTexImage3D documentation> +compressedTexImage3D ::+                     (MonadDOM m, IsArrayBufferView data') =>+                       WebGL2RenderingContext ->+                         GLenum ->+                           GLint ->+                             GLenum ->+                               GLsizei ->+                                 GLsizei -> GLsizei -> GLint -> GLsizei -> Maybe data' -> m ()+compressedTexImage3D self target level internalformat width height+  depth border imageSize data'+  = liftDOM+      (void+         (self ^. jsf "compressedTexImage3D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal width, toJSVal height, toJSVal depth, toJSVal border,+             toJSVal imageSize, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.compressedTexSubImage3D Mozilla WebGL2RenderingContext.compressedTexSubImage3D documentation> +compressedTexSubImage3D ::+                        (MonadDOM m, IsArrayBufferView data') =>+                          WebGL2RenderingContext ->+                            GLenum ->+                              GLint ->+                                GLint ->+                                  GLint ->+                                    GLint ->+                                      GLsizei ->+                                        GLsizei ->+                                          GLsizei -> GLenum -> GLsizei -> Maybe data' -> m ()+compressedTexSubImage3D self target level xoffset yoffset zoffset+  width height depth format imageSize data'+  = liftDOM+      (void+         (self ^. jsf "compressedTexSubImage3D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal zoffset, toJSVal width, toJSVal height, toJSVal depth,+             toJSVal format, toJSVal imageSize, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getFragDataLocation Mozilla WebGL2RenderingContext.getFragDataLocation documentation> +getFragDataLocation ::+                    (MonadDOM m, ToJSString name) =>+                      WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m GLint+getFragDataLocation self program name+  = liftDOM+      ((self ^. jsf "getFragDataLocation"+          [toJSVal program, toJSVal name])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform1ui Mozilla WebGL2RenderingContext.uniform1ui documentation> +uniform1ui ::+           (MonadDOM m) =>+             WebGL2RenderingContext ->+               Maybe WebGLUniformLocation -> GLuint -> m ()+uniform1ui self location v0+  = liftDOM+      (void (self ^. jsf "uniform1ui" [toJSVal location, toJSVal v0]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform2ui Mozilla WebGL2RenderingContext.uniform2ui documentation> +uniform2ui ::+           (MonadDOM m) =>+             WebGL2RenderingContext ->+               Maybe WebGLUniformLocation -> GLuint -> GLuint -> m ()+uniform2ui self location v0 v1+  = liftDOM+      (void+         (self ^. jsf "uniform2ui"+            [toJSVal location, toJSVal v0, toJSVal v1]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform3ui Mozilla WebGL2RenderingContext.uniform3ui documentation> +uniform3ui ::+           (MonadDOM m) =>+             WebGL2RenderingContext ->+               Maybe WebGLUniformLocation -> GLuint -> GLuint -> GLuint -> m ()+uniform3ui self location v0 v1 v2+  = liftDOM+      (void+         (self ^. jsf "uniform3ui"+            [toJSVal location, toJSVal v0, toJSVal v1, toJSVal v2]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform4ui Mozilla WebGL2RenderingContext.uniform4ui documentation> +uniform4ui ::+           (MonadDOM m) =>+             WebGL2RenderingContext ->+               Maybe WebGLUniformLocation ->+                 GLuint -> GLuint -> GLuint -> GLuint -> m ()+uniform4ui self location v0 v1 v2 v3+  = liftDOM+      (void+         (self ^. jsf "uniform4ui"+            [toJSVal location, toJSVal v0, toJSVal v1, toJSVal v2,+             toJSVal v3]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform1uiv Mozilla WebGL2RenderingContext.uniform1uiv documentation> +uniform1uiv ::+            (MonadDOM m, IsUint32Array value) =>+              WebGL2RenderingContext ->+                Maybe WebGLUniformLocation -> Maybe value -> m ()+uniform1uiv self location value+  = liftDOM+      (void+         (self ^. jsf "uniform1uiv" [toJSVal location, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform2uiv Mozilla WebGL2RenderingContext.uniform2uiv documentation> +uniform2uiv ::+            (MonadDOM m, IsUint32Array value) =>+              WebGL2RenderingContext ->+                Maybe WebGLUniformLocation -> Maybe value -> m ()+uniform2uiv self location value+  = liftDOM+      (void+         (self ^. jsf "uniform2uiv" [toJSVal location, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform3uiv Mozilla WebGL2RenderingContext.uniform3uiv documentation> +uniform3uiv ::+            (MonadDOM m, IsUint32Array value) =>+              WebGL2RenderingContext ->+                Maybe WebGLUniformLocation -> Maybe value -> m ()+uniform3uiv self location value+  = liftDOM+      (void+         (self ^. jsf "uniform3uiv" [toJSVal location, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform4uiv Mozilla WebGL2RenderingContext.uniform4uiv documentation> +uniform4uiv ::+            (MonadDOM m, IsUint32Array value) =>+              WebGL2RenderingContext ->+                Maybe WebGLUniformLocation -> Maybe value -> m ()+uniform4uiv self location value+  = liftDOM+      (void+         (self ^. jsf "uniform4uiv" [toJSVal location, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix2x3fv Mozilla WebGL2RenderingContext.uniformMatrix2x3fv documentation> +uniformMatrix2x3fv ::+                   (MonadDOM m, IsFloat32Array value) =>+                     WebGL2RenderingContext ->+                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()+uniformMatrix2x3fv self location transpose value+  = liftDOM+      (void+         (self ^. jsf "uniformMatrix2x3fv"+            [toJSVal location, toJSVal transpose, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix3x2fv Mozilla WebGL2RenderingContext.uniformMatrix3x2fv documentation> +uniformMatrix3x2fv ::+                   (MonadDOM m, IsFloat32Array value) =>+                     WebGL2RenderingContext ->+                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()+uniformMatrix3x2fv self location transpose value+  = liftDOM+      (void+         (self ^. jsf "uniformMatrix3x2fv"+            [toJSVal location, toJSVal transpose, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix2x4fv Mozilla WebGL2RenderingContext.uniformMatrix2x4fv documentation> +uniformMatrix2x4fv ::+                   (MonadDOM m, IsFloat32Array value) =>+                     WebGL2RenderingContext ->+                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()+uniformMatrix2x4fv self location transpose value+  = liftDOM+      (void+         (self ^. jsf "uniformMatrix2x4fv"+            [toJSVal location, toJSVal transpose, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix4x2fv Mozilla WebGL2RenderingContext.uniformMatrix4x2fv documentation> +uniformMatrix4x2fv ::+                   (MonadDOM m, IsFloat32Array value) =>+                     WebGL2RenderingContext ->+                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()+uniformMatrix4x2fv self location transpose value+  = liftDOM+      (void+         (self ^. jsf "uniformMatrix4x2fv"+            [toJSVal location, toJSVal transpose, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix3x4fv Mozilla WebGL2RenderingContext.uniformMatrix3x4fv documentation> +uniformMatrix3x4fv ::+                   (MonadDOM m, IsFloat32Array value) =>+                     WebGL2RenderingContext ->+                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()+uniformMatrix3x4fv self location transpose value+  = liftDOM+      (void+         (self ^. jsf "uniformMatrix3x4fv"+            [toJSVal location, toJSVal transpose, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix4x3fv Mozilla WebGL2RenderingContext.uniformMatrix4x3fv documentation> +uniformMatrix4x3fv ::+                   (MonadDOM m, IsFloat32Array value) =>+                     WebGL2RenderingContext ->+                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()+uniformMatrix4x3fv self location transpose value+  = liftDOM+      (void+         (self ^. jsf "uniformMatrix4x3fv"+            [toJSVal location, toJSVal transpose, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4i Mozilla WebGL2RenderingContext.vertexAttribI4i documentation> +vertexAttribI4i ::+                (MonadDOM m) =>+                  WebGL2RenderingContext ->+                    GLuint -> GLint -> GLint -> GLint -> GLint -> m ()+vertexAttribI4i self index x y z w+  = liftDOM+      (void+         (self ^. jsf "vertexAttribI4i"+            [toJSVal index, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4iv Mozilla WebGL2RenderingContext.vertexAttribI4iv documentation> +vertexAttribI4iv ::+                 (MonadDOM m, IsInt32Array v) =>+                   WebGL2RenderingContext -> GLuint -> Maybe v -> m ()+vertexAttribI4iv self index v+  = liftDOM+      (void (self ^. jsf "vertexAttribI4iv" [toJSVal index, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4ui Mozilla WebGL2RenderingContext.vertexAttribI4ui documentation> +vertexAttribI4ui ::+                 (MonadDOM m) =>+                   WebGL2RenderingContext ->+                     GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> m ()+vertexAttribI4ui self index x y z w+  = liftDOM+      (void+         (self ^. jsf "vertexAttribI4ui"+            [toJSVal index, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4uiv Mozilla WebGL2RenderingContext.vertexAttribI4uiv documentation> +vertexAttribI4uiv ::+                  (MonadDOM m, IsUint32Array v) =>+                    WebGL2RenderingContext -> GLuint -> Maybe v -> m ()+vertexAttribI4uiv self index v+  = liftDOM+      (void (self ^. jsf "vertexAttribI4uiv" [toJSVal index, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribIPointer Mozilla WebGL2RenderingContext.vertexAttribIPointer documentation> +vertexAttribIPointer ::+                     (MonadDOM m) =>+                       WebGL2RenderingContext ->+                         GLuint -> GLint -> GLenum -> GLsizei -> GLintptr -> m ()+vertexAttribIPointer self index size type' stride offset+  = liftDOM+      (void+         (self ^. jsf "vertexAttribIPointer"+            [toJSVal index, toJSVal size, toJSVal type', toJSVal stride,+             toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribDivisor Mozilla WebGL2RenderingContext.vertexAttribDivisor documentation> +vertexAttribDivisor ::+                    (MonadDOM m) => WebGL2RenderingContext -> GLuint -> GLuint -> m ()+vertexAttribDivisor self index divisor+  = liftDOM+      (void+         (self ^. jsf "vertexAttribDivisor"+            [toJSVal index, toJSVal divisor]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawArraysInstanced Mozilla WebGL2RenderingContext.drawArraysInstanced documentation> +drawArraysInstanced ::+                    (MonadDOM m) =>+                      WebGL2RenderingContext ->+                        GLenum -> GLint -> GLsizei -> GLsizei -> m ()+drawArraysInstanced self mode first count instanceCount+  = liftDOM+      (void+         (self ^. jsf "drawArraysInstanced"+            [toJSVal mode, toJSVal first, toJSVal count,+             toJSVal instanceCount]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawElementsInstanced Mozilla WebGL2RenderingContext.drawElementsInstanced documentation> +drawElementsInstanced ::+                      (MonadDOM m) =>+                        WebGL2RenderingContext ->+                          GLenum -> GLsizei -> GLenum -> GLintptr -> GLsizei -> m ()+drawElementsInstanced self mode count type' offset instanceCount+  = liftDOM+      (void+         (self ^. jsf "drawElementsInstanced"+            [toJSVal mode, toJSVal count, toJSVal type', toJSVal offset,+             toJSVal instanceCount]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawRangeElements Mozilla WebGL2RenderingContext.drawRangeElements documentation> +drawRangeElements ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext ->+                      GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> GLintptr -> m ()+drawRangeElements self mode start end count type' offset+  = liftDOM+      (void+         (self ^. jsf "drawRangeElements"+            [toJSVal mode, toJSVal start, toJSVal end, toJSVal count,+             toJSVal type', toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawBuffers Mozilla WebGL2RenderingContext.drawBuffers documentation> +drawBuffers ::+            (MonadDOM m) => WebGL2RenderingContext -> [GLenum] -> m ()+drawBuffers self buffers+  = liftDOM+      (void (self ^. jsf "drawBuffers" [toJSVal (array buffers)]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferiv Mozilla WebGL2RenderingContext.clearBufferiv documentation> +clearBufferiv ::+              (MonadDOM m, IsInt32Array value) =>+                WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()+clearBufferiv self buffer drawbuffer value+  = liftDOM+      (void+         (self ^. jsf "clearBufferiv"+            [toJSVal buffer, toJSVal drawbuffer, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferuiv Mozilla WebGL2RenderingContext.clearBufferuiv documentation> +clearBufferuiv ::+               (MonadDOM m, IsUint32Array value) =>+                 WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()+clearBufferuiv self buffer drawbuffer value+  = liftDOM+      (void+         (self ^. jsf "clearBufferuiv"+            [toJSVal buffer, toJSVal drawbuffer, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferfv Mozilla WebGL2RenderingContext.clearBufferfv documentation> +clearBufferfv ::+              (MonadDOM m, IsFloat32Array value) =>+                WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()+clearBufferfv self buffer drawbuffer value+  = liftDOM+      (void+         (self ^. jsf "clearBufferfv"+            [toJSVal buffer, toJSVal drawbuffer, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferfi Mozilla WebGL2RenderingContext.clearBufferfi documentation> +clearBufferfi ::+              (MonadDOM m) =>+                WebGL2RenderingContext ->+                  GLenum -> GLint -> GLfloat -> GLint -> m ()+clearBufferfi self buffer drawbuffer depth stencil+  = liftDOM+      (void+         (self ^. jsf "clearBufferfi"+            [toJSVal buffer, toJSVal drawbuffer, toJSVal depth,+             toJSVal stencil]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createQuery Mozilla WebGL2RenderingContext.createQuery documentation> +createQuery ::+            (MonadDOM m) => WebGL2RenderingContext -> m (Maybe WebGLQuery)+createQuery self+  = liftDOM ((self ^. js "createQuery") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteQuery Mozilla WebGL2RenderingContext.deleteQuery documentation> +deleteQuery ::+            (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m ()+deleteQuery self query+  = liftDOM (void (self ^. jsf "deleteQuery" [toJSVal query]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isQuery Mozilla WebGL2RenderingContext.isQuery documentation> +isQuery ::+        (MonadDOM m) =>+          WebGL2RenderingContext -> Maybe WebGLQuery -> m GLboolean+isQuery self query+  = liftDOM+      ((self ^. jsf "isQuery" [toJSVal query]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.beginQuery Mozilla WebGL2RenderingContext.beginQuery documentation> +beginQuery ::+           (MonadDOM m) =>+             WebGL2RenderingContext -> GLenum -> Maybe WebGLQuery -> m ()+beginQuery self target query+  = liftDOM+      (void (self ^. jsf "beginQuery" [toJSVal target, toJSVal query]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.endQuery Mozilla WebGL2RenderingContext.endQuery documentation> +endQuery ::+         (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()+endQuery self target+  = liftDOM (void (self ^. jsf "endQuery" [toJSVal target]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQuery Mozilla WebGL2RenderingContext.getQuery documentation> +getQuery ::+         (MonadDOM m) =>+           WebGL2RenderingContext -> GLenum -> GLenum -> m (Maybe WebGLQuery)+getQuery self target pname+  = liftDOM+      ((self ^. jsf "getQuery" [toJSVal target, toJSVal pname]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQueryParameter Mozilla WebGL2RenderingContext.getQueryParameter documentation> +getQueryParameter ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m JSVal+getQueryParameter self query pname+  = liftDOM+      ((self ^. jsf "getQueryParameter" [toJSVal query, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createSampler Mozilla WebGL2RenderingContext.createSampler documentation> +createSampler ::+              (MonadDOM m) => WebGL2RenderingContext -> m (Maybe WebGLSampler)+createSampler self+  = liftDOM ((self ^. js "createSampler") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteSampler Mozilla WebGL2RenderingContext.deleteSampler documentation> +deleteSampler ::+              (MonadDOM m) =>+                WebGL2RenderingContext -> Maybe WebGLSampler -> m ()+deleteSampler self sampler+  = liftDOM (void (self ^. jsf "deleteSampler" [toJSVal sampler]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSampler Mozilla WebGL2RenderingContext.isSampler documentation> +isSampler ::+          (MonadDOM m) =>+            WebGL2RenderingContext -> Maybe WebGLSampler -> m GLboolean+isSampler self sampler+  = liftDOM+      ((self ^. jsf "isSampler" [toJSVal sampler]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindSampler Mozilla WebGL2RenderingContext.bindSampler documentation> +bindSampler ::+            (MonadDOM m) =>+              WebGL2RenderingContext -> GLuint -> Maybe WebGLSampler -> m ()+bindSampler self unit sampler+  = liftDOM+      (void (self ^. jsf "bindSampler" [toJSVal unit, toJSVal sampler]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.samplerParameteri Mozilla WebGL2RenderingContext.samplerParameteri documentation> +samplerParameteri ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext ->+                      Maybe WebGLSampler -> GLenum -> GLint -> m ()+samplerParameteri self sampler pname param+  = liftDOM+      (void+         (self ^. jsf "samplerParameteri"+            [toJSVal sampler, toJSVal pname, toJSVal param]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.samplerParameterf Mozilla WebGL2RenderingContext.samplerParameterf documentation> +samplerParameterf ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext ->+                      Maybe WebGLSampler -> GLenum -> GLfloat -> m ()+samplerParameterf self sampler pname param+  = liftDOM+      (void+         (self ^. jsf "samplerParameterf"+            [toJSVal sampler, toJSVal pname, toJSVal param]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSamplerParameter Mozilla WebGL2RenderingContext.getSamplerParameter documentation> +getSamplerParameter ::+                    (MonadDOM m) =>+                      WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m JSVal+getSamplerParameter self sampler pname+  = liftDOM+      ((self ^. jsf "getSamplerParameter"+          [toJSVal sampler, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.fenceSync Mozilla WebGL2RenderingContext.fenceSync documentation> +fenceSync ::+          (MonadDOM m) =>+            WebGL2RenderingContext ->+              GLenum -> GLbitfield -> m (Maybe WebGLSync)+fenceSync self condition flags+  = liftDOM+      ((self ^. jsf "fenceSync" [toJSVal condition, toJSVal flags]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSync Mozilla WebGL2RenderingContext.isSync documentation> +isSync ::+       (MonadDOM m) =>+         WebGL2RenderingContext -> Maybe WebGLSync -> m GLboolean+isSync self sync+  = liftDOM+      ((self ^. jsf "isSync" [toJSVal sync]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteSync Mozilla WebGL2RenderingContext.deleteSync documentation> +deleteSync ::+           (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLSync -> m ()+deleteSync self sync+  = liftDOM (void (self ^. jsf "deleteSync" [toJSVal sync]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clientWaitSync Mozilla WebGL2RenderingContext.clientWaitSync documentation> +clientWaitSync ::+               (MonadDOM m) =>+                 WebGL2RenderingContext ->+                   Maybe WebGLSync -> GLbitfield -> GLuint64 -> m GLenum+clientWaitSync self sync flags timeout+  = liftDOM+      ((self ^. jsf "clientWaitSync"+          [toJSVal sync, toJSVal flags, toJSVal timeout])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.waitSync Mozilla WebGL2RenderingContext.waitSync documentation> +waitSync ::+         (MonadDOM m) =>+           WebGL2RenderingContext ->+             Maybe WebGLSync -> GLbitfield -> GLuint64 -> m ()+waitSync self sync flags timeout+  = liftDOM+      (void+         (self ^. jsf "waitSync"+            [toJSVal sync, toJSVal flags, toJSVal timeout]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSyncParameter Mozilla WebGL2RenderingContext.getSyncParameter documentation> +getSyncParameter ::+                 (MonadDOM m) =>+                   WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m JSVal+getSyncParameter self sync pname+  = liftDOM+      ((self ^. jsf "getSyncParameter" [toJSVal sync, toJSVal pname]) >>=+         toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createTransformFeedback Mozilla WebGL2RenderingContext.createTransformFeedback documentation> +createTransformFeedback ::+                        (MonadDOM m) =>+                          WebGL2RenderingContext -> m (Maybe WebGLTransformFeedback)+createTransformFeedback self+  = liftDOM ((self ^. js "createTransformFeedback") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteTransformFeedback Mozilla WebGL2RenderingContext.deleteTransformFeedback documentation> +deleteTransformFeedback ::+                        (MonadDOM m) =>+                          WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m ()+deleteTransformFeedback self id+  = liftDOM+      (void (self ^. jsf "deleteTransformFeedback" [toJSVal id]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isTransformFeedback Mozilla WebGL2RenderingContext.isTransformFeedback documentation> +isTransformFeedback ::+                    (MonadDOM m) =>+                      WebGL2RenderingContext ->+                        Maybe WebGLTransformFeedback -> m GLboolean+isTransformFeedback self id+  = liftDOM+      ((self ^. jsf "isTransformFeedback" [toJSVal id]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindTransformFeedback Mozilla WebGL2RenderingContext.bindTransformFeedback documentation> +bindTransformFeedback ::+                      (MonadDOM m) =>+                        WebGL2RenderingContext ->+                          GLenum -> Maybe WebGLTransformFeedback -> m ()+bindTransformFeedback self target id+  = liftDOM+      (void+         (self ^. jsf "bindTransformFeedback" [toJSVal target, toJSVal id]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.beginTransformFeedback Mozilla WebGL2RenderingContext.beginTransformFeedback documentation> +beginTransformFeedback ::+                       (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()+beginTransformFeedback self primitiveMode+  = liftDOM+      (void+         (self ^. jsf "beginTransformFeedback" [toJSVal primitiveMode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.endTransformFeedback Mozilla WebGL2RenderingContext.endTransformFeedback documentation> +endTransformFeedback ::+                     (MonadDOM m) => WebGL2RenderingContext -> m ()+endTransformFeedback self+  = liftDOM (void (self ^. js "endTransformFeedback"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.transformFeedbackVaryings Mozilla WebGL2RenderingContext.transformFeedbackVaryings documentation> +transformFeedbackVaryings ::+                          (MonadDOM m, ToJSString varyings) =>+                            WebGL2RenderingContext ->+                              Maybe WebGLProgram -> [varyings] -> GLenum -> m ()+transformFeedbackVaryings self program varyings bufferMode+  = liftDOM+      (void+         (self ^. jsf "transformFeedbackVaryings"+            [toJSVal program, toJSVal (array varyings), toJSVal bufferMode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getTransformFeedbackVarying Mozilla WebGL2RenderingContext.getTransformFeedbackVarying documentation> +getTransformFeedbackVarying ::+                            (MonadDOM m) =>+                              WebGL2RenderingContext ->+                                Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo)+getTransformFeedbackVarying self program index+  = liftDOM+      ((self ^. jsf "getTransformFeedbackVarying"+          [toJSVal program, toJSVal index])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.pauseTransformFeedback Mozilla WebGL2RenderingContext.pauseTransformFeedback documentation> +pauseTransformFeedback ::+                       (MonadDOM m) => WebGL2RenderingContext -> m ()+pauseTransformFeedback self+  = liftDOM (void (self ^. js "pauseTransformFeedback"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.resumeTransformFeedback Mozilla WebGL2RenderingContext.resumeTransformFeedback documentation> +resumeTransformFeedback ::+                        (MonadDOM m) => WebGL2RenderingContext -> m ()+resumeTransformFeedback self+  = liftDOM (void (self ^. js "resumeTransformFeedback"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindBufferBase Mozilla WebGL2RenderingContext.bindBufferBase documentation> +bindBufferBase ::+               (MonadDOM m) =>+                 WebGL2RenderingContext ->+                   GLenum -> GLuint -> Maybe WebGLBuffer -> m ()+bindBufferBase self target index buffer+  = liftDOM+      (void+         (self ^. jsf "bindBufferBase"+            [toJSVal target, toJSVal index, toJSVal buffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindBufferRange Mozilla WebGL2RenderingContext.bindBufferRange documentation> +bindBufferRange ::+                (MonadDOM m) =>+                  WebGL2RenderingContext ->+                    GLenum ->+                      GLuint -> Maybe WebGLBuffer -> GLintptr -> GLsizeiptr -> m ()+bindBufferRange self target index buffer offset size+  = liftDOM+      (void+         (self ^. jsf "bindBufferRange"+            [toJSVal target, toJSVal index, toJSVal buffer, toJSVal offset,+             toJSVal size]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getIndexedParameter Mozilla WebGL2RenderingContext.getIndexedParameter documentation> +getIndexedParameter ::+                    (MonadDOM m) =>+                      WebGL2RenderingContext -> GLenum -> GLuint -> m JSVal+getIndexedParameter self target index+  = liftDOM+      ((self ^. jsf "getIndexedParameter"+          [toJSVal target, toJSVal index])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformIndices Mozilla WebGL2RenderingContext.getUniformIndices documentation> +getUniformIndices ::+                  (MonadDOM m, ToJSString uniformNames) =>+                    WebGL2RenderingContext ->+                      Maybe WebGLProgram -> [uniformNames] -> m (Maybe Uint32Array)+getUniformIndices self program uniformNames+  = liftDOM+      ((self ^. jsf "getUniformIndices"+          [toJSVal program, toJSVal (array uniformNames)])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniforms Mozilla WebGL2RenderingContext.getActiveUniforms documentation> +getActiveUniforms ::+                  (MonadDOM m, IsUint32Array uniformIndices) =>+                    WebGL2RenderingContext ->+                      Maybe WebGLProgram ->+                        Maybe uniformIndices -> GLenum -> m (Maybe Int32Array)+getActiveUniforms self program uniformIndices pname+  = liftDOM+      ((self ^. jsf "getActiveUniforms"+          [toJSVal program, toJSVal uniformIndices, toJSVal pname])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformBlockIndex Mozilla WebGL2RenderingContext.getUniformBlockIndex documentation> +getUniformBlockIndex ::+                     (MonadDOM m, ToJSString uniformBlockName) =>+                       WebGL2RenderingContext ->+                         Maybe WebGLProgram -> uniformBlockName -> m GLuint+getUniformBlockIndex self program uniformBlockName+  = liftDOM+      ((self ^. jsf "getUniformBlockIndex"+          [toJSVal program, toJSVal uniformBlockName])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockParameter Mozilla WebGL2RenderingContext.getActiveUniformBlockParameter documentation> +getActiveUniformBlockParameter ::+                               (MonadDOM m) =>+                                 WebGL2RenderingContext ->+                                   Maybe WebGLProgram -> GLuint -> GLenum -> m JSVal+getActiveUniformBlockParameter self program uniformBlockIndex pname+  = liftDOM+      ((self ^. jsf "getActiveUniformBlockParameter"+          [toJSVal program, toJSVal uniformBlockIndex, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockName Mozilla WebGL2RenderingContext.getActiveUniformBlockName documentation> +getActiveUniformBlockName ::+                          (MonadDOM m) =>+                            WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m JSVal+getActiveUniformBlockName self program uniformBlockIndex+  = liftDOM+      ((self ^. jsf "getActiveUniformBlockName"+          [toJSVal program, toJSVal uniformBlockIndex])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformBlockBinding Mozilla WebGL2RenderingContext.uniformBlockBinding documentation> +uniformBlockBinding ::+                    (MonadDOM m) =>+                      WebGL2RenderingContext ->+                        Maybe WebGLProgram -> GLuint -> GLuint -> m ()+uniformBlockBinding self program uniformBlockIndex+  uniformBlockBinding+  = liftDOM+      (void+         (self ^. jsf "uniformBlockBinding"+            [toJSVal program, toJSVal uniformBlockIndex,+             toJSVal uniformBlockBinding]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createVertexArray Mozilla WebGL2RenderingContext.createVertexArray documentation> +createVertexArray ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext -> m (Maybe WebGLVertexArrayObject)+createVertexArray self+  = liftDOM ((self ^. js "createVertexArray") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteVertexArray Mozilla WebGL2RenderingContext.deleteVertexArray documentation> +deleteVertexArray ::+                  (MonadDOM m) =>+                    WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()+deleteVertexArray self vertexArray+  = liftDOM+      (void (self ^. jsf "deleteVertexArray" [toJSVal vertexArray]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isVertexArray Mozilla WebGL2RenderingContext.isVertexArray documentation> +isVertexArray ::+              (MonadDOM m) =>+                WebGL2RenderingContext ->+                  Maybe WebGLVertexArrayObject -> m GLboolean+isVertexArray self vertexArray+  = liftDOM+      ((self ^. jsf "isVertexArray" [toJSVal vertexArray]) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindVertexArray Mozilla WebGL2RenderingContext.bindVertexArray documentation> +bindVertexArray ::+                (MonadDOM m) =>+                  WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()+bindVertexArray self vertexArray+  = liftDOM+      (void (self ^. jsf "bindVertexArray" [toJSVal vertexArray]))+pattern READ_BUFFER = 3074+pattern UNPACK_ROW_LENGTH = 3314+pattern UNPACK_SKIP_ROWS = 3315+pattern UNPACK_SKIP_PIXELS = 3316+pattern PACK_ROW_LENGTH = 3330+pattern PACK_SKIP_ROWS = 3331+pattern PACK_SKIP_PIXELS = 3332+pattern COLOR = 6144+pattern DEPTH = 6145+pattern STENCIL = 6146+pattern RED = 6403+pattern RGB8 = 32849+pattern RGBA8 = 32856+pattern RGB10_A2 = 32857+pattern TEXTURE_BINDING_3D = 32874+pattern UNPACK_SKIP_IMAGES = 32877+pattern UNPACK_IMAGE_HEIGHT = 32878+pattern TEXTURE_3D = 32879+pattern TEXTURE_WRAP_R = 32882+pattern MAX_3D_TEXTURE_SIZE = 32883+pattern UNSIGNED_INT_2_10_10_10_REV = 33640+pattern MAX_ELEMENTS_VERTICES = 33000+pattern MAX_ELEMENTS_INDICES = 33001+pattern TEXTURE_MIN_LOD = 33082+pattern TEXTURE_MAX_LOD = 33083+pattern TEXTURE_BASE_LEVEL = 33084+pattern TEXTURE_MAX_LEVEL = 33085+pattern MIN = 32775+pattern MAX = 32776+pattern DEPTH_COMPONENT24 = 33190+pattern MAX_TEXTURE_LOD_BIAS = 34045+pattern TEXTURE_COMPARE_MODE = 34892+pattern TEXTURE_COMPARE_FUNC = 34893+pattern CURRENT_QUERY = 34917+pattern QUERY_RESULT = 34918+pattern QUERY_RESULT_AVAILABLE = 34919+pattern STREAM_READ = 35041+pattern STREAM_COPY = 35042+pattern STATIC_READ = 35045+pattern STATIC_COPY = 35046+pattern DYNAMIC_READ = 35049+pattern DYNAMIC_COPY = 35050+pattern MAX_DRAW_BUFFERS = 34852+pattern DRAW_BUFFER0 = 34853+pattern DRAW_BUFFER1 = 34854+pattern DRAW_BUFFER2 = 34855+pattern DRAW_BUFFER3 = 34856+pattern DRAW_BUFFER4 = 34857+pattern DRAW_BUFFER5 = 34858+pattern DRAW_BUFFER6 = 34859+pattern DRAW_BUFFER7 = 34860+pattern DRAW_BUFFER8 = 34861+pattern DRAW_BUFFER9 = 34862+pattern DRAW_BUFFER10 = 34863+pattern DRAW_BUFFER11 = 34864+pattern DRAW_BUFFER12 = 34865+pattern DRAW_BUFFER13 = 34866+pattern DRAW_BUFFER14 = 34867+pattern DRAW_BUFFER15 = 34868+pattern MAX_FRAGMENT_UNIFORM_COMPONENTS = 35657+pattern MAX_VERTEX_UNIFORM_COMPONENTS = 35658+pattern SAMPLER_3D = 35679+pattern SAMPLER_2D_SHADOW = 35682+pattern FRAGMENT_SHADER_DERIVATIVE_HINT = 35723+pattern PIXEL_PACK_BUFFER = 35051+pattern PIXEL_UNPACK_BUFFER = 35052+pattern PIXEL_PACK_BUFFER_BINDING = 35053+pattern PIXEL_UNPACK_BUFFER_BINDING = 35055+pattern FLOAT_MAT2x3 = 35685+pattern FLOAT_MAT2x4 = 35686+pattern FLOAT_MAT3x2 = 35687+pattern FLOAT_MAT3x4 = 35688+pattern FLOAT_MAT4x2 = 35689+pattern FLOAT_MAT4x3 = 35690+pattern SRGB = 35904+pattern SRGB8 = 35905+pattern SRGB8_ALPHA8 = 35907+pattern COMPARE_REF_TO_TEXTURE = 34894+pattern RGBA32F = 34836+pattern RGB32F = 34837+pattern RGBA16F = 34842+pattern RGB16F = 34843+pattern VERTEX_ATTRIB_ARRAY_INTEGER = 35069+pattern MAX_ARRAY_TEXTURE_LAYERS = 35071+pattern MIN_PROGRAM_TEXEL_OFFSET = 35076+pattern MAX_PROGRAM_TEXEL_OFFSET = 35077+pattern MAX_VARYING_COMPONENTS = 35659+pattern TEXTURE_2D_ARRAY = 35866+pattern TEXTURE_BINDING_2D_ARRAY = 35869+pattern R11F_G11F_B10F = 35898+pattern UNSIGNED_INT_10F_11F_11F_REV = 35899+pattern RGB9_E5 = 35901+pattern UNSIGNED_INT_5_9_9_9_REV = 35902+pattern TRANSFORM_FEEDBACK_BUFFER_MODE = 35967+pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS = 35968+pattern TRANSFORM_FEEDBACK_VARYINGS = 35971+pattern TRANSFORM_FEEDBACK_BUFFER_START = 35972+pattern TRANSFORM_FEEDBACK_BUFFER_SIZE = 35973+pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN = 35976+pattern RASTERIZER_DISCARD = 35977+pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS = 35978+pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS = 35979+pattern INTERLEAVED_ATTRIBS = 35980+pattern SEPARATE_ATTRIBS = 35981+pattern TRANSFORM_FEEDBACK_BUFFER = 35982+pattern TRANSFORM_FEEDBACK_BUFFER_BINDING = 35983+pattern RGBA32UI = 36208+pattern RGB32UI = 36209+pattern RGBA16UI = 36214+pattern RGB16UI = 36215+pattern RGBA8UI = 36220+pattern RGB8UI = 36221+pattern RGBA32I = 36226+pattern RGB32I = 36227+pattern RGBA16I = 36232+pattern RGB16I = 36233+pattern RGBA8I = 36238+pattern RGB8I = 36239+pattern RED_INTEGER = 36244+pattern RGB_INTEGER = 36248+pattern RGBA_INTEGER = 36249+pattern SAMPLER_2D_ARRAY = 36289+pattern SAMPLER_2D_ARRAY_SHADOW = 36292+pattern SAMPLER_CUBE_SHADOW = 36293+pattern UNSIGNED_INT_VEC2 = 36294+pattern UNSIGNED_INT_VEC3 = 36295+pattern UNSIGNED_INT_VEC4 = 36296+pattern INT_SAMPLER_2D = 36298+pattern INT_SAMPLER_3D = 36299+pattern INT_SAMPLER_CUBE = 36300+pattern INT_SAMPLER_2D_ARRAY = 36303+pattern UNSIGNED_INT_SAMPLER_2D = 36306+pattern UNSIGNED_INT_SAMPLER_3D = 36307+pattern UNSIGNED_INT_SAMPLER_CUBE = 36308+pattern UNSIGNED_INT_SAMPLER_2D_ARRAY = 36311+pattern DEPTH_COMPONENT32F = 36012+pattern DEPTH32F_STENCIL8 = 36013+pattern FLOAT_32_UNSIGNED_INT_24_8_REV = 36269+pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING = 33296+pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE = 33297+pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE = 33298+pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE = 33299+pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE = 33300+pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE = 33301+pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE = 33302+pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE = 33303+pattern FRAMEBUFFER_DEFAULT = 33304+pattern DEPTH_STENCIL_ATTACHMENT = 33306+pattern DEPTH_STENCIL = 34041+pattern UNSIGNED_INT_24_8 = 34042+pattern DEPTH24_STENCIL8 = 35056+pattern UNSIGNED_NORMALIZED = 35863+pattern DRAW_FRAMEBUFFER_BINDING = 36006+pattern READ_FRAMEBUFFER = 36008+pattern DRAW_FRAMEBUFFER = 36009+pattern READ_FRAMEBUFFER_BINDING = 36010+pattern RENDERBUFFER_SAMPLES = 36011+pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER = 36052+pattern MAX_COLOR_ATTACHMENTS = 36063+pattern COLOR_ATTACHMENT1 = 36065+pattern COLOR_ATTACHMENT2 = 36066+pattern COLOR_ATTACHMENT3 = 36067+pattern COLOR_ATTACHMENT4 = 36068+pattern COLOR_ATTACHMENT5 = 36069+pattern COLOR_ATTACHMENT6 = 36070+pattern COLOR_ATTACHMENT7 = 36071+pattern COLOR_ATTACHMENT8 = 36072+pattern COLOR_ATTACHMENT9 = 36073+pattern COLOR_ATTACHMENT10 = 36074+pattern COLOR_ATTACHMENT11 = 36075+pattern COLOR_ATTACHMENT12 = 36076+pattern COLOR_ATTACHMENT13 = 36077+pattern COLOR_ATTACHMENT14 = 36078+pattern COLOR_ATTACHMENT15 = 36079+pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE = 36182+pattern MAX_SAMPLES = 36183+pattern HALF_FLOAT = 5131+pattern RG = 33319+pattern RG_INTEGER = 33320+pattern R8 = 33321+pattern RG8 = 33323+pattern R16F = 33325+pattern R32F = 33326+pattern RG16F = 33327+pattern RG32F = 33328+pattern R8I = 33329+pattern R8UI = 33330+pattern R16I = 33331+pattern R16UI = 33332+pattern R32I = 33333+pattern R32UI = 33334+pattern RG8I = 33335+pattern RG8UI = 33336+pattern RG16I = 33337+pattern RG16UI = 33338+pattern RG32I = 33339+pattern RG32UI = 33340+pattern VERTEX_ARRAY_BINDING = 34229+pattern R8_SNORM = 36756+pattern RG8_SNORM = 36757+pattern RGB8_SNORM = 36758+pattern RGBA8_SNORM = 36759+pattern SIGNED_NORMALIZED = 36764+pattern PRIMITIVE_RESTART_FIXED_INDEX = 36201+pattern COPY_READ_BUFFER = 36662+pattern COPY_WRITE_BUFFER = 36663+pattern COPY_READ_BUFFER_BINDING = 36662+pattern COPY_WRITE_BUFFER_BINDING = 36663+pattern UNIFORM_BUFFER = 35345+pattern UNIFORM_BUFFER_BINDING = 35368+pattern UNIFORM_BUFFER_START = 35369+pattern UNIFORM_BUFFER_SIZE = 35370+pattern MAX_VERTEX_UNIFORM_BLOCKS = 35371+pattern MAX_FRAGMENT_UNIFORM_BLOCKS = 35373+pattern MAX_COMBINED_UNIFORM_BLOCKS = 35374+pattern MAX_UNIFORM_BUFFER_BINDINGS = 35375+pattern MAX_UNIFORM_BLOCK_SIZE = 35376+pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS = 35377+pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS = 35379+pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT = 35380+pattern ACTIVE_UNIFORM_BLOCKS = 35382+pattern UNIFORM_TYPE = 35383+pattern UNIFORM_SIZE = 35384+pattern UNIFORM_BLOCK_INDEX = 35386+pattern UNIFORM_OFFSET = 35387+pattern UNIFORM_ARRAY_STRIDE = 35388+pattern UNIFORM_MATRIX_STRIDE = 35389+pattern UNIFORM_IS_ROW_MAJOR = 35390+pattern UNIFORM_BLOCK_BINDING = 35391+pattern UNIFORM_BLOCK_DATA_SIZE = 35392+pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS = 35394+pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES = 35395+pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER = 35396+pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER = 35398+pattern INVALID_INDEX = 4294967295+pattern MAX_VERTEX_OUTPUT_COMPONENTS = 37154+pattern MAX_FRAGMENT_INPUT_COMPONENTS = 37157+pattern MAX_SERVER_WAIT_TIMEOUT = 37137+pattern OBJECT_TYPE = 37138+pattern SYNC_CONDITION = 37139+pattern SYNC_STATUS = 37140+pattern SYNC_FLAGS = 37141+pattern SYNC_FENCE = 37142+pattern SYNC_GPU_COMMANDS_COMPLETE = 37143+pattern UNSIGNALED = 37144+pattern SIGNALED = 37145+pattern ALREADY_SIGNALED = 37146+pattern TIMEOUT_EXPIRED = 37147+pattern CONDITION_SATISFIED = 37148+pattern WAIT_FAILED = 37149+pattern SYNC_FLUSH_COMMANDS_BIT = 1+pattern VERTEX_ATTRIB_ARRAY_DIVISOR = 35070+pattern ANY_SAMPLES_PASSED = 35887+pattern ANY_SAMPLES_PASSED_CONSERVATIVE = 36202+pattern SAMPLER_BINDING = 35097+pattern RGB10_A2UI = 36975+pattern TEXTURE_SWIZZLE_R = 36418+pattern TEXTURE_SWIZZLE_G = 36419+pattern TEXTURE_SWIZZLE_B = 36420+pattern TEXTURE_SWIZZLE_A = 36421+pattern GREEN = 6404+pattern BLUE = 6405+pattern INT_2_10_10_10_REV = 36255+pattern TRANSFORM_FEEDBACK = 36386+pattern TRANSFORM_FEEDBACK_PAUSED = 36387+pattern TRANSFORM_FEEDBACK_ACTIVE = 36388+pattern TRANSFORM_FEEDBACK_BINDING = 36389+pattern COMPRESSED_R11_EAC = 37488+pattern COMPRESSED_SIGNED_R11_EAC = 37489+pattern COMPRESSED_RG11_EAC = 37490+pattern COMPRESSED_SIGNED_RG11_EAC = 37491+pattern COMPRESSED_RGB8_ETC2 = 37492+pattern COMPRESSED_SRGB8_ETC2 = 37493+pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37494+pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37495+pattern COMPRESSED_RGBA8_ETC2_EAC = 37496+pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC = 37497+pattern TEXTURE_IMMUTABLE_FORMAT = 37167+pattern MAX_ELEMENT_INDEX = 36203+pattern NUM_SAMPLE_COUNTS = 37760+pattern TEXTURE_IMMUTABLE_LEVELS = 33503+pattern TIMEOUT_IGNORED = 18446744073709551615
+ src/JSDOM/Generated/WebGLActiveInfo.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLActiveInfo+       (getSize, getType, getName, WebGLActiveInfo, castToWebGLActiveInfo,+        gTypeWebGLActiveInfo)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo.size Mozilla WebGLActiveInfo.size documentation> +getSize :: (MonadDOM m) => WebGLActiveInfo -> m Int+getSize self+  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo.type Mozilla WebGLActiveInfo.type documentation> +getType :: (MonadDOM m) => WebGLActiveInfo -> m Word+getType self+  = liftDOM (round <$> ((self ^. js "type") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo.name Mozilla WebGLActiveInfo.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => WebGLActiveInfo -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WebGLCompressedTextureATC.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLCompressedTextureATC+       (pattern COMPRESSED_RGB_ATC_WEBGL,+        pattern COMPRESSED_RGBA_ATC_EXPLICIT_ALPHA_WEBGL,+        pattern COMPRESSED_RGBA_ATC_INTERPOLATED_ALPHA_WEBGL,+        WebGLCompressedTextureATC, castToWebGLCompressedTextureATC,+        gTypeWebGLCompressedTextureATC)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern COMPRESSED_RGB_ATC_WEBGL = 35986+pattern COMPRESSED_RGBA_ATC_EXPLICIT_ALPHA_WEBGL = 35987+pattern COMPRESSED_RGBA_ATC_INTERPOLATED_ALPHA_WEBGL = 34798
+ src/JSDOM/Generated/WebGLCompressedTexturePVRTC.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLCompressedTexturePVRTC+       (pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG,+        pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG,+        pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG,+        pattern COMPRESSED_RGBA_PVRTC_2BPPV1_IMG,+        WebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC,+        gTypeWebGLCompressedTexturePVRTC)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG = 35840+pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG = 35841+pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG = 35842+pattern COMPRESSED_RGBA_PVRTC_2BPPV1_IMG = 35843
+ src/JSDOM/Generated/WebGLCompressedTextureS3TC.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLCompressedTextureS3TC+       (pattern COMPRESSED_RGB_S3TC_DXT1_EXT,+        pattern COMPRESSED_RGBA_S3TC_DXT1_EXT,+        pattern COMPRESSED_RGBA_S3TC_DXT3_EXT,+        pattern COMPRESSED_RGBA_S3TC_DXT5_EXT, WebGLCompressedTextureS3TC,+        castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern COMPRESSED_RGB_S3TC_DXT1_EXT = 33776+pattern COMPRESSED_RGBA_S3TC_DXT1_EXT = 33777+pattern COMPRESSED_RGBA_S3TC_DXT3_EXT = 33778+pattern COMPRESSED_RGBA_S3TC_DXT5_EXT = 33779
+ src/JSDOM/Generated/WebGLContextAttributes.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLContextAttributes+       (setAlpha, getAlpha, setDepth, getDepth, setStencil, getStencil,+        setAntialias, getAntialias, setPremultipliedAlpha,+        getPremultipliedAlpha, setPreserveDrawingBuffer,+        getPreserveDrawingBuffer, WebGLContextAttributes,+        castToWebGLContextAttributes, gTypeWebGLContextAttributes)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.alpha Mozilla WebGLContextAttributes.alpha documentation> +setAlpha :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()+setAlpha self val = liftDOM (self ^. jss "alpha" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.alpha Mozilla WebGLContextAttributes.alpha documentation> +getAlpha :: (MonadDOM m) => WebGLContextAttributes -> m Bool+getAlpha self = liftDOM ((self ^. js "alpha") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.depth Mozilla WebGLContextAttributes.depth documentation> +setDepth :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()+setDepth self val = liftDOM (self ^. jss "depth" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.depth Mozilla WebGLContextAttributes.depth documentation> +getDepth :: (MonadDOM m) => WebGLContextAttributes -> m Bool+getDepth self = liftDOM ((self ^. js "depth") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.stencil Mozilla WebGLContextAttributes.stencil documentation> +setStencil ::+           (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()+setStencil self val = liftDOM (self ^. jss "stencil" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.stencil Mozilla WebGLContextAttributes.stencil documentation> +getStencil :: (MonadDOM m) => WebGLContextAttributes -> m Bool+getStencil self = liftDOM ((self ^. js "stencil") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.antialias Mozilla WebGLContextAttributes.antialias documentation> +setAntialias ::+             (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()+setAntialias self val+  = liftDOM (self ^. jss "antialias" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.antialias Mozilla WebGLContextAttributes.antialias documentation> +getAntialias :: (MonadDOM m) => WebGLContextAttributes -> m Bool+getAntialias self+  = liftDOM ((self ^. js "antialias") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.premultipliedAlpha Mozilla WebGLContextAttributes.premultipliedAlpha documentation> +setPremultipliedAlpha ::+                      (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()+setPremultipliedAlpha self val+  = liftDOM (self ^. jss "premultipliedAlpha" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.premultipliedAlpha Mozilla WebGLContextAttributes.premultipliedAlpha documentation> +getPremultipliedAlpha ::+                      (MonadDOM m) => WebGLContextAttributes -> m Bool+getPremultipliedAlpha self+  = liftDOM ((self ^. js "premultipliedAlpha") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.preserveDrawingBuffer Mozilla WebGLContextAttributes.preserveDrawingBuffer documentation> +setPreserveDrawingBuffer ::+                         (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()+setPreserveDrawingBuffer self val+  = liftDOM (self ^. jss "preserveDrawingBuffer" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.preserveDrawingBuffer Mozilla WebGLContextAttributes.preserveDrawingBuffer documentation> +getPreserveDrawingBuffer ::+                         (MonadDOM m) => WebGLContextAttributes -> m Bool+getPreserveDrawingBuffer self+  = liftDOM ((self ^. js "preserveDrawingBuffer") >>= valToBool)
+ src/JSDOM/Generated/WebGLContextEvent.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLContextEvent+       (getStatusMessage, WebGLContextEvent, castToWebGLContextEvent,+        gTypeWebGLContextEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextEvent.statusMessage Mozilla WebGLContextEvent.statusMessage documentation> +getStatusMessage ::+                 (MonadDOM m, FromJSString result) => WebGLContextEvent -> m result+getStatusMessage self+  = liftDOM ((self ^. js "statusMessage") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WebGLDebugRendererInfo.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLDebugRendererInfo+       (pattern UNMASKED_VENDOR_WEBGL, pattern UNMASKED_RENDERER_WEBGL,+        WebGLDebugRendererInfo, castToWebGLDebugRendererInfo,+        gTypeWebGLDebugRendererInfo)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern UNMASKED_VENDOR_WEBGL = 37445+pattern UNMASKED_RENDERER_WEBGL = 37446
+ src/JSDOM/Generated/WebGLDebugShaders.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLDebugShaders+       (getTranslatedShaderSource, WebGLDebugShaders,+        castToWebGLDebugShaders, gTypeWebGLDebugShaders)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDebugShaders.getTranslatedShaderSource Mozilla WebGLDebugShaders.getTranslatedShaderSource documentation> +getTranslatedShaderSource ::+                          (MonadDOM m, FromJSString result) =>+                            WebGLDebugShaders -> Maybe WebGLShader -> m (Maybe result)+getTranslatedShaderSource self shader+  = liftDOM+      ((self ^. jsf "getTranslatedShaderSource" [toJSVal shader]) >>=+         fromMaybeJSString)
+ src/JSDOM/Generated/WebGLDepthTexture.hs view
@@ -0,0 +1,17 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLDepthTexture+       (pattern UNSIGNED_INT_24_8_WEBGL, WebGLDepthTexture,+        castToWebGLDepthTexture, gTypeWebGLDepthTexture)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums+pattern UNSIGNED_INT_24_8_WEBGL = 34042
+ src/JSDOM/Generated/WebGLDrawBuffers.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLDrawBuffers+       (drawBuffersWEBGL, pattern COLOR_ATTACHMENT0_WEBGL,+        pattern COLOR_ATTACHMENT1_WEBGL, pattern COLOR_ATTACHMENT2_WEBGL,+        pattern COLOR_ATTACHMENT3_WEBGL, pattern COLOR_ATTACHMENT4_WEBGL,+        pattern COLOR_ATTACHMENT5_WEBGL, pattern COLOR_ATTACHMENT6_WEBGL,+        pattern COLOR_ATTACHMENT7_WEBGL, pattern COLOR_ATTACHMENT8_WEBGL,+        pattern COLOR_ATTACHMENT9_WEBGL, pattern COLOR_ATTACHMENT10_WEBGL,+        pattern COLOR_ATTACHMENT11_WEBGL, pattern COLOR_ATTACHMENT12_WEBGL,+        pattern COLOR_ATTACHMENT13_WEBGL, pattern COLOR_ATTACHMENT14_WEBGL,+        pattern COLOR_ATTACHMENT15_WEBGL, pattern DRAW_BUFFER0_WEBGL,+        pattern DRAW_BUFFER1_WEBGL, pattern DRAW_BUFFER2_WEBGL,+        pattern DRAW_BUFFER3_WEBGL, pattern DRAW_BUFFER4_WEBGL,+        pattern DRAW_BUFFER5_WEBGL, pattern DRAW_BUFFER6_WEBGL,+        pattern DRAW_BUFFER7_WEBGL, pattern DRAW_BUFFER8_WEBGL,+        pattern DRAW_BUFFER9_WEBGL, pattern DRAW_BUFFER10_WEBGL,+        pattern DRAW_BUFFER11_WEBGL, pattern DRAW_BUFFER12_WEBGL,+        pattern DRAW_BUFFER13_WEBGL, pattern DRAW_BUFFER14_WEBGL,+        pattern DRAW_BUFFER15_WEBGL, pattern MAX_COLOR_ATTACHMENTS_WEBGL,+        pattern MAX_DRAW_BUFFERS_WEBGL, WebGLDrawBuffers,+        castToWebGLDrawBuffers, gTypeWebGLDrawBuffers)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDrawBuffers.drawBuffersWEBGL Mozilla WebGLDrawBuffers.drawBuffersWEBGL documentation> +drawBuffersWEBGL ::+                 (MonadDOM m) => WebGLDrawBuffers -> [GLenum] -> m ()+drawBuffersWEBGL self buffers+  = liftDOM+      (void (self ^. jsf "drawBuffersWEBGL" [toJSVal (array buffers)]))+pattern COLOR_ATTACHMENT0_WEBGL = 36064+pattern COLOR_ATTACHMENT1_WEBGL = 36065+pattern COLOR_ATTACHMENT2_WEBGL = 36066+pattern COLOR_ATTACHMENT3_WEBGL = 36067+pattern COLOR_ATTACHMENT4_WEBGL = 36068+pattern COLOR_ATTACHMENT5_WEBGL = 36069+pattern COLOR_ATTACHMENT6_WEBGL = 36070+pattern COLOR_ATTACHMENT7_WEBGL = 36071+pattern COLOR_ATTACHMENT8_WEBGL = 36072+pattern COLOR_ATTACHMENT9_WEBGL = 36073+pattern COLOR_ATTACHMENT10_WEBGL = 36074+pattern COLOR_ATTACHMENT11_WEBGL = 36075+pattern COLOR_ATTACHMENT12_WEBGL = 36076+pattern COLOR_ATTACHMENT13_WEBGL = 36077+pattern COLOR_ATTACHMENT14_WEBGL = 36078+pattern COLOR_ATTACHMENT15_WEBGL = 36079+pattern DRAW_BUFFER0_WEBGL = 34853+pattern DRAW_BUFFER1_WEBGL = 34854+pattern DRAW_BUFFER2_WEBGL = 34855+pattern DRAW_BUFFER3_WEBGL = 34856+pattern DRAW_BUFFER4_WEBGL = 34857+pattern DRAW_BUFFER5_WEBGL = 34858+pattern DRAW_BUFFER6_WEBGL = 34859+pattern DRAW_BUFFER7_WEBGL = 34860+pattern DRAW_BUFFER8_WEBGL = 34861+pattern DRAW_BUFFER9_WEBGL = 34862+pattern DRAW_BUFFER10_WEBGL = 34863+pattern DRAW_BUFFER11_WEBGL = 34864+pattern DRAW_BUFFER12_WEBGL = 34865+pattern DRAW_BUFFER13_WEBGL = 34866+pattern DRAW_BUFFER14_WEBGL = 34867+pattern DRAW_BUFFER15_WEBGL = 34868+pattern MAX_COLOR_ATTACHMENTS_WEBGL = 36063+pattern MAX_DRAW_BUFFERS_WEBGL = 34852
+ src/JSDOM/Generated/WebGLLoseContext.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLLoseContext+       (loseContext, restoreContext, WebGLLoseContext,+        castToWebGLLoseContext, gTypeWebGLLoseContext)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLLoseContext.loseContext Mozilla WebGLLoseContext.loseContext documentation> +loseContext :: (MonadDOM m) => WebGLLoseContext -> m ()+loseContext self = liftDOM (void (self ^. js "loseContext"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLLoseContext.restoreContext Mozilla WebGLLoseContext.restoreContext documentation> +restoreContext :: (MonadDOM m) => WebGLLoseContext -> m ()+restoreContext self = liftDOM (void (self ^. js "restoreContext"))
+ src/JSDOM/Generated/WebGLRenderingContextBase.hs view
@@ -0,0 +1,2093 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLRenderingContextBase+       (activeTexture, attachShader, bindAttribLocation, bindBuffer,+        bindFramebuffer, bindRenderbuffer, bindTexture, blendColor,+        blendEquation, blendEquationSeparate, blendFunc, blendFuncSeparate,+        bufferData, bufferDataView, bufferDataPtr, bufferSubData,+        bufferSubDataView, checkFramebufferStatus, clear, clearColor,+        clearDepth, clearStencil, colorMask, compileShader,+        compressedTexImage2D, compressedTexSubImage2D, copyTexImage2D,+        copyTexSubImage2D, createBuffer, createFramebuffer, createProgram,+        createRenderbuffer, createShader, createTexture, cullFace,+        deleteBuffer, deleteFramebuffer, deleteProgram, deleteRenderbuffer,+        deleteShader, deleteTexture, depthFunc, depthMask, depthRange,+        detachShader, disable, disableVertexAttribArray, drawArrays,+        drawElements, enable, enableVertexAttribArray, finish, flush,+        framebufferRenderbuffer, framebufferTexture2D, frontFace,+        generateMipmap, getActiveAttrib, getActiveUniform,+        getAttachedShaders, getAttribLocation, getBufferParameter,+        getContextAttributes, getError, getExtension,+        getFramebufferAttachmentParameter, getParameter,+        getProgramParameter, getProgramInfoLog, getRenderbufferParameter,+        getShaderParameter, getShaderInfoLog, getShaderPrecisionFormat,+        getShaderSource, getSupportedExtensions, getTexParameter,+        getUniform, getUniformLocation, getVertexAttrib,+        getVertexAttribOffset, hint, isBuffer, isContextLost, isEnabled,+        isFramebuffer, isProgram, isRenderbuffer, isShader, isTexture,+        lineWidth, linkProgram, pixelStorei, polygonOffset, readPixels,+        releaseShaderCompiler, renderbufferStorage, sampleCoverage,+        scissor, shaderSource, stencilFunc, stencilFuncSeparate,+        stencilMask, stencilMaskSeparate, stencilOp, stencilOpSeparate,+        texParameterf, texParameteri, texImage2DView, texImage2DData,+        texImage2D, texImage2DCanvas, texImage2DVideo, texSubImage2DView,+        texSubImage2DData, texSubImage2D, texSubImage2DCanvas,+        texSubImage2DVideo, uniform1f, uniform1fv, uniform1i, uniform1iv,+        uniform2f, uniform2fv, uniform2i, uniform2iv, uniform3f,+        uniform3fv, uniform3i, uniform3iv, uniform4f, uniform4fv,+        uniform4i, uniform4iv, uniformMatrix2fv, uniformMatrix3fv,+        uniformMatrix4fv, useProgram, validateProgram, vertexAttrib1f,+        vertexAttrib1fv, vertexAttrib2f, vertexAttrib2fv, vertexAttrib3f,+        vertexAttrib3fv, vertexAttrib4f, vertexAttrib4fv,+        vertexAttribPointer, viewport, pattern DEPTH_BUFFER_BIT,+        pattern STENCIL_BUFFER_BIT, pattern COLOR_BUFFER_BIT,+        pattern POINTS, pattern LINES, pattern LINE_LOOP,+        pattern LINE_STRIP, pattern TRIANGLES, pattern TRIANGLE_STRIP,+        pattern TRIANGLE_FAN, pattern ZERO, pattern ONE, pattern SRC_COLOR,+        pattern ONE_MINUS_SRC_COLOR, pattern SRC_ALPHA,+        pattern ONE_MINUS_SRC_ALPHA, pattern DST_ALPHA,+        pattern ONE_MINUS_DST_ALPHA, pattern DST_COLOR,+        pattern ONE_MINUS_DST_COLOR, pattern SRC_ALPHA_SATURATE,+        pattern FUNC_ADD, pattern BLEND_EQUATION,+        pattern BLEND_EQUATION_RGB, pattern BLEND_EQUATION_ALPHA,+        pattern FUNC_SUBTRACT, pattern FUNC_REVERSE_SUBTRACT,+        pattern BLEND_DST_RGB, pattern BLEND_SRC_RGB,+        pattern BLEND_DST_ALPHA, pattern BLEND_SRC_ALPHA,+        pattern CONSTANT_COLOR, pattern ONE_MINUS_CONSTANT_COLOR,+        pattern CONSTANT_ALPHA, pattern ONE_MINUS_CONSTANT_ALPHA,+        pattern BLEND_COLOR, pattern ARRAY_BUFFER,+        pattern ELEMENT_ARRAY_BUFFER, pattern ARRAY_BUFFER_BINDING,+        pattern ELEMENT_ARRAY_BUFFER_BINDING, pattern STREAM_DRAW,+        pattern STATIC_DRAW, pattern DYNAMIC_DRAW, pattern BUFFER_SIZE,+        pattern BUFFER_USAGE, pattern CURRENT_VERTEX_ATTRIB, pattern FRONT,+        pattern BACK, pattern FRONT_AND_BACK, pattern TEXTURE_2D,+        pattern CULL_FACE, pattern BLEND, pattern DITHER,+        pattern STENCIL_TEST, pattern DEPTH_TEST, pattern SCISSOR_TEST,+        pattern POLYGON_OFFSET_FILL, pattern SAMPLE_ALPHA_TO_COVERAGE,+        pattern SAMPLE_COVERAGE, pattern NO_ERROR, pattern INVALID_ENUM,+        pattern INVALID_VALUE, pattern INVALID_OPERATION,+        pattern OUT_OF_MEMORY, pattern CW, pattern CCW, pattern LINE_WIDTH,+        pattern ALIASED_POINT_SIZE_RANGE, pattern ALIASED_LINE_WIDTH_RANGE,+        pattern CULL_FACE_MODE, pattern FRONT_FACE, pattern DEPTH_RANGE,+        pattern DEPTH_WRITEMASK, pattern DEPTH_CLEAR_VALUE,+        pattern DEPTH_FUNC, pattern STENCIL_CLEAR_VALUE,+        pattern STENCIL_FUNC, pattern STENCIL_FAIL,+        pattern STENCIL_PASS_DEPTH_FAIL, pattern STENCIL_PASS_DEPTH_PASS,+        pattern STENCIL_REF, pattern STENCIL_VALUE_MASK,+        pattern STENCIL_WRITEMASK, pattern STENCIL_BACK_FUNC,+        pattern STENCIL_BACK_FAIL, pattern STENCIL_BACK_PASS_DEPTH_FAIL,+        pattern STENCIL_BACK_PASS_DEPTH_PASS, pattern STENCIL_BACK_REF,+        pattern STENCIL_BACK_VALUE_MASK, pattern STENCIL_BACK_WRITEMASK,+        pattern VIEWPORT, pattern SCISSOR_BOX, pattern COLOR_CLEAR_VALUE,+        pattern COLOR_WRITEMASK, pattern UNPACK_ALIGNMENT,+        pattern PACK_ALIGNMENT, pattern MAX_TEXTURE_SIZE,+        pattern MAX_VIEWPORT_DIMS, pattern SUBPIXEL_BITS, pattern RED_BITS,+        pattern GREEN_BITS, pattern BLUE_BITS, pattern ALPHA_BITS,+        pattern DEPTH_BITS, pattern STENCIL_BITS,+        pattern POLYGON_OFFSET_UNITS, pattern POLYGON_OFFSET_FACTOR,+        pattern TEXTURE_BINDING_2D, pattern SAMPLE_BUFFERS,+        pattern SAMPLES, pattern SAMPLE_COVERAGE_VALUE,+        pattern SAMPLE_COVERAGE_INVERT, pattern COMPRESSED_TEXTURE_FORMATS,+        pattern DONT_CARE, pattern FASTEST, pattern NICEST,+        pattern GENERATE_MIPMAP_HINT, pattern BYTE, pattern UNSIGNED_BYTE,+        pattern SHORT, pattern UNSIGNED_SHORT, pattern INT,+        pattern UNSIGNED_INT, pattern FLOAT, pattern DEPTH_COMPONENT,+        pattern ALPHA, pattern RGB, pattern RGBA, pattern LUMINANCE,+        pattern LUMINANCE_ALPHA, pattern UNSIGNED_SHORT_4_4_4_4,+        pattern UNSIGNED_SHORT_5_5_5_1, pattern UNSIGNED_SHORT_5_6_5,+        pattern FRAGMENT_SHADER, pattern VERTEX_SHADER,+        pattern MAX_VERTEX_ATTRIBS, pattern MAX_VERTEX_UNIFORM_VECTORS,+        pattern MAX_VARYING_VECTORS,+        pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS,+        pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS,+        pattern MAX_TEXTURE_IMAGE_UNITS,+        pattern MAX_FRAGMENT_UNIFORM_VECTORS, pattern SHADER_TYPE,+        pattern DELETE_STATUS, pattern LINK_STATUS,+        pattern VALIDATE_STATUS, pattern ATTACHED_SHADERS,+        pattern ACTIVE_UNIFORMS, pattern ACTIVE_ATTRIBUTES,+        pattern SHADING_LANGUAGE_VERSION, pattern CURRENT_PROGRAM,+        pattern NEVER, pattern LESS, pattern EQUAL, pattern LEQUAL,+        pattern GREATER, pattern NOTEQUAL, pattern GEQUAL, pattern ALWAYS,+        pattern KEEP, pattern REPLACE, pattern INCR, pattern DECR,+        pattern INVERT, pattern INCR_WRAP, pattern DECR_WRAP,+        pattern VENDOR, pattern RENDERER, pattern VERSION, pattern NEAREST,+        pattern LINEAR, pattern NEAREST_MIPMAP_NEAREST,+        pattern LINEAR_MIPMAP_NEAREST, pattern NEAREST_MIPMAP_LINEAR,+        pattern LINEAR_MIPMAP_LINEAR, pattern TEXTURE_MAG_FILTER,+        pattern TEXTURE_MIN_FILTER, pattern TEXTURE_WRAP_S,+        pattern TEXTURE_WRAP_T, pattern TEXTURE, pattern TEXTURE_CUBE_MAP,+        pattern TEXTURE_BINDING_CUBE_MAP,+        pattern TEXTURE_CUBE_MAP_POSITIVE_X,+        pattern TEXTURE_CUBE_MAP_NEGATIVE_X,+        pattern TEXTURE_CUBE_MAP_POSITIVE_Y,+        pattern TEXTURE_CUBE_MAP_NEGATIVE_Y,+        pattern TEXTURE_CUBE_MAP_POSITIVE_Z,+        pattern TEXTURE_CUBE_MAP_NEGATIVE_Z,+        pattern MAX_CUBE_MAP_TEXTURE_SIZE, pattern TEXTURE0,+        pattern TEXTURE1, pattern TEXTURE2, pattern TEXTURE3,+        pattern TEXTURE4, pattern TEXTURE5, pattern TEXTURE6,+        pattern TEXTURE7, pattern TEXTURE8, pattern TEXTURE9,+        pattern TEXTURE10, pattern TEXTURE11, pattern TEXTURE12,+        pattern TEXTURE13, pattern TEXTURE14, pattern TEXTURE15,+        pattern TEXTURE16, pattern TEXTURE17, pattern TEXTURE18,+        pattern TEXTURE19, pattern TEXTURE20, pattern TEXTURE21,+        pattern TEXTURE22, pattern TEXTURE23, pattern TEXTURE24,+        pattern TEXTURE25, pattern TEXTURE26, pattern TEXTURE27,+        pattern TEXTURE28, pattern TEXTURE29, pattern TEXTURE30,+        pattern TEXTURE31, pattern ACTIVE_TEXTURE, pattern REPEAT,+        pattern CLAMP_TO_EDGE, pattern MIRRORED_REPEAT, pattern FLOAT_VEC2,+        pattern FLOAT_VEC3, pattern FLOAT_VEC4, pattern INT_VEC2,+        pattern INT_VEC3, pattern INT_VEC4, pattern BOOL,+        pattern BOOL_VEC2, pattern BOOL_VEC3, pattern BOOL_VEC4,+        pattern FLOAT_MAT2, pattern FLOAT_MAT3, pattern FLOAT_MAT4,+        pattern SAMPLER_2D, pattern SAMPLER_CUBE,+        pattern VERTEX_ATTRIB_ARRAY_ENABLED,+        pattern VERTEX_ATTRIB_ARRAY_SIZE,+        pattern VERTEX_ATTRIB_ARRAY_STRIDE,+        pattern VERTEX_ATTRIB_ARRAY_TYPE,+        pattern VERTEX_ATTRIB_ARRAY_NORMALIZED,+        pattern VERTEX_ATTRIB_ARRAY_POINTER,+        pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING,+        pattern IMPLEMENTATION_COLOR_READ_TYPE,+        pattern IMPLEMENTATION_COLOR_READ_FORMAT, pattern COMPILE_STATUS,+        pattern LOW_FLOAT, pattern MEDIUM_FLOAT, pattern HIGH_FLOAT,+        pattern LOW_INT, pattern MEDIUM_INT, pattern HIGH_INT,+        pattern FRAMEBUFFER, pattern RENDERBUFFER, pattern RGBA4,+        pattern RGB5_A1, pattern RGB565, pattern DEPTH_COMPONENT16,+        pattern STENCIL_INDEX, pattern STENCIL_INDEX8,+        pattern DEPTH_STENCIL, pattern RENDERBUFFER_WIDTH,+        pattern RENDERBUFFER_HEIGHT, pattern RENDERBUFFER_INTERNAL_FORMAT,+        pattern RENDERBUFFER_RED_SIZE, pattern RENDERBUFFER_GREEN_SIZE,+        pattern RENDERBUFFER_BLUE_SIZE, pattern RENDERBUFFER_ALPHA_SIZE,+        pattern RENDERBUFFER_DEPTH_SIZE, pattern RENDERBUFFER_STENCIL_SIZE,+        pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE,+        pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME,+        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL,+        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE,+        pattern COLOR_ATTACHMENT0, pattern DEPTH_ATTACHMENT,+        pattern STENCIL_ATTACHMENT, pattern DEPTH_STENCIL_ATTACHMENT,+        pattern NONE, pattern FRAMEBUFFER_COMPLETE,+        pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT,+        pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT,+        pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS,+        pattern FRAMEBUFFER_UNSUPPORTED, pattern FRAMEBUFFER_BINDING,+        pattern RENDERBUFFER_BINDING, pattern MAX_RENDERBUFFER_SIZE,+        pattern INVALID_FRAMEBUFFER_OPERATION, pattern UNPACK_FLIP_Y_WEBGL,+        pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL, pattern CONTEXT_LOST_WEBGL,+        pattern UNPACK_COLORSPACE_CONVERSION_WEBGL,+        pattern BROWSER_DEFAULT_WEBGL, getDrawingBufferWidth,+        getDrawingBufferHeight, WebGLRenderingContextBase,+        castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase,+        IsWebGLRenderingContextBase, toWebGLRenderingContextBase)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.activeTexture Mozilla WebGLRenderingContextBase.activeTexture documentation> +activeTexture ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> GLenum -> m ()+activeTexture self texture+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "activeTexture"+            [toJSVal texture]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.attachShader Mozilla WebGLRenderingContextBase.attachShader documentation> +attachShader ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> Maybe WebGLProgram -> Maybe WebGLShader -> m ()+attachShader self program shader+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "attachShader"+            [toJSVal program, toJSVal shader]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindAttribLocation Mozilla WebGLRenderingContextBase.bindAttribLocation documentation> +bindAttribLocation ::+                   (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>+                     self -> Maybe WebGLProgram -> GLuint -> name -> m ()+bindAttribLocation self program index name+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bindAttribLocation"+            [toJSVal program, toJSVal index, toJSVal name]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindBuffer Mozilla WebGLRenderingContextBase.bindBuffer documentation> +bindBuffer ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> GLenum -> Maybe WebGLBuffer -> m ()+bindBuffer self target buffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bindBuffer"+            [toJSVal target, toJSVal buffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindFramebuffer Mozilla WebGLRenderingContextBase.bindFramebuffer documentation> +bindFramebuffer ::+                (MonadDOM m, IsWebGLRenderingContextBase self) =>+                  self -> GLenum -> Maybe WebGLFramebuffer -> m ()+bindFramebuffer self target framebuffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bindFramebuffer"+            [toJSVal target, toJSVal framebuffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindRenderbuffer Mozilla WebGLRenderingContextBase.bindRenderbuffer documentation> +bindRenderbuffer ::+                 (MonadDOM m, IsWebGLRenderingContextBase self) =>+                   self -> GLenum -> Maybe WebGLRenderbuffer -> m ()+bindRenderbuffer self target renderbuffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bindRenderbuffer"+            [toJSVal target, toJSVal renderbuffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindTexture Mozilla WebGLRenderingContextBase.bindTexture documentation> +bindTexture ::+            (MonadDOM m, IsWebGLRenderingContextBase self) =>+              self -> GLenum -> Maybe WebGLTexture -> m ()+bindTexture self target texture+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bindTexture"+            [toJSVal target, toJSVal texture]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendColor Mozilla WebGLRenderingContextBase.blendColor documentation> +blendColor ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m ()+blendColor self red green blue alpha+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "blendColor"+            [toJSVal red, toJSVal green, toJSVal blue, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendEquation Mozilla WebGLRenderingContextBase.blendEquation documentation> +blendEquation ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> GLenum -> m ()+blendEquation self mode+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "blendEquation"+            [toJSVal mode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendEquationSeparate Mozilla WebGLRenderingContextBase.blendEquationSeparate documentation> +blendEquationSeparate ::+                      (MonadDOM m, IsWebGLRenderingContextBase self) =>+                        self -> GLenum -> GLenum -> m ()+blendEquationSeparate self modeRGB modeAlpha+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "blendEquationSeparate"+            [toJSVal modeRGB, toJSVal modeAlpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendFunc Mozilla WebGLRenderingContextBase.blendFunc documentation> +blendFunc ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLenum -> GLenum -> m ()+blendFunc self sfactor dfactor+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "blendFunc"+            [toJSVal sfactor, toJSVal dfactor]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendFuncSeparate Mozilla WebGLRenderingContextBase.blendFuncSeparate documentation> +blendFuncSeparate ::+                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                    self -> GLenum -> GLenum -> GLenum -> GLenum -> m ()+blendFuncSeparate self srcRGB dstRGB srcAlpha dstAlpha+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "blendFuncSeparate"+            [toJSVal srcRGB, toJSVal dstRGB, toJSVal srcAlpha,+             toJSVal dstAlpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferData Mozilla WebGLRenderingContextBase.bufferData documentation> +bufferData ::+           (MonadDOM m, IsWebGLRenderingContextBase self,+            IsArrayBuffer data') =>+             self -> GLenum -> Maybe data' -> GLenum -> m ()+bufferData self target data' usage+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bufferData"+            [toJSVal target, toJSVal data', toJSVal usage]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferData Mozilla WebGLRenderingContextBase.bufferData documentation> +bufferDataView ::+               (MonadDOM m, IsWebGLRenderingContextBase self,+                IsArrayBufferView data') =>+                 self -> GLenum -> Maybe data' -> GLenum -> m ()+bufferDataView self target data' usage+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bufferData"+            [toJSVal target, toJSVal data', toJSVal usage]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferData Mozilla WebGLRenderingContextBase.bufferData documentation> +bufferDataPtr ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> GLenum -> GLsizeiptr -> GLenum -> m ()+bufferDataPtr self target size usage+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bufferData"+            [toJSVal target, toJSVal size, toJSVal usage]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferSubData Mozilla WebGLRenderingContextBase.bufferSubData documentation> +bufferSubData ::+              (MonadDOM m, IsWebGLRenderingContextBase self,+               IsArrayBuffer data') =>+                self -> GLenum -> GLintptr -> Maybe data' -> m ()+bufferSubData self target offset data'+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bufferSubData"+            [toJSVal target, toJSVal offset, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferSubData Mozilla WebGLRenderingContextBase.bufferSubData documentation> +bufferSubDataView ::+                  (MonadDOM m, IsWebGLRenderingContextBase self,+                   IsArrayBufferView data') =>+                    self -> GLenum -> GLintptr -> Maybe data' -> m ()+bufferSubDataView self target offset data'+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "bufferSubData"+            [toJSVal target, toJSVal offset, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.checkFramebufferStatus Mozilla WebGLRenderingContextBase.checkFramebufferStatus documentation> +checkFramebufferStatus ::+                       (MonadDOM m, IsWebGLRenderingContextBase self) =>+                         self -> GLenum -> m GLenum+checkFramebufferStatus self target+  = liftDOM+      (((toWebGLRenderingContextBase self) ^.+          jsf "checkFramebufferStatus"+          [toJSVal target])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clear Mozilla WebGLRenderingContextBase.clear documentation> +clear ::+      (MonadDOM m, IsWebGLRenderingContextBase self) =>+        self -> GLbitfield -> m ()+clear self mask+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "clear" [toJSVal mask]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clearColor Mozilla WebGLRenderingContextBase.clearColor documentation> +clearColor ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m ()+clearColor self red green blue alpha+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "clearColor"+            [toJSVal red, toJSVal green, toJSVal blue, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clearDepth Mozilla WebGLRenderingContextBase.clearDepth documentation> +clearDepth ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> GLclampf -> m ()+clearDepth self depth+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "clearDepth"+            [toJSVal depth]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clearStencil Mozilla WebGLRenderingContextBase.clearStencil documentation> +clearStencil ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> GLint -> m ()+clearStencil self s+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "clearStencil"+            [toJSVal s]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.colorMask Mozilla WebGLRenderingContextBase.colorMask documentation> +colorMask ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLboolean -> GLboolean -> GLboolean -> GLboolean -> m ()+colorMask self red green blue alpha+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "colorMask"+            [toJSVal red, toJSVal green, toJSVal blue, toJSVal alpha]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.compileShader Mozilla WebGLRenderingContextBase.compileShader documentation> +compileShader ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> Maybe WebGLShader -> m ()+compileShader self shader+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "compileShader"+            [toJSVal shader]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.compressedTexImage2D Mozilla WebGLRenderingContextBase.compressedTexImage2D documentation> +compressedTexImage2D ::+                     (MonadDOM m, IsWebGLRenderingContextBase self,+                      IsArrayBufferView data') =>+                       self ->+                         GLenum ->+                           GLint ->+                             GLenum -> GLsizei -> GLsizei -> GLint -> Maybe data' -> m ()+compressedTexImage2D self target level internalformat width height+  border data'+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "compressedTexImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal width, toJSVal height, toJSVal border, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.compressedTexSubImage2D Mozilla WebGLRenderingContextBase.compressedTexSubImage2D documentation> +compressedTexSubImage2D ::+                        (MonadDOM m, IsWebGLRenderingContextBase self,+                         IsArrayBufferView data') =>+                          self ->+                            GLenum ->+                              GLint ->+                                GLint ->+                                  GLint -> GLsizei -> GLsizei -> GLenum -> Maybe data' -> m ()+compressedTexSubImage2D self target level xoffset yoffset width+  height format data'+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^.+            jsf "compressedTexSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal width, toJSVal height, toJSVal format, toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.copyTexImage2D Mozilla WebGLRenderingContextBase.copyTexImage2D documentation> +copyTexImage2D ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self ->+                   GLenum ->+                     GLint ->+                       GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> m ()+copyTexImage2D self target level internalformat x y width height+  border+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "copyTexImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat, toJSVal x,+             toJSVal y, toJSVal width, toJSVal height, toJSVal border]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.copyTexSubImage2D Mozilla WebGLRenderingContextBase.copyTexSubImage2D documentation> +copyTexSubImage2D ::+                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                    self ->+                      GLenum ->+                        GLint ->+                          GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m ()+copyTexSubImage2D self target level xoffset yoffset x y width+  height+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "copyTexSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createBuffer Mozilla WebGLRenderingContextBase.createBuffer documentation> +createBuffer ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> m (Maybe WebGLBuffer)+createBuffer self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "createBuffer") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createFramebuffer Mozilla WebGLRenderingContextBase.createFramebuffer documentation> +createFramebuffer ::+                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                    self -> m (Maybe WebGLFramebuffer)+createFramebuffer self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "createFramebuffer") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createProgram Mozilla WebGLRenderingContextBase.createProgram documentation> +createProgram ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> m (Maybe WebGLProgram)+createProgram self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "createProgram") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createRenderbuffer Mozilla WebGLRenderingContextBase.createRenderbuffer documentation> +createRenderbuffer ::+                   (MonadDOM m, IsWebGLRenderingContextBase self) =>+                     self -> m (Maybe WebGLRenderbuffer)+createRenderbuffer self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "createRenderbuffer")+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createShader Mozilla WebGLRenderingContextBase.createShader documentation> +createShader ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> GLenum -> m (Maybe WebGLShader)+createShader self type'+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "createShader"+          [toJSVal type'])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createTexture Mozilla WebGLRenderingContextBase.createTexture documentation> +createTexture ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> m (Maybe WebGLTexture)+createTexture self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "createTexture") >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.cullFace Mozilla WebGLRenderingContextBase.cullFace documentation> +cullFace ::+         (MonadDOM m, IsWebGLRenderingContextBase self) =>+           self -> GLenum -> m ()+cullFace self mode+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "cullFace"+            [toJSVal mode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteBuffer Mozilla WebGLRenderingContextBase.deleteBuffer documentation> +deleteBuffer ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> Maybe WebGLBuffer -> m ()+deleteBuffer self buffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "deleteBuffer"+            [toJSVal buffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteFramebuffer Mozilla WebGLRenderingContextBase.deleteFramebuffer documentation> +deleteFramebuffer ::+                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                    self -> Maybe WebGLFramebuffer -> m ()+deleteFramebuffer self framebuffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "deleteFramebuffer"+            [toJSVal framebuffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteProgram Mozilla WebGLRenderingContextBase.deleteProgram documentation> +deleteProgram ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> Maybe WebGLProgram -> m ()+deleteProgram self program+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "deleteProgram"+            [toJSVal program]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteRenderbuffer Mozilla WebGLRenderingContextBase.deleteRenderbuffer documentation> +deleteRenderbuffer ::+                   (MonadDOM m, IsWebGLRenderingContextBase self) =>+                     self -> Maybe WebGLRenderbuffer -> m ()+deleteRenderbuffer self renderbuffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "deleteRenderbuffer"+            [toJSVal renderbuffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteShader Mozilla WebGLRenderingContextBase.deleteShader documentation> +deleteShader ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> Maybe WebGLShader -> m ()+deleteShader self shader+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "deleteShader"+            [toJSVal shader]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteTexture Mozilla WebGLRenderingContextBase.deleteTexture documentation> +deleteTexture ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> Maybe WebGLTexture -> m ()+deleteTexture self texture+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "deleteTexture"+            [toJSVal texture]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.depthFunc Mozilla WebGLRenderingContextBase.depthFunc documentation> +depthFunc ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLenum -> m ()+depthFunc self func+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "depthFunc"+            [toJSVal func]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.depthMask Mozilla WebGLRenderingContextBase.depthMask documentation> +depthMask ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLboolean -> m ()+depthMask self flag+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "depthMask"+            [toJSVal flag]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.depthRange Mozilla WebGLRenderingContextBase.depthRange documentation> +depthRange ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> GLclampf -> GLclampf -> m ()+depthRange self zNear zFar+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "depthRange"+            [toJSVal zNear, toJSVal zFar]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.detachShader Mozilla WebGLRenderingContextBase.detachShader documentation> +detachShader ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> Maybe WebGLProgram -> Maybe WebGLShader -> m ()+detachShader self program shader+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "detachShader"+            [toJSVal program, toJSVal shader]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.disable Mozilla WebGLRenderingContextBase.disable documentation> +disable ::+        (MonadDOM m, IsWebGLRenderingContextBase self) =>+          self -> GLenum -> m ()+disable self cap+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "disable"+            [toJSVal cap]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.disableVertexAttribArray Mozilla WebGLRenderingContextBase.disableVertexAttribArray documentation> +disableVertexAttribArray ::+                         (MonadDOM m, IsWebGLRenderingContextBase self) =>+                           self -> GLuint -> m ()+disableVertexAttribArray self index+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^.+            jsf "disableVertexAttribArray"+            [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawArrays Mozilla WebGLRenderingContextBase.drawArrays documentation> +drawArrays ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> GLenum -> GLint -> GLsizei -> m ()+drawArrays self mode first count+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "drawArrays"+            [toJSVal mode, toJSVal first, toJSVal count]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawElements Mozilla WebGLRenderingContextBase.drawElements documentation> +drawElements ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> GLenum -> GLsizei -> GLenum -> GLintptr -> m ()+drawElements self mode count type' offset+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "drawElements"+            [toJSVal mode, toJSVal count, toJSVal type', toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.enable Mozilla WebGLRenderingContextBase.enable documentation> +enable ::+       (MonadDOM m, IsWebGLRenderingContextBase self) =>+         self -> GLenum -> m ()+enable self cap+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "enable" [toJSVal cap]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.enableVertexAttribArray Mozilla WebGLRenderingContextBase.enableVertexAttribArray documentation> +enableVertexAttribArray ::+                        (MonadDOM m, IsWebGLRenderingContextBase self) =>+                          self -> GLuint -> m ()+enableVertexAttribArray self index+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^.+            jsf "enableVertexAttribArray"+            [toJSVal index]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.finish Mozilla WebGLRenderingContextBase.finish documentation> +finish ::+       (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m ()+finish self+  = liftDOM+      (void ((toWebGLRenderingContextBase self) ^. js "finish"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.flush Mozilla WebGLRenderingContextBase.flush documentation> +flush ::+      (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m ()+flush self+  = liftDOM (void ((toWebGLRenderingContextBase self) ^. js "flush"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.framebufferRenderbuffer Mozilla WebGLRenderingContextBase.framebufferRenderbuffer documentation> +framebufferRenderbuffer ::+                        (MonadDOM m, IsWebGLRenderingContextBase self) =>+                          self ->+                            GLenum -> GLenum -> GLenum -> Maybe WebGLRenderbuffer -> m ()+framebufferRenderbuffer self target attachment renderbuffertarget+  renderbuffer+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^.+            jsf "framebufferRenderbuffer"+            [toJSVal target, toJSVal attachment, toJSVal renderbuffertarget,+             toJSVal renderbuffer]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.framebufferTexture2D Mozilla WebGLRenderingContextBase.framebufferTexture2D documentation> +framebufferTexture2D ::+                     (MonadDOM m, IsWebGLRenderingContextBase self) =>+                       self ->+                         GLenum -> GLenum -> GLenum -> Maybe WebGLTexture -> GLint -> m ()+framebufferTexture2D self target attachment textarget texture level+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "framebufferTexture2D"+            [toJSVal target, toJSVal attachment, toJSVal textarget,+             toJSVal texture, toJSVal level]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.frontFace Mozilla WebGLRenderingContextBase.frontFace documentation> +frontFace ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLenum -> m ()+frontFace self mode+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "frontFace"+            [toJSVal mode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.generateMipmap Mozilla WebGLRenderingContextBase.generateMipmap documentation> +generateMipmap ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> GLenum -> m ()+generateMipmap self target+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "generateMipmap"+            [toJSVal target]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getActiveAttrib Mozilla WebGLRenderingContextBase.getActiveAttrib documentation> +getActiveAttrib ::+                (MonadDOM m, IsWebGLRenderingContextBase self) =>+                  self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo)+getActiveAttrib self program index+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getActiveAttrib"+          [toJSVal program, toJSVal index])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getActiveUniform Mozilla WebGLRenderingContextBase.getActiveUniform documentation> +getActiveUniform ::+                 (MonadDOM m, IsWebGLRenderingContextBase self) =>+                   self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo)+getActiveUniform self program index+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getActiveUniform"+          [toJSVal program, toJSVal index])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getAttachedShaders Mozilla WebGLRenderingContextBase.getAttachedShaders documentation> +getAttachedShaders ::+                   (MonadDOM m, IsWebGLRenderingContextBase self) =>+                     self -> Maybe WebGLProgram -> m ()+getAttachedShaders self program+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "getAttachedShaders"+            [toJSVal program]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getAttribLocation Mozilla WebGLRenderingContextBase.getAttribLocation documentation> +getAttribLocation ::+                  (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>+                    self -> Maybe WebGLProgram -> name -> m GLint+getAttribLocation self program name+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getAttribLocation"+          [toJSVal program, toJSVal name])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getBufferParameter Mozilla WebGLRenderingContextBase.getBufferParameter documentation> +getBufferParameter ::+                   (MonadDOM m, IsWebGLRenderingContextBase self) =>+                     self -> GLenum -> GLenum -> m JSVal+getBufferParameter self target pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getBufferParameter"+          [toJSVal target, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getContextAttributes Mozilla WebGLRenderingContextBase.getContextAttributes documentation> +getContextAttributes ::+                     (MonadDOM m, IsWebGLRenderingContextBase self) =>+                       self -> m (Maybe WebGLContextAttributes)+getContextAttributes self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "getContextAttributes")+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getError Mozilla WebGLRenderingContextBase.getError documentation> +getError ::+         (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLenum+getError self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "getError") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getExtension Mozilla WebGLRenderingContextBase.getExtension documentation> +getExtension ::+             (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>+               self -> name -> m JSVal+getExtension self name+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getExtension"+          [toJSVal name])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getFramebufferAttachmentParameter Mozilla WebGLRenderingContextBase.getFramebufferAttachmentParameter documentation> +getFramebufferAttachmentParameter ::+                                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                                    self -> GLenum -> GLenum -> GLenum -> m JSVal+getFramebufferAttachmentParameter self target attachment pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^.+          jsf "getFramebufferAttachmentParameter"+          [toJSVal target, toJSVal attachment, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getParameter Mozilla WebGLRenderingContextBase.getParameter documentation> +getParameter ::+             (MonadDOM m, IsWebGLRenderingContextBase self) =>+               self -> GLenum -> m JSVal+getParameter self pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getParameter"+          [toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getProgramParameter Mozilla WebGLRenderingContextBase.getProgramParameter documentation> +getProgramParameter ::+                    (MonadDOM m, IsWebGLRenderingContextBase self) =>+                      self -> Maybe WebGLProgram -> GLenum -> m JSVal+getProgramParameter self program pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getProgramParameter"+          [toJSVal program, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getProgramInfoLog Mozilla WebGLRenderingContextBase.getProgramInfoLog documentation> +getProgramInfoLog ::+                  (MonadDOM m, IsWebGLRenderingContextBase self,+                   FromJSString result) =>+                    self -> Maybe WebGLProgram -> m (Maybe result)+getProgramInfoLog self program+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getProgramInfoLog"+          [toJSVal program])+         >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getRenderbufferParameter Mozilla WebGLRenderingContextBase.getRenderbufferParameter documentation> +getRenderbufferParameter ::+                         (MonadDOM m, IsWebGLRenderingContextBase self) =>+                           self -> GLenum -> GLenum -> m JSVal+getRenderbufferParameter self target pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^.+          jsf "getRenderbufferParameter"+          [toJSVal target, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderParameter Mozilla WebGLRenderingContextBase.getShaderParameter documentation> +getShaderParameter ::+                   (MonadDOM m, IsWebGLRenderingContextBase self) =>+                     self -> Maybe WebGLShader -> GLenum -> m JSVal+getShaderParameter self shader pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getShaderParameter"+          [toJSVal shader, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderInfoLog Mozilla WebGLRenderingContextBase.getShaderInfoLog documentation> +getShaderInfoLog ::+                 (MonadDOM m, IsWebGLRenderingContextBase self,+                  FromJSString result) =>+                   self -> Maybe WebGLShader -> m (Maybe result)+getShaderInfoLog self shader+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getShaderInfoLog"+          [toJSVal shader])+         >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderPrecisionFormat Mozilla WebGLRenderingContextBase.getShaderPrecisionFormat documentation> +getShaderPrecisionFormat ::+                         (MonadDOM m, IsWebGLRenderingContextBase self) =>+                           self -> GLenum -> GLenum -> m (Maybe WebGLShaderPrecisionFormat)+getShaderPrecisionFormat self shadertype precisiontype+  = liftDOM+      (((toWebGLRenderingContextBase self) ^.+          jsf "getShaderPrecisionFormat"+          [toJSVal shadertype, toJSVal precisiontype])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderSource Mozilla WebGLRenderingContextBase.getShaderSource documentation> +getShaderSource ::+                (MonadDOM m, IsWebGLRenderingContextBase self,+                 FromJSString result) =>+                  self -> Maybe WebGLShader -> m (Maybe result)+getShaderSource self shader+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getShaderSource"+          [toJSVal shader])+         >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getSupportedExtensions Mozilla WebGLRenderingContextBase.getSupportedExtensions documentation> +getSupportedExtensions ::+                       (MonadDOM m, IsWebGLRenderingContextBase self,+                        FromJSString result) =>+                         self -> m [result]+getSupportedExtensions self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^.+          js "getSupportedExtensions")+         >>= fromJSArrayUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getTexParameter Mozilla WebGLRenderingContextBase.getTexParameter documentation> +getTexParameter ::+                (MonadDOM m, IsWebGLRenderingContextBase self) =>+                  self -> GLenum -> GLenum -> m JSVal+getTexParameter self target pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getTexParameter"+          [toJSVal target, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getUniform Mozilla WebGLRenderingContextBase.getUniform documentation> +getUniform ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> Maybe WebGLProgram -> Maybe WebGLUniformLocation -> m JSVal+getUniform self program location+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getUniform"+          [toJSVal program, toJSVal location])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getUniformLocation Mozilla WebGLRenderingContextBase.getUniformLocation documentation> +getUniformLocation ::+                   (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>+                     self ->+                       Maybe WebGLProgram -> name -> m (Maybe WebGLUniformLocation)+getUniformLocation self program name+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getUniformLocation"+          [toJSVal program, toJSVal name])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getVertexAttrib Mozilla WebGLRenderingContextBase.getVertexAttrib documentation> +getVertexAttrib ::+                (MonadDOM m, IsWebGLRenderingContextBase self) =>+                  self -> GLuint -> GLenum -> m JSVal+getVertexAttrib self index pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getVertexAttrib"+          [toJSVal index, toJSVal pname])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getVertexAttribOffset Mozilla WebGLRenderingContextBase.getVertexAttribOffset documentation> +getVertexAttribOffset ::+                      (MonadDOM m, IsWebGLRenderingContextBase self) =>+                        self -> GLuint -> GLenum -> m GLsizeiptr+getVertexAttribOffset self index pname+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "getVertexAttribOffset"+          [toJSVal index, toJSVal pname])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.hint Mozilla WebGLRenderingContextBase.hint documentation> +hint ::+     (MonadDOM m, IsWebGLRenderingContextBase self) =>+       self -> GLenum -> GLenum -> m ()+hint self target mode+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "hint"+            [toJSVal target, toJSVal mode]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isBuffer Mozilla WebGLRenderingContextBase.isBuffer documentation> +isBuffer ::+         (MonadDOM m, IsWebGLRenderingContextBase self) =>+           self -> Maybe WebGLBuffer -> m GLboolean+isBuffer self buffer+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isBuffer"+          [toJSVal buffer])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isContextLost Mozilla WebGLRenderingContextBase.isContextLost documentation> +isContextLost ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> m GLboolean+isContextLost self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "isContextLost") >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isEnabled Mozilla WebGLRenderingContextBase.isEnabled documentation> +isEnabled ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLenum -> m GLboolean+isEnabled self cap+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isEnabled"+          [toJSVal cap])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isFramebuffer Mozilla WebGLRenderingContextBase.isFramebuffer documentation> +isFramebuffer ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> Maybe WebGLFramebuffer -> m GLboolean+isFramebuffer self framebuffer+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isFramebuffer"+          [toJSVal framebuffer])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isProgram Mozilla WebGLRenderingContextBase.isProgram documentation> +isProgram ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> Maybe WebGLProgram -> m GLboolean+isProgram self program+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isProgram"+          [toJSVal program])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isRenderbuffer Mozilla WebGLRenderingContextBase.isRenderbuffer documentation> +isRenderbuffer ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> Maybe WebGLRenderbuffer -> m GLboolean+isRenderbuffer self renderbuffer+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isRenderbuffer"+          [toJSVal renderbuffer])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isShader Mozilla WebGLRenderingContextBase.isShader documentation> +isShader ::+         (MonadDOM m, IsWebGLRenderingContextBase self) =>+           self -> Maybe WebGLShader -> m GLboolean+isShader self shader+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isShader"+          [toJSVal shader])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isTexture Mozilla WebGLRenderingContextBase.isTexture documentation> +isTexture ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> Maybe WebGLTexture -> m GLboolean+isTexture self texture+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. jsf "isTexture"+          [toJSVal texture])+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.lineWidth Mozilla WebGLRenderingContextBase.lineWidth documentation> +lineWidth ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLfloat -> m ()+lineWidth self width+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "lineWidth"+            [toJSVal width]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.linkProgram Mozilla WebGLRenderingContextBase.linkProgram documentation> +linkProgram ::+            (MonadDOM m, IsWebGLRenderingContextBase self) =>+              self -> Maybe WebGLProgram -> m ()+linkProgram self program+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "linkProgram"+            [toJSVal program]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.pixelStorei Mozilla WebGLRenderingContextBase.pixelStorei documentation> +pixelStorei ::+            (MonadDOM m, IsWebGLRenderingContextBase self) =>+              self -> GLenum -> GLint -> m ()+pixelStorei self pname param+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "pixelStorei"+            [toJSVal pname, toJSVal param]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.polygonOffset Mozilla WebGLRenderingContextBase.polygonOffset documentation> +polygonOffset ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> GLfloat -> GLfloat -> m ()+polygonOffset self factor units+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "polygonOffset"+            [toJSVal factor, toJSVal units]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.readPixels Mozilla WebGLRenderingContextBase.readPixels documentation> +readPixels ::+           (MonadDOM m, IsWebGLRenderingContextBase self,+            IsArrayBufferView pixels) =>+             self ->+               GLint ->+                 GLint ->+                   GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()+readPixels self x y width height format type' pixels+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "readPixels"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height,+             toJSVal format, toJSVal type', toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.releaseShaderCompiler Mozilla WebGLRenderingContextBase.releaseShaderCompiler documentation> +releaseShaderCompiler ::+                      (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m ()+releaseShaderCompiler self+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. js "releaseShaderCompiler"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.renderbufferStorage Mozilla WebGLRenderingContextBase.renderbufferStorage documentation> +renderbufferStorage ::+                    (MonadDOM m, IsWebGLRenderingContextBase self) =>+                      self -> GLenum -> GLenum -> GLsizei -> GLsizei -> m ()+renderbufferStorage self target internalformat width height+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "renderbufferStorage"+            [toJSVal target, toJSVal internalformat, toJSVal width,+             toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.sampleCoverage Mozilla WebGLRenderingContextBase.sampleCoverage documentation> +sampleCoverage ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> GLclampf -> GLboolean -> m ()+sampleCoverage self value invert+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "sampleCoverage"+            [toJSVal value, toJSVal invert]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.scissor Mozilla WebGLRenderingContextBase.scissor documentation> +scissor ::+        (MonadDOM m, IsWebGLRenderingContextBase self) =>+          self -> GLint -> GLint -> GLsizei -> GLsizei -> m ()+scissor self x y width height+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "scissor"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.shaderSource Mozilla WebGLRenderingContextBase.shaderSource documentation> +shaderSource ::+             (MonadDOM m, IsWebGLRenderingContextBase self,+              ToJSString string) =>+               self -> Maybe WebGLShader -> string -> m ()+shaderSource self shader string+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "shaderSource"+            [toJSVal shader, toJSVal string]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilFunc Mozilla WebGLRenderingContextBase.stencilFunc documentation> +stencilFunc ::+            (MonadDOM m, IsWebGLRenderingContextBase self) =>+              self -> GLenum -> GLint -> GLuint -> m ()+stencilFunc self func ref mask+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "stencilFunc"+            [toJSVal func, toJSVal ref, toJSVal mask]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilFuncSeparate Mozilla WebGLRenderingContextBase.stencilFuncSeparate documentation> +stencilFuncSeparate ::+                    (MonadDOM m, IsWebGLRenderingContextBase self) =>+                      self -> GLenum -> GLenum -> GLint -> GLuint -> m ()+stencilFuncSeparate self face func ref mask+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "stencilFuncSeparate"+            [toJSVal face, toJSVal func, toJSVal ref, toJSVal mask]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilMask Mozilla WebGLRenderingContextBase.stencilMask documentation> +stencilMask ::+            (MonadDOM m, IsWebGLRenderingContextBase self) =>+              self -> GLuint -> m ()+stencilMask self mask+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "stencilMask"+            [toJSVal mask]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilMaskSeparate Mozilla WebGLRenderingContextBase.stencilMaskSeparate documentation> +stencilMaskSeparate ::+                    (MonadDOM m, IsWebGLRenderingContextBase self) =>+                      self -> GLenum -> GLuint -> m ()+stencilMaskSeparate self face mask+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "stencilMaskSeparate"+            [toJSVal face, toJSVal mask]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilOp Mozilla WebGLRenderingContextBase.stencilOp documentation> +stencilOp ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> GLenum -> GLenum -> GLenum -> m ()+stencilOp self fail zfail zpass+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "stencilOp"+            [toJSVal fail, toJSVal zfail, toJSVal zpass]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilOpSeparate Mozilla WebGLRenderingContextBase.stencilOpSeparate documentation> +stencilOpSeparate ::+                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                    self -> GLenum -> GLenum -> GLenum -> GLenum -> m ()+stencilOpSeparate self face fail zfail zpass+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "stencilOpSeparate"+            [toJSVal face, toJSVal fail, toJSVal zfail, toJSVal zpass]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texParameterf Mozilla WebGLRenderingContextBase.texParameterf documentation> +texParameterf ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> GLenum -> GLenum -> GLfloat -> m ()+texParameterf self target pname param+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texParameterf"+            [toJSVal target, toJSVal pname, toJSVal param]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texParameteri Mozilla WebGLRenderingContextBase.texParameteri documentation> +texParameteri ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self -> GLenum -> GLenum -> GLint -> m ()+texParameteri self target pname param+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texParameteri"+            [toJSVal target, toJSVal pname, toJSVal param]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> +texImage2DView ::+               (MonadDOM m, IsWebGLRenderingContextBase self,+                IsArrayBufferView pixels) =>+                 self ->+                   GLenum ->+                     GLint ->+                       GLenum ->+                         GLsizei ->+                           GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m ()+texImage2DView self target level internalformat width height border+  format type' pixels+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal width, toJSVal height, toJSVal border, toJSVal format,+             toJSVal type', toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> +texImage2DData ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self ->+                   GLenum ->+                     GLint -> GLenum -> GLenum -> GLenum -> Maybe ImageData -> m ()+texImage2DData self target level internalformat format type' pixels+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal format, toJSVal type', toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> +texImage2D ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self ->+               GLenum ->+                 GLint ->+                   GLenum -> GLenum -> GLenum -> Maybe HTMLImageElement -> m ()+texImage2D self target level internalformat format type' image+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal format, toJSVal type', toJSVal image]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> +texImage2DCanvas ::+                 (MonadDOM m, IsWebGLRenderingContextBase self) =>+                   self ->+                     GLenum ->+                       GLint ->+                         GLenum -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m ()+texImage2DCanvas self target level internalformat format type'+  canvas+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal format, toJSVal type', toJSVal canvas]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> +texImage2DVideo ::+                (MonadDOM m, IsWebGLRenderingContextBase self) =>+                  self ->+                    GLenum ->+                      GLint ->+                        GLenum -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m ()+texImage2DVideo self target level internalformat format type' video+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"+            [toJSVal target, toJSVal level, toJSVal internalformat,+             toJSVal format, toJSVal type', toJSVal video]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> +texSubImage2DView ::+                  (MonadDOM m, IsWebGLRenderingContextBase self,+                   IsArrayBufferView pixels) =>+                    self ->+                      GLenum ->+                        GLint ->+                          GLint ->+                            GLint ->+                              GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()+texSubImage2DView self target level xoffset yoffset width height+  format type' pixels+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal width, toJSVal height, toJSVal format, toJSVal type',+             toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> +texSubImage2DData ::+                  (MonadDOM m, IsWebGLRenderingContextBase self) =>+                    self ->+                      GLenum ->+                        GLint ->+                          GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m ()+texSubImage2DData self target level xoffset yoffset format type'+  pixels+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal format, toJSVal type', toJSVal pixels]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> +texSubImage2D ::+              (MonadDOM m, IsWebGLRenderingContextBase self) =>+                self ->+                  GLenum ->+                    GLint ->+                      GLint ->+                        GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m ()+texSubImage2D self target level xoffset yoffset format type' image+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal format, toJSVal type', toJSVal image]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> +texSubImage2DCanvas ::+                    (MonadDOM m, IsWebGLRenderingContextBase self) =>+                      self ->+                        GLenum ->+                          GLint ->+                            GLint ->+                              GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m ()+texSubImage2DCanvas self target level xoffset yoffset format type'+  canvas+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal format, toJSVal type', toJSVal canvas]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> +texSubImage2DVideo ::+                   (MonadDOM m, IsWebGLRenderingContextBase self) =>+                     self ->+                       GLenum ->+                         GLint ->+                           GLint ->+                             GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m ()+texSubImage2DVideo self target level xoffset yoffset format type'+  video+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"+            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,+             toJSVal format, toJSVal type', toJSVal video]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1f Mozilla WebGLRenderingContextBase.uniform1f documentation> +uniform1f ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> Maybe WebGLUniformLocation -> GLfloat -> m ()+uniform1f self location x+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform1f"+            [toJSVal location, toJSVal x]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1fv Mozilla WebGLRenderingContextBase.uniform1fv documentation> +uniform1fv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform1fv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform1fv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1i Mozilla WebGLRenderingContextBase.uniform1i documentation> +uniform1i ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> Maybe WebGLUniformLocation -> GLint -> m ()+uniform1i self location x+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform1i"+            [toJSVal location, toJSVal x]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1iv Mozilla WebGLRenderingContextBase.uniform1iv documentation> +uniform1iv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform1iv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform1iv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2f Mozilla WebGLRenderingContextBase.uniform2f documentation> +uniform2f ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> m ()+uniform2f self location x y+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform2f"+            [toJSVal location, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2fv Mozilla WebGLRenderingContextBase.uniform2fv documentation> +uniform2fv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform2fv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform2fv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2i Mozilla WebGLRenderingContextBase.uniform2i documentation> +uniform2i ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self -> Maybe WebGLUniformLocation -> GLint -> GLint -> m ()+uniform2i self location x y+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform2i"+            [toJSVal location, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2iv Mozilla WebGLRenderingContextBase.uniform2iv documentation> +uniform2iv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform2iv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform2iv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3f Mozilla WebGLRenderingContextBase.uniform3f documentation> +uniform3f ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self ->+              Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> m ()+uniform3f self location x y z+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform3f"+            [toJSVal location, toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3fv Mozilla WebGLRenderingContextBase.uniform3fv documentation> +uniform3fv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform3fv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform3fv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3i Mozilla WebGLRenderingContextBase.uniform3i documentation> +uniform3i ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self ->+              Maybe WebGLUniformLocation -> GLint -> GLint -> GLint -> m ()+uniform3i self location x y z+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform3i"+            [toJSVal location, toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3iv Mozilla WebGLRenderingContextBase.uniform3iv documentation> +uniform3iv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform3iv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform3iv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4f Mozilla WebGLRenderingContextBase.uniform4f documentation> +uniform4f ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self ->+              Maybe WebGLUniformLocation ->+                GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()+uniform4f self location x y z w+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform4f"+            [toJSVal location, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4fv Mozilla WebGLRenderingContextBase.uniform4fv documentation> +uniform4fv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform4fv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform4fv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4i Mozilla WebGLRenderingContextBase.uniform4i documentation> +uniform4i ::+          (MonadDOM m, IsWebGLRenderingContextBase self) =>+            self ->+              Maybe WebGLUniformLocation ->+                GLint -> GLint -> GLint -> GLint -> m ()+uniform4i self location x y z w+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform4i"+            [toJSVal location, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4iv Mozilla WebGLRenderingContextBase.uniform4iv documentation> +uniform4iv ::+           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>+             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()+uniform4iv self location v+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniform4iv"+            [toJSVal location, toJSVal v]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniformMatrix2fv Mozilla WebGLRenderingContextBase.uniformMatrix2fv documentation> +uniformMatrix2fv ::+                 (MonadDOM m, IsWebGLRenderingContextBase self,+                  IsFloat32Array array) =>+                   self ->+                     Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m ()+uniformMatrix2fv self location transpose array+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniformMatrix2fv"+            [toJSVal location, toJSVal transpose, toJSVal array]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniformMatrix3fv Mozilla WebGLRenderingContextBase.uniformMatrix3fv documentation> +uniformMatrix3fv ::+                 (MonadDOM m, IsWebGLRenderingContextBase self,+                  IsFloat32Array array) =>+                   self ->+                     Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m ()+uniformMatrix3fv self location transpose array+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniformMatrix3fv"+            [toJSVal location, toJSVal transpose, toJSVal array]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniformMatrix4fv Mozilla WebGLRenderingContextBase.uniformMatrix4fv documentation> +uniformMatrix4fv ::+                 (MonadDOM m, IsWebGLRenderingContextBase self,+                  IsFloat32Array array) =>+                   self ->+                     Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m ()+uniformMatrix4fv self location transpose array+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "uniformMatrix4fv"+            [toJSVal location, toJSVal transpose, toJSVal array]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.useProgram Mozilla WebGLRenderingContextBase.useProgram documentation> +useProgram ::+           (MonadDOM m, IsWebGLRenderingContextBase self) =>+             self -> Maybe WebGLProgram -> m ()+useProgram self program+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "useProgram"+            [toJSVal program]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.validateProgram Mozilla WebGLRenderingContextBase.validateProgram documentation> +validateProgram ::+                (MonadDOM m, IsWebGLRenderingContextBase self) =>+                  self -> Maybe WebGLProgram -> m ()+validateProgram self program+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "validateProgram"+            [toJSVal program]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib1f Mozilla WebGLRenderingContextBase.vertexAttrib1f documentation> +vertexAttrib1f ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> GLuint -> GLfloat -> m ()+vertexAttrib1f self indx x+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib1f"+            [toJSVal indx, toJSVal x]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib1fv Mozilla WebGLRenderingContextBase.vertexAttrib1fv documentation> +vertexAttrib1fv ::+                (MonadDOM m, IsWebGLRenderingContextBase self,+                 IsFloat32Array values) =>+                  self -> GLuint -> Maybe values -> m ()+vertexAttrib1fv self indx values+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib1fv"+            [toJSVal indx, toJSVal values]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib2f Mozilla WebGLRenderingContextBase.vertexAttrib2f documentation> +vertexAttrib2f ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> GLuint -> GLfloat -> GLfloat -> m ()+vertexAttrib2f self indx x y+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib2f"+            [toJSVal indx, toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib2fv Mozilla WebGLRenderingContextBase.vertexAttrib2fv documentation> +vertexAttrib2fv ::+                (MonadDOM m, IsWebGLRenderingContextBase self,+                 IsFloat32Array values) =>+                  self -> GLuint -> Maybe values -> m ()+vertexAttrib2fv self indx values+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib2fv"+            [toJSVal indx, toJSVal values]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib3f Mozilla WebGLRenderingContextBase.vertexAttrib3f documentation> +vertexAttrib3f ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> m ()+vertexAttrib3f self indx x y z+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib3f"+            [toJSVal indx, toJSVal x, toJSVal y, toJSVal z]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib3fv Mozilla WebGLRenderingContextBase.vertexAttrib3fv documentation> +vertexAttrib3fv ::+                (MonadDOM m, IsWebGLRenderingContextBase self,+                 IsFloat32Array values) =>+                  self -> GLuint -> Maybe values -> m ()+vertexAttrib3fv self indx values+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib3fv"+            [toJSVal indx, toJSVal values]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib4f Mozilla WebGLRenderingContextBase.vertexAttrib4f documentation> +vertexAttrib4f ::+               (MonadDOM m, IsWebGLRenderingContextBase self) =>+                 self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()+vertexAttrib4f self indx x y z w+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib4f"+            [toJSVal indx, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib4fv Mozilla WebGLRenderingContextBase.vertexAttrib4fv documentation> +vertexAttrib4fv ::+                (MonadDOM m, IsWebGLRenderingContextBase self,+                 IsFloat32Array values) =>+                  self -> GLuint -> Maybe values -> m ()+vertexAttrib4fv self indx values+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib4fv"+            [toJSVal indx, toJSVal values]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttribPointer Mozilla WebGLRenderingContextBase.vertexAttribPointer documentation> +vertexAttribPointer ::+                    (MonadDOM m, IsWebGLRenderingContextBase self) =>+                      self ->+                        GLuint ->+                          GLint -> GLenum -> GLboolean -> GLsizei -> GLintptr -> m ()+vertexAttribPointer self indx size type' normalized stride offset+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttribPointer"+            [toJSVal indx, toJSVal size, toJSVal type', toJSVal normalized,+             toJSVal stride, toJSVal offset]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.viewport Mozilla WebGLRenderingContextBase.viewport documentation> +viewport ::+         (MonadDOM m, IsWebGLRenderingContextBase self) =>+           self -> GLint -> GLint -> GLsizei -> GLsizei -> m ()+viewport self x y width height+  = liftDOM+      (void+         ((toWebGLRenderingContextBase self) ^. jsf "viewport"+            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))+pattern DEPTH_BUFFER_BIT = 256+pattern STENCIL_BUFFER_BIT = 1024+pattern COLOR_BUFFER_BIT = 16384+pattern POINTS = 0+pattern LINES = 1+pattern LINE_LOOP = 2+pattern LINE_STRIP = 3+pattern TRIANGLES = 4+pattern TRIANGLE_STRIP = 5+pattern TRIANGLE_FAN = 6+pattern ZERO = 0+pattern ONE = 1+pattern SRC_COLOR = 768+pattern ONE_MINUS_SRC_COLOR = 769+pattern SRC_ALPHA = 770+pattern ONE_MINUS_SRC_ALPHA = 771+pattern DST_ALPHA = 772+pattern ONE_MINUS_DST_ALPHA = 773+pattern DST_COLOR = 774+pattern ONE_MINUS_DST_COLOR = 775+pattern SRC_ALPHA_SATURATE = 776+pattern FUNC_ADD = 32774+pattern BLEND_EQUATION = 32777+pattern BLEND_EQUATION_RGB = 32777+pattern BLEND_EQUATION_ALPHA = 34877+pattern FUNC_SUBTRACT = 32778+pattern FUNC_REVERSE_SUBTRACT = 32779+pattern BLEND_DST_RGB = 32968+pattern BLEND_SRC_RGB = 32969+pattern BLEND_DST_ALPHA = 32970+pattern BLEND_SRC_ALPHA = 32971+pattern CONSTANT_COLOR = 32769+pattern ONE_MINUS_CONSTANT_COLOR = 32770+pattern CONSTANT_ALPHA = 32771+pattern ONE_MINUS_CONSTANT_ALPHA = 32772+pattern BLEND_COLOR = 32773+pattern ARRAY_BUFFER = 34962+pattern ELEMENT_ARRAY_BUFFER = 34963+pattern ARRAY_BUFFER_BINDING = 34964+pattern ELEMENT_ARRAY_BUFFER_BINDING = 34965+pattern STREAM_DRAW = 35040+pattern STATIC_DRAW = 35044+pattern DYNAMIC_DRAW = 35048+pattern BUFFER_SIZE = 34660+pattern BUFFER_USAGE = 34661+pattern CURRENT_VERTEX_ATTRIB = 34342+pattern FRONT = 1028+pattern BACK = 1029+pattern FRONT_AND_BACK = 1032+pattern TEXTURE_2D = 3553+pattern CULL_FACE = 2884+pattern BLEND = 3042+pattern DITHER = 3024+pattern STENCIL_TEST = 2960+pattern DEPTH_TEST = 2929+pattern SCISSOR_TEST = 3089+pattern POLYGON_OFFSET_FILL = 32823+pattern SAMPLE_ALPHA_TO_COVERAGE = 32926+pattern SAMPLE_COVERAGE = 32928+pattern NO_ERROR = 0+pattern INVALID_ENUM = 1280+pattern INVALID_VALUE = 1281+pattern INVALID_OPERATION = 1282+pattern OUT_OF_MEMORY = 1285+pattern CW = 2304+pattern CCW = 2305+pattern LINE_WIDTH = 2849+pattern ALIASED_POINT_SIZE_RANGE = 33901+pattern ALIASED_LINE_WIDTH_RANGE = 33902+pattern CULL_FACE_MODE = 2885+pattern FRONT_FACE = 2886+pattern DEPTH_RANGE = 2928+pattern DEPTH_WRITEMASK = 2930+pattern DEPTH_CLEAR_VALUE = 2931+pattern DEPTH_FUNC = 2932+pattern STENCIL_CLEAR_VALUE = 2961+pattern STENCIL_FUNC = 2962+pattern STENCIL_FAIL = 2964+pattern STENCIL_PASS_DEPTH_FAIL = 2965+pattern STENCIL_PASS_DEPTH_PASS = 2966+pattern STENCIL_REF = 2967+pattern STENCIL_VALUE_MASK = 2963+pattern STENCIL_WRITEMASK = 2968+pattern STENCIL_BACK_FUNC = 34816+pattern STENCIL_BACK_FAIL = 34817+pattern STENCIL_BACK_PASS_DEPTH_FAIL = 34818+pattern STENCIL_BACK_PASS_DEPTH_PASS = 34819+pattern STENCIL_BACK_REF = 36003+pattern STENCIL_BACK_VALUE_MASK = 36004+pattern STENCIL_BACK_WRITEMASK = 36005+pattern VIEWPORT = 2978+pattern SCISSOR_BOX = 3088+pattern COLOR_CLEAR_VALUE = 3106+pattern COLOR_WRITEMASK = 3107+pattern UNPACK_ALIGNMENT = 3317+pattern PACK_ALIGNMENT = 3333+pattern MAX_TEXTURE_SIZE = 3379+pattern MAX_VIEWPORT_DIMS = 3386+pattern SUBPIXEL_BITS = 3408+pattern RED_BITS = 3410+pattern GREEN_BITS = 3411+pattern BLUE_BITS = 3412+pattern ALPHA_BITS = 3413+pattern DEPTH_BITS = 3414+pattern STENCIL_BITS = 3415+pattern POLYGON_OFFSET_UNITS = 10752+pattern POLYGON_OFFSET_FACTOR = 32824+pattern TEXTURE_BINDING_2D = 32873+pattern SAMPLE_BUFFERS = 32936+pattern SAMPLES = 32937+pattern SAMPLE_COVERAGE_VALUE = 32938+pattern SAMPLE_COVERAGE_INVERT = 32939+pattern COMPRESSED_TEXTURE_FORMATS = 34467+pattern DONT_CARE = 4352+pattern FASTEST = 4353+pattern NICEST = 4354+pattern GENERATE_MIPMAP_HINT = 33170+pattern BYTE = 5120+pattern UNSIGNED_BYTE = 5121+pattern SHORT = 5122+pattern UNSIGNED_SHORT = 5123+pattern INT = 5124+pattern UNSIGNED_INT = 5125+pattern FLOAT = 5126+pattern DEPTH_COMPONENT = 6402+pattern ALPHA = 6406+pattern RGB = 6407+pattern RGBA = 6408+pattern LUMINANCE = 6409+pattern LUMINANCE_ALPHA = 6410+pattern UNSIGNED_SHORT_4_4_4_4 = 32819+pattern UNSIGNED_SHORT_5_5_5_1 = 32820+pattern UNSIGNED_SHORT_5_6_5 = 33635+pattern FRAGMENT_SHADER = 35632+pattern VERTEX_SHADER = 35633+pattern MAX_VERTEX_ATTRIBS = 34921+pattern MAX_VERTEX_UNIFORM_VECTORS = 36347+pattern MAX_VARYING_VECTORS = 36348+pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS = 35661+pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS = 35660+pattern MAX_TEXTURE_IMAGE_UNITS = 34930+pattern MAX_FRAGMENT_UNIFORM_VECTORS = 36349+pattern SHADER_TYPE = 35663+pattern DELETE_STATUS = 35712+pattern LINK_STATUS = 35714+pattern VALIDATE_STATUS = 35715+pattern ATTACHED_SHADERS = 35717+pattern ACTIVE_UNIFORMS = 35718+pattern ACTIVE_ATTRIBUTES = 35721+pattern SHADING_LANGUAGE_VERSION = 35724+pattern CURRENT_PROGRAM = 35725+pattern NEVER = 512+pattern LESS = 513+pattern EQUAL = 514+pattern LEQUAL = 515+pattern GREATER = 516+pattern NOTEQUAL = 517+pattern GEQUAL = 518+pattern ALWAYS = 519+pattern KEEP = 7680+pattern REPLACE = 7681+pattern INCR = 7682+pattern DECR = 7683+pattern INVERT = 5386+pattern INCR_WRAP = 34055+pattern DECR_WRAP = 34056+pattern VENDOR = 7936+pattern RENDERER = 7937+pattern VERSION = 7938+pattern NEAREST = 9728+pattern LINEAR = 9729+pattern NEAREST_MIPMAP_NEAREST = 9984+pattern LINEAR_MIPMAP_NEAREST = 9985+pattern NEAREST_MIPMAP_LINEAR = 9986+pattern LINEAR_MIPMAP_LINEAR = 9987+pattern TEXTURE_MAG_FILTER = 10240+pattern TEXTURE_MIN_FILTER = 10241+pattern TEXTURE_WRAP_S = 10242+pattern TEXTURE_WRAP_T = 10243+pattern TEXTURE = 5890+pattern TEXTURE_CUBE_MAP = 34067+pattern TEXTURE_BINDING_CUBE_MAP = 34068+pattern TEXTURE_CUBE_MAP_POSITIVE_X = 34069+pattern TEXTURE_CUBE_MAP_NEGATIVE_X = 34070+pattern TEXTURE_CUBE_MAP_POSITIVE_Y = 34071+pattern TEXTURE_CUBE_MAP_NEGATIVE_Y = 34072+pattern TEXTURE_CUBE_MAP_POSITIVE_Z = 34073+pattern TEXTURE_CUBE_MAP_NEGATIVE_Z = 34074+pattern MAX_CUBE_MAP_TEXTURE_SIZE = 34076+pattern TEXTURE0 = 33984+pattern TEXTURE1 = 33985+pattern TEXTURE2 = 33986+pattern TEXTURE3 = 33987+pattern TEXTURE4 = 33988+pattern TEXTURE5 = 33989+pattern TEXTURE6 = 33990+pattern TEXTURE7 = 33991+pattern TEXTURE8 = 33992+pattern TEXTURE9 = 33993+pattern TEXTURE10 = 33994+pattern TEXTURE11 = 33995+pattern TEXTURE12 = 33996+pattern TEXTURE13 = 33997+pattern TEXTURE14 = 33998+pattern TEXTURE15 = 33999+pattern TEXTURE16 = 34000+pattern TEXTURE17 = 34001+pattern TEXTURE18 = 34002+pattern TEXTURE19 = 34003+pattern TEXTURE20 = 34004+pattern TEXTURE21 = 34005+pattern TEXTURE22 = 34006+pattern TEXTURE23 = 34007+pattern TEXTURE24 = 34008+pattern TEXTURE25 = 34009+pattern TEXTURE26 = 34010+pattern TEXTURE27 = 34011+pattern TEXTURE28 = 34012+pattern TEXTURE29 = 34013+pattern TEXTURE30 = 34014+pattern TEXTURE31 = 34015+pattern ACTIVE_TEXTURE = 34016+pattern REPEAT = 10497+pattern CLAMP_TO_EDGE = 33071+pattern MIRRORED_REPEAT = 33648+pattern FLOAT_VEC2 = 35664+pattern FLOAT_VEC3 = 35665+pattern FLOAT_VEC4 = 35666+pattern INT_VEC2 = 35667+pattern INT_VEC3 = 35668+pattern INT_VEC4 = 35669+pattern BOOL = 35670+pattern BOOL_VEC2 = 35671+pattern BOOL_VEC3 = 35672+pattern BOOL_VEC4 = 35673+pattern FLOAT_MAT2 = 35674+pattern FLOAT_MAT3 = 35675+pattern FLOAT_MAT4 = 35676+pattern SAMPLER_2D = 35678+pattern SAMPLER_CUBE = 35680+pattern VERTEX_ATTRIB_ARRAY_ENABLED = 34338+pattern VERTEX_ATTRIB_ARRAY_SIZE = 34339+pattern VERTEX_ATTRIB_ARRAY_STRIDE = 34340+pattern VERTEX_ATTRIB_ARRAY_TYPE = 34341+pattern VERTEX_ATTRIB_ARRAY_NORMALIZED = 34922+pattern VERTEX_ATTRIB_ARRAY_POINTER = 34373+pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = 34975+pattern IMPLEMENTATION_COLOR_READ_TYPE = 35738+pattern IMPLEMENTATION_COLOR_READ_FORMAT = 35739+pattern COMPILE_STATUS = 35713+pattern LOW_FLOAT = 36336+pattern MEDIUM_FLOAT = 36337+pattern HIGH_FLOAT = 36338+pattern LOW_INT = 36339+pattern MEDIUM_INT = 36340+pattern HIGH_INT = 36341+pattern FRAMEBUFFER = 36160+pattern RENDERBUFFER = 36161+pattern RGBA4 = 32854+pattern RGB5_A1 = 32855+pattern RGB565 = 36194+pattern DEPTH_COMPONENT16 = 33189+pattern STENCIL_INDEX = 6401+pattern STENCIL_INDEX8 = 36168+pattern DEPTH_STENCIL = 34041+pattern RENDERBUFFER_WIDTH = 36162+pattern RENDERBUFFER_HEIGHT = 36163+pattern RENDERBUFFER_INTERNAL_FORMAT = 36164+pattern RENDERBUFFER_RED_SIZE = 36176+pattern RENDERBUFFER_GREEN_SIZE = 36177+pattern RENDERBUFFER_BLUE_SIZE = 36178+pattern RENDERBUFFER_ALPHA_SIZE = 36179+pattern RENDERBUFFER_DEPTH_SIZE = 36180+pattern RENDERBUFFER_STENCIL_SIZE = 36181+pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE = 36048+pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME = 36049+pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL = 36050+pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE = 36051+pattern COLOR_ATTACHMENT0 = 36064+pattern DEPTH_ATTACHMENT = 36096+pattern STENCIL_ATTACHMENT = 36128+pattern DEPTH_STENCIL_ATTACHMENT = 33306+pattern NONE = 0+pattern FRAMEBUFFER_COMPLETE = 36053+pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT = 36054+pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT = 36055+pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS = 36057+pattern FRAMEBUFFER_UNSUPPORTED = 36061+pattern FRAMEBUFFER_BINDING = 36006+pattern RENDERBUFFER_BINDING = 36007+pattern MAX_RENDERBUFFER_SIZE = 34024+pattern INVALID_FRAMEBUFFER_OPERATION = 1286+pattern UNPACK_FLIP_Y_WEBGL = 37440+pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL = 37441+pattern CONTEXT_LOST_WEBGL = 37442+pattern UNPACK_COLORSPACE_CONVERSION_WEBGL = 37443+pattern BROWSER_DEFAULT_WEBGL = 37444++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawingBufferWidth Mozilla WebGLRenderingContextBase.drawingBufferWidth documentation> +getDrawingBufferWidth ::+                      (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLsizei+getDrawingBufferWidth self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "drawingBufferWidth")+         >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawingBufferHeight Mozilla WebGLRenderingContextBase.drawingBufferHeight documentation> +getDrawingBufferHeight ::+                       (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLsizei+getDrawingBufferHeight self+  = liftDOM+      (((toWebGLRenderingContextBase self) ^. js "drawingBufferHeight")+         >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WebGLShaderPrecisionFormat.hs view
@@ -0,0 +1,32 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebGLShaderPrecisionFormat+       (getRangeMin, getRangeMax, getPrecision,+        WebGLShaderPrecisionFormat, castToWebGLShaderPrecisionFormat,+        gTypeWebGLShaderPrecisionFormat)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat.rangeMin Mozilla WebGLShaderPrecisionFormat.rangeMin documentation> +getRangeMin :: (MonadDOM m) => WebGLShaderPrecisionFormat -> m Int+getRangeMin self+  = liftDOM (round <$> ((self ^. js "rangeMin") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat.rangeMax Mozilla WebGLShaderPrecisionFormat.rangeMax documentation> +getRangeMax :: (MonadDOM m) => WebGLShaderPrecisionFormat -> m Int+getRangeMax self+  = liftDOM (round <$> ((self ^. js "rangeMax") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat.precision Mozilla WebGLShaderPrecisionFormat.precision documentation> +getPrecision :: (MonadDOM m) => WebGLShaderPrecisionFormat -> m Int+getPrecision self+  = liftDOM (round <$> ((self ^. js "precision") >>= valToNumber))
+ src/JSDOM/Generated/WebKitAnimationEvent.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitAnimationEvent+       (getAnimationName, getElapsedTime, WebKitAnimationEvent,+        castToWebKitAnimationEvent, gTypeWebKitAnimationEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitAnimationEvent.animationName Mozilla WebKitAnimationEvent.animationName documentation> +getAnimationName ::+                 (MonadDOM m, FromJSString result) =>+                   WebKitAnimationEvent -> m result+getAnimationName self+  = liftDOM ((self ^. js "animationName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitAnimationEvent.elapsedTime Mozilla WebKitAnimationEvent.elapsedTime documentation> +getElapsedTime :: (MonadDOM m) => WebKitAnimationEvent -> m Double+getElapsedTime self+  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)
+ src/JSDOM/Generated/WebKitCSSFilterValue.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitCSSFilterValue+       (_get, pattern CSS_FILTER_REFERENCE, pattern CSS_FILTER_GRAYSCALE,+        pattern CSS_FILTER_SEPIA, pattern CSS_FILTER_SATURATE,+        pattern CSS_FILTER_HUE_ROTATE, pattern CSS_FILTER_INVERT,+        pattern CSS_FILTER_OPACITY, pattern CSS_FILTER_BRIGHTNESS,+        pattern CSS_FILTER_CONTRAST, pattern CSS_FILTER_BLUR,+        pattern CSS_FILTER_DROP_SHADOW, getOperationType,+        WebKitCSSFilterValue, castToWebKitCSSFilterValue,+        gTypeWebKitCSSFilterValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSFilterValue._get Mozilla WebKitCSSFilterValue._get documentation> +_get ::+     (MonadDOM m) => WebKitCSSFilterValue -> Word -> m (Maybe CSSValue)+_get self index+  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)+pattern CSS_FILTER_REFERENCE = 1+pattern CSS_FILTER_GRAYSCALE = 2+pattern CSS_FILTER_SEPIA = 3+pattern CSS_FILTER_SATURATE = 4+pattern CSS_FILTER_HUE_ROTATE = 5+pattern CSS_FILTER_INVERT = 6+pattern CSS_FILTER_OPACITY = 7+pattern CSS_FILTER_BRIGHTNESS = 8+pattern CSS_FILTER_CONTRAST = 9+pattern CSS_FILTER_BLUR = 10+pattern CSS_FILTER_DROP_SHADOW = 11++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSFilterValue.operationType Mozilla WebKitCSSFilterValue.operationType documentation> +getOperationType :: (MonadDOM m) => WebKitCSSFilterValue -> m Word+getOperationType self+  = liftDOM+      (round <$> ((self ^. js "operationType") >>= valToNumber))
+ src/JSDOM/Generated/WebKitCSSMatrix.hs view
@@ -0,0 +1,289 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitCSSMatrix+       (newWebKitCSSMatrix, setMatrixValue, multiply, inverse, translate,+        scale, rotate, rotateAxisAngle, skewX, skewY, toString, setA, getA,+        setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11,+        getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21,+        getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31,+        getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41,+        getM41, setM42, getM42, setM43, getM43, setM44, getM44,+        WebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix Mozilla WebKitCSSMatrix documentation> +newWebKitCSSMatrix ::+                   (MonadDOM m, ToJSString cssValue) => cssValue -> m WebKitCSSMatrix+newWebKitCSSMatrix cssValue+  = liftDOM+      (WebKitCSSMatrix <$>+         new (jsg "WebKitCSSMatrix") [toJSVal cssValue])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.setMatrixValue Mozilla WebKitCSSMatrix.setMatrixValue documentation> +setMatrixValue ::+               (MonadDOM m, ToJSString string) =>+                 WebKitCSSMatrix -> string -> m ()+setMatrixValue self string+  = liftDOM (void (self ^. jsf "setMatrixValue" [toJSVal string]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.multiply Mozilla WebKitCSSMatrix.multiply documentation> +multiply ::+         (MonadDOM m) =>+           WebKitCSSMatrix ->+             Maybe WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix)+multiply self secondMatrix+  = liftDOM+      ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.inverse Mozilla WebKitCSSMatrix.inverse documentation> +inverse ::+        (MonadDOM m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix)+inverse self = liftDOM ((self ^. js "inverse") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.translate Mozilla WebKitCSSMatrix.translate documentation> +translate ::+          (MonadDOM m) =>+            WebKitCSSMatrix ->+              Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)+translate self x y z+  = liftDOM+      ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.scale Mozilla WebKitCSSMatrix.scale documentation> +scale ::+      (MonadDOM m) =>+        WebKitCSSMatrix ->+          Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)+scale self scaleX scaleY scaleZ+  = liftDOM+      ((self ^. jsf "scale"+          [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.rotate Mozilla WebKitCSSMatrix.rotate documentation> +rotate ::+       (MonadDOM m) =>+         WebKitCSSMatrix ->+           Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)+rotate self rotX rotY rotZ+  = liftDOM+      ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.rotateAxisAngle Mozilla WebKitCSSMatrix.rotateAxisAngle documentation> +rotateAxisAngle ::+                (MonadDOM m) =>+                  WebKitCSSMatrix ->+                    Double -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)+rotateAxisAngle self x y z angle+  = liftDOM+      ((self ^. jsf "rotateAxisAngle"+          [toJSVal x, toJSVal y, toJSVal z, toJSVal angle])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.skewX Mozilla WebKitCSSMatrix.skewX documentation> +skewX ::+      (MonadDOM m) =>+        WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix)+skewX self angle+  = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.skewY Mozilla WebKitCSSMatrix.skewY documentation> +skewY ::+      (MonadDOM m) =>+        WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix)+skewY self angle+  = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.toString Mozilla WebKitCSSMatrix.toString documentation> +toString ::+         (MonadDOM m, FromJSString result) => WebKitCSSMatrix -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.a Mozilla WebKitCSSMatrix.a documentation> +setA :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setA self val = liftDOM (self ^. jss "a" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.a Mozilla WebKitCSSMatrix.a documentation> +getA :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getA self = liftDOM ((self ^. js "a") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.b Mozilla WebKitCSSMatrix.b documentation> +setB :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setB self val = liftDOM (self ^. jss "b" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.b Mozilla WebKitCSSMatrix.b documentation> +getB :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getB self = liftDOM ((self ^. js "b") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.c Mozilla WebKitCSSMatrix.c documentation> +setC :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setC self val = liftDOM (self ^. jss "c" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.c Mozilla WebKitCSSMatrix.c documentation> +getC :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getC self = liftDOM ((self ^. js "c") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.d Mozilla WebKitCSSMatrix.d documentation> +setD :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setD self val = liftDOM (self ^. jss "d" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.d Mozilla WebKitCSSMatrix.d documentation> +getD :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getD self = liftDOM ((self ^. js "d") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.e Mozilla WebKitCSSMatrix.e documentation> +setE :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setE self val = liftDOM (self ^. jss "e" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.e Mozilla WebKitCSSMatrix.e documentation> +getE :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getE self = liftDOM ((self ^. js "e") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.f Mozilla WebKitCSSMatrix.f documentation> +setF :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setF self val = liftDOM (self ^. jss "f" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.f Mozilla WebKitCSSMatrix.f documentation> +getF :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getF self = liftDOM ((self ^. js "f") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m11 Mozilla WebKitCSSMatrix.m11 documentation> +setM11 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM11 self val = liftDOM (self ^. jss "m11" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m11 Mozilla WebKitCSSMatrix.m11 documentation> +getM11 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM11 self = liftDOM ((self ^. js "m11") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m12 Mozilla WebKitCSSMatrix.m12 documentation> +setM12 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM12 self val = liftDOM (self ^. jss "m12" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m12 Mozilla WebKitCSSMatrix.m12 documentation> +getM12 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM12 self = liftDOM ((self ^. js "m12") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m13 Mozilla WebKitCSSMatrix.m13 documentation> +setM13 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM13 self val = liftDOM (self ^. jss "m13" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m13 Mozilla WebKitCSSMatrix.m13 documentation> +getM13 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM13 self = liftDOM ((self ^. js "m13") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m14 Mozilla WebKitCSSMatrix.m14 documentation> +setM14 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM14 self val = liftDOM (self ^. jss "m14" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m14 Mozilla WebKitCSSMatrix.m14 documentation> +getM14 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM14 self = liftDOM ((self ^. js "m14") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m21 Mozilla WebKitCSSMatrix.m21 documentation> +setM21 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM21 self val = liftDOM (self ^. jss "m21" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m21 Mozilla WebKitCSSMatrix.m21 documentation> +getM21 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM21 self = liftDOM ((self ^. js "m21") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m22 Mozilla WebKitCSSMatrix.m22 documentation> +setM22 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM22 self val = liftDOM (self ^. jss "m22" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m22 Mozilla WebKitCSSMatrix.m22 documentation> +getM22 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM22 self = liftDOM ((self ^. js "m22") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m23 Mozilla WebKitCSSMatrix.m23 documentation> +setM23 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM23 self val = liftDOM (self ^. jss "m23" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m23 Mozilla WebKitCSSMatrix.m23 documentation> +getM23 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM23 self = liftDOM ((self ^. js "m23") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m24 Mozilla WebKitCSSMatrix.m24 documentation> +setM24 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM24 self val = liftDOM (self ^. jss "m24" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m24 Mozilla WebKitCSSMatrix.m24 documentation> +getM24 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM24 self = liftDOM ((self ^. js "m24") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m31 Mozilla WebKitCSSMatrix.m31 documentation> +setM31 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM31 self val = liftDOM (self ^. jss "m31" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m31 Mozilla WebKitCSSMatrix.m31 documentation> +getM31 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM31 self = liftDOM ((self ^. js "m31") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m32 Mozilla WebKitCSSMatrix.m32 documentation> +setM32 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM32 self val = liftDOM (self ^. jss "m32" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m32 Mozilla WebKitCSSMatrix.m32 documentation> +getM32 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM32 self = liftDOM ((self ^. js "m32") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m33 Mozilla WebKitCSSMatrix.m33 documentation> +setM33 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM33 self val = liftDOM (self ^. jss "m33" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m33 Mozilla WebKitCSSMatrix.m33 documentation> +getM33 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM33 self = liftDOM ((self ^. js "m33") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m34 Mozilla WebKitCSSMatrix.m34 documentation> +setM34 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM34 self val = liftDOM (self ^. jss "m34" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m34 Mozilla WebKitCSSMatrix.m34 documentation> +getM34 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM34 self = liftDOM ((self ^. js "m34") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m41 Mozilla WebKitCSSMatrix.m41 documentation> +setM41 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM41 self val = liftDOM (self ^. jss "m41" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m41 Mozilla WebKitCSSMatrix.m41 documentation> +getM41 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM41 self = liftDOM ((self ^. js "m41") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m42 Mozilla WebKitCSSMatrix.m42 documentation> +setM42 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM42 self val = liftDOM (self ^. jss "m42" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m42 Mozilla WebKitCSSMatrix.m42 documentation> +getM42 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM42 self = liftDOM ((self ^. js "m42") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m43 Mozilla WebKitCSSMatrix.m43 documentation> +setM43 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM43 self val = liftDOM (self ^. jss "m43" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m43 Mozilla WebKitCSSMatrix.m43 documentation> +getM43 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM43 self = liftDOM ((self ^. js "m43") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m44 Mozilla WebKitCSSMatrix.m44 documentation> +setM44 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()+setM44 self val = liftDOM (self ^. jss "m44" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m44 Mozilla WebKitCSSMatrix.m44 documentation> +getM44 :: (MonadDOM m) => WebKitCSSMatrix -> m Double+getM44 self = liftDOM ((self ^. js "m44") >>= valToNumber)
+ src/JSDOM/Generated/WebKitCSSRegionRule.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitCSSRegionRule+       (getCssRules, WebKitCSSRegionRule, castToWebKitCSSRegionRule,+        gTypeWebKitCSSRegionRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSRegionRule.cssRules Mozilla WebKitCSSRegionRule.cssRules documentation> +getCssRules ::+            (MonadDOM m) => WebKitCSSRegionRule -> m (Maybe CSSRuleList)+getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
+ src/JSDOM/Generated/WebKitCSSTransformValue.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitCSSTransformValue+       (_get, pattern CSS_TRANSLATE, pattern CSS_TRANSLATEX,+        pattern CSS_TRANSLATEY, pattern CSS_ROTATE, pattern CSS_SCALE,+        pattern CSS_SCALEX, pattern CSS_SCALEY, pattern CSS_SKEW,+        pattern CSS_SKEWX, pattern CSS_SKEWY, pattern CSS_MATRIX,+        pattern CSS_TRANSLATEZ, pattern CSS_TRANSLATE3D,+        pattern CSS_ROTATEX, pattern CSS_ROTATEY, pattern CSS_ROTATEZ,+        pattern CSS_ROTATE3D, pattern CSS_SCALEZ, pattern CSS_SCALE3D,+        pattern CSS_PERSPECTIVE, pattern CSS_MATRIX3D, getOperationType,+        WebKitCSSTransformValue, castToWebKitCSSTransformValue,+        gTypeWebKitCSSTransformValue)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSTransformValue._get Mozilla WebKitCSSTransformValue._get documentation> +_get ::+     (MonadDOM m) =>+       WebKitCSSTransformValue -> Word -> m (Maybe CSSValue)+_get self index+  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)+pattern CSS_TRANSLATE = 1+pattern CSS_TRANSLATEX = 2+pattern CSS_TRANSLATEY = 3+pattern CSS_ROTATE = 4+pattern CSS_SCALE = 5+pattern CSS_SCALEX = 6+pattern CSS_SCALEY = 7+pattern CSS_SKEW = 8+pattern CSS_SKEWX = 9+pattern CSS_SKEWY = 10+pattern CSS_MATRIX = 11+pattern CSS_TRANSLATEZ = 12+pattern CSS_TRANSLATE3D = 13+pattern CSS_ROTATEX = 14+pattern CSS_ROTATEY = 15+pattern CSS_ROTATEZ = 16+pattern CSS_ROTATE3D = 17+pattern CSS_SCALEZ = 18+pattern CSS_SCALE3D = 19+pattern CSS_PERSPECTIVE = 20+pattern CSS_MATRIX3D = 21++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSTransformValue.operationType Mozilla WebKitCSSTransformValue.operationType documentation> +getOperationType ::+                 (MonadDOM m) => WebKitCSSTransformValue -> m Word+getOperationType self+  = liftDOM+      (round <$> ((self ^. js "operationType") >>= valToNumber))
+ src/JSDOM/Generated/WebKitCSSViewportRule.hs view
@@ -0,0 +1,22 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitCSSViewportRule+       (getStyle, WebKitCSSViewportRule, castToWebKitCSSViewportRule,+        gTypeWebKitCSSViewportRule)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSViewportRule.style Mozilla WebKitCSSViewportRule.style documentation> +getStyle ::+         (MonadDOM m) =>+           WebKitCSSViewportRule -> m (Maybe CSSStyleDeclaration)+getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
+ src/JSDOM/Generated/WebKitNamedFlow.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitNamedFlow+       (getRegionsByContent, getRegions, getContent, getName, getOverset,+        getFirstEmptyRegionIndex, WebKitNamedFlow, castToWebKitNamedFlow,+        gTypeWebKitNamedFlow)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.getRegionsByContent Mozilla WebKitNamedFlow.getRegionsByContent documentation> +getRegionsByContent ::+                    (MonadDOM m, IsNode contentNode) =>+                      WebKitNamedFlow -> Maybe contentNode -> m (Maybe NodeList)+getRegionsByContent self contentNode+  = liftDOM+      ((self ^. jsf "getRegionsByContent" [toJSVal contentNode]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.getRegions Mozilla WebKitNamedFlow.getRegions documentation> +getRegions :: (MonadDOM m) => WebKitNamedFlow -> m (Maybe NodeList)+getRegions self = liftDOM ((self ^. js "getRegions") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.getContent Mozilla WebKitNamedFlow.getContent documentation> +getContent :: (MonadDOM m) => WebKitNamedFlow -> m (Maybe NodeList)+getContent self = liftDOM ((self ^. js "getContent") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.name Mozilla WebKitNamedFlow.name documentation> +getName ::+        (MonadDOM m, FromJSString result) => WebKitNamedFlow -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.overset Mozilla WebKitNamedFlow.overset documentation> +getOverset :: (MonadDOM m) => WebKitNamedFlow -> m Bool+getOverset self = liftDOM ((self ^. js "overset") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.firstEmptyRegionIndex Mozilla WebKitNamedFlow.firstEmptyRegionIndex documentation> +getFirstEmptyRegionIndex ::+                         (MonadDOM m) => WebKitNamedFlow -> m Int+getFirstEmptyRegionIndex self+  = liftDOM+      (round <$> ((self ^. js "firstEmptyRegionIndex") >>= valToNumber))
+ src/JSDOM/Generated/WebKitNamespace.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitNamespace+       (getMessageHandlers, WebKitNamespace, castToWebKitNamespace,+        gTypeWebKitNamespace)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamespace.messageHandlers Mozilla WebKitNamespace.messageHandlers documentation> +getMessageHandlers ::+                   (MonadDOM m) =>+                     WebKitNamespace -> m (Maybe UserMessageHandlersNamespace)+getMessageHandlers self+  = liftDOM ((self ^. js "messageHandlers") >>= fromJSVal)
+ src/JSDOM/Generated/WebKitPlaybackTargetAvailabilityEvent.hs view
@@ -0,0 +1,24 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitPlaybackTargetAvailabilityEvent+       (getAvailability, WebKitPlaybackTargetAvailabilityEvent,+        castToWebKitPlaybackTargetAvailabilityEvent,+        gTypeWebKitPlaybackTargetAvailabilityEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPlaybackTargetAvailabilityEvent.availability Mozilla WebKitPlaybackTargetAvailabilityEvent.availability documentation> +getAvailability ::+                (MonadDOM m, FromJSString result) =>+                  WebKitPlaybackTargetAvailabilityEvent -> m result+getAvailability self+  = liftDOM ((self ^. js "availability") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WebKitPoint.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitPoint+       (newWebKitPoint, newWebKitPoint', setX, getX, setY, getY,+        WebKitPoint, castToWebKitPoint, gTypeWebKitPoint)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint Mozilla WebKitPoint documentation> +newWebKitPoint :: (MonadDOM m) => m WebKitPoint+newWebKitPoint+  = liftDOM (WebKitPoint <$> new (jsg "WebKitPoint") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint Mozilla WebKitPoint documentation> +newWebKitPoint' :: (MonadDOM m) => Float -> Float -> m WebKitPoint+newWebKitPoint' x y+  = liftDOM+      (WebKitPoint <$> new (jsg "WebKitPoint") [toJSVal x, toJSVal y])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.x Mozilla WebKitPoint.x documentation> +setX :: (MonadDOM m) => WebKitPoint -> Float -> m ()+setX self val = liftDOM (self ^. jss "x" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.x Mozilla WebKitPoint.x documentation> +getX :: (MonadDOM m) => WebKitPoint -> m Float+getX self+  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.y Mozilla WebKitPoint.y documentation> +setY :: (MonadDOM m) => WebKitPoint -> Float -> m ()+setY self val = liftDOM (self ^. jss "y" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.y Mozilla WebKitPoint.y documentation> +getY :: (MonadDOM m) => WebKitPoint -> m Float+getY self+  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
+ src/JSDOM/Generated/WebKitTransitionEvent.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebKitTransitionEvent+       (getPropertyName, getElapsedTime, getPseudoElement,+        WebKitTransitionEvent, castToWebKitTransitionEvent,+        gTypeWebKitTransitionEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent.propertyName Mozilla WebKitTransitionEvent.propertyName documentation> +getPropertyName ::+                (MonadDOM m, FromJSString result) =>+                  WebKitTransitionEvent -> m result+getPropertyName self+  = liftDOM ((self ^. js "propertyName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent.elapsedTime Mozilla WebKitTransitionEvent.elapsedTime documentation> +getElapsedTime :: (MonadDOM m) => WebKitTransitionEvent -> m Double+getElapsedTime self+  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent.pseudoElement Mozilla WebKitTransitionEvent.pseudoElement documentation> +getPseudoElement ::+                 (MonadDOM m, FromJSString result) =>+                   WebKitTransitionEvent -> m result+getPseudoElement self+  = liftDOM ((self ^. js "pseudoElement") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WebSocket.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WebSocket+       (newWebSocket, newWebSocket', send, sendView, sendBlob, sendString,+        close, pattern CONNECTING, pattern OPEN, pattern CLOSING,+        pattern CLOSED, getUrl, getReadyState, getBufferedAmount, open,+        message, error, closeEvent, getProtocol, getExtensions,+        setBinaryType, getBinaryType, WebSocket, castToWebSocket,+        gTypeWebSocket)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket Mozilla WebSocket documentation> +newWebSocket ::+             (MonadDOM m, ToJSString url, ToJSString protocols) =>+               url -> Maybe [protocols] -> m WebSocket+newWebSocket url protocols+  = liftDOM+      (WebSocket <$>+         new (jsg "WebSocket")+           [toJSVal url, toJSVal (fmap array protocols)])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket Mozilla WebSocket documentation> +newWebSocket' ::+              (MonadDOM m, ToJSString url, ToJSString protocol) =>+                url -> protocol -> m WebSocket+newWebSocket' url protocol+  = liftDOM+      (WebSocket <$>+         new (jsg "WebSocket") [toJSVal url, toJSVal protocol])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> +send ::+     (MonadDOM m, IsArrayBuffer data') =>+       WebSocket -> Maybe data' -> m ()+send self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> +sendView ::+         (MonadDOM m, IsArrayBufferView data') =>+           WebSocket -> Maybe data' -> m ()+sendView self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> +sendBlob ::+         (MonadDOM m, IsBlob data') => WebSocket -> Maybe data' -> m ()+sendBlob self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> +sendString ::+           (MonadDOM m, ToJSString data') => WebSocket -> data' -> m ()+sendString self data'+  = liftDOM (void (self ^. jsf "send" [toJSVal data']))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.close Mozilla WebSocket.close documentation> +close ::+      (MonadDOM m, ToJSString reason) =>+        WebSocket -> Word -> reason -> m ()+close self code reason+  = liftDOM+      (void (self ^. jsf "close" [toJSVal code, toJSVal reason]))+pattern CONNECTING = 0+pattern OPEN = 1+pattern CLOSING = 2+pattern CLOSED = 3++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.url Mozilla WebSocket.url documentation> +getUrl ::+       (MonadDOM m, FromJSString result) => WebSocket -> m result+getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.readyState Mozilla WebSocket.readyState documentation> +getReadyState :: (MonadDOM m) => WebSocket -> m Word+getReadyState self+  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.bufferedAmount Mozilla WebSocket.bufferedAmount documentation> +getBufferedAmount :: (MonadDOM m) => WebSocket -> m Word+getBufferedAmount self+  = liftDOM+      (round <$> ((self ^. js "bufferedAmount") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onopen Mozilla WebSocket.onopen documentation> +open :: EventName WebSocket Event+open = unsafeEventName (toJSString "open")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onmessage Mozilla WebSocket.onmessage documentation> +message :: EventName WebSocket MessageEvent+message = unsafeEventName (toJSString "message")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onerror Mozilla WebSocket.onerror documentation> +error :: EventName WebSocket UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onclose Mozilla WebSocket.onclose documentation> +closeEvent :: EventName WebSocket Event+closeEvent = unsafeEventName (toJSString "close")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.protocol Mozilla WebSocket.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) => WebSocket -> m (Maybe result)+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.extensions Mozilla WebSocket.extensions documentation> +getExtensions ::+              (MonadDOM m, FromJSString result) => WebSocket -> m (Maybe result)+getExtensions self+  = liftDOM ((self ^. js "extensions") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.binaryType Mozilla WebSocket.binaryType documentation> +setBinaryType ::+              (MonadDOM m, ToJSString val) => WebSocket -> val -> m ()+setBinaryType self val+  = liftDOM (self ^. jss "binaryType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.binaryType Mozilla WebSocket.binaryType documentation> +getBinaryType ::+              (MonadDOM m, FromJSString result) => WebSocket -> m result+getBinaryType self+  = liftDOM ((self ^. js "binaryType") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WheelEvent.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WheelEvent+       (initWebKitWheelEvent, pattern DOM_DELTA_PIXEL,+        pattern DOM_DELTA_LINE, pattern DOM_DELTA_PAGE, getDeltaX,+        getDeltaY, getDeltaZ, getDeltaMode, getWheelDeltaX, getWheelDeltaY,+        getWheelDelta, getWebkitDirectionInvertedFromDevice, WheelEvent,+        castToWheelEvent, gTypeWheelEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.initWebKitWheelEvent Mozilla WheelEvent.initWebKitWheelEvent documentation> +initWebKitWheelEvent ::+                     (MonadDOM m) =>+                       WheelEvent ->+                         Int ->+                           Int ->+                             Maybe Window ->+                               Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m ()+initWebKitWheelEvent self wheelDeltaX wheelDeltaY view screenX+  screenY clientX clientY ctrlKey altKey shiftKey metaKey+  = liftDOM+      (void+         (self ^. jsf "initWebKitWheelEvent"+            [toJSVal wheelDeltaX, toJSVal wheelDeltaY, toJSVal view,+             toJSVal screenX, toJSVal screenY, toJSVal clientX, toJSVal clientY,+             toJSVal ctrlKey, toJSVal altKey, toJSVal shiftKey,+             toJSVal metaKey]))+pattern DOM_DELTA_PIXEL = 0+pattern DOM_DELTA_LINE = 1+pattern DOM_DELTA_PAGE = 2++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaX Mozilla WheelEvent.deltaX documentation> +getDeltaX :: (MonadDOM m) => WheelEvent -> m Double+getDeltaX self = liftDOM ((self ^. js "deltaX") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaY Mozilla WheelEvent.deltaY documentation> +getDeltaY :: (MonadDOM m) => WheelEvent -> m Double+getDeltaY self = liftDOM ((self ^. js "deltaY") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaZ Mozilla WheelEvent.deltaZ documentation> +getDeltaZ :: (MonadDOM m) => WheelEvent -> m Double+getDeltaZ self = liftDOM ((self ^. js "deltaZ") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaMode Mozilla WheelEvent.deltaMode documentation> +getDeltaMode :: (MonadDOM m) => WheelEvent -> m Word+getDeltaMode self+  = liftDOM (round <$> ((self ^. js "deltaMode") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.wheelDeltaX Mozilla WheelEvent.wheelDeltaX documentation> +getWheelDeltaX :: (MonadDOM m) => WheelEvent -> m Int+getWheelDeltaX self+  = liftDOM (round <$> ((self ^. js "wheelDeltaX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.wheelDeltaY Mozilla WheelEvent.wheelDeltaY documentation> +getWheelDeltaY :: (MonadDOM m) => WheelEvent -> m Int+getWheelDeltaY self+  = liftDOM (round <$> ((self ^. js "wheelDeltaY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.wheelDelta Mozilla WheelEvent.wheelDelta documentation> +getWheelDelta :: (MonadDOM m) => WheelEvent -> m Int+getWheelDelta self+  = liftDOM (round <$> ((self ^. js "wheelDelta") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.webkitDirectionInvertedFromDevice Mozilla WheelEvent.webkitDirectionInvertedFromDevice documentation> +getWebkitDirectionInvertedFromDevice ::+                                     (MonadDOM m) => WheelEvent -> m Bool+getWebkitDirectionInvertedFromDevice self+  = liftDOM+      ((self ^. js "webkitDirectionInvertedFromDevice") >>= valToBool)
+ src/JSDOM/Generated/Window.hs view
@@ -0,0 +1,943 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Window+       (openDatabase, getSelection, focus, blur, close, print, stop, open,+        showModalDialog, alert, confirm, prompt, find, scrollBy, scrollTo,+        scroll, moveBy, moveTo, resizeBy, resizeTo, matchMedia,+        getComputedStyle, getMatchedCSSRules,+        webkitConvertPointFromPageToNode, webkitConvertPointFromNodeToPage,+        postMessage, requestAnimationFrame, cancelAnimationFrame,+        webkitRequestAnimationFrame, webkitCancelAnimationFrame,+        webkitCancelRequestAnimationFrame, captureEvents, releaseEvents,+        getWebkitIndexedDB, getIndexedDB, getWebkitStorageInfo,+        getSpeechSynthesis, getScreen, getHistory, getLocationbar,+        getMenubar, getPersonalbar, getScrollbars, getStatusbar,+        getToolbar, getNavigator, getClientInformation, getCrypto,+        setLocation, getLocation, getEvent, getFrameElement,+        getOffscreenBuffering, getOuterHeight, getOuterWidth,+        getInnerHeight, getInnerWidth, getScreenX, getScreenY,+        getScreenLeft, getScreenTop, getScrollX, getScrollY,+        getPageXOffset, getPageYOffset, getClosed, getLength, setName,+        getName, setStatus, getStatus, setDefaultStatus, getDefaultStatus,+        setDefaultstatus, getDefaultstatus, getSelf, getWindow, getFrames,+        getOpener, getParent, getTop, getDocument, getStyleMedia,+        getDevicePixelRatio, getApplicationCache, getSessionStorage,+        getLocalStorage, getOrientation, getPerformance, getCSS, abort,+        beforeUnload, blurEvent, canPlay, canPlayThrough, change, click,+        contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,+        dragOver, dragStart, drop, durationChange, emptied, ended, error,+        focusEvent, hashChange, input, invalid, keyDown, keyPress, keyUp,+        load, loadedData, loadedMetadata, loadStart, message, mouseDown,+        mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp,+        mouseWheel, offline, online, pageHide, pageShow, pause, play,+        playing, popState, progress, rateChange, resize, scrollEvent,+        seeked, seeking, select, stalled, storage, submit, suspend,+        timeUpdate, unload, volumeChange, waiting, wheel, reset, search,+        webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart,+        animationEnd, animationIteration, animationStart,+        webKitTransitionEnd, transitionEnd, orientationChange, touchStart,+        touchMove, touchEnd, touchCancel, gestureStart, gestureChange,+        gestureEnd, deviceMotion, deviceOrientation, webKitDeviceProximity,+        webKitWillRevealBottom, webKitWillRevealLeft,+        webKitWillRevealRight, webKitWillRevealTop, Window, castToWindow,+        gTypeWindow)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.openDatabase Mozilla Window.openDatabase documentation> +openDatabase ::+             (MonadDOM m, ToJSString name, ToJSString version,+              ToJSString displayName) =>+               Window ->+                 name ->+                   version ->+                     displayName -> Word -> Maybe DatabaseCallback -> m (Maybe Database)+openDatabase self name version displayName estimatedSize+  creationCallback+  = liftDOM+      ((self ^. jsf "openDatabase"+          [toJSVal name, toJSVal version, toJSVal displayName,+           toJSVal estimatedSize, toJSVal creationCallback])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.getSelection Mozilla Window.getSelection documentation> +getSelection :: (MonadDOM m) => Window -> m (Maybe Selection)+getSelection self+  = liftDOM ((self ^. js "getSelection") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.focus Mozilla Window.focus documentation> +focus :: (MonadDOM m) => Window -> m ()+focus self = liftDOM (void (self ^. js "focus"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.blur Mozilla Window.blur documentation> +blur :: (MonadDOM m) => Window -> m ()+blur self = liftDOM (void (self ^. js "blur"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.close Mozilla Window.close documentation> +close :: (MonadDOM m) => Window -> m ()+close self = liftDOM (void (self ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.print Mozilla Window.print documentation> +print :: (MonadDOM m) => Window -> m ()+print self = liftDOM (void (self ^. js "print"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.stop Mozilla Window.stop documentation> +stop :: (MonadDOM m) => Window -> m ()+stop self = liftDOM (void (self ^. js "stop"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.open Mozilla Window.open documentation> +open ::+     (MonadDOM m, ToJSString url, ToJSString name,+      ToJSString options) =>+       Window -> url -> name -> options -> m (Maybe Window)+open self url name options+  = liftDOM+      ((self ^. jsf "open" [toJSVal url, toJSVal name, toJSVal options])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.showModalDialog Mozilla Window.showModalDialog documentation> +showModalDialog ::+                (MonadDOM m, ToJSString url, ToJSString featureArgs) =>+                  Window -> url -> JSVal -> featureArgs -> m JSVal+showModalDialog self url dialogArgs featureArgs+  = liftDOM+      ((self ^. jsf "showModalDialog"+          [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs])+         >>= toJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.alert Mozilla Window.alert documentation> +alert ::+      (MonadDOM m, ToJSString message) => Window -> message -> m ()+alert self message+  = liftDOM (void (self ^. jsf "alert" [toJSVal message]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.confirm Mozilla Window.confirm documentation> +confirm ::+        (MonadDOM m, ToJSString message) => Window -> message -> m Bool+confirm self message+  = liftDOM ((self ^. jsf "confirm" [toJSVal message]) >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.prompt Mozilla Window.prompt documentation> +prompt ::+       (MonadDOM m, ToJSString message, ToJSString defaultValue,+        FromJSString result) =>+         Window -> message -> Maybe defaultValue -> m (Maybe result)+prompt self message defaultValue+  = liftDOM+      ((self ^. jsf "prompt" [toJSVal message, toJSVal defaultValue]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.find Mozilla Window.find documentation> +find ::+     (MonadDOM m, ToJSString string) =>+       Window ->+         string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m Bool+find self string caseSensitive backwards wrap wholeWord+  searchInFrames showDialog+  = liftDOM+      ((self ^. jsf "find"+          [toJSVal string, toJSVal caseSensitive, toJSVal backwards,+           toJSVal wrap, toJSVal wholeWord, toJSVal searchInFrames,+           toJSVal showDialog])+         >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollBy Mozilla Window.scrollBy documentation> +scrollBy :: (MonadDOM m) => Window -> Int -> Int -> m ()+scrollBy self x y+  = liftDOM (void (self ^. jsf "scrollBy" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollTo Mozilla Window.scrollTo documentation> +scrollTo :: (MonadDOM m) => Window -> Int -> Int -> m ()+scrollTo self x y+  = liftDOM (void (self ^. jsf "scrollTo" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scroll Mozilla Window.scroll documentation> +scroll :: (MonadDOM m) => Window -> Int -> Int -> m ()+scroll self x y+  = liftDOM (void (self ^. jsf "scroll" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.moveBy Mozilla Window.moveBy documentation> +moveBy :: (MonadDOM m) => Window -> Float -> Float -> m ()+moveBy self x y+  = liftDOM (void (self ^. jsf "moveBy" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.moveTo Mozilla Window.moveTo documentation> +moveTo :: (MonadDOM m) => Window -> Float -> Float -> m ()+moveTo self x y+  = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.resizeBy Mozilla Window.resizeBy documentation> +resizeBy :: (MonadDOM m) => Window -> Float -> Float -> m ()+resizeBy self x y+  = liftDOM (void (self ^. jsf "resizeBy" [toJSVal x, toJSVal y]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.resizeTo Mozilla Window.resizeTo documentation> +resizeTo :: (MonadDOM m) => Window -> Float -> Float -> m ()+resizeTo self width height+  = liftDOM+      (void (self ^. jsf "resizeTo" [toJSVal width, toJSVal height]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.matchMedia Mozilla Window.matchMedia documentation> +matchMedia ::+           (MonadDOM m, ToJSString query) =>+             Window -> query -> m (Maybe MediaQueryList)+matchMedia self query+  = liftDOM+      ((self ^. jsf "matchMedia" [toJSVal query]) >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.getComputedStyle Mozilla Window.getComputedStyle documentation> +getComputedStyle ::+                 (MonadDOM m, IsElement element, ToJSString pseudoElement) =>+                   Window ->+                     Maybe element ->+                       Maybe pseudoElement -> m (Maybe CSSStyleDeclaration)+getComputedStyle self element pseudoElement+  = liftDOM+      ((self ^. jsf "getComputedStyle"+          [toJSVal element, toJSVal pseudoElement])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.getMatchedCSSRules Mozilla Window.getMatchedCSSRules documentation> +getMatchedCSSRules ::+                   (MonadDOM m, IsElement element, ToJSString pseudoElement) =>+                     Window ->+                       Maybe element -> Maybe pseudoElement -> m (Maybe CSSRuleList)+getMatchedCSSRules self element pseudoElement+  = liftDOM+      ((self ^. jsf "getMatchedCSSRules"+          [toJSVal element, toJSVal pseudoElement])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitConvertPointFromPageToNode Mozilla Window.webkitConvertPointFromPageToNode documentation> +webkitConvertPointFromPageToNode ::+                                 (MonadDOM m, IsNode node) =>+                                   Window ->+                                     Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint)+webkitConvertPointFromPageToNode self node p+  = liftDOM+      ((self ^. jsf "webkitConvertPointFromPageToNode"+          [toJSVal node, toJSVal p])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitConvertPointFromNodeToPage Mozilla Window.webkitConvertPointFromNodeToPage documentation> +webkitConvertPointFromNodeToPage ::+                                 (MonadDOM m, IsNode node) =>+                                   Window ->+                                     Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint)+webkitConvertPointFromNodeToPage self node p+  = liftDOM+      ((self ^. jsf "webkitConvertPointFromNodeToPage"+          [toJSVal node, toJSVal p])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.postMessage Mozilla Window.postMessage documentation> +postMessage ::+            (MonadDOM m, IsSerializedScriptValue message,+             ToJSString targetOrigin, IsArray messagePorts) =>+              Window ->+                Maybe message -> targetOrigin -> Maybe messagePorts -> m ()+postMessage self message targetOrigin messagePorts+  = liftDOM+      (void+         (self ^. jsf "postMessage"+            [toJSVal message, toJSVal targetOrigin, toJSVal messagePorts]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.requestAnimationFrame Mozilla Window.requestAnimationFrame documentation> +requestAnimationFrame ::+                      (MonadDOM m) =>+                        Window -> Maybe RequestAnimationFrameCallback -> m Int+requestAnimationFrame self callback+  = liftDOM+      (round <$>+         ((self ^. jsf "requestAnimationFrame" [toJSVal callback]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.cancelAnimationFrame Mozilla Window.cancelAnimationFrame documentation> +cancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m ()+cancelAnimationFrame self id+  = liftDOM (void (self ^. jsf "cancelAnimationFrame" [toJSVal id]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitRequestAnimationFrame Mozilla Window.webkitRequestAnimationFrame documentation> +webkitRequestAnimationFrame ::+                            (MonadDOM m) =>+                              Window -> Maybe RequestAnimationFrameCallback -> m Int+webkitRequestAnimationFrame self callback+  = liftDOM+      (round <$>+         ((self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitCancelAnimationFrame Mozilla Window.webkitCancelAnimationFrame documentation> +webkitCancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m ()+webkitCancelAnimationFrame self id+  = liftDOM+      (void (self ^. jsf "webkitCancelAnimationFrame" [toJSVal id]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitCancelRequestAnimationFrame Mozilla Window.webkitCancelRequestAnimationFrame documentation> +webkitCancelRequestAnimationFrame ::+                                  (MonadDOM m) => Window -> Int -> m ()+webkitCancelRequestAnimationFrame self id+  = liftDOM+      (void+         (self ^. jsf "webkitCancelRequestAnimationFrame" [toJSVal id]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.captureEvents Mozilla Window.captureEvents documentation> +captureEvents :: (MonadDOM m) => Window -> m ()+captureEvents self = liftDOM (void (self ^. js "captureEvents"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.releaseEvents Mozilla Window.releaseEvents documentation> +releaseEvents :: (MonadDOM m) => Window -> m ()+releaseEvents self = liftDOM (void (self ^. js "releaseEvents"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitIndexedDB Mozilla Window.webkitIndexedDB documentation> +getWebkitIndexedDB ::+                   (MonadDOM m) => Window -> m (Maybe IDBFactory)+getWebkitIndexedDB self+  = liftDOM ((self ^. js "webkitIndexedDB") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.indexedDB Mozilla Window.indexedDB documentation> +getIndexedDB :: (MonadDOM m) => Window -> m (Maybe IDBFactory)+getIndexedDB self+  = liftDOM ((self ^. js "indexedDB") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitStorageInfo Mozilla Window.webkitStorageInfo documentation> +getWebkitStorageInfo ::+                     (MonadDOM m) => Window -> m (Maybe StorageInfo)+getWebkitStorageInfo self+  = liftDOM ((self ^. js "webkitStorageInfo") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.speechSynthesis Mozilla Window.speechSynthesis documentation> +getSpeechSynthesis ::+                   (MonadDOM m) => Window -> m (Maybe SpeechSynthesis)+getSpeechSynthesis self+  = liftDOM ((self ^. js "speechSynthesis") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screen Mozilla Window.screen documentation> +getScreen :: (MonadDOM m) => Window -> m (Maybe Screen)+getScreen self = liftDOM ((self ^. js "screen") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.history Mozilla Window.history documentation> +getHistory :: (MonadDOM m) => Window -> m (Maybe History)+getHistory self = liftDOM ((self ^. js "history") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.locationbar Mozilla Window.locationbar documentation> +getLocationbar :: (MonadDOM m) => Window -> m (Maybe BarProp)+getLocationbar self+  = liftDOM ((self ^. js "locationbar") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.menubar Mozilla Window.menubar documentation> +getMenubar :: (MonadDOM m) => Window -> m (Maybe BarProp)+getMenubar self = liftDOM ((self ^. js "menubar") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.personalbar Mozilla Window.personalbar documentation> +getPersonalbar :: (MonadDOM m) => Window -> m (Maybe BarProp)+getPersonalbar self+  = liftDOM ((self ^. js "personalbar") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollbars Mozilla Window.scrollbars documentation> +getScrollbars :: (MonadDOM m) => Window -> m (Maybe BarProp)+getScrollbars self+  = liftDOM ((self ^. js "scrollbars") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.statusbar Mozilla Window.statusbar documentation> +getStatusbar :: (MonadDOM m) => Window -> m (Maybe BarProp)+getStatusbar self+  = liftDOM ((self ^. js "statusbar") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.toolbar Mozilla Window.toolbar documentation> +getToolbar :: (MonadDOM m) => Window -> m (Maybe BarProp)+getToolbar self = liftDOM ((self ^. js "toolbar") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.navigator Mozilla Window.navigator documentation> +getNavigator :: (MonadDOM m) => Window -> m (Maybe Navigator)+getNavigator self+  = liftDOM ((self ^. js "navigator") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.clientInformation Mozilla Window.clientInformation documentation> +getClientInformation ::+                     (MonadDOM m) => Window -> m (Maybe Navigator)+getClientInformation self+  = liftDOM ((self ^. js "clientInformation") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.crypto Mozilla Window.crypto documentation> +getCrypto :: (MonadDOM m) => Window -> m (Maybe Crypto)+getCrypto self = liftDOM ((self ^. js "crypto") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.location Mozilla Window.location documentation> +setLocation :: (MonadDOM m) => Window -> Maybe Location -> m ()+setLocation self val+  = liftDOM (self ^. jss "location" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.location Mozilla Window.location documentation> +getLocation :: (MonadDOM m) => Window -> m (Maybe Location)+getLocation self = liftDOM ((self ^. js "location") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.event Mozilla Window.event documentation> +getEvent :: (MonadDOM m) => Window -> m (Maybe Event)+getEvent self = liftDOM ((self ^. js "event") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.frameElement Mozilla Window.frameElement documentation> +getFrameElement :: (MonadDOM m) => Window -> m (Maybe Element)+getFrameElement self+  = liftDOM ((self ^. js "frameElement") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.offscreenBuffering Mozilla Window.offscreenBuffering documentation> +getOffscreenBuffering :: (MonadDOM m) => Window -> m Bool+getOffscreenBuffering self+  = liftDOM ((self ^. js "offscreenBuffering") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.outerHeight Mozilla Window.outerHeight documentation> +getOuterHeight :: (MonadDOM m) => Window -> m Int+getOuterHeight self+  = liftDOM (round <$> ((self ^. js "outerHeight") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.outerWidth Mozilla Window.outerWidth documentation> +getOuterWidth :: (MonadDOM m) => Window -> m Int+getOuterWidth self+  = liftDOM (round <$> ((self ^. js "outerWidth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.innerHeight Mozilla Window.innerHeight documentation> +getInnerHeight :: (MonadDOM m) => Window -> m Int+getInnerHeight self+  = liftDOM (round <$> ((self ^. js "innerHeight") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.innerWidth Mozilla Window.innerWidth documentation> +getInnerWidth :: (MonadDOM m) => Window -> m Int+getInnerWidth self+  = liftDOM (round <$> ((self ^. js "innerWidth") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenX Mozilla Window.screenX documentation> +getScreenX :: (MonadDOM m) => Window -> m Int+getScreenX self+  = liftDOM (round <$> ((self ^. js "screenX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenY Mozilla Window.screenY documentation> +getScreenY :: (MonadDOM m) => Window -> m Int+getScreenY self+  = liftDOM (round <$> ((self ^. js "screenY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenLeft Mozilla Window.screenLeft documentation> +getScreenLeft :: (MonadDOM m) => Window -> m Int+getScreenLeft self+  = liftDOM (round <$> ((self ^. js "screenLeft") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenTop Mozilla Window.screenTop documentation> +getScreenTop :: (MonadDOM m) => Window -> m Int+getScreenTop self+  = liftDOM (round <$> ((self ^. js "screenTop") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollX Mozilla Window.scrollX documentation> +getScrollX :: (MonadDOM m) => Window -> m Int+getScrollX self+  = liftDOM (round <$> ((self ^. js "scrollX") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollY Mozilla Window.scrollY documentation> +getScrollY :: (MonadDOM m) => Window -> m Int+getScrollY self+  = liftDOM (round <$> ((self ^. js "scrollY") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.pageXOffset Mozilla Window.pageXOffset documentation> +getPageXOffset :: (MonadDOM m) => Window -> m Int+getPageXOffset self+  = liftDOM (round <$> ((self ^. js "pageXOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.pageYOffset Mozilla Window.pageYOffset documentation> +getPageYOffset :: (MonadDOM m) => Window -> m Int+getPageYOffset self+  = liftDOM (round <$> ((self ^. js "pageYOffset") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.closed Mozilla Window.closed documentation> +getClosed :: (MonadDOM m) => Window -> m Bool+getClosed self = liftDOM ((self ^. js "closed") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.length Mozilla Window.length documentation> +getLength :: (MonadDOM m) => Window -> m Word+getLength self+  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.name Mozilla Window.name documentation> +setName :: (MonadDOM m, ToJSString val) => Window -> val -> m ()+setName self val = liftDOM (self ^. jss "name" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.name Mozilla Window.name documentation> +getName :: (MonadDOM m, FromJSString result) => Window -> m result+getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.status Mozilla Window.status documentation> +setStatus :: (MonadDOM m, ToJSString val) => Window -> val -> m ()+setStatus self val = liftDOM (self ^. jss "status" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.status Mozilla Window.status documentation> +getStatus ::+          (MonadDOM m, FromJSString result) => Window -> m result+getStatus self+  = liftDOM ((self ^. js "status") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultStatus Mozilla Window.defaultStatus documentation> +setDefaultStatus ::+                 (MonadDOM m, ToJSString val) => Window -> val -> m ()+setDefaultStatus self val+  = liftDOM (self ^. jss "defaultStatus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultStatus Mozilla Window.defaultStatus documentation> +getDefaultStatus ::+                 (MonadDOM m, FromJSString result) => Window -> m result+getDefaultStatus self+  = liftDOM ((self ^. js "defaultStatus") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultstatus Mozilla Window.defaultstatus documentation> +setDefaultstatus ::+                 (MonadDOM m, ToJSString val) => Window -> val -> m ()+setDefaultstatus self val+  = liftDOM (self ^. jss "defaultstatus" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultstatus Mozilla Window.defaultstatus documentation> +getDefaultstatus ::+                 (MonadDOM m, FromJSString result) => Window -> m result+getDefaultstatus self+  = liftDOM ((self ^. js "defaultstatus") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.self Mozilla Window.self documentation> +getSelf :: (MonadDOM m) => Window -> m (Maybe Window)+getSelf self = liftDOM ((self ^. js "self") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.window Mozilla Window.window documentation> +getWindow :: (MonadDOM m) => Window -> m (Maybe Window)+getWindow self = liftDOM ((self ^. js "window") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.frames Mozilla Window.frames documentation> +getFrames :: (MonadDOM m) => Window -> m (Maybe Window)+getFrames self = liftDOM ((self ^. js "frames") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.opener Mozilla Window.opener documentation> +getOpener :: (MonadDOM m) => Window -> m (Maybe Window)+getOpener self = liftDOM ((self ^. js "opener") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.parent Mozilla Window.parent documentation> +getParent :: (MonadDOM m) => Window -> m (Maybe Window)+getParent self = liftDOM ((self ^. js "parent") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.top Mozilla Window.top documentation> +getTop :: (MonadDOM m) => Window -> m (Maybe Window)+getTop self = liftDOM ((self ^. js "top") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.document Mozilla Window.document documentation> +getDocument :: (MonadDOM m) => Window -> m (Maybe Document)+getDocument self = liftDOM ((self ^. js "document") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.styleMedia Mozilla Window.styleMedia documentation> +getStyleMedia :: (MonadDOM m) => Window -> m (Maybe StyleMedia)+getStyleMedia self+  = liftDOM ((self ^. js "styleMedia") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.devicePixelRatio Mozilla Window.devicePixelRatio documentation> +getDevicePixelRatio :: (MonadDOM m) => Window -> m Double+getDevicePixelRatio self+  = liftDOM ((self ^. js "devicePixelRatio") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.applicationCache Mozilla Window.applicationCache documentation> +getApplicationCache ::+                    (MonadDOM m) => Window -> m (Maybe ApplicationCache)+getApplicationCache self+  = liftDOM ((self ^. js "applicationCache") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.sessionStorage Mozilla Window.sessionStorage documentation> +getSessionStorage :: (MonadDOM m) => Window -> m (Maybe Storage)+getSessionStorage self+  = liftDOM ((self ^. js "sessionStorage") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.localStorage Mozilla Window.localStorage documentation> +getLocalStorage :: (MonadDOM m) => Window -> m (Maybe Storage)+getLocalStorage self+  = liftDOM ((self ^. js "localStorage") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.orientation Mozilla Window.orientation documentation> +getOrientation :: (MonadDOM m) => Window -> m Int+getOrientation self+  = liftDOM (round <$> ((self ^. js "orientation") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.performance Mozilla Window.performance documentation> +getPerformance :: (MonadDOM m) => Window -> m (Maybe Performance)+getPerformance self+  = liftDOM ((self ^. js "performance") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.CSS Mozilla Window.CSS documentation> +getCSS :: (MonadDOM m) => Window -> m (Maybe CSS)+getCSS self = liftDOM ((self ^. js "CSS") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onabort Mozilla Window.onabort documentation> +abort :: EventName Window UIEvent+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onbeforeunload Mozilla Window.onbeforeunload documentation> +beforeUnload :: EventName Window BeforeUnloadEvent+beforeUnload = unsafeEventName (toJSString "beforeunload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onblur Mozilla Window.onblur documentation> +blurEvent :: EventName Window FocusEvent+blurEvent = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oncanplay Mozilla Window.oncanplay documentation> +canPlay :: EventName Window Event+canPlay = unsafeEventName (toJSString "canplay")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oncanplaythrough Mozilla Window.oncanplaythrough documentation> +canPlayThrough :: EventName Window Event+canPlayThrough = unsafeEventName (toJSString "canplaythrough")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onchange Mozilla Window.onchange documentation> +change :: EventName Window Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onclick Mozilla Window.onclick documentation> +click :: EventName Window MouseEvent+click = unsafeEventName (toJSString "click")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oncontextmenu Mozilla Window.oncontextmenu documentation> +contextMenu :: EventName Window MouseEvent+contextMenu = unsafeEventName (toJSString "contextmenu")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondblclick Mozilla Window.ondblclick documentation> +dblClick :: EventName Window MouseEvent+dblClick = unsafeEventName (toJSString "dblclick")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondrag Mozilla Window.ondrag documentation> +drag :: EventName Window MouseEvent+drag = unsafeEventName (toJSString "drag")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragend Mozilla Window.ondragend documentation> +dragEnd :: EventName Window MouseEvent+dragEnd = unsafeEventName (toJSString "dragend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragenter Mozilla Window.ondragenter documentation> +dragEnter :: EventName Window MouseEvent+dragEnter = unsafeEventName (toJSString "dragenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragleave Mozilla Window.ondragleave documentation> +dragLeave :: EventName Window MouseEvent+dragLeave = unsafeEventName (toJSString "dragleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragover Mozilla Window.ondragover documentation> +dragOver :: EventName Window MouseEvent+dragOver = unsafeEventName (toJSString "dragover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragstart Mozilla Window.ondragstart documentation> +dragStart :: EventName Window MouseEvent+dragStart = unsafeEventName (toJSString "dragstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondrop Mozilla Window.ondrop documentation> +drop :: EventName Window MouseEvent+drop = unsafeEventName (toJSString "drop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondurationchange Mozilla Window.ondurationchange documentation> +durationChange :: EventName Window Event+durationChange = unsafeEventName (toJSString "durationchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onemptied Mozilla Window.onemptied documentation> +emptied :: EventName Window Event+emptied = unsafeEventName (toJSString "emptied")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onended Mozilla Window.onended documentation> +ended :: EventName Window Event+ended = unsafeEventName (toJSString "ended")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onerror Mozilla Window.onerror documentation> +error :: EventName Window UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onfocus Mozilla Window.onfocus documentation> +focusEvent :: EventName Window FocusEvent+focusEvent = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onhashchange Mozilla Window.onhashchange documentation> +hashChange :: EventName Window HashChangeEvent+hashChange = unsafeEventName (toJSString "hashchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oninput Mozilla Window.oninput documentation> +input :: EventName Window Event+input = unsafeEventName (toJSString "input")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oninvalid Mozilla Window.oninvalid documentation> +invalid :: EventName Window Event+invalid = unsafeEventName (toJSString "invalid")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onkeydown Mozilla Window.onkeydown documentation> +keyDown :: EventName Window KeyboardEvent+keyDown = unsafeEventName (toJSString "keydown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onkeypress Mozilla Window.onkeypress documentation> +keyPress :: EventName Window KeyboardEvent+keyPress = unsafeEventName (toJSString "keypress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onkeyup Mozilla Window.onkeyup documentation> +keyUp :: EventName Window KeyboardEvent+keyUp = unsafeEventName (toJSString "keyup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onload Mozilla Window.onload documentation> +load :: EventName Window UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onloadeddata Mozilla Window.onloadeddata documentation> +loadedData :: EventName Window Event+loadedData = unsafeEventName (toJSString "loadeddata")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onloadedmetadata Mozilla Window.onloadedmetadata documentation> +loadedMetadata :: EventName Window Event+loadedMetadata = unsafeEventName (toJSString "loadedmetadata")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onloadstart Mozilla Window.onloadstart documentation> +loadStart :: EventName Window ProgressEvent+loadStart = unsafeEventName (toJSString "loadstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmessage Mozilla Window.onmessage documentation> +message :: EventName Window MessageEvent+message = unsafeEventName (toJSString "message")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmousedown Mozilla Window.onmousedown documentation> +mouseDown :: EventName Window MouseEvent+mouseDown = unsafeEventName (toJSString "mousedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseenter Mozilla Window.onmouseenter documentation> +mouseEnter :: EventName Window MouseEvent+mouseEnter = unsafeEventName (toJSString "mouseenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseleave Mozilla Window.onmouseleave documentation> +mouseLeave :: EventName Window MouseEvent+mouseLeave = unsafeEventName (toJSString "mouseleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmousemove Mozilla Window.onmousemove documentation> +mouseMove :: EventName Window MouseEvent+mouseMove = unsafeEventName (toJSString "mousemove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseout Mozilla Window.onmouseout documentation> +mouseOut :: EventName Window MouseEvent+mouseOut = unsafeEventName (toJSString "mouseout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseover Mozilla Window.onmouseover documentation> +mouseOver :: EventName Window MouseEvent+mouseOver = unsafeEventName (toJSString "mouseover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseup Mozilla Window.onmouseup documentation> +mouseUp :: EventName Window MouseEvent+mouseUp = unsafeEventName (toJSString "mouseup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmousewheel Mozilla Window.onmousewheel documentation> +mouseWheel :: EventName Window MouseEvent+mouseWheel = unsafeEventName (toJSString "mousewheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onoffline Mozilla Window.onoffline documentation> +offline :: EventName Window Event+offline = unsafeEventName (toJSString "offline")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ononline Mozilla Window.ononline documentation> +online :: EventName Window Event+online = unsafeEventName (toJSString "online")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpagehide Mozilla Window.onpagehide documentation> +pageHide :: EventName Window PageTransitionEvent+pageHide = unsafeEventName (toJSString "pagehide")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpageshow Mozilla Window.onpageshow documentation> +pageShow :: EventName Window PageTransitionEvent+pageShow = unsafeEventName (toJSString "pageshow")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpause Mozilla Window.onpause documentation> +pause :: EventName Window Event+pause = unsafeEventName (toJSString "pause")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onplay Mozilla Window.onplay documentation> +play :: EventName Window Event+play = unsafeEventName (toJSString "play")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onplaying Mozilla Window.onplaying documentation> +playing :: EventName Window Event+playing = unsafeEventName (toJSString "playing")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpopstate Mozilla Window.onpopstate documentation> +popState :: EventName Window PopStateEvent+popState = unsafeEventName (toJSString "popstate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onprogress Mozilla Window.onprogress documentation> +progress :: EventName Window ProgressEvent+progress = unsafeEventName (toJSString "progress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onratechange Mozilla Window.onratechange documentation> +rateChange :: EventName Window Event+rateChange = unsafeEventName (toJSString "ratechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onresize Mozilla Window.onresize documentation> +resize :: EventName Window UIEvent+resize = unsafeEventName (toJSString "resize")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onscroll Mozilla Window.onscroll documentation> +scrollEvent :: EventName Window UIEvent+scrollEvent = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onseeked Mozilla Window.onseeked documentation> +seeked :: EventName Window Event+seeked = unsafeEventName (toJSString "seeked")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onseeking Mozilla Window.onseeking documentation> +seeking :: EventName Window Event+seeking = unsafeEventName (toJSString "seeking")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onselect Mozilla Window.onselect documentation> +select :: EventName Window UIEvent+select = unsafeEventName (toJSString "select")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onstalled Mozilla Window.onstalled documentation> +stalled :: EventName Window Event+stalled = unsafeEventName (toJSString "stalled")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onstorage Mozilla Window.onstorage documentation> +storage :: EventName Window StorageEvent+storage = unsafeEventName (toJSString "storage")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onsubmit Mozilla Window.onsubmit documentation> +submit :: EventName Window Event+submit = unsafeEventName (toJSString "submit")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onsuspend Mozilla Window.onsuspend documentation> +suspend :: EventName Window Event+suspend = unsafeEventName (toJSString "suspend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontimeupdate Mozilla Window.ontimeupdate documentation> +timeUpdate :: EventName Window Event+timeUpdate = unsafeEventName (toJSString "timeupdate")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onunload Mozilla Window.onunload documentation> +unload :: EventName Window UIEvent+unload = unsafeEventName (toJSString "unload")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onvolumechange Mozilla Window.onvolumechange documentation> +volumeChange :: EventName Window Event+volumeChange = unsafeEventName (toJSString "volumechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwaiting Mozilla Window.onwaiting documentation> +waiting :: EventName Window Event+waiting = unsafeEventName (toJSString "waiting")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwheel Mozilla Window.onwheel documentation> +wheel :: EventName Window WheelEvent+wheel = unsafeEventName (toJSString "wheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onreset Mozilla Window.onreset documentation> +reset :: EventName Window Event+reset = unsafeEventName (toJSString "reset")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onsearch Mozilla Window.onsearch documentation> +search :: EventName Window Event+search = unsafeEventName (toJSString "search")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitanimationend Mozilla Window.onwebkitanimationend documentation> +webKitAnimationEnd :: EventName Window AnimationEvent+webKitAnimationEnd+  = unsafeEventName (toJSString "webkitanimationend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitanimationiteration Mozilla Window.onwebkitanimationiteration documentation> +webKitAnimationIteration :: EventName Window AnimationEvent+webKitAnimationIteration+  = unsafeEventName (toJSString "webkitanimationiteration")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitanimationstart Mozilla Window.onwebkitanimationstart documentation> +webKitAnimationStart :: EventName Window AnimationEvent+webKitAnimationStart+  = unsafeEventName (toJSString "webkitanimationstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onanimationend Mozilla Window.onanimationend documentation> +animationEnd :: EventName Window AnimationEvent+animationEnd = unsafeEventName (toJSString "animationend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onanimationiteration Mozilla Window.onanimationiteration documentation> +animationIteration :: EventName Window AnimationEvent+animationIteration+  = unsafeEventName (toJSString "animationiteration")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onanimationstart Mozilla Window.onanimationstart documentation> +animationStart :: EventName Window AnimationEvent+animationStart = unsafeEventName (toJSString "animationstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkittransitionend Mozilla Window.onwebkittransitionend documentation> +webKitTransitionEnd :: EventName Window TransitionEvent+webKitTransitionEnd+  = unsafeEventName (toJSString "webkittransitionend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontransitionend Mozilla Window.ontransitionend documentation> +transitionEnd :: EventName Window TransitionEvent+transitionEnd = unsafeEventName (toJSString "transitionend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onorientationchange Mozilla Window.onorientationchange documentation> +orientationChange :: EventName Window Event+orientationChange+  = unsafeEventName (toJSString "orientationchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchstart Mozilla Window.ontouchstart documentation> +touchStart :: EventName Window TouchEvent+touchStart = unsafeEventName (toJSString "touchstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchmove Mozilla Window.ontouchmove documentation> +touchMove :: EventName Window TouchEvent+touchMove = unsafeEventName (toJSString "touchmove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchend Mozilla Window.ontouchend documentation> +touchEnd :: EventName Window TouchEvent+touchEnd = unsafeEventName (toJSString "touchend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchcancel Mozilla Window.ontouchcancel documentation> +touchCancel :: EventName Window TouchEvent+touchCancel = unsafeEventName (toJSString "touchcancel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ongesturestart Mozilla Window.ongesturestart documentation> +gestureStart :: EventName Window UIEvent+gestureStart = unsafeEventName (toJSString "gesturestart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ongesturechange Mozilla Window.ongesturechange documentation> +gestureChange :: EventName Window UIEvent+gestureChange = unsafeEventName (toJSString "gesturechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ongestureend Mozilla Window.ongestureend documentation> +gestureEnd :: EventName Window UIEvent+gestureEnd = unsafeEventName (toJSString "gestureend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondevicemotion Mozilla Window.ondevicemotion documentation> +deviceMotion :: EventName Window DeviceMotionEvent+deviceMotion = unsafeEventName (toJSString "devicemotion")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondeviceorientation Mozilla Window.ondeviceorientation documentation> +deviceOrientation :: EventName Window DeviceOrientationEvent+deviceOrientation+  = unsafeEventName (toJSString "deviceorientation")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitdeviceproximity Mozilla Window.onwebkitdeviceproximity documentation> +webKitDeviceProximity :: EventName Window DeviceProximityEvent+webKitDeviceProximity+  = unsafeEventName (toJSString "webkitdeviceproximity")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealbottom Mozilla Window.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom :: EventName Window Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealleft Mozilla Window.onwebkitwillrevealleft documentation> +webKitWillRevealLeft :: EventName Window Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealright Mozilla Window.onwebkitwillrevealright documentation> +webKitWillRevealRight :: EventName Window Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealtop Mozilla Window.onwebkitwillrevealtop documentation> +webKitWillRevealTop :: EventName Window Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")
+ src/JSDOM/Generated/WindowBase64.hs view
@@ -0,0 +1,31 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WindowBase64+       (atob, btoa, WindowBase64, castToWindowBase64, gTypeWindowBase64)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowBase64.atob Mozilla WindowBase64.atob documentation> +atob ::+     (MonadDOM m, ToJSString string, FromJSString result) =>+       WindowBase64 -> string -> m result+atob self string+  = liftDOM+      ((self ^. jsf "atob" [toJSVal string]) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowBase64.btoa Mozilla WindowBase64.btoa documentation> +btoa ::+     (MonadDOM m, ToJSString string, FromJSString result) =>+       WindowBase64 -> string -> m result+btoa self string+  = liftDOM+      ((self ^. jsf "btoa" [toJSVal string]) >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WindowTimers.hs view
@@ -0,0 +1,43 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WindowTimers+       (setTimeout, clearTimeout, setInterval, clearInterval,+        WindowTimers, castToWindowTimers, gTypeWindowTimers)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.setTimeout Mozilla WindowTimers.setTimeout documentation> +setTimeout :: (MonadDOM m) => WindowTimers -> JSVal -> Int -> m Int+setTimeout self handler timeout+  = liftDOM+      (round <$>+         ((self ^. jsf "setTimeout" [toJSVal handler, toJSVal timeout]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.clearTimeout Mozilla WindowTimers.clearTimeout documentation> +clearTimeout :: (MonadDOM m) => WindowTimers -> Int -> m ()+clearTimeout self handle+  = liftDOM (void (self ^. jsf "clearTimeout" [toJSVal handle]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.setInterval Mozilla WindowTimers.setInterval documentation> +setInterval ::+            (MonadDOM m) => WindowTimers -> JSVal -> Int -> m Int+setInterval self handler timeout+  = liftDOM+      (round <$>+         ((self ^. jsf "setInterval" [toJSVal handler, toJSVal timeout]) >>=+            valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.clearInterval Mozilla WindowTimers.clearInterval documentation> +clearInterval :: (MonadDOM m) => WindowTimers -> Int -> m ()+clearInterval self handle+  = liftDOM (void (self ^. jsf "clearInterval" [toJSVal handle]))
+ src/JSDOM/Generated/Worker.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.Worker+       (newWorker, postMessage, terminate, message, Worker, castToWorker,+        gTypeWorker)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker Mozilla Worker documentation> +newWorker ::+          (MonadDOM m, ToJSString scriptUrl) => scriptUrl -> m Worker+newWorker scriptUrl+  = liftDOM (Worker <$> new (jsg "Worker") [toJSVal scriptUrl])++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker.postMessage Mozilla Worker.postMessage documentation> +postMessage ::+            (MonadDOM m, IsSerializedScriptValue message,+             IsArray messagePorts) =>+              Worker -> Maybe message -> Maybe messagePorts -> m ()+postMessage self message messagePorts+  = liftDOM+      (void+         (self ^. jsf "postMessage"+            [toJSVal message, toJSVal messagePorts]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker.terminate Mozilla Worker.terminate documentation> +terminate :: (MonadDOM m) => Worker -> m ()+terminate self = liftDOM (void (self ^. js "terminate"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker.onmessage Mozilla Worker.onmessage documentation> +message :: EventName Worker MessageEvent+message = unsafeEventName (toJSString "message")
+ src/JSDOM/Generated/WorkerGlobalScope.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WorkerGlobalScope+       (close, importScripts, getSelf, getLocation, error, offline,+        online, getNavigator, WorkerGlobalScope, castToWorkerGlobalScope,+        gTypeWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.close Mozilla WorkerGlobalScope.close documentation> +close :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m ()+close self+  = liftDOM (void ((toWorkerGlobalScope self) ^. js "close"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.importScripts Mozilla WorkerGlobalScope.importScripts documentation> +importScripts ::+              (MonadDOM m, IsWorkerGlobalScope self) => self -> m ()+importScripts self+  = liftDOM (void ((toWorkerGlobalScope self) ^. js "importScripts"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.self Mozilla WorkerGlobalScope.self documentation> +getSelf ::+        (MonadDOM m, IsWorkerGlobalScope self) =>+          self -> m (Maybe WorkerGlobalScope)+getSelf self+  = liftDOM (((toWorkerGlobalScope self) ^. js "self") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.location Mozilla WorkerGlobalScope.location documentation> +getLocation ::+            (MonadDOM m, IsWorkerGlobalScope self) =>+              self -> m (Maybe WorkerLocation)+getLocation self+  = liftDOM+      (((toWorkerGlobalScope self) ^. js "location") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.onerror Mozilla WorkerGlobalScope.onerror documentation> +error ::+      (IsWorkerGlobalScope self, IsEventTarget self) =>+        EventName self UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.onoffline Mozilla WorkerGlobalScope.onoffline documentation> +offline ::+        (IsWorkerGlobalScope self, IsEventTarget self) =>+          EventName self Event+offline = unsafeEventName (toJSString "offline")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.ononline Mozilla WorkerGlobalScope.ononline documentation> +online ::+       (IsWorkerGlobalScope self, IsEventTarget self) =>+         EventName self Event+online = unsafeEventName (toJSString "online")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.navigator Mozilla WorkerGlobalScope.navigator documentation> +getNavigator ::+             (MonadDOM m, IsWorkerGlobalScope self) =>+               self -> m (Maybe WorkerNavigator)+getNavigator self+  = liftDOM+      (((toWorkerGlobalScope self) ^. js "navigator") >>= fromJSVal)
+ src/JSDOM/Generated/WorkerLocation.hs view
@@ -0,0 +1,67 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WorkerLocation+       (toString, getHref, getProtocol, getHost, getHostname, getPort,+        getPathname, getSearch, getHash, WorkerLocation,+        castToWorkerLocation, gTypeWorkerLocation)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.toString Mozilla WorkerLocation.toString documentation> +toString ::+         (MonadDOM m, FromJSString result) => WorkerLocation -> m result+toString self+  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.href Mozilla WorkerLocation.href documentation> +getHref ::+        (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.protocol Mozilla WorkerLocation.protocol documentation> +getProtocol ::+            (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getProtocol self+  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.host Mozilla WorkerLocation.host documentation> +getHost ::+        (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.hostname Mozilla WorkerLocation.hostname documentation> +getHostname ::+            (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getHostname self+  = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.port Mozilla WorkerLocation.port documentation> +getPort ::+        (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.pathname Mozilla WorkerLocation.pathname documentation> +getPathname ::+            (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getPathname self+  = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.search Mozilla WorkerLocation.search documentation> +getSearch ::+          (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getSearch self+  = liftDOM ((self ^. js "search") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.hash Mozilla WorkerLocation.hash documentation> +getHash ::+        (MonadDOM m, FromJSString result) => WorkerLocation -> m result+getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/WorkerNavigator.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.WorkerNavigator+       (getWebkitTemporaryStorage, getWebkitPersistentStorage, getAppName,+        getAppVersion, getPlatform, getUserAgent, getOnLine,+        WorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.webkitTemporaryStorage Mozilla WorkerNavigator.webkitTemporaryStorage documentation> +getWebkitTemporaryStorage ::+                          (MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota)+getWebkitTemporaryStorage self+  = liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.webkitPersistentStorage Mozilla WorkerNavigator.webkitPersistentStorage documentation> +getWebkitPersistentStorage ::+                           (MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota)+getWebkitPersistentStorage self+  = liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.appName Mozilla WorkerNavigator.appName documentation> +getAppName ::+           (MonadDOM m, FromJSString result) => WorkerNavigator -> m result+getAppName self+  = liftDOM ((self ^. js "appName") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.appVersion Mozilla WorkerNavigator.appVersion documentation> +getAppVersion ::+              (MonadDOM m, FromJSString result) => WorkerNavigator -> m result+getAppVersion self+  = liftDOM ((self ^. js "appVersion") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.platform Mozilla WorkerNavigator.platform documentation> +getPlatform ::+            (MonadDOM m, FromJSString result) => WorkerNavigator -> m result+getPlatform self+  = liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.userAgent Mozilla WorkerNavigator.userAgent documentation> +getUserAgent ::+             (MonadDOM m, FromJSString result) => WorkerNavigator -> m result+getUserAgent self+  = liftDOM ((self ^. js "userAgent") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.onLine Mozilla WorkerNavigator.onLine documentation> +getOnLine :: (MonadDOM m) => WorkerNavigator -> m Bool+getOnLine self = liftDOM ((self ^. js "onLine") >>= valToBool)
+ src/JSDOM/Generated/XMLHttpRequest.hs view
@@ -0,0 +1,197 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XMLHttpRequest+       (newXMLHttpRequest, open, setRequestHeader, send, abort,+        getAllResponseHeaders, getResponseHeader, overrideMimeType,+        pattern UNSENT, pattern OPENED, pattern HEADERS_RECEIVED,+        pattern LOADING, pattern DONE, abortEvent, error, load, loadEnd,+        loadStart, progress, timeout, readyStateChange, setTimeout,+        getTimeout, getReadyState, setWithCredentials, getWithCredentials,+        getUpload, getResponseText, getResponseXML, setResponseType,+        getResponseType, getResponse, getStatus, getStatusText,+        getResponseURL, XMLHttpRequest, castToXMLHttpRequest,+        gTypeXMLHttpRequest)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest Mozilla XMLHttpRequest documentation> +newXMLHttpRequest :: (MonadDOM m) => m XMLHttpRequest+newXMLHttpRequest+  = liftDOM (XMLHttpRequest <$> new (jsg "XMLHttpRequest") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.open Mozilla XMLHttpRequest.open documentation> +open ::+     (MonadDOM m, ToJSString method, ToJSString url, ToJSString user,+      ToJSString password) =>+       XMLHttpRequest -> method -> url -> Bool -> user -> password -> m ()+open self method url async user password+  = liftDOM+      (void+         (self ^. jsf "open"+            [toJSVal method, toJSVal url, toJSVal async, toJSVal user,+             toJSVal password]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.setRequestHeader Mozilla XMLHttpRequest.setRequestHeader documentation> +setRequestHeader ::+                 (MonadDOM m, ToJSString header, ToJSString value) =>+                   XMLHttpRequest -> header -> value -> m ()+setRequestHeader self header value+  = liftDOM+      (void+         (self ^. jsf "setRequestHeader" [toJSVal header, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.send Mozilla XMLHttpRequest.send documentation> +send :: (MonadDOM m) => XMLHttpRequest -> m ()+send self = liftDOM (void (self ^. js "send"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.abort Mozilla XMLHttpRequest.abort documentation> +abort :: (MonadDOM m) => XMLHttpRequest -> m ()+abort self = liftDOM (void (self ^. js "abort"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.getAllResponseHeaders Mozilla XMLHttpRequest.getAllResponseHeaders documentation> +getAllResponseHeaders ::+                      (MonadDOM m, FromJSString result) =>+                        XMLHttpRequest -> m (Maybe result)+getAllResponseHeaders self+  = liftDOM+      ((self ^. js "getAllResponseHeaders") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.getResponseHeader Mozilla XMLHttpRequest.getResponseHeader documentation> +getResponseHeader ::+                  (MonadDOM m, ToJSString header, FromJSString result) =>+                    XMLHttpRequest -> header -> m (Maybe result)+getResponseHeader self header+  = liftDOM+      ((self ^. jsf "getResponseHeader" [toJSVal header]) >>=+         fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.overrideMimeType Mozilla XMLHttpRequest.overrideMimeType documentation> +overrideMimeType ::+                 (MonadDOM m, ToJSString override) =>+                   XMLHttpRequest -> override -> m ()+overrideMimeType self override+  = liftDOM+      (void (self ^. jsf "overrideMimeType" [toJSVal override]))+pattern UNSENT = 0+pattern OPENED = 1+pattern HEADERS_RECEIVED = 2+pattern LOADING = 3+pattern DONE = 4++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onabort Mozilla XMLHttpRequest.onabort documentation> +abortEvent :: EventName XMLHttpRequest XMLHttpRequestProgressEvent+abortEvent = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onerror Mozilla XMLHttpRequest.onerror documentation> +error :: EventName XMLHttpRequest XMLHttpRequestProgressEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onload Mozilla XMLHttpRequest.onload documentation> +load :: EventName XMLHttpRequest XMLHttpRequestProgressEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onloadend Mozilla XMLHttpRequest.onloadend documentation> +loadEnd :: EventName XMLHttpRequest ProgressEvent+loadEnd = unsafeEventName (toJSString "loadend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onloadstart Mozilla XMLHttpRequest.onloadstart documentation> +loadStart :: EventName XMLHttpRequest ProgressEvent+loadStart = unsafeEventName (toJSString "loadstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onprogress Mozilla XMLHttpRequest.onprogress documentation> +progress :: EventName XMLHttpRequest XMLHttpRequestProgressEvent+progress = unsafeEventName (toJSString "progress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.ontimeout Mozilla XMLHttpRequest.ontimeout documentation> +timeout :: EventName XMLHttpRequest ProgressEvent+timeout = unsafeEventName (toJSString "timeout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onreadystatechange Mozilla XMLHttpRequest.onreadystatechange documentation> +readyStateChange :: EventName XMLHttpRequest Event+readyStateChange = unsafeEventName (toJSString "readystatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.timeout Mozilla XMLHttpRequest.timeout documentation> +setTimeout :: (MonadDOM m) => XMLHttpRequest -> Word -> m ()+setTimeout self val = liftDOM (self ^. jss "timeout" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.timeout Mozilla XMLHttpRequest.timeout documentation> +getTimeout :: (MonadDOM m) => XMLHttpRequest -> m Word+getTimeout self+  = liftDOM (round <$> ((self ^. js "timeout") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.readyState Mozilla XMLHttpRequest.readyState documentation> +getReadyState :: (MonadDOM m) => XMLHttpRequest -> m Word+getReadyState self+  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.withCredentials Mozilla XMLHttpRequest.withCredentials documentation> +setWithCredentials ::+                   (MonadDOM m) => XMLHttpRequest -> Bool -> m ()+setWithCredentials self val+  = liftDOM (self ^. jss "withCredentials" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.withCredentials Mozilla XMLHttpRequest.withCredentials documentation> +getWithCredentials :: (MonadDOM m) => XMLHttpRequest -> m Bool+getWithCredentials self+  = liftDOM ((self ^. js "withCredentials") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.upload Mozilla XMLHttpRequest.upload documentation> +getUpload ::+          (MonadDOM m) => XMLHttpRequest -> m (Maybe XMLHttpRequestUpload)+getUpload self = liftDOM ((self ^. js "upload") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseText Mozilla XMLHttpRequest.responseText documentation> +getResponseText ::+                (MonadDOM m, FromJSString result) =>+                  XMLHttpRequest -> m (Maybe result)+getResponseText self+  = liftDOM ((self ^. js "responseText") >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseXML Mozilla XMLHttpRequest.responseXML documentation> +getResponseXML ::+               (MonadDOM m) => XMLHttpRequest -> m (Maybe Document)+getResponseXML self+  = liftDOM ((self ^. js "responseXML") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseType Mozilla XMLHttpRequest.responseType documentation> +setResponseType ::+                (MonadDOM m) =>+                  XMLHttpRequest -> XMLHttpRequestResponseType -> m ()+setResponseType self val+  = liftDOM (self ^. jss "responseType" (toJSVal val))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseType Mozilla XMLHttpRequest.responseType documentation> +getResponseType ::+                (MonadDOM m) => XMLHttpRequest -> m XMLHttpRequestResponseType+getResponseType self+  = liftDOM ((self ^. js "responseType") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.response Mozilla XMLHttpRequest.response documentation> +getResponse :: (MonadDOM m) => XMLHttpRequest -> m (Maybe GObject)+getResponse self = liftDOM ((self ^. js "response") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.status Mozilla XMLHttpRequest.status documentation> +getStatus :: (MonadDOM m) => XMLHttpRequest -> m Word+getStatus self+  = liftDOM (round <$> ((self ^. js "status") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.statusText Mozilla XMLHttpRequest.statusText documentation> +getStatusText ::+              (MonadDOM m, FromJSString result) => XMLHttpRequest -> m result+getStatusText self+  = liftDOM ((self ^. js "statusText") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseURL Mozilla XMLHttpRequest.responseURL documentation> +getResponseURL ::+               (MonadDOM m, FromJSString result) => XMLHttpRequest -> m result+getResponseURL self+  = liftDOM ((self ^. js "responseURL") >>= fromJSValUnchecked)
+ src/JSDOM/Generated/XMLHttpRequestProgressEvent.hs view
@@ -0,0 +1,29 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XMLHttpRequestProgressEvent+       (getPosition, getTotalSize, XMLHttpRequestProgressEvent,+        castToXMLHttpRequestProgressEvent,+        gTypeXMLHttpRequestProgressEvent)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestProgressEvent.position Mozilla XMLHttpRequestProgressEvent.position documentation> +getPosition ::+            (MonadDOM m) => XMLHttpRequestProgressEvent -> m Word64+getPosition self+  = liftDOM (round <$> ((self ^. js "position") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestProgressEvent.totalSize Mozilla XMLHttpRequestProgressEvent.totalSize documentation> +getTotalSize ::+             (MonadDOM m) => XMLHttpRequestProgressEvent -> m Word64+getTotalSize self+  = liftDOM (round <$> ((self ^. js "totalSize") >>= valToNumber))
+ src/JSDOM/Generated/XMLHttpRequestUpload.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XMLHttpRequestUpload+       (abort, error, load, loadEnd, loadStart, progress,+        XMLHttpRequestUpload, castToXMLHttpRequestUpload,+        gTypeXMLHttpRequestUpload)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onabort Mozilla XMLHttpRequestUpload.onabort documentation> +abort :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onerror Mozilla XMLHttpRequestUpload.onerror documentation> +error :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onload Mozilla XMLHttpRequestUpload.onload documentation> +load :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onloadend Mozilla XMLHttpRequestUpload.onloadend documentation> +loadEnd :: EventName XMLHttpRequestUpload ProgressEvent+loadEnd = unsafeEventName (toJSString "loadend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onloadstart Mozilla XMLHttpRequestUpload.onloadstart documentation> +loadStart :: EventName XMLHttpRequestUpload ProgressEvent+loadStart = unsafeEventName (toJSString "loadstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onprogress Mozilla XMLHttpRequestUpload.onprogress documentation> +progress ::+           EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent+progress = unsafeEventName (toJSString "progress")
+ src/JSDOM/Generated/XMLSerializer.hs view
@@ -0,0 +1,30 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XMLSerializer+       (newXMLSerializer, serializeToString, XMLSerializer,+        castToXMLSerializer, gTypeXMLSerializer)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLSerializer Mozilla XMLSerializer documentation> +newXMLSerializer :: (MonadDOM m) => m XMLSerializer+newXMLSerializer+  = liftDOM (XMLSerializer <$> new (jsg "XMLSerializer") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLSerializer.serializeToString Mozilla XMLSerializer.serializeToString documentation> +serializeToString ::+                  (MonadDOM m, IsNode node, FromJSString result) =>+                    XMLSerializer -> Maybe node -> m result+serializeToString self node+  = liftDOM+      ((self ^. jsf "serializeToString" [toJSVal node]) >>=+         fromJSValUnchecked)
+ src/JSDOM/Generated/XPathEvaluator.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XPathEvaluator+       (newXPathEvaluator, createExpression, createNSResolver, evaluate,+        XPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator Mozilla XPathEvaluator documentation> +newXPathEvaluator :: (MonadDOM m) => m XPathEvaluator+newXPathEvaluator+  = liftDOM (XPathEvaluator <$> new (jsg "XPathEvaluator") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator.createExpression Mozilla XPathEvaluator.createExpression documentation> +createExpression ::+                 (MonadDOM m, ToJSString expression) =>+                   XPathEvaluator ->+                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)+createExpression self expression resolver+  = liftDOM+      ((self ^. jsf "createExpression"+          [toJSVal expression, toJSVal resolver])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator.createNSResolver Mozilla XPathEvaluator.createNSResolver documentation> +createNSResolver ::+                 (MonadDOM m, IsNode nodeResolver) =>+                   XPathEvaluator -> Maybe nodeResolver -> m (Maybe XPathNSResolver)+createNSResolver self nodeResolver+  = liftDOM+      ((self ^. jsf "createNSResolver" [toJSVal nodeResolver]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator.evaluate Mozilla XPathEvaluator.evaluate documentation> +evaluate ::+         (MonadDOM m, ToJSString expression, IsNode contextNode) =>+           XPathEvaluator ->+             expression ->+               Maybe contextNode ->+                 Maybe XPathNSResolver ->+                   Word -> Maybe XPathResult -> m (Maybe XPathResult)+evaluate self expression contextNode resolver type' inResult+  = liftDOM+      ((self ^. jsf "evaluate"+          [toJSVal expression, toJSVal contextNode, toJSVal resolver,+           toJSVal type', toJSVal inResult])+         >>= fromJSVal)
+ src/JSDOM/Generated/XPathExpression.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XPathExpression+       (evaluate, XPathExpression, castToXPathExpression,+        gTypeXPathExpression)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathExpression.evaluate Mozilla XPathExpression.evaluate documentation> +evaluate ::+         (MonadDOM m, IsNode contextNode) =>+           XPathExpression ->+             Maybe contextNode ->+               Word -> Maybe XPathResult -> m (Maybe XPathResult)+evaluate self contextNode type' inResult+  = liftDOM+      ((self ^. jsf "evaluate"+          [toJSVal contextNode, toJSVal type', toJSVal inResult])+         >>= fromJSVal)
+ src/JSDOM/Generated/XPathNSResolver.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XPathNSResolver+       (lookupNamespaceURI, XPathNSResolver, castToXPathNSResolver,+        gTypeXPathNSResolver)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathNSResolver.lookupNamespaceURI Mozilla XPathNSResolver.lookupNamespaceURI documentation> +lookupNamespaceURI ::+                   (MonadDOM m, ToJSString prefix, FromJSString result) =>+                     XPathNSResolver -> prefix -> m (Maybe result)+lookupNamespaceURI self prefix+  = liftDOM+      ((self ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=+         fromMaybeJSString)
+ src/JSDOM/Generated/XPathResult.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XPathResult+       (iterateNext, snapshotItem, pattern ANY_TYPE, pattern NUMBER_TYPE,+        pattern STRING_TYPE, pattern BOOLEAN_TYPE,+        pattern UNORDERED_NODE_ITERATOR_TYPE,+        pattern ORDERED_NODE_ITERATOR_TYPE,+        pattern UNORDERED_NODE_SNAPSHOT_TYPE,+        pattern ORDERED_NODE_SNAPSHOT_TYPE,+        pattern ANY_UNORDERED_NODE_TYPE, pattern FIRST_ORDERED_NODE_TYPE,+        getResultType, getNumberValue, getStringValue, getBooleanValue,+        getSingleNodeValue, getInvalidIteratorState, getSnapshotLength,+        XPathResult, castToXPathResult, gTypeXPathResult)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.iterateNext Mozilla XPathResult.iterateNext documentation> +iterateNext :: (MonadDOM m) => XPathResult -> m (Maybe Node)+iterateNext self+  = liftDOM ((self ^. js "iterateNext") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.snapshotItem Mozilla XPathResult.snapshotItem documentation> +snapshotItem ::+             (MonadDOM m) => XPathResult -> Word -> m (Maybe Node)+snapshotItem self index+  = liftDOM+      ((self ^. jsf "snapshotItem" [toJSVal index]) >>= fromJSVal)+pattern ANY_TYPE = 0+pattern NUMBER_TYPE = 1+pattern STRING_TYPE = 2+pattern BOOLEAN_TYPE = 3+pattern UNORDERED_NODE_ITERATOR_TYPE = 4+pattern ORDERED_NODE_ITERATOR_TYPE = 5+pattern UNORDERED_NODE_SNAPSHOT_TYPE = 6+pattern ORDERED_NODE_SNAPSHOT_TYPE = 7+pattern ANY_UNORDERED_NODE_TYPE = 8+pattern FIRST_ORDERED_NODE_TYPE = 9++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.resultType Mozilla XPathResult.resultType documentation> +getResultType :: (MonadDOM m) => XPathResult -> m Word+getResultType self+  = liftDOM (round <$> ((self ^. js "resultType") >>= valToNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.numberValue Mozilla XPathResult.numberValue documentation> +getNumberValue :: (MonadDOM m) => XPathResult -> m Double+getNumberValue self+  = liftDOM ((self ^. js "numberValue") >>= valToNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.stringValue Mozilla XPathResult.stringValue documentation> +getStringValue ::+               (MonadDOM m, FromJSString result) => XPathResult -> m result+getStringValue self+  = liftDOM ((self ^. js "stringValue") >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.booleanValue Mozilla XPathResult.booleanValue documentation> +getBooleanValue :: (MonadDOM m) => XPathResult -> m Bool+getBooleanValue self+  = liftDOM ((self ^. js "booleanValue") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.singleNodeValue Mozilla XPathResult.singleNodeValue documentation> +getSingleNodeValue :: (MonadDOM m) => XPathResult -> m (Maybe Node)+getSingleNodeValue self+  = liftDOM ((self ^. js "singleNodeValue") >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.invalidIteratorState Mozilla XPathResult.invalidIteratorState documentation> +getInvalidIteratorState :: (MonadDOM m) => XPathResult -> m Bool+getInvalidIteratorState self+  = liftDOM ((self ^. js "invalidIteratorState") >>= valToBool)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.snapshotLength Mozilla XPathResult.snapshotLength documentation> +getSnapshotLength :: (MonadDOM m) => XPathResult -> m Word+getSnapshotLength self+  = liftDOM+      (round <$> ((self ^. js "snapshotLength") >>= valToNumber))
+ src/JSDOM/Generated/XSLTProcessor.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE PatternSynonyms #-}+module JSDOM.Generated.XSLTProcessor+       (newXSLTProcessor, importStylesheet, transformToFragment,+        transformToDocument, setParameter, getParameter, removeParameter,+        clearParameters, reset, XSLTProcessor, castToXSLTProcessor,+        gTypeXSLTProcessor)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))+import Data.Typeable (Typeable)+import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)+import Data.Int (Int64)+import Data.Word (Word, Word64)+import JSDOM.Types+import Control.Applicative ((<$>))+import Control.Monad (void)+import Control.Lens.Operators ((^.))+import JSDOM.EventTargetClosures (EventName, unsafeEventName)+import JSDOM.Enums++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor Mozilla XSLTProcessor documentation> +newXSLTProcessor :: (MonadDOM m) => m XSLTProcessor+newXSLTProcessor+  = liftDOM (XSLTProcessor <$> new (jsg "XSLTProcessor") ())++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.importStylesheet Mozilla XSLTProcessor.importStylesheet documentation> +importStylesheet ::+                 (MonadDOM m, IsNode stylesheet) =>+                   XSLTProcessor -> Maybe stylesheet -> m ()+importStylesheet self stylesheet+  = liftDOM+      (void (self ^. jsf "importStylesheet" [toJSVal stylesheet]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.transformToFragment Mozilla XSLTProcessor.transformToFragment documentation> +transformToFragment ::+                    (MonadDOM m, IsNode source, IsDocument docVal) =>+                      XSLTProcessor ->+                        Maybe source -> Maybe docVal -> m (Maybe DocumentFragment)+transformToFragment self source docVal+  = liftDOM+      ((self ^. jsf "transformToFragment"+          [toJSVal source, toJSVal docVal])+         >>= fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.transformToDocument Mozilla XSLTProcessor.transformToDocument documentation> +transformToDocument ::+                    (MonadDOM m, IsNode source) =>+                      XSLTProcessor -> Maybe source -> m (Maybe Document)+transformToDocument self source+  = liftDOM+      ((self ^. jsf "transformToDocument" [toJSVal source]) >>=+         fromJSVal)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.setParameter Mozilla XSLTProcessor.setParameter documentation> +setParameter ::+             (MonadDOM m, ToJSString namespaceURI, ToJSString localName,+              ToJSString value) =>+               XSLTProcessor -> namespaceURI -> localName -> value -> m ()+setParameter self namespaceURI localName value+  = liftDOM+      (void+         (self ^. jsf "setParameter"+            [toJSVal namespaceURI, toJSVal localName, toJSVal value]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.getParameter Mozilla XSLTProcessor.getParameter documentation> +getParameter ::+             (MonadDOM m, ToJSString namespaceURI, ToJSString localName,+              FromJSString result) =>+               XSLTProcessor -> namespaceURI -> localName -> m (Maybe result)+getParameter self namespaceURI localName+  = liftDOM+      ((self ^. jsf "getParameter"+          [toJSVal namespaceURI, toJSVal localName])+         >>= fromMaybeJSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.removeParameter Mozilla XSLTProcessor.removeParameter documentation> +removeParameter ::+                (MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>+                  XSLTProcessor -> namespaceURI -> localName -> m ()+removeParameter self namespaceURI localName+  = liftDOM+      (void+         (self ^. jsf "removeParameter"+            [toJSVal namespaceURI, toJSVal localName]))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.clearParameters Mozilla XSLTProcessor.clearParameters documentation> +clearParameters :: (MonadDOM m) => XSLTProcessor -> m ()+clearParameters self+  = liftDOM (void (self ^. js "clearParameters"))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.reset Mozilla XSLTProcessor.reset documentation> +reset :: (MonadDOM m) => XSLTProcessor -> m ()+reset self = liftDOM (void (self ^. js "reset"))
+ src/JSDOM/Types.hs view
@@ -0,0 +1,26865 @@+{-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE TypeSynonymInstances #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE ConstraintKinds #-}+{-# LANGUAGE LambdaCase #-}+module JSDOM.Types (+  -- * Monad+    DOM, DOMContext, askDOM, runDOM, MonadDOM(..)++  -- * Object+  , maybeNullOrUndefined, maybeNullOrUndefined', maybeToNullable+  , propagateGError, GType(..)+  , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString+  , ToJSVal(..), FromJSVal(..), fromJSArray, fromJSArrayUnchecked++  -- * DOMString+  , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, ToJSString(..), FromJSString(..)+  , toMaybeJSString, fromMaybeJSString++  -- * Callbacks+  , Callback(..)+  , withCallback+  , AudioBufferCallback(..)+  , DatabaseCallback(..)+  , MediaQueryListListener(..)+  , MediaStreamTrackSourcesCallback(..)+  , NavigatorUserMediaErrorCallback(..)+  , NavigatorUserMediaSuccessCallback(..)+  , NotificationPermissionCallback(..)+  , PositionCallback(..)+  , PositionErrorCallback(..)+  , RequestAnimationFrameCallback(..)+  , RTCPeerConnectionErrorCallback(..)+  , RTCSessionDescriptionCallback(..)+  , RTCStatsCallback(..)+  , SQLStatementCallback(..)+  , SQLStatementErrorCallback(..)+  , SQLTransactionCallback(..)+  , SQLTransactionErrorCallback(..)+  , StorageErrorCallback(..)+  , StorageQuotaCallback(..)+  , StorageUsageCallback(..)+  , StringCallback(..)+  , VoidCallback(..)++  -- * Dictionaries+  , Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary+  , BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag++  -- * Mutation Callback+  , MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback++  -- * Promise+  , Promise(Promise), unPromise, IsPromise, toPromise, castToPromise, gTypePromise++  -- * Date+  , Date(Date), unDate, IsDate, toDate, castToDate, gTypeDate++  -- * Arrays+  , Array(Array), unArray, IsArray, toArray, castToArray, gTypeArray+  , ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray+  , ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, castToArrayBuffer, gTypeArrayBuffer+  , ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView+  , Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, castToFloat32Array, gTypeFloat32Array+  , Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, castToFloat64Array, gTypeFloat64Array+  , Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, castToUint8Array, gTypeUint8Array+  , Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, castToUint8ClampedArray, gTypeUint8ClampedArray+  , Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, castToUint16Array, gTypeUint16Array+  , Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, castToUint32Array, gTypeUint32Array+  , Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, castToInt8Array, gTypeInt8Array+  , Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, castToInt16Array, gTypeInt16Array+  , Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, castToInt32Array, gTypeInt32Array++  -- * Geolocation+  , SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue+  , PositionOptions(PositionOptions), unPositionOptions, IsPositionOptions, toPositionOptions+  , Acceleration(Acceleration), unAcceleration, IsAcceleration, toAcceleration+  , RotationRate(RotationRate), unRotationRate, IsRotationRate, toRotationRate++  -- * Crypto+  , Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm+  , CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData++  -- * CanvasStyle (fill & stroke style)+  , CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle, toCanvasStyle++  , DOMException(DOMException), unDOMException, IsDOMException, toDOMException++  -- * WebGL typedefs+  , GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..)+  , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..)+  , GLint64, GLuint64++  -- * Interface types from IDL files++-- AUTO GENERATION STARTS HERE+  , ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, castToANGLEInstancedArrays, gTypeANGLEInstancedArrays+  , AbstractView(AbstractView), unAbstractView, castToAbstractView, gTypeAbstractView+  , AbstractWorker(AbstractWorker), unAbstractWorker, castToAbstractWorker, gTypeAbstractWorker+  , AllAudioCapabilities(AllAudioCapabilities), unAllAudioCapabilities, castToAllAudioCapabilities, gTypeAllAudioCapabilities+  , AllVideoCapabilities(AllVideoCapabilities), unAllVideoCapabilities, castToAllVideoCapabilities, gTypeAllVideoCapabilities+  , AnalyserNode(AnalyserNode), unAnalyserNode, castToAnalyserNode, gTypeAnalyserNode+  , AnimationEvent(AnimationEvent), unAnimationEvent, castToAnimationEvent, gTypeAnimationEvent+  , ApplicationCache(ApplicationCache), unApplicationCache, castToApplicationCache, gTypeApplicationCache+  , Attr(Attr), unAttr, castToAttr, gTypeAttr+  , AudioBuffer(AudioBuffer), unAudioBuffer, castToAudioBuffer, gTypeAudioBuffer+  , AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, castToAudioBufferSourceNode, gTypeAudioBufferSourceNode+  , AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, castToAudioContext, gTypeAudioContext+  , AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, castToAudioDestinationNode, gTypeAudioDestinationNode+  , AudioListener(AudioListener), unAudioListener, castToAudioListener, gTypeAudioListener+  , AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, castToAudioNode, gTypeAudioNode+  , AudioParam(AudioParam), unAudioParam, castToAudioParam, gTypeAudioParam+  , AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, castToAudioProcessingEvent, gTypeAudioProcessingEvent+  , AudioStreamTrack(AudioStreamTrack), unAudioStreamTrack, castToAudioStreamTrack, gTypeAudioStreamTrack+  , AudioTrack(AudioTrack), unAudioTrack, castToAudioTrack, gTypeAudioTrack+  , AudioTrackList(AudioTrackList), unAudioTrackList, castToAudioTrackList, gTypeAudioTrackList+  , AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent+  , BarProp(BarProp), unBarProp, castToBarProp, gTypeBarProp+  , BatteryManager(BatteryManager), unBatteryManager, castToBatteryManager, gTypeBatteryManager+  , BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, castToBeforeLoadEvent, gTypeBeforeLoadEvent+  , BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, castToBeforeUnloadEvent, gTypeBeforeUnloadEvent+  , BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode+  , Blob(Blob), unBlob, IsBlob, toBlob, castToBlob, gTypeBlob+  , CDATASection(CDATASection), unCDATASection, castToCDATASection, gTypeCDATASection+  , CSS(CSS), unCSS, castToCSS, gTypeCSS+  , CSSCharsetRule(CSSCharsetRule), unCSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule+  , CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent+  , CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, castToCSSFontFaceRule, gTypeCSSFontFaceRule+  , CSSImportRule(CSSImportRule), unCSSImportRule, castToCSSImportRule, gTypeCSSImportRule+  , CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, castToCSSKeyframeRule, gTypeCSSKeyframeRule+  , CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, castToCSSKeyframesRule, gTypeCSSKeyframesRule+  , CSSMediaRule(CSSMediaRule), unCSSMediaRule, castToCSSMediaRule, gTypeCSSMediaRule+  , CSSPageRule(CSSPageRule), unCSSPageRule, castToCSSPageRule, gTypeCSSPageRule+  , CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, castToCSSPrimitiveValue, gTypeCSSPrimitiveValue+  , CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, castToCSSRule, gTypeCSSRule+  , CSSRuleList(CSSRuleList), unCSSRuleList, castToCSSRuleList, gTypeCSSRuleList+  , CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, castToCSSStyleDeclaration, gTypeCSSStyleDeclaration+  , CSSStyleRule(CSSStyleRule), unCSSStyleRule, castToCSSStyleRule, gTypeCSSStyleRule+  , CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, castToCSSStyleSheet, gTypeCSSStyleSheet+  , CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule+  , CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, castToCSSUnknownRule, gTypeCSSUnknownRule+  , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, castToCSSValue, gTypeCSSValue+  , CSSValueList(CSSValueList), unCSSValueList, IsCSSValueList, toCSSValueList, castToCSSValueList, gTypeCSSValueList+  , CanvasGradient(CanvasGradient), unCanvasGradient, castToCanvasGradient, gTypeCanvasGradient+  , CanvasPattern(CanvasPattern), unCanvasPattern, castToCanvasPattern, gTypeCanvasPattern+  , CanvasProxy(CanvasProxy), unCanvasProxy, castToCanvasProxy, gTypeCanvasProxy+  , CanvasRenderingContext(CanvasRenderingContext), unCanvasRenderingContext, IsCanvasRenderingContext, toCanvasRenderingContext, castToCanvasRenderingContext, gTypeCanvasRenderingContext+  , CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D+  , CapabilityRange(CapabilityRange), unCapabilityRange, castToCapabilityRange, gTypeCapabilityRange+  , ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, castToChannelMergerNode, gTypeChannelMergerNode+  , ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, castToChannelSplitterNode, gTypeChannelSplitterNode+  , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, castToCharacterData, gTypeCharacterData+  , ChildNode(ChildNode), unChildNode, castToChildNode, gTypeChildNode+  , ClientRect(ClientRect), unClientRect, castToClientRect, gTypeClientRect+  , ClientRectList(ClientRectList), unClientRectList, castToClientRectList, gTypeClientRectList+  , CloseEvent(CloseEvent), unCloseEvent, castToCloseEvent, gTypeCloseEvent+  , CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, castToCommandLineAPIHost, gTypeCommandLineAPIHost+  , Comment(Comment), unComment, castToComment, gTypeComment+  , CompositionEvent(CompositionEvent), unCompositionEvent, castToCompositionEvent, gTypeCompositionEvent+  , ConvolverNode(ConvolverNode), unConvolverNode, castToConvolverNode, gTypeConvolverNode+  , Coordinates(Coordinates), unCoordinates, castToCoordinates, gTypeCoordinates+  , Counter(Counter), unCounter, castToCounter, gTypeCounter+  , Crypto(Crypto), unCrypto, castToCrypto, gTypeCrypto+  , CryptoKey(CryptoKey), unCryptoKey, castToCryptoKey, gTypeCryptoKey+  , CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair+  , CustomEvent(CustomEvent), unCustomEvent, castToCustomEvent, gTypeCustomEvent+  , DOMError(DOMError), unDOMError, IsDOMError, toDOMError, castToDOMError, gTypeDOMError+  , DOMImplementation(DOMImplementation), unDOMImplementation, castToDOMImplementation, gTypeDOMImplementation+  , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection+  , DOMParser(DOMParser), unDOMParser, castToDOMParser, gTypeDOMParser+  , DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, castToDOMSettableTokenList, gTypeDOMSettableTokenList+  , DOMStringList(DOMStringList), unDOMStringList, castToDOMStringList, gTypeDOMStringList+  , DOMStringMap(DOMStringMap), unDOMStringMap, castToDOMStringMap, gTypeDOMStringMap+  , DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, castToDOMTokenList, gTypeDOMTokenList+  , DataCue(DataCue), unDataCue, castToDataCue, gTypeDataCue+  , DataTransfer(DataTransfer), unDataTransfer, castToDataTransfer, gTypeDataTransfer+  , DataTransferItem(DataTransferItem), unDataTransferItem, castToDataTransferItem, gTypeDataTransferItem+  , DataTransferItemList(DataTransferItemList), unDataTransferItemList, castToDataTransferItemList, gTypeDataTransferItemList+  , Database(Database), unDatabase, castToDatabase, gTypeDatabase+  , DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope+  , DelayNode(DelayNode), unDelayNode, castToDelayNode, gTypeDelayNode+  , DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent+  , DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, castToDeviceOrientationEvent, gTypeDeviceOrientationEvent+  , DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, castToDeviceProximityEvent, gTypeDeviceProximityEvent+  , Document(Document), unDocument, IsDocument, toDocument, castToDocument, gTypeDocument+  , DocumentFragment(DocumentFragment), unDocumentFragment, castToDocumentFragment, gTypeDocumentFragment+  , DocumentType(DocumentType), unDocumentType, castToDocumentType, gTypeDocumentType+  , DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, castToDynamicsCompressorNode, gTypeDynamicsCompressorNode+  , EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, castToEXTBlendMinMax, gTypeEXTBlendMinMax+  , EXTFragDepth(EXTFragDepth), unEXTFragDepth, castToEXTFragDepth, gTypeEXTFragDepth+  , EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, castToEXTShaderTextureLOD, gTypeEXTShaderTextureLOD+  , EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic+  , EXTsRGB(EXTsRGB), unEXTsRGB, castToEXTsRGB, gTypeEXTsRGB+  , Element(Element), unElement, IsElement, toElement, castToElement, gTypeElement+  , Entity(Entity), unEntity, castToEntity, gTypeEntity+  , EntityReference(EntityReference), unEntityReference, castToEntityReference, gTypeEntityReference+  , ErrorEvent(ErrorEvent), unErrorEvent, castToErrorEvent, gTypeErrorEvent+  , Event(Event), unEvent, IsEvent, toEvent, castToEvent, gTypeEvent+  , EventListener(EventListener), unEventListener, castToEventListener, gTypeEventListener+  , EventSource(EventSource), unEventSource, castToEventSource, gTypeEventSource+  , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, castToEventTarget, gTypeEventTarget+  , File(File), unFile, castToFile, gTypeFile+  , FileError(FileError), unFileError, castToFileError, gTypeFileError+  , FileList(FileList), unFileList, castToFileList, gTypeFileList+  , FileReader(FileReader), unFileReader, castToFileReader, gTypeFileReader+  , FileReaderSync(FileReaderSync), unFileReaderSync, castToFileReaderSync, gTypeFileReaderSync+  , FocusEvent(FocusEvent), unFocusEvent, castToFocusEvent, gTypeFocusEvent+  , FontLoader(FontLoader), unFontLoader, castToFontLoader, gTypeFontLoader+  , FormData(FormData), unFormData, castToFormData, gTypeFormData+  , GainNode(GainNode), unGainNode, castToGainNode, gTypeGainNode+  , Gamepad(Gamepad), unGamepad, castToGamepad, gTypeGamepad+  , GamepadButton(GamepadButton), unGamepadButton, castToGamepadButton, gTypeGamepadButton+  , GamepadEvent(GamepadEvent), unGamepadEvent, castToGamepadEvent, gTypeGamepadEvent+  , Geolocation(Geolocation), unGeolocation, castToGeolocation, gTypeGeolocation+  , Geoposition(Geoposition), unGeoposition, castToGeoposition, gTypeGeoposition+  , HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, castToHTMLAllCollection, gTypeHTMLAllCollection+  , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement+  , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement+  , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement+  , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, castToHTMLAudioElement, gTypeHTMLAudioElement+  , HTMLBRElement(HTMLBRElement), unHTMLBRElement, castToHTMLBRElement, gTypeHTMLBRElement+  , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement+  , HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, castToHTMLBaseFontElement, gTypeHTMLBaseFontElement+  , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement+  , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement+  , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement+  , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, castToHTMLCollection, gTypeHTMLCollection+  , HTMLDListElement(HTMLDListElement), unHTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement+  , HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, castToHTMLDataListElement, gTypeHTMLDataListElement+  , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, castToHTMLDetailsElement, gTypeHTMLDetailsElement+  , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, castToHTMLDirectoryElement, gTypeHTMLDirectoryElement+  , HTMLDivElement(HTMLDivElement), unHTMLDivElement, castToHTMLDivElement, gTypeHTMLDivElement+  , HTMLDocument(HTMLDocument), unHTMLDocument, castToHTMLDocument, gTypeHTMLDocument+  , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, castToHTMLElement, gTypeHTMLElement+  , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement+  , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement+  , HTMLFontElement(HTMLFontElement), unHTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement+  , HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection+  , HTMLFormElement(HTMLFormElement), unHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement+  , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement+  , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, castToHTMLFrameSetElement, gTypeHTMLFrameSetElement+  , HTMLHRElement(HTMLHRElement), unHTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement+  , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement+  , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, castToHTMLHeadingElement, gTypeHTMLHeadingElement+  , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement+  , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement+  , HTMLImageElement(HTMLImageElement), unHTMLImageElement, castToHTMLImageElement, gTypeHTMLImageElement+  , HTMLInputElement(HTMLInputElement), unHTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement+  , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement+  , HTMLLIElement(HTMLLIElement), unHTMLLIElement, castToHTMLLIElement, gTypeHTMLLIElement+  , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, castToHTMLLabelElement, gTypeHTMLLabelElement+  , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement+  , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement+  , HTMLMapElement(HTMLMapElement), unHTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement+  , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, castToHTMLMarqueeElement, gTypeHTMLMarqueeElement+  , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement+  , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement+  , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, castToHTMLMetaElement, gTypeHTMLMetaElement+  , HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement+  , HTMLModElement(HTMLModElement), unHTMLModElement, castToHTMLModElement, gTypeHTMLModElement+  , HTMLOListElement(HTMLOListElement), unHTMLOListElement, castToHTMLOListElement, gTypeHTMLOListElement+  , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement+  , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, castToHTMLOptGroupElement, gTypeHTMLOptGroupElement+  , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement+  , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection+  , HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, castToHTMLOutputElement, gTypeHTMLOutputElement+  , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, castToHTMLParagraphElement, gTypeHTMLParagraphElement+  , HTMLParamElement(HTMLParamElement), unHTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement+  , HTMLPreElement(HTMLPreElement), unHTMLPreElement, castToHTMLPreElement, gTypeHTMLPreElement+  , HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, castToHTMLProgressElement, gTypeHTMLProgressElement+  , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, castToHTMLQuoteElement, gTypeHTMLQuoteElement+  , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement+  , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement+  , HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement+  , HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, castToHTMLSpanElement, gTypeHTMLSpanElement+  , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement+  , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement+  , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, castToHTMLTableCellElement, gTypeHTMLTableCellElement+  , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, castToHTMLTableColElement, gTypeHTMLTableColElement+  , HTMLTableElement(HTMLTableElement), unHTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement+  , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement+  , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement+  , HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, castToHTMLTemplateElement, gTypeHTMLTemplateElement+  , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement+  , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement+  , HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement+  , HTMLUListElement(HTMLUListElement), unHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement+  , HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, castToHTMLUnknownElement, gTypeHTMLUnknownElement+  , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement+  , HashChangeEvent(HashChangeEvent), unHashChangeEvent, castToHashChangeEvent, gTypeHashChangeEvent+  , History(History), unHistory, castToHistory, gTypeHistory+  , IDBAny(IDBAny), unIDBAny, castToIDBAny, gTypeIDBAny+  , IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, castToIDBCursor, gTypeIDBCursor+  , IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, castToIDBCursorWithValue, gTypeIDBCursorWithValue+  , IDBDatabase(IDBDatabase), unIDBDatabase, castToIDBDatabase, gTypeIDBDatabase+  , IDBFactory(IDBFactory), unIDBFactory, castToIDBFactory, gTypeIDBFactory+  , IDBIndex(IDBIndex), unIDBIndex, castToIDBIndex, gTypeIDBIndex+  , IDBKeyRange(IDBKeyRange), unIDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange+  , IDBObjectStore(IDBObjectStore), unIDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore+  , IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, castToIDBOpenDBRequest, gTypeIDBOpenDBRequest+  , IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, castToIDBRequest, gTypeIDBRequest+  , IDBTransaction(IDBTransaction), unIDBTransaction, castToIDBTransaction, gTypeIDBTransaction+  , IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent+  , ImageData(ImageData), unImageData, castToImageData, gTypeImageData+  , InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, castToInspectorFrontendHost, gTypeInspectorFrontendHost+  , InternalSettings(InternalSettings), unInternalSettings, castToInternalSettings, gTypeInternalSettings+  , Internals(Internals), unInternals, castToInternals, gTypeInternals+  , KeyboardEvent(KeyboardEvent), unKeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent+  , Location(Location), unLocation, castToLocation, gTypeLocation+  , MallocStatistics(MallocStatistics), unMallocStatistics, castToMallocStatistics, gTypeMallocStatistics+  , MediaController(MediaController), unMediaController, castToMediaController, gTypeMediaController+  , MediaControlsHost(MediaControlsHost), unMediaControlsHost, castToMediaControlsHost, gTypeMediaControlsHost+  , MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, castToMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode+  , MediaError(MediaError), unMediaError, castToMediaError, gTypeMediaError+  , MediaKeyError(MediaKeyError), unMediaKeyError, castToMediaKeyError, gTypeMediaKeyError+  , MediaKeyEvent(MediaKeyEvent), unMediaKeyEvent, castToMediaKeyEvent, gTypeMediaKeyEvent+  , MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent+  , MediaKeyNeededEvent(MediaKeyNeededEvent), unMediaKeyNeededEvent, castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent+  , MediaKeySession(MediaKeySession), unMediaKeySession, castToMediaKeySession, gTypeMediaKeySession+  , MediaKeys(MediaKeys), unMediaKeys, castToMediaKeys, gTypeMediaKeys+  , MediaList(MediaList), unMediaList, castToMediaList, gTypeMediaList+  , MediaQueryList(MediaQueryList), unMediaQueryList, castToMediaQueryList, gTypeMediaQueryList+  , MediaSource(MediaSource), unMediaSource, castToMediaSource, gTypeMediaSource+  , MediaSourceStates(MediaSourceStates), unMediaSourceStates, castToMediaSourceStates, gTypeMediaSourceStates+  , MediaStream(MediaStream), unMediaStream, castToMediaStream, gTypeMediaStream+  , MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, castToMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode+  , MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode+  , MediaStreamCapabilities(MediaStreamCapabilities), unMediaStreamCapabilities, IsMediaStreamCapabilities, toMediaStreamCapabilities, castToMediaStreamCapabilities, gTypeMediaStreamCapabilities+  , MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, castToMediaStreamEvent, gTypeMediaStreamEvent+  , MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack+  , MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent+  , MediaTrackConstraint(MediaTrackConstraint), unMediaTrackConstraint, castToMediaTrackConstraint, gTypeMediaTrackConstraint+  , MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, castToMediaTrackConstraintSet, gTypeMediaTrackConstraintSet+  , MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, castToMediaTrackConstraints, gTypeMediaTrackConstraints+  , MemoryInfo(MemoryInfo), unMemoryInfo, castToMemoryInfo, gTypeMemoryInfo+  , MessageChannel(MessageChannel), unMessageChannel, castToMessageChannel, gTypeMessageChannel+  , MessageEvent(MessageEvent), unMessageEvent, castToMessageEvent, gTypeMessageEvent+  , MessagePort(MessagePort), unMessagePort, castToMessagePort, gTypeMessagePort+  , MimeType(MimeType), unMimeType, castToMimeType, gTypeMimeType+  , MimeTypeArray(MimeTypeArray), unMimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray+  , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, castToMouseEvent, gTypeMouseEvent+  , MutationEvent(MutationEvent), unMutationEvent, castToMutationEvent, gTypeMutationEvent+  , MutationObserver(MutationObserver), unMutationObserver, castToMutationObserver, gTypeMutationObserver+  , MutationRecord(MutationRecord), unMutationRecord, castToMutationRecord, gTypeMutationRecord+  , NamedNodeMap(NamedNodeMap), unNamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap+  , Navigator(Navigator), unNavigator, castToNavigator, gTypeNavigator+  , NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, castToNavigatorUserMediaError, gTypeNavigatorUserMediaError+  , Node(Node), unNode, IsNode, toNode, castToNode, gTypeNode+  , NodeFilter(NodeFilter), unNodeFilter, castToNodeFilter, gTypeNodeFilter+  , NodeIterator(NodeIterator), unNodeIterator, castToNodeIterator, gTypeNodeIterator+  , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, castToNodeList, gTypeNodeList+  , Notification(Notification), unNotification, castToNotification, gTypeNotification+  , NotificationCenter(NotificationCenter), unNotificationCenter, castToNotificationCenter, gTypeNotificationCenter+  , OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, castToOESElementIndexUint, gTypeOESElementIndexUint+  , OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, castToOESStandardDerivatives, gTypeOESStandardDerivatives+  , OESTextureFloat(OESTextureFloat), unOESTextureFloat, castToOESTextureFloat, gTypeOESTextureFloat+  , OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, castToOESTextureFloatLinear, gTypeOESTextureFloatLinear+  , OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, castToOESTextureHalfFloat, gTypeOESTextureHalfFloat+  , OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, castToOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear+  , OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, castToOESVertexArrayObject, gTypeOESVertexArrayObject+  , OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent+  , OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, castToOfflineAudioContext, gTypeOfflineAudioContext+  , OscillatorNode(OscillatorNode), unOscillatorNode, castToOscillatorNode, gTypeOscillatorNode+  , OverflowEvent(OverflowEvent), unOverflowEvent, castToOverflowEvent, gTypeOverflowEvent+  , PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, castToPageTransitionEvent, gTypePageTransitionEvent+  , PannerNode(PannerNode), unPannerNode, castToPannerNode, gTypePannerNode+  , Path2D(Path2D), unPath2D, castToPath2D, gTypePath2D+  , Performance(Performance), unPerformance, castToPerformance, gTypePerformance+  , PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry+  , PerformanceEntryList(PerformanceEntryList), unPerformanceEntryList, castToPerformanceEntryList, gTypePerformanceEntryList+  , PerformanceMark(PerformanceMark), unPerformanceMark, castToPerformanceMark, gTypePerformanceMark+  , PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, castToPerformanceMeasure, gTypePerformanceMeasure+  , PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, castToPerformanceNavigation, gTypePerformanceNavigation+  , PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, castToPerformanceResourceTiming, gTypePerformanceResourceTiming+  , PerformanceTiming(PerformanceTiming), unPerformanceTiming, castToPerformanceTiming, gTypePerformanceTiming+  , PeriodicWave(PeriodicWave), unPeriodicWave, castToPeriodicWave, gTypePeriodicWave+  , Plugin(Plugin), unPlugin, castToPlugin, gTypePlugin+  , PluginArray(PluginArray), unPluginArray, castToPluginArray, gTypePluginArray+  , PopStateEvent(PopStateEvent), unPopStateEvent, castToPopStateEvent, gTypePopStateEvent+  , PositionError(PositionError), unPositionError, castToPositionError, gTypePositionError+  , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, castToProcessingInstruction, gTypeProcessingInstruction+  , ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, castToProgressEvent, gTypeProgressEvent+  , QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement+  , RGBColor(RGBColor), unRGBColor, castToRGBColor, gTypeRGBColor+  , RTCConfiguration(RTCConfiguration), unRTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration+  , RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender+  , RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent+  , RTCDataChannel(RTCDataChannel), unRTCDataChannel, castToRTCDataChannel, gTypeRTCDataChannel+  , RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, castToRTCDataChannelEvent, gTypeRTCDataChannelEvent+  , RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, castToRTCIceCandidate, gTypeRTCIceCandidate+  , RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent+  , RTCIceServer(RTCIceServer), unRTCIceServer, castToRTCIceServer, gTypeRTCIceServer+  , RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, castToRTCPeerConnection, gTypeRTCPeerConnection+  , RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, castToRTCSessionDescription, gTypeRTCSessionDescription+  , RTCStatsReport(RTCStatsReport), unRTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport+  , RTCStatsResponse(RTCStatsResponse), unRTCStatsResponse, castToRTCStatsResponse, gTypeRTCStatsResponse+  , RadioNodeList(RadioNodeList), unRadioNodeList, castToRadioNodeList, gTypeRadioNodeList+  , Range(Range), unRange, castToRange, gTypeRange+  , ReadableStream(ReadableStream), unReadableStream, castToReadableStream, gTypeReadableStream+  , Rect(Rect), unRect, castToRect, gTypeRect+  , SQLError(SQLError), unSQLError, castToSQLError, gTypeSQLError+  , SQLResultSet(SQLResultSet), unSQLResultSet, castToSQLResultSet, gTypeSQLResultSet+  , SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, castToSQLResultSetRowList, gTypeSQLResultSetRowList+  , SQLTransaction(SQLTransaction), unSQLTransaction, castToSQLTransaction, gTypeSQLTransaction+  , SVGAElement(SVGAElement), unSVGAElement, castToSVGAElement, gTypeSVGAElement+  , SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, castToSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement+  , SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, castToSVGAltGlyphElement, gTypeSVGAltGlyphElement+  , SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, castToSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement+  , SVGAngle(SVGAngle), unSVGAngle, castToSVGAngle, gTypeSVGAngle+  , SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, castToSVGAnimateColorElement, gTypeSVGAnimateColorElement+  , SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, castToSVGAnimateElement, gTypeSVGAnimateElement+  , SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, castToSVGAnimateMotionElement, gTypeSVGAnimateMotionElement+  , SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, castToSVGAnimateTransformElement, gTypeSVGAnimateTransformElement+  , SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle+  , SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean+  , SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration+  , SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, castToSVGAnimatedInteger, gTypeSVGAnimatedInteger+  , SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength+  , SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList+  , SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, castToSVGAnimatedNumber, gTypeSVGAnimatedNumber+  , SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList+  , SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, castToSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio+  , SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect+  , SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, castToSVGAnimatedString, gTypeSVGAnimatedString+  , SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList+  , SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, castToSVGAnimationElement, gTypeSVGAnimationElement+  , SVGCircleElement(SVGCircleElement), unSVGCircleElement, castToSVGCircleElement, gTypeSVGCircleElement+  , SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, castToSVGClipPathElement, gTypeSVGClipPathElement+  , SVGColor(SVGColor), unSVGColor, IsSVGColor, toSVGColor, castToSVGColor, gTypeSVGColor+  , SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, castToSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement+  , SVGCursorElement(SVGCursorElement), unSVGCursorElement, castToSVGCursorElement, gTypeSVGCursorElement+  , SVGDefsElement(SVGDefsElement), unSVGDefsElement, castToSVGDefsElement, gTypeSVGDefsElement+  , SVGDescElement(SVGDescElement), unSVGDescElement, castToSVGDescElement, gTypeSVGDescElement+  , SVGDocument(SVGDocument), unSVGDocument, castToSVGDocument, gTypeSVGDocument+  , SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, castToSVGElement, gTypeSVGElement+  , SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement+  , SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, castToSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired+  , SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement+  , SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, castToSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement+  , SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, castToSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement+  , SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, castToSVGFECompositeElement, gTypeSVGFECompositeElement+  , SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement+  , SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement+  , SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement+  , SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement+  , SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement+  , SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, castToSVGFEFloodElement, gTypeSVGFEFloodElement+  , SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, castToSVGFEFuncAElement, gTypeSVGFEFuncAElement+  , SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, castToSVGFEFuncBElement, gTypeSVGFEFuncBElement+  , SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, castToSVGFEFuncGElement, gTypeSVGFEFuncGElement+  , SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, castToSVGFEFuncRElement, gTypeSVGFEFuncRElement+  , SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement+  , SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement+  , SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, castToSVGFEMergeElement, gTypeSVGFEMergeElement+  , SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement+  , SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement+  , SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, castToSVGFEOffsetElement, gTypeSVGFEOffsetElement+  , SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, castToSVGFEPointLightElement, gTypeSVGFEPointLightElement+  , SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, castToSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement+  , SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, castToSVGFESpotLightElement, gTypeSVGFESpotLightElement+  , SVGFETileElement(SVGFETileElement), unSVGFETileElement, castToSVGFETileElement, gTypeSVGFETileElement+  , SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement+  , SVGFilterElement(SVGFilterElement), unSVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement+  , SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, castToSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes+  , SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, castToSVGFitToViewBox, gTypeSVGFitToViewBox+  , SVGFontElement(SVGFontElement), unSVGFontElement, castToSVGFontElement, gTypeSVGFontElement+  , SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, castToSVGFontFaceElement, gTypeSVGFontFaceElement+  , SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, castToSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement+  , SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, castToSVGFontFaceNameElement, gTypeSVGFontFaceNameElement+  , SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, castToSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement+  , SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, castToSVGFontFaceUriElement, gTypeSVGFontFaceUriElement+  , SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, castToSVGForeignObjectElement, gTypeSVGForeignObjectElement+  , SVGGElement(SVGGElement), unSVGGElement, castToSVGGElement, gTypeSVGGElement+  , SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, castToSVGGlyphElement, gTypeSVGGlyphElement+  , SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, castToSVGGlyphRefElement, gTypeSVGGlyphRefElement+  , SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, castToSVGGradientElement, gTypeSVGGradientElement+  , SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, castToSVGGraphicsElement, gTypeSVGGraphicsElement+  , SVGHKernElement(SVGHKernElement), unSVGHKernElement, castToSVGHKernElement, gTypeSVGHKernElement+  , SVGImageElement(SVGImageElement), unSVGImageElement, castToSVGImageElement, gTypeSVGImageElement+  , SVGLength(SVGLength), unSVGLength, castToSVGLength, gTypeSVGLength+  , SVGLengthList(SVGLengthList), unSVGLengthList, castToSVGLengthList, gTypeSVGLengthList+  , SVGLineElement(SVGLineElement), unSVGLineElement, castToSVGLineElement, gTypeSVGLineElement+  , SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, castToSVGLinearGradientElement, gTypeSVGLinearGradientElement+  , SVGMPathElement(SVGMPathElement), unSVGMPathElement, castToSVGMPathElement, gTypeSVGMPathElement+  , SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement+  , SVGMaskElement(SVGMaskElement), unSVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement+  , SVGMatrix(SVGMatrix), unSVGMatrix, castToSVGMatrix, gTypeSVGMatrix+  , SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, castToSVGMetadataElement, gTypeSVGMetadataElement+  , SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, castToSVGMissingGlyphElement, gTypeSVGMissingGlyphElement+  , SVGNumber(SVGNumber), unSVGNumber, castToSVGNumber, gTypeSVGNumber+  , SVGNumberList(SVGNumberList), unSVGNumberList, castToSVGNumberList, gTypeSVGNumberList+  , SVGPaint(SVGPaint), unSVGPaint, castToSVGPaint, gTypeSVGPaint+  , SVGPathElement(SVGPathElement), unSVGPathElement, castToSVGPathElement, gTypeSVGPathElement+  , SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg+  , SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs+  , SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel+  , SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, castToSVGPathSegClosePath, gTypeSVGPathSegClosePath+  , SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs+  , SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel+  , SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, castToSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs+  , SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, castToSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel+  , SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs+  , SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel+  , SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, castToSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs+  , SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, castToSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel+  , SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs+  , SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, castToSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs+  , SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, castToSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel+  , SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, castToSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel+  , SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, castToSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs+  , SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, castToSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel+  , SVGPathSegList(SVGPathSegList), unSVGPathSegList, castToSVGPathSegList, gTypeSVGPathSegList+  , SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs+  , SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, castToSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel+  , SVGPatternElement(SVGPatternElement), unSVGPatternElement, castToSVGPatternElement, gTypeSVGPatternElement+  , SVGPoint(SVGPoint), unSVGPoint, castToSVGPoint, gTypeSVGPoint+  , SVGPointList(SVGPointList), unSVGPointList, castToSVGPointList, gTypeSVGPointList+  , SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement+  , SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, castToSVGPolylineElement, gTypeSVGPolylineElement+  , SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio+  , SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, castToSVGRadialGradientElement, gTypeSVGRadialGradientElement+  , SVGRect(SVGRect), unSVGRect, castToSVGRect, gTypeSVGRect+  , SVGRectElement(SVGRectElement), unSVGRectElement, castToSVGRectElement, gTypeSVGRectElement+  , SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, castToSVGRenderingIntent, gTypeSVGRenderingIntent+  , SVGSVGElement(SVGSVGElement), unSVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement+  , SVGScriptElement(SVGScriptElement), unSVGScriptElement, castToSVGScriptElement, gTypeSVGScriptElement+  , SVGSetElement(SVGSetElement), unSVGSetElement, castToSVGSetElement, gTypeSVGSetElement+  , SVGStopElement(SVGStopElement), unSVGStopElement, castToSVGStopElement, gTypeSVGStopElement+  , SVGStringList(SVGStringList), unSVGStringList, castToSVGStringList, gTypeSVGStringList+  , SVGStyleElement(SVGStyleElement), unSVGStyleElement, castToSVGStyleElement, gTypeSVGStyleElement+  , SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, castToSVGSwitchElement, gTypeSVGSwitchElement+  , SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, castToSVGSymbolElement, gTypeSVGSymbolElement+  , SVGTRefElement(SVGTRefElement), unSVGTRefElement, castToSVGTRefElement, gTypeSVGTRefElement+  , SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, castToSVGTSpanElement, gTypeSVGTSpanElement+  , SVGTests(SVGTests), unSVGTests, castToSVGTests, gTypeSVGTests+  , SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, castToSVGTextContentElement, gTypeSVGTextContentElement+  , SVGTextElement(SVGTextElement), unSVGTextElement, castToSVGTextElement, gTypeSVGTextElement+  , SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, castToSVGTextPathElement, gTypeSVGTextPathElement+  , SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, castToSVGTextPositioningElement, gTypeSVGTextPositioningElement+  , SVGTitleElement(SVGTitleElement), unSVGTitleElement, castToSVGTitleElement, gTypeSVGTitleElement+  , SVGTransform(SVGTransform), unSVGTransform, castToSVGTransform, gTypeSVGTransform+  , SVGTransformList(SVGTransformList), unSVGTransformList, castToSVGTransformList, gTypeSVGTransformList+  , SVGURIReference(SVGURIReference), unSVGURIReference, castToSVGURIReference, gTypeSVGURIReference+  , SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, castToSVGUnitTypes, gTypeSVGUnitTypes+  , SVGUseElement(SVGUseElement), unSVGUseElement, castToSVGUseElement, gTypeSVGUseElement+  , SVGVKernElement(SVGVKernElement), unSVGVKernElement, castToSVGVKernElement, gTypeSVGVKernElement+  , SVGViewElement(SVGViewElement), unSVGViewElement, castToSVGViewElement, gTypeSVGViewElement+  , SVGViewSpec(SVGViewSpec), unSVGViewSpec, castToSVGViewSpec, gTypeSVGViewSpec+  , SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, castToSVGZoomAndPan, gTypeSVGZoomAndPan+  , SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, castToSVGZoomEvent, gTypeSVGZoomEvent+  , Screen(Screen), unScreen, castToScreen, gTypeScreen+  , ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, castToScriptProcessorNode, gTypeScriptProcessorNode+  , ScriptProfile(ScriptProfile), unScriptProfile, castToScriptProfile, gTypeScriptProfile+  , ScriptProfileNode(ScriptProfileNode), unScriptProfileNode, castToScriptProfileNode, gTypeScriptProfileNode+  , SecurityPolicy(SecurityPolicy), unSecurityPolicy, castToSecurityPolicy, gTypeSecurityPolicy+  , SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, castToSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent+  , Selection(Selection), unSelection, castToSelection, gTypeSelection+  , SourceBuffer(SourceBuffer), unSourceBuffer, castToSourceBuffer, gTypeSourceBuffer+  , SourceBufferList(SourceBufferList), unSourceBufferList, castToSourceBufferList, gTypeSourceBufferList+  , SourceInfo(SourceInfo), unSourceInfo, castToSourceInfo, gTypeSourceInfo+  , SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis+  , SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent+  , SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, castToSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance+  , SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, castToSpeechSynthesisVoice, gTypeSpeechSynthesisVoice+  , Storage(Storage), unStorage, castToStorage, gTypeStorage+  , StorageEvent(StorageEvent), unStorageEvent, castToStorageEvent, gTypeStorageEvent+  , StorageInfo(StorageInfo), unStorageInfo, castToStorageInfo, gTypeStorageInfo+  , StorageQuota(StorageQuota), unStorageQuota, castToStorageQuota, gTypeStorageQuota+  , StyleMedia(StyleMedia), unStyleMedia, castToStyleMedia, gTypeStyleMedia+  , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, castToStyleSheet, gTypeStyleSheet+  , StyleSheetList(StyleSheetList), unStyleSheetList, castToStyleSheetList, gTypeStyleSheetList+  , SubtleCrypto(SubtleCrypto), unSubtleCrypto, castToSubtleCrypto, gTypeSubtleCrypto+  , Text(Text), unText, IsText, toText, castToText, gTypeText+  , TextEvent(TextEvent), unTextEvent, castToTextEvent, gTypeTextEvent+  , TextMetrics(TextMetrics), unTextMetrics, castToTextMetrics, gTypeTextMetrics+  , TextTrack(TextTrack), unTextTrack, castToTextTrack, gTypeTextTrack+  , TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, castToTextTrackCue, gTypeTextTrackCue+  , TextTrackCueList(TextTrackCueList), unTextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList+  , TextTrackList(TextTrackList), unTextTrackList, castToTextTrackList, gTypeTextTrackList+  , TimeRanges(TimeRanges), unTimeRanges, castToTimeRanges, gTypeTimeRanges+  , Touch(Touch), unTouch, castToTouch, gTypeTouch+  , TouchEvent(TouchEvent), unTouchEvent, castToTouchEvent, gTypeTouchEvent+  , TouchList(TouchList), unTouchList, castToTouchList, gTypeTouchList+  , TrackEvent(TrackEvent), unTrackEvent, castToTrackEvent, gTypeTrackEvent+  , TransitionEvent(TransitionEvent), unTransitionEvent, castToTransitionEvent, gTypeTransitionEvent+  , TreeWalker(TreeWalker), unTreeWalker, castToTreeWalker, gTypeTreeWalker+  , TypeConversions(TypeConversions), unTypeConversions, castToTypeConversions, gTypeTypeConversions+  , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, castToUIEvent, gTypeUIEvent+  , UIRequestEvent(UIRequestEvent), unUIRequestEvent, castToUIRequestEvent, gTypeUIRequestEvent+  , URL(URL), unURL, castToURL, gTypeURL+  , URLUtils(URLUtils), unURLUtils, castToURLUtils, gTypeURLUtils+  , UserMessageHandler(UserMessageHandler), unUserMessageHandler, castToUserMessageHandler, gTypeUserMessageHandler+  , UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, castToUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace+  , VTTCue(VTTCue), unVTTCue, castToVTTCue, gTypeVTTCue+  , VTTRegion(VTTRegion), unVTTRegion, castToVTTRegion, gTypeVTTRegion+  , VTTRegionList(VTTRegionList), unVTTRegionList, castToVTTRegionList, gTypeVTTRegionList+  , ValidityState(ValidityState), unValidityState, castToValidityState, gTypeValidityState+  , VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, castToVideoPlaybackQuality, gTypeVideoPlaybackQuality+  , VideoStreamTrack(VideoStreamTrack), unVideoStreamTrack, castToVideoStreamTrack, gTypeVideoStreamTrack+  , VideoTrack(VideoTrack), unVideoTrack, castToVideoTrack, gTypeVideoTrack+  , VideoTrackList(VideoTrackList), unVideoTrackList, castToVideoTrackList, gTypeVideoTrackList+  , WaveShaperNode(WaveShaperNode), unWaveShaperNode, castToWaveShaperNode, gTypeWaveShaperNode+  , WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, castToWebGL2RenderingContext, gTypeWebGL2RenderingContext+  , WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, castToWebGLActiveInfo, gTypeWebGLActiveInfo+  , WebGLBuffer(WebGLBuffer), unWebGLBuffer, castToWebGLBuffer, gTypeWebGLBuffer+  , WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, castToWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC+  , WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC+  , WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC+  , WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, castToWebGLContextAttributes, gTypeWebGLContextAttributes+  , WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, castToWebGLContextEvent, gTypeWebGLContextEvent+  , WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, castToWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo+  , WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders+  , WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, castToWebGLDepthTexture, gTypeWebGLDepthTexture+  , WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, castToWebGLDrawBuffers, gTypeWebGLDrawBuffers+  , WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, castToWebGLFramebuffer, gTypeWebGLFramebuffer+  , WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, castToWebGLLoseContext, gTypeWebGLLoseContext+  , WebGLProgram(WebGLProgram), unWebGLProgram, castToWebGLProgram, gTypeWebGLProgram+  , WebGLQuery(WebGLQuery), unWebGLQuery, castToWebGLQuery, gTypeWebGLQuery+  , WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, castToWebGLRenderbuffer, gTypeWebGLRenderbuffer+  , WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, castToWebGLRenderingContext, gTypeWebGLRenderingContext+  , WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase+  , WebGLSampler(WebGLSampler), unWebGLSampler, castToWebGLSampler, gTypeWebGLSampler+  , WebGLShader(WebGLShader), unWebGLShader, castToWebGLShader, gTypeWebGLShader+  , WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, castToWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat+  , WebGLSync(WebGLSync), unWebGLSync, castToWebGLSync, gTypeWebGLSync+  , WebGLTexture(WebGLTexture), unWebGLTexture, castToWebGLTexture, gTypeWebGLTexture+  , WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, castToWebGLTransformFeedback, gTypeWebGLTransformFeedback+  , WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, castToWebGLUniformLocation, gTypeWebGLUniformLocation+  , WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, castToWebGLVertexArrayObject, gTypeWebGLVertexArrayObject+  , WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, castToWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES+  , WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, castToWebKitAnimationEvent, gTypeWebKitAnimationEvent+  , WebKitCSSFilterValue(WebKitCSSFilterValue), unWebKitCSSFilterValue, castToWebKitCSSFilterValue, gTypeWebKitCSSFilterValue+  , WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix+  , WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule+  , WebKitCSSTransformValue(WebKitCSSTransformValue), unWebKitCSSTransformValue, castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue+  , WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule+  , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow+  , WebKitNamespace(WebKitNamespace), unWebKitNamespace, castToWebKitNamespace, gTypeWebKitNamespace+  , WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, castToWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent+  , WebKitPoint(WebKitPoint), unWebKitPoint, castToWebKitPoint, gTypeWebKitPoint+  , WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, castToWebKitTransitionEvent, gTypeWebKitTransitionEvent+  , WebSocket(WebSocket), unWebSocket, castToWebSocket, gTypeWebSocket+  , WheelEvent(WheelEvent), unWheelEvent, castToWheelEvent, gTypeWheelEvent+  , Window(Window), unWindow, castToWindow, gTypeWindow+  , WindowBase64(WindowBase64), unWindowBase64, castToWindowBase64, gTypeWindowBase64+  , WindowTimers(WindowTimers), unWindowTimers, castToWindowTimers, gTypeWindowTimers+  , Worker(Worker), unWorker, castToWorker, gTypeWorker+  , WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope+  , WorkerLocation(WorkerLocation), unWorkerLocation, castToWorkerLocation, gTypeWorkerLocation+  , WorkerNavigator(WorkerNavigator), unWorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator+  , XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest+  , XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, castToXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent+  , XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, castToXMLHttpRequestUpload, gTypeXMLHttpRequestUpload+  , XMLSerializer(XMLSerializer), unXMLSerializer, castToXMLSerializer, gTypeXMLSerializer+  , XPathEvaluator(XPathEvaluator), unXPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator+  , XPathExpression(XPathExpression), unXPathExpression, castToXPathExpression, gTypeXPathExpression+  , XPathNSResolver(XPathNSResolver), unXPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver+  , XPathResult(XPathResult), unXPathResult, castToXPathResult, gTypeXPathResult+  , XSLTProcessor(XSLTProcessor), unXSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor+-- AUTO GENERATION ENDS HERE+  ) where++import Prelude ()+import Prelude.Compat hiding((!!))+import qualified Data.Text as T (unpack, Text)+import Control.Monad.IO.Class (MonadIO(..))+import Data.Int (Int8, Int16, Int32, Int64)+import Data.Word (Word8, Word16, Word32, Word64)+import Language.Javascript.JSaddle+       (Object(..), valToBool, valMakeNull, valToNumber, (!!), js,+        JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined',+        valToStr, jsg, ToJSString(..), strToText, MakeObject(..),+        Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef)+import Foreign.Ptr (nullPtr)+import Control.Lens.Operators ((^.))+import Data.Maybe (catMaybes)+import Language.Javascript.JSaddle.Classes (ToJSVal(..))+import Control.Monad ((>=>))+import Data.Coerce (coerce, Coercible)+import Control.Monad.Trans.Reader (ReaderT(..), ask)+import Control.Exception (bracket)++type DOM = JSM+type DOMContext = JSContextRef++askDOM :: MonadDOM m => m DOMContext+askDOM = liftDOM ask++runDOM :: DOM a -> DOMContext -> IO a+runDOM = runReaderT++class (Applicative m, MonadIO m) => MonadDOM m where+    liftDOM :: JSM a -> m a+    {-# MINIMAL liftDOM #-}++instance MonadDOM JSM where+    liftDOM = id+    {-# INLINE liftDOM #-}++#ifdef ghcjs_HOST_OS+postGUIAsync :: IO () -> IO ()+postGUIAsync = id++postGUISync :: IO a -> IO a+postGUISync = id+#endif++propagateGError :: a -> a+propagateGError = id++newtype GType = GType Object++typeInstanceIsA :: ToJSVal value => value -> GType -> JSM Bool+typeInstanceIsA o (GType t) = o `instanceOf` t++-- The usage of foreignPtrToPtr should be safe as the evaluation will only be+-- forced if the object is used afterwards+--+castTo :: (IsGObject obj, IsGObject obj') => JSM GType -> String+                                                -> obj -> JSM obj'+castTo gtype objTypeName obj = do+  gtype' <- gtype+  let gobj@(GObject objRef) = toGObject obj+  typeInstanceIsA objRef gtype' >>= \case+    True  -> return $ unsafeCastGObject gobj+    False -> error $ "Cannot cast object to " ++ objTypeName++-- | Determine if this is an instance of a particular type+--+isA :: IsGObject o => o -> GType -> JSM Bool+isA obj = typeInstanceIsA (unGObject $ toGObject obj)++newtype GObject = GObject { unGObject :: JSVal }++class (ToJSVal o, FromJSVal o) => IsGObject o where+  -- | Safe upcast.+  toGObject         :: o -> GObject+  -- | Unchecked downcast.+  unsafeCastGObject :: GObject -> o++class PToJSVal o where+  pToJSVal :: o -> JSVal++class PFromJSVal o where+  pFromJSVal :: JSVal -> o++--class ToJSVal o where+--  toJSVal :: o -> JSM JSVal++class FromJSVal o where+    fromJSVal :: JSVal -> JSM (Maybe o)+    fromJSVal = maybeNullOrUndefined' fromJSValUnchecked++    fromJSValUnchecked :: JSVal -> JSM o+    fromJSValUnchecked v =+        fromJSVal v >>= \case+            Nothing -> error "fromJSValUnchecked"+            Just r  -> return r++fromJSArray :: FromJSVal o => JSVal -> JSM [Maybe o]+fromJSArray a = do+    l <- a ^. js "length" >>= valToNumber+    mapM (\i -> a !! i >>= fromJSVal) [0..round l - 1]++fromJSArrayUnchecked :: FromJSVal o => JSVal -> JSM [o]+fromJSArrayUnchecked a = do+    l <- a ^. js "length" >>= valToNumber+    mapM (\i -> a !! i >>= fromJSValUnchecked) [0..round l - 1]++-- newtype Nullable a = Nullable JSVal++nullableToMaybe :: FromJSVal a => JSVal -> JSM (Maybe a)+nullableToMaybe = fromJSVal+{-# INLINE nullableToMaybe #-}+--+maybeToNullable :: ToJSVal a => Maybe a -> JSM JSVal+maybeToNullable Nothing = valMakeNull+maybeToNullable (Just a) = toJSVal a+{-# INLINE maybeToNullable #-}++instance PToJSVal GObject where+  pToJSVal = unGObject+  {-# INLINE pToJSVal #-}++instance PFromJSVal GObject where+  pFromJSVal = GObject+  {-# INLINE pFromJSVal #-}++instance ToJSVal GObject where+  toJSVal = return . unGObject+  {-# INLINE toJSVal #-}++instance FromJSVal GObject where+  fromJSVal val = fmap GObject <$> maybeNullOrUndefined val+  {-# INLINE fromJSVal #-}++--instance IsGObject o => PToJSVal o where+--  pToJSVal = unGObject . toGObject+--  {-# INLINE pToJSVal #-}+--+--instance IsGObject o => PFromJSVal o where+--  pFromJSVal = unsafeCastGObject . GObject . castRef+--  {-# INLINE pFromJSVal #-}+--+--instance IsGObject o => ToJSVal o where+--  toJSVal = return . unGObject . toGObject+--  {-# INLINE toJSVal #-}+--+--instance IsGObject o => FromJSVal o where+--  fromJSVal = return . fmap (unsafeCastGObject . GObject . castRef) . maybeJSNullOrUndefined+--  {-# INLINE fromJSVal #-}++instance IsGObject GObject where+  toGObject = id+  {-# INLINE toGObject #-}+  unsafeCastGObject = id+  {-# INLINE unsafeCastGObject #-}++castToGObject :: IsGObject obj => obj -> JSM obj+castToGObject = return++#ifdef ghcjs_HOST_OS+foreign import javascript unsafe "object" gTypeGObject :: GType+#else+gTypeGObject :: GType+gTypeGObject = error "gTypeGObject: only available in JavaScript"+#endif++objectToString :: (IsGObject self, FromJSString result) => self -> JSM result+objectToString self = fromJSValUnchecked (unGObject $ toGObject self)++-- | Fastest string type to use when you just+--   want to take a string from the DOM then+--   give it back as is.+type DOMString = JSString++class FromJSVal s => FromJSString s where+    fromJSString :: JSString -> JSM s++fromJSStringArray :: FromJSString s => JSVal -> JSM [s]+fromJSStringArray a = do+    l <- a ^. js "length" >>= valToNumber+    mapM (\i -> a !! i >>= valToStr >>= fromJSString) [0..round l - 1]++--fromJSString :: FromJSString a => JSString -> a+--fromJSString a = pFromJSVal . pToJSVal+--{-# INLINE fromJSString #-}++toMaybeJSString :: ToJSString a => Maybe a -> JSM JSVal+toMaybeJSString Nothing = valMakeNull+toMaybeJSString (Just a) = toJSVal (toJSString a)+{-# INLINE toMaybeJSString #-}++fromMaybeJSString :: FromJSString a => JSVal -> JSM (Maybe a)+fromMaybeJSString = maybeNullOrUndefined' (valToStr >=> fromJSString)+{-# INLINE fromMaybeJSString #-}++instance FromJSVal JSVal where+    fromJSValUnchecked = return+instance FromJSVal Double where+    fromJSValUnchecked = valToNumber+instance FromJSVal Float where+    fromJSValUnchecked v = realToFrac <$> valToNumber v+instance FromJSVal Int where+    fromJSValUnchecked v = round <$> valToNumber v+instance FromJSVal Int32 where+    fromJSValUnchecked v = round <$> valToNumber v+instance FromJSVal Int64 where+    fromJSValUnchecked v = round <$> valToNumber v+instance FromJSVal Word where+    fromJSValUnchecked v = round <$> valToNumber v+instance FromJSVal Word32 where+    fromJSValUnchecked v = round <$> valToNumber v+instance FromJSVal Word64 where+    fromJSValUnchecked v = round <$> valToNumber v+instance FromJSVal Bool where+    fromJSValUnchecked = valToBool+instance FromJSVal T.Text where+    fromJSValUnchecked v = valToStr v >>= strToText+instance FromJSString T.Text where+    fromJSString = strToText+instance FromJSVal String where+    fromJSValUnchecked v = T.unpack <$> (valToStr v >>= strToText)+instance FromJSString String where+    fromJSString v = T.unpack <$> strToText v+instance FromJSVal JSString where+    fromJSValUnchecked = valToStr+instance FromJSString JSString where+    fromJSString = return++type ToDOMString s = ToJSString s+type FromDOMString s = FromJSString s++type IsDOMString s = (ToDOMString s, FromDOMString s)++-- Callbacks+newtype Callback a = Callback Function++withCallback :: (MonadDOM m, Coercible c Function)+             => JSM c -> (c -> JSM a) -> m a+withCallback aquire f = do+    jsCtx <- liftDOM ask+    liftIO $ bracket+        (runReaderT aquire jsCtx)+        (freeFunction . coerce)+        (\t -> runReaderT (f t) jsCtx)++newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ()))+instance ToJSVal AudioBufferCallback where toJSVal (AudioBufferCallback (Callback r)) = toJSVal r+newtype DatabaseCallback = DatabaseCallback (Callback (JSVal -> IO ()))+instance ToJSVal DatabaseCallback where toJSVal (DatabaseCallback (Callback r)) = toJSVal r+newtype MediaQueryListListener = MediaQueryListListener (Callback (JSVal -> IO ()))+instance ToJSVal MediaQueryListListener where toJSVal (MediaQueryListListener (Callback r)) = toJSVal r+newtype MediaStreamTrackSourcesCallback = MediaStreamTrackSourcesCallback (Callback (JSVal -> IO ()))+instance ToJSVal MediaStreamTrackSourcesCallback where toJSVal (MediaStreamTrackSourcesCallback (Callback r)) = toJSVal r+newtype NavigatorUserMediaErrorCallback = NavigatorUserMediaErrorCallback (Callback (JSVal -> IO ()))+instance ToJSVal NavigatorUserMediaErrorCallback where toJSVal (NavigatorUserMediaErrorCallback (Callback r)) = toJSVal r+newtype NavigatorUserMediaSuccessCallback = NavigatorUserMediaSuccessCallback (Callback (JSVal -> IO ()))+instance ToJSVal NavigatorUserMediaSuccessCallback where toJSVal (NavigatorUserMediaSuccessCallback (Callback r)) = toJSVal r+newtype NotificationPermissionCallback permissions = NotificationPermissionCallback (Callback (JSVal -> IO ()))+instance ToJSVal (NotificationPermissionCallback permissions) where toJSVal (NotificationPermissionCallback (Callback r)) = toJSVal r+newtype PositionCallback = PositionCallback (Callback (JSVal -> IO ()))+instance ToJSVal PositionCallback where toJSVal (PositionCallback (Callback r)) = toJSVal r+newtype PositionErrorCallback = PositionErrorCallback (Callback (JSVal -> IO ()))+instance ToJSVal PositionErrorCallback where toJSVal (PositionErrorCallback (Callback r)) = toJSVal r+newtype RequestAnimationFrameCallback = RequestAnimationFrameCallback (Callback (JSVal -> IO ()))+instance ToJSVal RequestAnimationFrameCallback where toJSVal (RequestAnimationFrameCallback (Callback r)) = toJSVal r+newtype RTCPeerConnectionErrorCallback = RTCPeerConnectionErrorCallback (Callback (JSVal -> IO ()))+instance ToJSVal RTCPeerConnectionErrorCallback where toJSVal (RTCPeerConnectionErrorCallback (Callback r)) = toJSVal r+newtype RTCSessionDescriptionCallback = RTCSessionDescriptionCallback (Callback (JSVal -> IO ()))+instance ToJSVal RTCSessionDescriptionCallback where toJSVal (RTCSessionDescriptionCallback (Callback r)) = toJSVal r+newtype RTCStatsCallback = RTCStatsCallback (Callback (JSVal -> IO ()))+instance ToJSVal RTCStatsCallback where toJSVal (RTCStatsCallback (Callback r)) = toJSVal r+newtype SQLStatementCallback = SQLStatementCallback (Callback (JSVal -> JSVal -> IO ()))+instance ToJSVal SQLStatementCallback where toJSVal (SQLStatementCallback (Callback r)) = toJSVal r+newtype SQLStatementErrorCallback = SQLStatementErrorCallback (Callback (JSVal -> JSVal -> IO ()))+instance ToJSVal SQLStatementErrorCallback where toJSVal (SQLStatementErrorCallback (Callback r)) = toJSVal r+newtype SQLTransactionCallback = SQLTransactionCallback (Callback (JSVal -> IO ()))+instance ToJSVal SQLTransactionCallback where toJSVal (SQLTransactionCallback (Callback r)) = toJSVal r+newtype SQLTransactionErrorCallback = SQLTransactionErrorCallback (Callback (JSVal -> IO ()))+instance ToJSVal SQLTransactionErrorCallback where toJSVal (SQLTransactionErrorCallback (Callback r)) = toJSVal r+newtype StorageErrorCallback = StorageErrorCallback (Callback (JSVal -> IO ()))+instance ToJSVal StorageErrorCallback where toJSVal (StorageErrorCallback (Callback r)) = toJSVal r+newtype StorageQuotaCallback = StorageQuotaCallback (Callback (JSVal -> IO ()))+instance ToJSVal StorageQuotaCallback where toJSVal (StorageQuotaCallback (Callback r)) = toJSVal r+newtype StorageUsageCallback = StorageUsageCallback (Callback (JSVal -> JSVal -> IO ()))+instance ToJSVal StorageUsageCallback where toJSVal (StorageUsageCallback (Callback r)) = toJSVal r+newtype StringCallback s = StringCallback (Callback (JSVal -> IO ()))+instance ToJSVal (StringCallback s) where toJSVal (StringCallback (Callback r)) = toJSVal r+newtype VoidCallback = VoidCallback (Callback (IO ()))+instance ToJSVal VoidCallback where toJSVal (VoidCallback (Callback r)) = toJSVal r++-- Custom types+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal }++instance PToJSVal SerializedScriptValue where+  pToJSVal = unSerializedScriptValue+  {-# INLINE pToJSVal #-}++instance PFromJSVal SerializedScriptValue where+  pFromJSVal = SerializedScriptValue+  {-# INLINE pFromJSVal #-}++instance ToJSVal SerializedScriptValue where+  toJSVal = return . unSerializedScriptValue+  {-# INLINE toJSVal #-}++instance FromJSVal SerializedScriptValue where+  fromJSVal v = fmap SerializedScriptValue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsSerializedScriptValue o+toSerializedScriptValue :: IsSerializedScriptValue o => o -> SerializedScriptValue+toSerializedScriptValue = unsafeCastGObject . toGObject++instance IsSerializedScriptValue SerializedScriptValue+instance IsGObject SerializedScriptValue where+  toGObject = GObject . unSerializedScriptValue+  unsafeCastGObject = SerializedScriptValue . unGObject+-- TODO add more IsSerializedScriptValue instances+#else+-- TODO work out how we can support SerializedScriptValue in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal }++instance PToJSVal PositionOptions where+  pToJSVal = unPositionOptions+  {-# INLINE pToJSVal #-}++instance PFromJSVal PositionOptions where+  pFromJSVal = PositionOptions+  {-# INLINE pFromJSVal #-}++instance ToJSVal PositionOptions where+  toJSVal = return . unPositionOptions+  {-# INLINE toJSVal #-}++instance FromJSVal PositionOptions where+  fromJSVal v = fmap PositionOptions <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsPositionOptions o+toPositionOptions :: IsPositionOptions o => o -> PositionOptions+toPositionOptions = unsafeCastGObject . toGObject++instance IsPositionOptions PositionOptions+instance IsGObject PositionOptions where+  toGObject = GObject . unPositionOptions+  unsafeCastGObject = PositionOptions . unGObject+-- TODO add more IsPositionOptions instances+#else+-- TODO work out how we can support PositionOptions in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Dictionary = Dictionary { unDictionary :: JSVal }++instance PToJSVal Dictionary where+  pToJSVal = unDictionary+  {-# INLINE pToJSVal #-}++instance PFromJSVal Dictionary where+  pFromJSVal = Dictionary+  {-# INLINE pFromJSVal #-}++instance ToJSVal Dictionary where+  toJSVal = return . unDictionary+  {-# INLINE toJSVal #-}++instance FromJSVal Dictionary where+  fromJSVal v = fmap Dictionary <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsDictionary o+toDictionary :: IsDictionary o => o -> Dictionary+toDictionary = unsafeCastGObject . toGObject++instance IsDictionary Dictionary+instance IsGObject Dictionary where+  toGObject = GObject . unDictionary+  unsafeCastGObject = Dictionary . unGObject+-- TODO add more IsDictionary instances+#else+-- TODO work out how we can support Dictionary in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal }++instance PToJSVal BlobPropertyBag where+  pToJSVal = unBlobPropertyBag+  {-# INLINE pToJSVal #-}++instance PFromJSVal BlobPropertyBag where+  pFromJSVal = BlobPropertyBag+  {-# INLINE pFromJSVal #-}++instance ToJSVal BlobPropertyBag where+  toJSVal = return . unBlobPropertyBag+  {-# INLINE toJSVal #-}++instance FromJSVal BlobPropertyBag where+  fromJSVal v = fmap BlobPropertyBag <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsBlobPropertyBag o+toBlobPropertyBag :: IsBlobPropertyBag o => o -> BlobPropertyBag+toBlobPropertyBag = unsafeCastGObject . toGObject++instance IsBlobPropertyBag BlobPropertyBag+instance IsGObject BlobPropertyBag where+  toGObject = GObject . unBlobPropertyBag+  unsafeCastGObject = BlobPropertyBag . unGObject+-- TODO add more IsBlobPropertyBag instances+#else+-- TODO work out how we can support BlobPropertyBag in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal }++instance PToJSVal MutationCallback where+  pToJSVal = unMutationCallback+  {-# INLINE pToJSVal #-}++instance PFromJSVal MutationCallback where+  pFromJSVal = MutationCallback+  {-# INLINE pFromJSVal #-}++instance ToJSVal MutationCallback where+  toJSVal = return . unMutationCallback+  {-# INLINE toJSVal #-}++instance FromJSVal MutationCallback where+  fromJSVal v = fmap MutationCallback <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsMutationCallback o+toMutationCallback :: IsMutationCallback o => o -> MutationCallback+toMutationCallback = unsafeCastGObject . toGObject++instance IsMutationCallback MutationCallback+instance IsGObject MutationCallback where+  toGObject = GObject . unMutationCallback+  unsafeCastGObject = MutationCallback . unGObject+-- TODO add more IsMutationCallback instances+#else+-- TODO work out how we can support MutationCallback in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Promise = Promise { unPromise :: JSVal }++instance PToJSVal Promise where+  pToJSVal = unPromise+  {-# INLINE pToJSVal #-}++instance PFromJSVal Promise where+  pFromJSVal = Promise+  {-# INLINE pFromJSVal #-}++instance ToJSVal Promise where+  toJSVal = return . unPromise+  {-# INLINE toJSVal #-}++instance FromJSVal Promise where+  fromJSVal v = fmap Promise <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsPromise o+toPromise :: IsPromise o => o -> Promise+toPromise = unsafeCastGObject . toGObject++instance IsPromise Promise+instance IsGObject Promise where+  toGObject = GObject . unPromise+  unsafeCastGObject = Promise . unGObject+-- TODO add more IsPromise instances++castToPromise :: IsGObject obj => obj -> JSM Promise+castToPromise = castTo gTypePromise "Promise"++gTypePromise :: JSM GType+gTypePromise = GType . Object <$> jsg "Promise"+#else+-- TODO work out how we can support Promise in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal }++instance PToJSVal ArrayBuffer where+  pToJSVal = unArrayBuffer+  {-# INLINE pToJSVal #-}++instance PFromJSVal ArrayBuffer where+  pFromJSVal = ArrayBuffer+  {-# INLINE pFromJSVal #-}++instance ToJSVal ArrayBuffer where+  toJSVal = return . unArrayBuffer+  {-# INLINE toJSVal #-}++instance FromJSVal ArrayBuffer where+  fromJSVal v = fmap ArrayBuffer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsArrayBuffer o+toArrayBuffer :: IsArrayBuffer o => o -> ArrayBuffer+toArrayBuffer = unsafeCastGObject . toGObject++instance IsArrayBuffer ArrayBuffer+instance IsGObject ArrayBuffer where+  toGObject = GObject . unArrayBuffer+  unsafeCastGObject = ArrayBuffer . unGObject++castToArrayBuffer :: IsGObject obj => obj -> JSM ArrayBuffer+castToArrayBuffer = castTo gTypeArrayBuffer "ArrayBuffer"++gTypeArrayBuffer :: JSM GType+gTypeArrayBuffer = GType . Object <$> jsg "ArrayBuffer"+#else+-- TODO work out how we can support ArrayBuffer in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Float32Array = Float32Array { unFloat32Array :: JSVal }++instance PToJSVal Float32Array where+  pToJSVal = unFloat32Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Float32Array where+  pFromJSVal = Float32Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Float32Array where+  toJSVal = return . unFloat32Array+  {-# INLINE toJSVal #-}++instance FromJSVal Float32Array where+  fromJSVal v = fmap Float32Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsFloat32Array o+toFloat32Array :: IsFloat32Array o => o -> Float32Array+toFloat32Array = unsafeCastGObject . toGObject++instance IsFloat32Array Float32Array+instance IsGObject Float32Array where+  toGObject = GObject . unFloat32Array+  unsafeCastGObject = Float32Array . unGObject+-- TODO add more IsFloat32Array instances++castToFloat32Array :: IsGObject obj => obj -> JSM Float32Array+castToFloat32Array = castTo gTypeFloat32Array "Float32Array"++gTypeFloat32Array :: JSM GType+gTypeFloat32Array = GType . Object <$> jsg "Float32Array"+#else+-- TODO work out how we can support Float32Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Float64Array = Float64Array { unFloat64Array :: JSVal }++instance PToJSVal Float64Array where+  pToJSVal = unFloat64Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Float64Array where+  pFromJSVal = Float64Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Float64Array where+  toJSVal = return . unFloat64Array+  {-# INLINE toJSVal #-}++instance FromJSVal Float64Array where+  fromJSVal v = fmap Float64Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsFloat64Array o+toFloat64Array :: IsFloat64Array o => o -> Float64Array+toFloat64Array = unsafeCastGObject . toGObject++instance IsFloat64Array Float64Array+instance IsGObject Float64Array where+  toGObject = GObject . unFloat64Array+  unsafeCastGObject = Float64Array . unGObject+-- TODO add more IsFloat64Array instances++castToFloat64Array :: IsGObject obj => obj -> JSM Float64Array+castToFloat64Array = castTo gTypeFloat64Array "Float64Array"++gTypeFloat64Array :: JSM GType+gTypeFloat64Array = GType . Object <$> jsg "Float64Array"+#else+-- TODO work out how we can support Float64Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Uint8Array = Uint8Array { unUint8Array :: JSVal }++instance PToJSVal Uint8Array where+  pToJSVal = unUint8Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Uint8Array where+  pFromJSVal = Uint8Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Uint8Array where+  toJSVal = return . unUint8Array+  {-# INLINE toJSVal #-}++instance FromJSVal Uint8Array where+  fromJSVal v = fmap Uint8Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsUint8Array o+toUint8Array :: IsUint8Array o => o -> Uint8Array+toUint8Array = unsafeCastGObject . toGObject++instance IsUint8Array Uint8Array+instance IsGObject Uint8Array where+  toGObject = GObject . unUint8Array+  unsafeCastGObject = Uint8Array . unGObject+-- TODO add more IsUint8Array instances++castToUint8Array :: IsGObject obj => obj -> JSM Uint8Array+castToUint8Array = castTo gTypeUint8Array "Uint8Array"++gTypeUint8Array :: JSM GType+gTypeUint8Array = GType . Object <$> jsg "Uint8Array"+#else+-- TODO work out how we can support Uint8Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal }++instance PToJSVal Uint8ClampedArray where+  pToJSVal = unUint8ClampedArray+  {-# INLINE pToJSVal #-}++instance PFromJSVal Uint8ClampedArray where+  pFromJSVal = Uint8ClampedArray+  {-# INLINE pFromJSVal #-}++instance ToJSVal Uint8ClampedArray where+  toJSVal = return . unUint8ClampedArray+  {-# INLINE toJSVal #-}++instance FromJSVal Uint8ClampedArray where+  fromJSVal v = fmap Uint8ClampedArray <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsUint8ClampedArray o+toUint8ClampedArray :: IsUint8ClampedArray o => o -> Uint8ClampedArray+toUint8ClampedArray = unsafeCastGObject . toGObject++instance IsUint8ClampedArray Uint8ClampedArray+instance IsGObject Uint8ClampedArray where+  toGObject = GObject . unUint8ClampedArray+  unsafeCastGObject = Uint8ClampedArray . unGObject+-- TODO add more IsUint8ClampedArray instances++castToUint8ClampedArray :: IsGObject obj => obj -> JSM Uint8ClampedArray+castToUint8ClampedArray = castTo gTypeUint8ClampedArray "Uint8ClampedArray"++gTypeUint8ClampedArray :: JSM GType+gTypeUint8ClampedArray = GType . Object <$> jsg "Uint8ClampedArray"+#else+-- TODO work out how we can support Uint8ClampedArray in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Uint16Array = Uint16Array { unUint16Array :: JSVal }++instance PToJSVal Uint16Array where+  pToJSVal = unUint16Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Uint16Array where+  pFromJSVal = Uint16Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Uint16Array where+  toJSVal = return . unUint16Array+  {-# INLINE toJSVal #-}++instance FromJSVal Uint16Array where+  fromJSVal v = fmap Uint16Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsUint16Array o+toUint16Array :: IsUint16Array o => o -> Uint16Array+toUint16Array = unsafeCastGObject . toGObject++instance IsUint16Array Uint16Array+instance IsGObject Uint16Array where+  toGObject = GObject . unUint16Array+  unsafeCastGObject = Uint16Array . unGObject+-- TODO add more IsUint16Array instances++castToUint16Array :: IsGObject obj => obj -> JSM Uint16Array+castToUint16Array = castTo gTypeUint16Array "Uint16Array"++gTypeUint16Array :: JSM GType+gTypeUint16Array = GType . Object <$> jsg "Uint16Array"+#else+-- TODO work out how we can support Uint16Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Uint32Array = Uint32Array { unUint32Array :: JSVal }++instance PToJSVal Uint32Array where+  pToJSVal = unUint32Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Uint32Array where+  pFromJSVal = Uint32Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Uint32Array where+  toJSVal = return . unUint32Array+  {-# INLINE toJSVal #-}++instance FromJSVal Uint32Array where+  fromJSVal v = fmap Uint32Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsUint32Array o+toUint32Array :: IsUint32Array o => o -> Uint32Array+toUint32Array = unsafeCastGObject . toGObject++instance IsUint32Array Uint32Array+instance IsGObject Uint32Array where+  toGObject = GObject . unUint32Array+  unsafeCastGObject = Uint32Array . unGObject+-- TODO add more IsUint32Array instances++castToUint32Array :: IsGObject obj => obj -> JSM Uint32Array+castToUint32Array = castTo gTypeUint32Array "Uint32Array"++gTypeUint32Array :: JSM GType+gTypeUint32Array = GType . Object <$> jsg "Uint32Array"+#else+-- TODO work out how we can support Uint32Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Int8Array = Int8Array { unInt8Array :: JSVal }++instance PToJSVal Int8Array where+  pToJSVal = unInt8Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Int8Array where+  pFromJSVal = Int8Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Int8Array where+  toJSVal = return . unInt8Array+  {-# INLINE toJSVal #-}++instance FromJSVal Int8Array where+  fromJSVal v = fmap Int8Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsInt8Array o+toInt8Array :: IsInt8Array o => o -> Int8Array+toInt8Array = unsafeCastGObject . toGObject++instance IsInt8Array Int8Array+instance IsGObject Int8Array where+  toGObject = GObject . unInt8Array+  unsafeCastGObject = Int8Array . unGObject+-- TODO add more IsInt8Array instances++castToInt8Array :: IsGObject obj => obj -> JSM Int8Array+castToInt8Array = castTo gTypeInt8Array "Int8Array"++gTypeInt8Array :: JSM GType+gTypeInt8Array = GType . Object <$> jsg "Int8Array"+#else+-- TODO work out how we can support Int8Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Int16Array = Int16Array { unInt16Array :: JSVal }++instance PToJSVal Int16Array where+  pToJSVal = unInt16Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Int16Array where+  pFromJSVal = Int16Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Int16Array where+  toJSVal = return . unInt16Array+  {-# INLINE toJSVal #-}++instance FromJSVal Int16Array where+  fromJSVal v = fmap Int16Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsInt16Array o+toInt16Array :: IsInt16Array o => o -> Int16Array+toInt16Array = unsafeCastGObject . toGObject++instance IsInt16Array Int16Array+instance IsGObject Int16Array where+  toGObject = GObject . unInt16Array+  unsafeCastGObject = Int16Array . unGObject+-- TODO add more IsInt16Array instances++castToInt16Array :: IsGObject obj => obj -> JSM Int16Array+castToInt16Array = castTo gTypeInt16Array "Int16Array"++gTypeInt16Array :: JSM GType+gTypeInt16Array = GType . Object <$> jsg "Int16Array"+#else+-- TODO work out how we can support Int16Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Int32Array = Int32Array { unInt32Array :: JSVal }++instance PToJSVal Int32Array where+  pToJSVal = unInt32Array+  {-# INLINE pToJSVal #-}++instance PFromJSVal Int32Array where+  pFromJSVal = Int32Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Int32Array where+  toJSVal = return . unInt32Array+  {-# INLINE toJSVal #-}++instance FromJSVal Int32Array where+  fromJSVal v = fmap Int32Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsInt32Array o+toInt32Array :: IsInt32Array o => o -> Int32Array+toInt32Array = unsafeCastGObject . toGObject++instance IsInt32Array Int32Array+instance IsGObject Int32Array where+  toGObject = GObject . unInt32Array+  unsafeCastGObject = Int32Array . unGObject+-- TODO add more IsInt32Array instances++castToInt32Array :: IsGObject obj => obj -> JSM Int32Array+castToInt32Array = castTo gTypeInt32Array "Int32Array"++gTypeInt32Array :: JSM GType+gTypeInt32Array = GType . Object <$> jsg "Int32Array"+#else+-- TODO work out how we can support Int32Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype ObjectArray = ObjectArray { unObjectArray :: JSVal }++instance PToJSVal ObjectArray where+  pToJSVal = unObjectArray+  {-# INLINE pToJSVal #-}++instance PFromJSVal ObjectArray where+  pFromJSVal = ObjectArray+  {-# INLINE pFromJSVal #-}++instance ToJSVal ObjectArray where+  toJSVal = return . unObjectArray+  {-# INLINE toJSVal #-}++instance FromJSVal ObjectArray where+  fromJSVal v = fmap ObjectArray <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsObjectArray o+toObjectArray :: IsObjectArray o => o -> ObjectArray+toObjectArray = unsafeCastGObject . toGObject++instance IsObjectArray ObjectArray+instance IsGObject ObjectArray where+  toGObject = GObject . unObjectArray+  unsafeCastGObject = ObjectArray . unGObject+-- TODO add more IsObjectArray instances+#else+-- TODO work out how we can support ObjectArray in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal }++instance PToJSVal ArrayBufferView where+  pToJSVal = unArrayBufferView+  {-# INLINE pToJSVal #-}++instance PFromJSVal ArrayBufferView where+  pFromJSVal = ArrayBufferView+  {-# INLINE pFromJSVal #-}++instance ToJSVal ArrayBufferView where+  toJSVal = return . unArrayBufferView+  {-# INLINE toJSVal #-}++instance FromJSVal ArrayBufferView where+  fromJSVal v = fmap ArrayBufferView <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsArrayBufferView o+toArrayBufferView :: IsArrayBufferView o => o -> ArrayBufferView+toArrayBufferView = unsafeCastGObject . toGObject++instance IsArrayBufferView ArrayBufferView+instance IsGObject ArrayBufferView where+  toGObject = GObject . unArrayBufferView+  unsafeCastGObject = ArrayBufferView . unGObject+-- TODO add more IsArrayBufferView instances+#else+-- TODO work out how we can support ArrayBufferView in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Array = Array { unArray :: JSVal }++instance PToJSVal Array where+  pToJSVal = unArray+  {-# INLINE pToJSVal #-}++instance PFromJSVal Array where+  pFromJSVal = Array+  {-# INLINE pFromJSVal #-}++instance ToJSVal Array where+  toJSVal = return . unArray+  {-# INLINE toJSVal #-}++instance FromJSVal Array where+  fromJSVal v = fmap Array <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsArray o+toArray :: IsArray o => o -> Array+toArray = unsafeCastGObject . toGObject++instance IsArray Array+instance IsGObject Array where+  toGObject = GObject . unArray+  unsafeCastGObject = Array . unGObject+-- TODO add more IsArray instances++castToArray :: IsGObject obj => obj -> JSM Array+castToArray = castTo gTypeArray "Array"++gTypeArray :: JSM GType+gTypeArray = GType . Object <$> jsg "Array"+#else+-- TODO work out how we can support Array in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Date = Date { unDate :: JSVal }++instance PToJSVal Date where+  pToJSVal = unDate+  {-# INLINE pToJSVal #-}++instance PFromJSVal Date where+  pFromJSVal = Date+  {-# INLINE pFromJSVal #-}++instance ToJSVal Date where+  toJSVal = return . unDate+  {-# INLINE toJSVal #-}++instance FromJSVal Date where+  fromJSVal v = fmap Date <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsDate o+toDate :: IsDate o => o -> Date+toDate = unsafeCastGObject . toGObject++instance IsDate Date+instance IsGObject Date where+  toGObject = GObject . unDate+  unsafeCastGObject = Date . unGObject+-- TODO add more IsDate instances++castToDate :: IsGObject obj => obj -> JSM Date+castToDate = castTo gTypeDate "Date"++gTypeDate :: JSM GType+gTypeDate = GType . Object <$> jsg "Date"+#else+-- TODO work out how we can support Date in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Acceleration = Acceleration { unAcceleration :: JSVal }++instance PToJSVal Acceleration where+  pToJSVal = unAcceleration+  {-# INLINE pToJSVal #-}++instance PFromJSVal Acceleration where+  pFromJSVal = Acceleration+  {-# INLINE pFromJSVal #-}++instance ToJSVal Acceleration where+  toJSVal = return . unAcceleration+  {-# INLINE toJSVal #-}++instance FromJSVal Acceleration where+  fromJSVal v = fmap Acceleration <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsAcceleration o+toAcceleration :: IsAcceleration o => o -> Acceleration+toAcceleration = unsafeCastGObject . toGObject++instance IsAcceleration Acceleration+instance IsGObject Acceleration where+  toGObject = GObject . unAcceleration+  unsafeCastGObject = Acceleration . unGObject+-- TODO add more IsAcceleration instances+#else+-- TODO work out how we can support Acceleration in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype RotationRate = RotationRate { unRotationRate :: JSVal }++instance PToJSVal RotationRate where+  pToJSVal = unRotationRate+  {-# INLINE pToJSVal #-}++instance PFromJSVal RotationRate where+  pFromJSVal = RotationRate+  {-# INLINE pFromJSVal #-}++instance ToJSVal RotationRate where+  toJSVal = return . unRotationRate+  {-# INLINE toJSVal #-}++instance FromJSVal RotationRate where+  fromJSVal v = fmap RotationRate <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsRotationRate o+toRotationRate :: IsRotationRate o => o -> RotationRate+toRotationRate = unsafeCastGObject . toGObject++instance IsRotationRate RotationRate+instance IsGObject RotationRate where+  toGObject = GObject . unRotationRate+  unsafeCastGObject = RotationRate . unGObject+-- TODO add more IsRotationRate instances+#else+-- TODO work out how we can support RotationRate in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype Algorithm = Algorithm { unAlgorithm :: JSVal }++instance PToJSVal Algorithm where+  pToJSVal = unAlgorithm+  {-# INLINE pToJSVal #-}++instance PFromJSVal Algorithm where+  pFromJSVal = Algorithm+  {-# INLINE pFromJSVal #-}++instance ToJSVal Algorithm where+  toJSVal = return . unAlgorithm+  {-# INLINE toJSVal #-}++instance FromJSVal Algorithm where+  fromJSVal v = fmap Algorithm <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsAlgorithm o+toAlgorithm :: IsAlgorithm o => o -> Algorithm+toAlgorithm = unsafeCastGObject . toGObject++instance IsAlgorithm Algorithm+instance IsGObject Algorithm where+  toGObject = GObject . unAlgorithm+  unsafeCastGObject = Algorithm . unGObject+-- TODO add more IsAlgorithm instances+#else+-- TODO work out how we can support Algorithm in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal }++instance PToJSVal CryptoOperationData where+  pToJSVal = unCryptoOperationData+  {-# INLINE pToJSVal #-}++instance PFromJSVal CryptoOperationData where+  pFromJSVal = CryptoOperationData+  {-# INLINE pFromJSVal #-}++instance ToJSVal CryptoOperationData where+  toJSVal = return . unCryptoOperationData+  {-# INLINE toJSVal #-}++instance FromJSVal CryptoOperationData where+  fromJSVal v = fmap CryptoOperationData <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsCryptoOperationData o+toCryptoOperationData :: IsCryptoOperationData o => o -> CryptoOperationData+toCryptoOperationData = unsafeCastGObject . toGObject++instance IsCryptoOperationData CryptoOperationData+instance IsGObject CryptoOperationData where+  toGObject = GObject . unCryptoOperationData+  unsafeCastGObject = CryptoOperationData . unGObject+instance IsCryptoOperationData ArrayBuffer+instance IsCryptoOperationData ArrayBufferView+#else+-- TODO work out how we can support CryptoOperationData in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal }++instance PToJSVal CanvasStyle where+  pToJSVal = unCanvasStyle+  {-# INLINE pToJSVal #-}++instance PFromJSVal CanvasStyle where+  pFromJSVal = CanvasStyle+  {-# INLINE pFromJSVal #-}++instance ToJSVal CanvasStyle where+  toJSVal = return . unCanvasStyle+  {-# INLINE toJSVal #-}++instance FromJSVal CanvasStyle where+  fromJSVal v = fmap CanvasStyle <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsCanvasStyle o+toCanvasStyle :: IsCanvasStyle o => o -> CanvasStyle+toCanvasStyle = unsafeCastGObject . toGObject++instance IsCanvasStyle CanvasStyle+instance IsGObject CanvasStyle where+  toGObject = GObject . unCanvasStyle+  unsafeCastGObject = CanvasStyle . unGObject+instance IsCanvasStyle CanvasGradient+instance IsCanvasStyle CanvasPattern+#else+-- TODO work out how we can support CanvasStyle in native code+#endif++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+newtype DOMException = DOMException { unDOMException :: JSVal }++instance PToJSVal DOMException where+  pToJSVal = unDOMException+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMException where+  pFromJSVal = DOMException+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMException where+  toJSVal = return . unDOMException+  {-# INLINE toJSVal #-}++instance FromJSVal DOMException where+  fromJSVal v = fmap DOMException <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++class IsGObject o => IsDOMException o+toDOMException :: IsDOMException o => o -> DOMException+toDOMException = unsafeCastGObject . toGObject++instance IsDOMException DOMException+instance IsGObject DOMException where+  toGObject = GObject . unDOMException+  unsafeCastGObject = DOMException . unGObject+#else+-- TODO work out how we can support DOMException in native code+#endif++type GLenum = Word32+type GLboolean = Bool+type GLbitfield = Word32+type GLbyte = Int8+type GLshort = Int16+type GLint = Int32+type GLint64 = Int64+type GLsizei = Int32+type GLintptr = Int64+type GLsizeiptr = Int64+type GLubyte = Word8+type GLushort = Word16+type GLuint = Word32+type GLuint64 = Word64+type GLfloat = Double+type GLclampf = Double++-- AUTO GENERATION STARTS HERE+-- The remainder of this file is generated from IDL files using domconv-webkit-jsffi+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ANGLEInstancedArrays".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays Mozilla ANGLEInstancedArrays documentation>+newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal }++instance PToJSVal ANGLEInstancedArrays where+  pToJSVal = unANGLEInstancedArrays+  {-# INLINE pToJSVal #-}++instance PFromJSVal ANGLEInstancedArrays where+  pFromJSVal = ANGLEInstancedArrays+  {-# INLINE pFromJSVal #-}++instance ToJSVal ANGLEInstancedArrays where+  toJSVal = return . unANGLEInstancedArrays+  {-# INLINE toJSVal #-}++instance FromJSVal ANGLEInstancedArrays where+  fromJSVal v = fmap ANGLEInstancedArrays <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ANGLEInstancedArrays where+  makeObject = makeObject . unANGLEInstancedArrays++instance IsGObject ANGLEInstancedArrays where+  toGObject = GObject . unANGLEInstancedArrays+  {-# INLINE toGObject #-}+  unsafeCastGObject = ANGLEInstancedArrays . unGObject+  {-# INLINE unsafeCastGObject #-}++castToANGLEInstancedArrays :: IsGObject obj => obj -> JSM ANGLEInstancedArrays+castToANGLEInstancedArrays = castTo gTypeANGLEInstancedArrays "ANGLEInstancedArrays"++gTypeANGLEInstancedArrays :: JSM GType+gTypeANGLEInstancedArrays = GType . Object <$> jsg "ANGLEInstancedArrays"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AbstractView".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView Mozilla AbstractView documentation>+newtype AbstractView = AbstractView { unAbstractView :: JSVal }++instance PToJSVal AbstractView where+  pToJSVal = unAbstractView+  {-# INLINE pToJSVal #-}++instance PFromJSVal AbstractView where+  pFromJSVal = AbstractView+  {-# INLINE pFromJSVal #-}++instance ToJSVal AbstractView where+  toJSVal = return . unAbstractView+  {-# INLINE toJSVal #-}++instance FromJSVal AbstractView where+  fromJSVal v = fmap AbstractView <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AbstractView where+  makeObject = makeObject . unAbstractView++instance IsGObject AbstractView where+  toGObject = GObject . unAbstractView+  {-# INLINE toGObject #-}+  unsafeCastGObject = AbstractView . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAbstractView :: IsGObject obj => obj -> JSM AbstractView+castToAbstractView = castTo gTypeAbstractView "AbstractView"++gTypeAbstractView :: JSM GType+gTypeAbstractView = GType . Object <$> jsg "AbstractView"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AbstractWorker".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker Mozilla AbstractWorker documentation>+newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal }++instance PToJSVal AbstractWorker where+  pToJSVal = unAbstractWorker+  {-# INLINE pToJSVal #-}++instance PFromJSVal AbstractWorker where+  pFromJSVal = AbstractWorker+  {-# INLINE pFromJSVal #-}++instance ToJSVal AbstractWorker where+  toJSVal = return . unAbstractWorker+  {-# INLINE toJSVal #-}++instance FromJSVal AbstractWorker where+  fromJSVal v = fmap AbstractWorker <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AbstractWorker where+  makeObject = makeObject . unAbstractWorker++instance IsGObject AbstractWorker where+  toGObject = GObject . unAbstractWorker+  {-# INLINE toGObject #-}+  unsafeCastGObject = AbstractWorker . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAbstractWorker :: IsGObject obj => obj -> JSM AbstractWorker+castToAbstractWorker = castTo gTypeAbstractWorker "AbstractWorker"++gTypeAbstractWorker :: JSM GType+gTypeAbstractWorker = GType . Object <$> jsg "AbstractWorker"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AllAudioCapabilities".+-- Base interface functions are in:+--+--     * "JSDOM.MediaStreamCapabilities"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities Mozilla AllAudioCapabilities documentation>+newtype AllAudioCapabilities = AllAudioCapabilities { unAllAudioCapabilities :: JSVal }++instance PToJSVal AllAudioCapabilities where+  pToJSVal = unAllAudioCapabilities+  {-# INLINE pToJSVal #-}++instance PFromJSVal AllAudioCapabilities where+  pFromJSVal = AllAudioCapabilities+  {-# INLINE pFromJSVal #-}++instance ToJSVal AllAudioCapabilities where+  toJSVal = return . unAllAudioCapabilities+  {-# INLINE toJSVal #-}++instance FromJSVal AllAudioCapabilities where+  fromJSVal v = fmap AllAudioCapabilities <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AllAudioCapabilities where+  makeObject = makeObject . unAllAudioCapabilities++instance IsMediaStreamCapabilities AllAudioCapabilities+instance IsGObject AllAudioCapabilities where+  toGObject = GObject . unAllAudioCapabilities+  {-# INLINE toGObject #-}+  unsafeCastGObject = AllAudioCapabilities . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAllAudioCapabilities :: IsGObject obj => obj -> JSM AllAudioCapabilities+castToAllAudioCapabilities = castTo gTypeAllAudioCapabilities "AllAudioCapabilities"++gTypeAllAudioCapabilities :: JSM GType+gTypeAllAudioCapabilities = GType . Object <$> jsg "AllAudioCapabilities"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AllVideoCapabilities".+-- Base interface functions are in:+--+--     * "JSDOM.MediaStreamCapabilities"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities Mozilla AllVideoCapabilities documentation>+newtype AllVideoCapabilities = AllVideoCapabilities { unAllVideoCapabilities :: JSVal }++instance PToJSVal AllVideoCapabilities where+  pToJSVal = unAllVideoCapabilities+  {-# INLINE pToJSVal #-}++instance PFromJSVal AllVideoCapabilities where+  pFromJSVal = AllVideoCapabilities+  {-# INLINE pFromJSVal #-}++instance ToJSVal AllVideoCapabilities where+  toJSVal = return . unAllVideoCapabilities+  {-# INLINE toJSVal #-}++instance FromJSVal AllVideoCapabilities where+  fromJSVal v = fmap AllVideoCapabilities <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AllVideoCapabilities where+  makeObject = makeObject . unAllVideoCapabilities++instance IsMediaStreamCapabilities AllVideoCapabilities+instance IsGObject AllVideoCapabilities where+  toGObject = GObject . unAllVideoCapabilities+  {-# INLINE toGObject #-}+  unsafeCastGObject = AllVideoCapabilities . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAllVideoCapabilities :: IsGObject obj => obj -> JSM AllVideoCapabilities+castToAllVideoCapabilities = castTo gTypeAllVideoCapabilities "AllVideoCapabilities"++gTypeAllVideoCapabilities :: JSM GType+gTypeAllVideoCapabilities = GType . Object <$> jsg "AllVideoCapabilities"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AnalyserNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode Mozilla AnalyserNode documentation>+newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal }++instance PToJSVal AnalyserNode where+  pToJSVal = unAnalyserNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal AnalyserNode where+  pFromJSVal = AnalyserNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal AnalyserNode where+  toJSVal = return . unAnalyserNode+  {-# INLINE toJSVal #-}++instance FromJSVal AnalyserNode where+  fromJSVal v = fmap AnalyserNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AnalyserNode where+  makeObject = makeObject . unAnalyserNode++instance IsAudioNode AnalyserNode+instance IsEventTarget AnalyserNode+instance IsGObject AnalyserNode where+  toGObject = GObject . unAnalyserNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = AnalyserNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAnalyserNode :: IsGObject obj => obj -> JSM AnalyserNode+castToAnalyserNode = castTo gTypeAnalyserNode "AnalyserNode"++gTypeAnalyserNode :: JSM GType+gTypeAnalyserNode = GType . Object <$> jsg "AnalyserNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AnimationEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent Mozilla AnimationEvent documentation>+newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal }++instance PToJSVal AnimationEvent where+  pToJSVal = unAnimationEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal AnimationEvent where+  pFromJSVal = AnimationEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal AnimationEvent where+  toJSVal = return . unAnimationEvent+  {-# INLINE toJSVal #-}++instance FromJSVal AnimationEvent where+  fromJSVal v = fmap AnimationEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AnimationEvent where+  makeObject = makeObject . unAnimationEvent++instance IsEvent AnimationEvent+instance IsGObject AnimationEvent where+  toGObject = GObject . unAnimationEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = AnimationEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAnimationEvent :: IsGObject obj => obj -> JSM AnimationEvent+castToAnimationEvent = castTo gTypeAnimationEvent "AnimationEvent"++gTypeAnimationEvent :: JSM GType+gTypeAnimationEvent = GType . Object <$> jsg "AnimationEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ApplicationCache".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache Mozilla ApplicationCache documentation>+newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal }++instance PToJSVal ApplicationCache where+  pToJSVal = unApplicationCache+  {-# INLINE pToJSVal #-}++instance PFromJSVal ApplicationCache where+  pFromJSVal = ApplicationCache+  {-# INLINE pFromJSVal #-}++instance ToJSVal ApplicationCache where+  toJSVal = return . unApplicationCache+  {-# INLINE toJSVal #-}++instance FromJSVal ApplicationCache where+  fromJSVal v = fmap ApplicationCache <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ApplicationCache where+  makeObject = makeObject . unApplicationCache++instance IsEventTarget ApplicationCache+instance IsGObject ApplicationCache where+  toGObject = GObject . unApplicationCache+  {-# INLINE toGObject #-}+  unsafeCastGObject = ApplicationCache . unGObject+  {-# INLINE unsafeCastGObject #-}++castToApplicationCache :: IsGObject obj => obj -> JSM ApplicationCache+castToApplicationCache = castTo gTypeApplicationCache "ApplicationCache"++gTypeApplicationCache :: JSM GType+gTypeApplicationCache = GType . Object <$> jsg "ApplicationCache"+#else+type IsApplicationCache o = ApplicationCacheClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Attr".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Attr Mozilla Attr documentation>+newtype Attr = Attr { unAttr :: JSVal }++instance PToJSVal Attr where+  pToJSVal = unAttr+  {-# INLINE pToJSVal #-}++instance PFromJSVal Attr where+  pFromJSVal = Attr+  {-# INLINE pFromJSVal #-}++instance ToJSVal Attr where+  toJSVal = return . unAttr+  {-# INLINE toJSVal #-}++instance FromJSVal Attr where+  fromJSVal v = fmap Attr <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Attr where+  makeObject = makeObject . unAttr++instance IsNode Attr+instance IsEventTarget Attr+instance IsGObject Attr where+  toGObject = GObject . unAttr+  {-# INLINE toGObject #-}+  unsafeCastGObject = Attr . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAttr :: IsGObject obj => obj -> JSM Attr+castToAttr = castTo gTypeAttr "Attr"++gTypeAttr :: JSM GType+gTypeAttr = GType . Object <$> jsg "Attr"+#else+type IsAttr o = AttrClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioBuffer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer Mozilla AudioBuffer documentation>+newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal }++instance PToJSVal AudioBuffer where+  pToJSVal = unAudioBuffer+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioBuffer where+  pFromJSVal = AudioBuffer+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioBuffer where+  toJSVal = return . unAudioBuffer+  {-# INLINE toJSVal #-}++instance FromJSVal AudioBuffer where+  fromJSVal v = fmap AudioBuffer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioBuffer where+  makeObject = makeObject . unAudioBuffer++instance IsGObject AudioBuffer where+  toGObject = GObject . unAudioBuffer+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioBuffer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioBuffer :: IsGObject obj => obj -> JSM AudioBuffer+castToAudioBuffer = castTo gTypeAudioBuffer "AudioBuffer"++gTypeAudioBuffer :: JSM GType+gTypeAudioBuffer = GType . Object <$> jsg "AudioBuffer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioBufferSourceNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode Mozilla AudioBufferSourceNode documentation>+newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal }++instance PToJSVal AudioBufferSourceNode where+  pToJSVal = unAudioBufferSourceNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioBufferSourceNode where+  pFromJSVal = AudioBufferSourceNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioBufferSourceNode where+  toJSVal = return . unAudioBufferSourceNode+  {-# INLINE toJSVal #-}++instance FromJSVal AudioBufferSourceNode where+  fromJSVal v = fmap AudioBufferSourceNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioBufferSourceNode where+  makeObject = makeObject . unAudioBufferSourceNode++instance IsAudioNode AudioBufferSourceNode+instance IsEventTarget AudioBufferSourceNode+instance IsGObject AudioBufferSourceNode where+  toGObject = GObject . unAudioBufferSourceNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioBufferSourceNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioBufferSourceNode :: IsGObject obj => obj -> JSM AudioBufferSourceNode+castToAudioBufferSourceNode = castTo gTypeAudioBufferSourceNode "AudioBufferSourceNode"++gTypeAudioBufferSourceNode :: JSM GType+gTypeAudioBufferSourceNode = GType . Object <$> jsg "AudioBufferSourceNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioContext".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation>+newtype AudioContext = AudioContext { unAudioContext :: JSVal }++instance PToJSVal AudioContext where+  pToJSVal = unAudioContext+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioContext where+  pFromJSVal = AudioContext+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioContext where+  toJSVal = return . unAudioContext+  {-# INLINE toJSVal #-}++instance FromJSVal AudioContext where+  fromJSVal v = fmap AudioContext <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioContext where+  makeObject = makeObject . unAudioContext++class IsEventTarget o => IsAudioContext o+toAudioContext :: IsAudioContext o => o -> AudioContext+toAudioContext = unsafeCastGObject . toGObject++instance IsAudioContext AudioContext+instance IsEventTarget AudioContext+instance IsGObject AudioContext where+  toGObject = GObject . unAudioContext+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioContext . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioContext :: IsGObject obj => obj -> JSM AudioContext+castToAudioContext = castTo gTypeAudioContext "AudioContext"++gTypeAudioContext :: JSM GType+gTypeAudioContext = GType . Object <$> jsg "AudioContext"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioDestinationNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode Mozilla AudioDestinationNode documentation>+newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal }++instance PToJSVal AudioDestinationNode where+  pToJSVal = unAudioDestinationNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioDestinationNode where+  pFromJSVal = AudioDestinationNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioDestinationNode where+  toJSVal = return . unAudioDestinationNode+  {-# INLINE toJSVal #-}++instance FromJSVal AudioDestinationNode where+  fromJSVal v = fmap AudioDestinationNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioDestinationNode where+  makeObject = makeObject . unAudioDestinationNode++instance IsAudioNode AudioDestinationNode+instance IsEventTarget AudioDestinationNode+instance IsGObject AudioDestinationNode where+  toGObject = GObject . unAudioDestinationNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioDestinationNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioDestinationNode :: IsGObject obj => obj -> JSM AudioDestinationNode+castToAudioDestinationNode = castTo gTypeAudioDestinationNode "AudioDestinationNode"++gTypeAudioDestinationNode :: JSM GType+gTypeAudioDestinationNode = GType . Object <$> jsg "AudioDestinationNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioListener".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener Mozilla AudioListener documentation>+newtype AudioListener = AudioListener { unAudioListener :: JSVal }++instance PToJSVal AudioListener where+  pToJSVal = unAudioListener+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioListener where+  pFromJSVal = AudioListener+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioListener where+  toJSVal = return . unAudioListener+  {-# INLINE toJSVal #-}++instance FromJSVal AudioListener where+  fromJSVal v = fmap AudioListener <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioListener where+  makeObject = makeObject . unAudioListener++instance IsGObject AudioListener where+  toGObject = GObject . unAudioListener+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioListener . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioListener :: IsGObject obj => obj -> JSM AudioListener+castToAudioListener = castTo gTypeAudioListener "AudioListener"++gTypeAudioListener :: JSM GType+gTypeAudioListener = GType . Object <$> jsg "AudioListener"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioNode".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode Mozilla AudioNode documentation>+newtype AudioNode = AudioNode { unAudioNode :: JSVal }++instance PToJSVal AudioNode where+  pToJSVal = unAudioNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioNode where+  pFromJSVal = AudioNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioNode where+  toJSVal = return . unAudioNode+  {-# INLINE toJSVal #-}++instance FromJSVal AudioNode where+  fromJSVal v = fmap AudioNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioNode where+  makeObject = makeObject . unAudioNode++class IsEventTarget o => IsAudioNode o+toAudioNode :: IsAudioNode o => o -> AudioNode+toAudioNode = unsafeCastGObject . toGObject++instance IsAudioNode AudioNode+instance IsEventTarget AudioNode+instance IsGObject AudioNode where+  toGObject = GObject . unAudioNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioNode :: IsGObject obj => obj -> JSM AudioNode+castToAudioNode = castTo gTypeAudioNode "AudioNode"++gTypeAudioNode :: JSM GType+gTypeAudioNode = GType . Object <$> jsg "AudioNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioParam".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam Mozilla AudioParam documentation>+newtype AudioParam = AudioParam { unAudioParam :: JSVal }++instance PToJSVal AudioParam where+  pToJSVal = unAudioParam+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioParam where+  pFromJSVal = AudioParam+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioParam where+  toJSVal = return . unAudioParam+  {-# INLINE toJSVal #-}++instance FromJSVal AudioParam where+  fromJSVal v = fmap AudioParam <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioParam where+  makeObject = makeObject . unAudioParam++instance IsGObject AudioParam where+  toGObject = GObject . unAudioParam+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioParam . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioParam :: IsGObject obj => obj -> JSM AudioParam+castToAudioParam = castTo gTypeAudioParam "AudioParam"++gTypeAudioParam :: JSM GType+gTypeAudioParam = GType . Object <$> jsg "AudioParam"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioProcessingEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent Mozilla AudioProcessingEvent documentation>+newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal }++instance PToJSVal AudioProcessingEvent where+  pToJSVal = unAudioProcessingEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioProcessingEvent where+  pFromJSVal = AudioProcessingEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioProcessingEvent where+  toJSVal = return . unAudioProcessingEvent+  {-# INLINE toJSVal #-}++instance FromJSVal AudioProcessingEvent where+  fromJSVal v = fmap AudioProcessingEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioProcessingEvent where+  makeObject = makeObject . unAudioProcessingEvent++instance IsEvent AudioProcessingEvent+instance IsGObject AudioProcessingEvent where+  toGObject = GObject . unAudioProcessingEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioProcessingEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioProcessingEvent :: IsGObject obj => obj -> JSM AudioProcessingEvent+castToAudioProcessingEvent = castTo gTypeAudioProcessingEvent "AudioProcessingEvent"++gTypeAudioProcessingEvent :: JSM GType+gTypeAudioProcessingEvent = GType . Object <$> jsg "AudioProcessingEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioStreamTrack".+-- Base interface functions are in:+--+--     * "JSDOM.MediaStreamTrack"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioStreamTrack Mozilla AudioStreamTrack documentation>+newtype AudioStreamTrack = AudioStreamTrack { unAudioStreamTrack :: JSVal }++instance PToJSVal AudioStreamTrack where+  pToJSVal = unAudioStreamTrack+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioStreamTrack where+  pFromJSVal = AudioStreamTrack+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioStreamTrack where+  toJSVal = return . unAudioStreamTrack+  {-# INLINE toJSVal #-}++instance FromJSVal AudioStreamTrack where+  fromJSVal v = fmap AudioStreamTrack <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioStreamTrack where+  makeObject = makeObject . unAudioStreamTrack++instance IsMediaStreamTrack AudioStreamTrack+instance IsEventTarget AudioStreamTrack+instance IsGObject AudioStreamTrack where+  toGObject = GObject . unAudioStreamTrack+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioStreamTrack . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioStreamTrack :: IsGObject obj => obj -> JSM AudioStreamTrack+castToAudioStreamTrack = castTo gTypeAudioStreamTrack "AudioStreamTrack"++gTypeAudioStreamTrack :: JSM GType+gTypeAudioStreamTrack = GType . Object <$> jsg "AudioStreamTrack"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioTrack".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack Mozilla AudioTrack documentation>+newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal }++instance PToJSVal AudioTrack where+  pToJSVal = unAudioTrack+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioTrack where+  pFromJSVal = AudioTrack+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioTrack where+  toJSVal = return . unAudioTrack+  {-# INLINE toJSVal #-}++instance FromJSVal AudioTrack where+  fromJSVal v = fmap AudioTrack <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioTrack where+  makeObject = makeObject . unAudioTrack++instance IsGObject AudioTrack where+  toGObject = GObject . unAudioTrack+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioTrack . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioTrack :: IsGObject obj => obj -> JSM AudioTrack+castToAudioTrack = castTo gTypeAudioTrack "AudioTrack"++gTypeAudioTrack :: JSM GType+gTypeAudioTrack = GType . Object <$> jsg "AudioTrack"+#else+#ifndef USE_OLD_WEBKIT+type IsAudioTrack o = AudioTrackClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AudioTrackList".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList Mozilla AudioTrackList documentation>+newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal }++instance PToJSVal AudioTrackList where+  pToJSVal = unAudioTrackList+  {-# INLINE pToJSVal #-}++instance PFromJSVal AudioTrackList where+  pFromJSVal = AudioTrackList+  {-# INLINE pFromJSVal #-}++instance ToJSVal AudioTrackList where+  toJSVal = return . unAudioTrackList+  {-# INLINE toJSVal #-}++instance FromJSVal AudioTrackList where+  fromJSVal v = fmap AudioTrackList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AudioTrackList where+  makeObject = makeObject . unAudioTrackList++instance IsEventTarget AudioTrackList+instance IsGObject AudioTrackList where+  toGObject = GObject . unAudioTrackList+  {-# INLINE toGObject #-}+  unsafeCastGObject = AudioTrackList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAudioTrackList :: IsGObject obj => obj -> JSM AudioTrackList+castToAudioTrackList = castTo gTypeAudioTrackList "AudioTrackList"++gTypeAudioTrackList :: JSM GType+gTypeAudioTrackList = GType . Object <$> jsg "AudioTrackList"+#else+#ifndef USE_OLD_WEBKIT+type IsAudioTrackList o = AudioTrackListClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.AutocompleteErrorEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent Mozilla AutocompleteErrorEvent documentation>+newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal }++instance PToJSVal AutocompleteErrorEvent where+  pToJSVal = unAutocompleteErrorEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal AutocompleteErrorEvent where+  pFromJSVal = AutocompleteErrorEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal AutocompleteErrorEvent where+  toJSVal = return . unAutocompleteErrorEvent+  {-# INLINE toJSVal #-}++instance FromJSVal AutocompleteErrorEvent where+  fromJSVal v = fmap AutocompleteErrorEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject AutocompleteErrorEvent where+  makeObject = makeObject . unAutocompleteErrorEvent++instance IsEvent AutocompleteErrorEvent+instance IsGObject AutocompleteErrorEvent where+  toGObject = GObject . unAutocompleteErrorEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = AutocompleteErrorEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToAutocompleteErrorEvent :: IsGObject obj => obj -> JSM AutocompleteErrorEvent+castToAutocompleteErrorEvent = castTo gTypeAutocompleteErrorEvent "AutocompleteErrorEvent"++gTypeAutocompleteErrorEvent :: JSM GType+gTypeAutocompleteErrorEvent = GType . Object <$> jsg "AutocompleteErrorEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.BarProp".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/BarProp Mozilla BarProp documentation>+newtype BarProp = BarProp { unBarProp :: JSVal }++instance PToJSVal BarProp where+  pToJSVal = unBarProp+  {-# INLINE pToJSVal #-}++instance PFromJSVal BarProp where+  pFromJSVal = BarProp+  {-# INLINE pFromJSVal #-}++instance ToJSVal BarProp where+  toJSVal = return . unBarProp+  {-# INLINE toJSVal #-}++instance FromJSVal BarProp where+  fromJSVal v = fmap BarProp <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject BarProp where+  makeObject = makeObject . unBarProp++instance IsGObject BarProp where+  toGObject = GObject . unBarProp+  {-# INLINE toGObject #-}+  unsafeCastGObject = BarProp . unGObject+  {-# INLINE unsafeCastGObject #-}++castToBarProp :: IsGObject obj => obj -> JSM BarProp+castToBarProp = castTo gTypeBarProp "BarProp"++gTypeBarProp :: JSM GType+gTypeBarProp = GType . Object <$> jsg "BarProp"+#else+#ifndef USE_OLD_WEBKIT+type IsBarProp o = BarPropClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.BatteryManager".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager Mozilla BatteryManager documentation>+newtype BatteryManager = BatteryManager { unBatteryManager :: JSVal }++instance PToJSVal BatteryManager where+  pToJSVal = unBatteryManager+  {-# INLINE pToJSVal #-}++instance PFromJSVal BatteryManager where+  pFromJSVal = BatteryManager+  {-# INLINE pFromJSVal #-}++instance ToJSVal BatteryManager where+  toJSVal = return . unBatteryManager+  {-# INLINE toJSVal #-}++instance FromJSVal BatteryManager where+  fromJSVal v = fmap BatteryManager <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject BatteryManager where+  makeObject = makeObject . unBatteryManager++instance IsEventTarget BatteryManager+instance IsGObject BatteryManager where+  toGObject = GObject . unBatteryManager+  {-# INLINE toGObject #-}+  unsafeCastGObject = BatteryManager . unGObject+  {-# INLINE unsafeCastGObject #-}++castToBatteryManager :: IsGObject obj => obj -> JSM BatteryManager+castToBatteryManager = castTo gTypeBatteryManager "BatteryManager"++gTypeBatteryManager :: JSM GType+gTypeBatteryManager = GType . Object <$> jsg "BatteryManager"+#else+#ifndef USE_OLD_WEBKIT+type IsBatteryManager o = BatteryManagerClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.BeforeLoadEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent Mozilla BeforeLoadEvent documentation>+newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal }++instance PToJSVal BeforeLoadEvent where+  pToJSVal = unBeforeLoadEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal BeforeLoadEvent where+  pFromJSVal = BeforeLoadEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal BeforeLoadEvent where+  toJSVal = return . unBeforeLoadEvent+  {-# INLINE toJSVal #-}++instance FromJSVal BeforeLoadEvent where+  fromJSVal v = fmap BeforeLoadEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject BeforeLoadEvent where+  makeObject = makeObject . unBeforeLoadEvent++instance IsEvent BeforeLoadEvent+instance IsGObject BeforeLoadEvent where+  toGObject = GObject . unBeforeLoadEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = BeforeLoadEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToBeforeLoadEvent :: IsGObject obj => obj -> JSM BeforeLoadEvent+castToBeforeLoadEvent = castTo gTypeBeforeLoadEvent "BeforeLoadEvent"++gTypeBeforeLoadEvent :: JSM GType+gTypeBeforeLoadEvent = GType . Object <$> jsg "BeforeLoadEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.BeforeUnloadEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent Mozilla BeforeUnloadEvent documentation>+newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal }++instance PToJSVal BeforeUnloadEvent where+  pToJSVal = unBeforeUnloadEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal BeforeUnloadEvent where+  pFromJSVal = BeforeUnloadEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal BeforeUnloadEvent where+  toJSVal = return . unBeforeUnloadEvent+  {-# INLINE toJSVal #-}++instance FromJSVal BeforeUnloadEvent where+  fromJSVal v = fmap BeforeUnloadEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject BeforeUnloadEvent where+  makeObject = makeObject . unBeforeUnloadEvent++instance IsEvent BeforeUnloadEvent+instance IsGObject BeforeUnloadEvent where+  toGObject = GObject . unBeforeUnloadEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = BeforeUnloadEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToBeforeUnloadEvent :: IsGObject obj => obj -> JSM BeforeUnloadEvent+castToBeforeUnloadEvent = castTo gTypeBeforeUnloadEvent "BeforeUnloadEvent"++gTypeBeforeUnloadEvent :: JSM GType+gTypeBeforeUnloadEvent = GType . Object <$> jsg "BeforeUnloadEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.BiquadFilterNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode Mozilla BiquadFilterNode documentation>+newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal }++instance PToJSVal BiquadFilterNode where+  pToJSVal = unBiquadFilterNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal BiquadFilterNode where+  pFromJSVal = BiquadFilterNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal BiquadFilterNode where+  toJSVal = return . unBiquadFilterNode+  {-# INLINE toJSVal #-}++instance FromJSVal BiquadFilterNode where+  fromJSVal v = fmap BiquadFilterNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject BiquadFilterNode where+  makeObject = makeObject . unBiquadFilterNode++instance IsAudioNode BiquadFilterNode+instance IsEventTarget BiquadFilterNode+instance IsGObject BiquadFilterNode where+  toGObject = GObject . unBiquadFilterNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = BiquadFilterNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToBiquadFilterNode :: IsGObject obj => obj -> JSM BiquadFilterNode+castToBiquadFilterNode = castTo gTypeBiquadFilterNode "BiquadFilterNode"++gTypeBiquadFilterNode :: JSM GType+gTypeBiquadFilterNode = GType . Object <$> jsg "BiquadFilterNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Blob".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation>+newtype Blob = Blob { unBlob :: JSVal }++instance PToJSVal Blob where+  pToJSVal = unBlob+  {-# INLINE pToJSVal #-}++instance PFromJSVal Blob where+  pFromJSVal = Blob+  {-# INLINE pFromJSVal #-}++instance ToJSVal Blob where+  toJSVal = return . unBlob+  {-# INLINE toJSVal #-}++instance FromJSVal Blob where+  fromJSVal v = fmap Blob <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Blob where+  makeObject = makeObject . unBlob++class IsGObject o => IsBlob o+toBlob :: IsBlob o => o -> Blob+toBlob = unsafeCastGObject . toGObject++instance IsBlob Blob+instance IsGObject Blob where+  toGObject = GObject . unBlob+  {-# INLINE toGObject #-}+  unsafeCastGObject = Blob . unGObject+  {-# INLINE unsafeCastGObject #-}++castToBlob :: IsGObject obj => obj -> JSM Blob+castToBlob = castTo gTypeBlob "Blob"++gTypeBlob :: JSM GType+gTypeBlob = GType . Object <$> jsg "Blob"+#else+type IsBlob o = BlobClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CDATASection".+-- Base interface functions are in:+--+--     * "JSDOM.Text"+--     * "JSDOM.CharacterData"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CDATASection Mozilla CDATASection documentation>+newtype CDATASection = CDATASection { unCDATASection :: JSVal }++instance PToJSVal CDATASection where+  pToJSVal = unCDATASection+  {-# INLINE pToJSVal #-}++instance PFromJSVal CDATASection where+  pFromJSVal = CDATASection+  {-# INLINE pFromJSVal #-}++instance ToJSVal CDATASection where+  toJSVal = return . unCDATASection+  {-# INLINE toJSVal #-}++instance FromJSVal CDATASection where+  fromJSVal v = fmap CDATASection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CDATASection where+  makeObject = makeObject . unCDATASection++instance IsText CDATASection+instance IsCharacterData CDATASection+instance IsNode CDATASection+instance IsEventTarget CDATASection+instance IsGObject CDATASection where+  toGObject = GObject . unCDATASection+  {-# INLINE toGObject #-}+  unsafeCastGObject = CDATASection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCDATASection :: IsGObject obj => obj -> JSM CDATASection+castToCDATASection = castTo gTypeCDATASection "CDATASection"++gTypeCDATASection :: JSM GType+gTypeCDATASection = GType . Object <$> jsg "CDATASection"+#else+type IsCDATASection o = CDATASectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSS".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSS Mozilla CSS documentation>+newtype CSS = CSS { unCSS :: JSVal }++instance PToJSVal CSS where+  pToJSVal = unCSS+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSS where+  pFromJSVal = CSS+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSS where+  toJSVal = return . unCSS+  {-# INLINE toJSVal #-}++instance FromJSVal CSS where+  fromJSVal v = fmap CSS <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSS where+  makeObject = makeObject . unCSS++instance IsGObject CSS where+  toGObject = GObject . unCSS+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSS . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSS :: IsGObject obj => obj -> JSM CSS+castToCSS = castTo gTypeCSS "CSS"++gTypeCSS :: JSM GType+gTypeCSS = GType . Object <$> jsg "CSS"+#else+#ifndef USE_OLD_WEBKIT+type IsCSS o = CSSClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSCharsetRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule Mozilla CSSCharsetRule documentation>+newtype CSSCharsetRule = CSSCharsetRule { unCSSCharsetRule :: JSVal }++instance PToJSVal CSSCharsetRule where+  pToJSVal = unCSSCharsetRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSCharsetRule where+  pFromJSVal = CSSCharsetRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSCharsetRule where+  toJSVal = return . unCSSCharsetRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSCharsetRule where+  fromJSVal v = fmap CSSCharsetRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSCharsetRule where+  makeObject = makeObject . unCSSCharsetRule++instance IsCSSRule CSSCharsetRule+instance IsGObject CSSCharsetRule where+  toGObject = GObject . unCSSCharsetRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSCharsetRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSCharsetRule :: IsGObject obj => obj -> JSM CSSCharsetRule+castToCSSCharsetRule = castTo gTypeCSSCharsetRule "CSSCharsetRule"++gTypeCSSCharsetRule :: JSM GType+gTypeCSSCharsetRule = GType . Object <$> jsg "CSSCharsetRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSFontFaceLoadEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent Mozilla CSSFontFaceLoadEvent documentation>+newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal }++instance PToJSVal CSSFontFaceLoadEvent where+  pToJSVal = unCSSFontFaceLoadEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSFontFaceLoadEvent where+  pFromJSVal = CSSFontFaceLoadEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSFontFaceLoadEvent where+  toJSVal = return . unCSSFontFaceLoadEvent+  {-# INLINE toJSVal #-}++instance FromJSVal CSSFontFaceLoadEvent where+  fromJSVal v = fmap CSSFontFaceLoadEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSFontFaceLoadEvent where+  makeObject = makeObject . unCSSFontFaceLoadEvent++instance IsEvent CSSFontFaceLoadEvent+instance IsGObject CSSFontFaceLoadEvent where+  toGObject = GObject . unCSSFontFaceLoadEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSFontFaceLoadEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSFontFaceLoadEvent :: IsGObject obj => obj -> JSM CSSFontFaceLoadEvent+castToCSSFontFaceLoadEvent = castTo gTypeCSSFontFaceLoadEvent "CSSFontFaceLoadEvent"++gTypeCSSFontFaceLoadEvent :: JSM GType+gTypeCSSFontFaceLoadEvent = GType . Object <$> jsg "CSSFontFaceLoadEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSFontFaceRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule Mozilla CSSFontFaceRule documentation>+newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal }++instance PToJSVal CSSFontFaceRule where+  pToJSVal = unCSSFontFaceRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSFontFaceRule where+  pFromJSVal = CSSFontFaceRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSFontFaceRule where+  toJSVal = return . unCSSFontFaceRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSFontFaceRule where+  fromJSVal v = fmap CSSFontFaceRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSFontFaceRule where+  makeObject = makeObject . unCSSFontFaceRule++instance IsCSSRule CSSFontFaceRule+instance IsGObject CSSFontFaceRule where+  toGObject = GObject . unCSSFontFaceRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSFontFaceRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSFontFaceRule :: IsGObject obj => obj -> JSM CSSFontFaceRule+castToCSSFontFaceRule = castTo gTypeCSSFontFaceRule "CSSFontFaceRule"++gTypeCSSFontFaceRule :: JSM GType+gTypeCSSFontFaceRule = GType . Object <$> jsg "CSSFontFaceRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSImportRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule Mozilla CSSImportRule documentation>+newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal }++instance PToJSVal CSSImportRule where+  pToJSVal = unCSSImportRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSImportRule where+  pFromJSVal = CSSImportRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSImportRule where+  toJSVal = return . unCSSImportRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSImportRule where+  fromJSVal v = fmap CSSImportRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSImportRule where+  makeObject = makeObject . unCSSImportRule++instance IsCSSRule CSSImportRule+instance IsGObject CSSImportRule where+  toGObject = GObject . unCSSImportRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSImportRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSImportRule :: IsGObject obj => obj -> JSM CSSImportRule+castToCSSImportRule = castTo gTypeCSSImportRule "CSSImportRule"++gTypeCSSImportRule :: JSM GType+gTypeCSSImportRule = GType . Object <$> jsg "CSSImportRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSKeyframeRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule Mozilla CSSKeyframeRule documentation>+newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal }++instance PToJSVal CSSKeyframeRule where+  pToJSVal = unCSSKeyframeRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSKeyframeRule where+  pFromJSVal = CSSKeyframeRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSKeyframeRule where+  toJSVal = return . unCSSKeyframeRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSKeyframeRule where+  fromJSVal v = fmap CSSKeyframeRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSKeyframeRule where+  makeObject = makeObject . unCSSKeyframeRule++instance IsCSSRule CSSKeyframeRule+instance IsGObject CSSKeyframeRule where+  toGObject = GObject . unCSSKeyframeRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSKeyframeRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSKeyframeRule :: IsGObject obj => obj -> JSM CSSKeyframeRule+castToCSSKeyframeRule = castTo gTypeCSSKeyframeRule "CSSKeyframeRule"++gTypeCSSKeyframeRule :: JSM GType+gTypeCSSKeyframeRule = GType . Object <$> jsg "CSSKeyframeRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSKeyframesRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule Mozilla CSSKeyframesRule documentation>+newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal }++instance PToJSVal CSSKeyframesRule where+  pToJSVal = unCSSKeyframesRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSKeyframesRule where+  pFromJSVal = CSSKeyframesRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSKeyframesRule where+  toJSVal = return . unCSSKeyframesRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSKeyframesRule where+  fromJSVal v = fmap CSSKeyframesRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSKeyframesRule where+  makeObject = makeObject . unCSSKeyframesRule++instance IsCSSRule CSSKeyframesRule+instance IsGObject CSSKeyframesRule where+  toGObject = GObject . unCSSKeyframesRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSKeyframesRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSKeyframesRule :: IsGObject obj => obj -> JSM CSSKeyframesRule+castToCSSKeyframesRule = castTo gTypeCSSKeyframesRule "CSSKeyframesRule"++gTypeCSSKeyframesRule :: JSM GType+gTypeCSSKeyframesRule = GType . Object <$> jsg "CSSKeyframesRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSMediaRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule Mozilla CSSMediaRule documentation>+newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal }++instance PToJSVal CSSMediaRule where+  pToJSVal = unCSSMediaRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSMediaRule where+  pFromJSVal = CSSMediaRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSMediaRule where+  toJSVal = return . unCSSMediaRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSMediaRule where+  fromJSVal v = fmap CSSMediaRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSMediaRule where+  makeObject = makeObject . unCSSMediaRule++instance IsCSSRule CSSMediaRule+instance IsGObject CSSMediaRule where+  toGObject = GObject . unCSSMediaRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSMediaRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSMediaRule :: IsGObject obj => obj -> JSM CSSMediaRule+castToCSSMediaRule = castTo gTypeCSSMediaRule "CSSMediaRule"++gTypeCSSMediaRule :: JSM GType+gTypeCSSMediaRule = GType . Object <$> jsg "CSSMediaRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSPageRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule Mozilla CSSPageRule documentation>+newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal }++instance PToJSVal CSSPageRule where+  pToJSVal = unCSSPageRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSPageRule where+  pFromJSVal = CSSPageRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSPageRule where+  toJSVal = return . unCSSPageRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSPageRule where+  fromJSVal v = fmap CSSPageRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSPageRule where+  makeObject = makeObject . unCSSPageRule++instance IsCSSRule CSSPageRule+instance IsGObject CSSPageRule where+  toGObject = GObject . unCSSPageRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSPageRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSPageRule :: IsGObject obj => obj -> JSM CSSPageRule+castToCSSPageRule = castTo gTypeCSSPageRule "CSSPageRule"++gTypeCSSPageRule :: JSM GType+gTypeCSSPageRule = GType . Object <$> jsg "CSSPageRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSPrimitiveValue".+-- Base interface functions are in:+--+--     * "JSDOM.CSSValue"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue Mozilla CSSPrimitiveValue documentation>+newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal }++instance PToJSVal CSSPrimitiveValue where+  pToJSVal = unCSSPrimitiveValue+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSPrimitiveValue where+  pFromJSVal = CSSPrimitiveValue+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSPrimitiveValue where+  toJSVal = return . unCSSPrimitiveValue+  {-# INLINE toJSVal #-}++instance FromJSVal CSSPrimitiveValue where+  fromJSVal v = fmap CSSPrimitiveValue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSPrimitiveValue where+  makeObject = makeObject . unCSSPrimitiveValue++instance IsCSSValue CSSPrimitiveValue+instance IsGObject CSSPrimitiveValue where+  toGObject = GObject . unCSSPrimitiveValue+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSPrimitiveValue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSPrimitiveValue :: IsGObject obj => obj -> JSM CSSPrimitiveValue+castToCSSPrimitiveValue = castTo gTypeCSSPrimitiveValue "CSSPrimitiveValue"++gTypeCSSPrimitiveValue :: JSM GType+gTypeCSSPrimitiveValue = GType . Object <$> jsg "CSSPrimitiveValue"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSRule".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule Mozilla CSSRule documentation>+newtype CSSRule = CSSRule { unCSSRule :: JSVal }++instance PToJSVal CSSRule where+  pToJSVal = unCSSRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSRule where+  pFromJSVal = CSSRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSRule where+  toJSVal = return . unCSSRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSRule where+  fromJSVal v = fmap CSSRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSRule where+  makeObject = makeObject . unCSSRule++class IsGObject o => IsCSSRule o+toCSSRule :: IsCSSRule o => o -> CSSRule+toCSSRule = unsafeCastGObject . toGObject++instance IsCSSRule CSSRule+instance IsGObject CSSRule where+  toGObject = GObject . unCSSRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSRule :: IsGObject obj => obj -> JSM CSSRule+castToCSSRule = castTo gTypeCSSRule "CSSRule"++gTypeCSSRule :: JSM GType+gTypeCSSRule = GType . Object <$> jsg "CSSRule"+#else+type IsCSSRule o = CSSRuleClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSRuleList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList Mozilla CSSRuleList documentation>+newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal }++instance PToJSVal CSSRuleList where+  pToJSVal = unCSSRuleList+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSRuleList where+  pFromJSVal = CSSRuleList+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSRuleList where+  toJSVal = return . unCSSRuleList+  {-# INLINE toJSVal #-}++instance FromJSVal CSSRuleList where+  fromJSVal v = fmap CSSRuleList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSRuleList where+  makeObject = makeObject . unCSSRuleList++instance IsGObject CSSRuleList where+  toGObject = GObject . unCSSRuleList+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSRuleList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSRuleList :: IsGObject obj => obj -> JSM CSSRuleList+castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList"++gTypeCSSRuleList :: JSM GType+gTypeCSSRuleList = GType . Object <$> jsg "CSSRuleList"+#else+type IsCSSRuleList o = CSSRuleListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSStyleDeclaration".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration Mozilla CSSStyleDeclaration documentation>+newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal }++instance PToJSVal CSSStyleDeclaration where+  pToJSVal = unCSSStyleDeclaration+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSStyleDeclaration where+  pFromJSVal = CSSStyleDeclaration+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSStyleDeclaration where+  toJSVal = return . unCSSStyleDeclaration+  {-# INLINE toJSVal #-}++instance FromJSVal CSSStyleDeclaration where+  fromJSVal v = fmap CSSStyleDeclaration <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSStyleDeclaration where+  makeObject = makeObject . unCSSStyleDeclaration++instance IsGObject CSSStyleDeclaration where+  toGObject = GObject . unCSSStyleDeclaration+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSStyleDeclaration . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSStyleDeclaration :: IsGObject obj => obj -> JSM CSSStyleDeclaration+castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration"++gTypeCSSStyleDeclaration :: JSM GType+gTypeCSSStyleDeclaration = GType . Object <$> jsg "CSSStyleDeclaration"+#else+type IsCSSStyleDeclaration o = CSSStyleDeclarationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSStyleRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule Mozilla CSSStyleRule documentation>+newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal }++instance PToJSVal CSSStyleRule where+  pToJSVal = unCSSStyleRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSStyleRule where+  pFromJSVal = CSSStyleRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSStyleRule where+  toJSVal = return . unCSSStyleRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSStyleRule where+  fromJSVal v = fmap CSSStyleRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSStyleRule where+  makeObject = makeObject . unCSSStyleRule++instance IsCSSRule CSSStyleRule+instance IsGObject CSSStyleRule where+  toGObject = GObject . unCSSStyleRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSStyleRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSStyleRule :: IsGObject obj => obj -> JSM CSSStyleRule+castToCSSStyleRule = castTo gTypeCSSStyleRule "CSSStyleRule"++gTypeCSSStyleRule :: JSM GType+gTypeCSSStyleRule = GType . Object <$> jsg "CSSStyleRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSStyleSheet".+-- Base interface functions are in:+--+--     * "JSDOM.StyleSheet"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet Mozilla CSSStyleSheet documentation>+newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal }++instance PToJSVal CSSStyleSheet where+  pToJSVal = unCSSStyleSheet+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSStyleSheet where+  pFromJSVal = CSSStyleSheet+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSStyleSheet where+  toJSVal = return . unCSSStyleSheet+  {-# INLINE toJSVal #-}++instance FromJSVal CSSStyleSheet where+  fromJSVal v = fmap CSSStyleSheet <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSStyleSheet where+  makeObject = makeObject . unCSSStyleSheet++instance IsStyleSheet CSSStyleSheet+instance IsGObject CSSStyleSheet where+  toGObject = GObject . unCSSStyleSheet+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSStyleSheet . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSStyleSheet :: IsGObject obj => obj -> JSM CSSStyleSheet+castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet"++gTypeCSSStyleSheet :: JSM GType+gTypeCSSStyleSheet = GType . Object <$> jsg "CSSStyleSheet"+#else+type IsCSSStyleSheet o = CSSStyleSheetClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSSupportsRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule Mozilla CSSSupportsRule documentation>+newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal }++instance PToJSVal CSSSupportsRule where+  pToJSVal = unCSSSupportsRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSSupportsRule where+  pFromJSVal = CSSSupportsRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSSupportsRule where+  toJSVal = return . unCSSSupportsRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSSupportsRule where+  fromJSVal v = fmap CSSSupportsRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSSupportsRule where+  makeObject = makeObject . unCSSSupportsRule++instance IsCSSRule CSSSupportsRule+instance IsGObject CSSSupportsRule where+  toGObject = GObject . unCSSSupportsRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSSupportsRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSSupportsRule :: IsGObject obj => obj -> JSM CSSSupportsRule+castToCSSSupportsRule = castTo gTypeCSSSupportsRule "CSSSupportsRule"++gTypeCSSSupportsRule :: JSM GType+gTypeCSSSupportsRule = GType . Object <$> jsg "CSSSupportsRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSUnknownRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSUnknownRule Mozilla CSSUnknownRule documentation>+newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal }++instance PToJSVal CSSUnknownRule where+  pToJSVal = unCSSUnknownRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSUnknownRule where+  pFromJSVal = CSSUnknownRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSUnknownRule where+  toJSVal = return . unCSSUnknownRule+  {-# INLINE toJSVal #-}++instance FromJSVal CSSUnknownRule where+  fromJSVal v = fmap CSSUnknownRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSUnknownRule where+  makeObject = makeObject . unCSSUnknownRule++instance IsCSSRule CSSUnknownRule+instance IsGObject CSSUnknownRule where+  toGObject = GObject . unCSSUnknownRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSUnknownRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSUnknownRule :: IsGObject obj => obj -> JSM CSSUnknownRule+castToCSSUnknownRule = castTo gTypeCSSUnknownRule "CSSUnknownRule"++gTypeCSSUnknownRule :: JSM GType+gTypeCSSUnknownRule = GType . Object <$> jsg "CSSUnknownRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSValue".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue Mozilla CSSValue documentation>+newtype CSSValue = CSSValue { unCSSValue :: JSVal }++instance PToJSVal CSSValue where+  pToJSVal = unCSSValue+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSValue where+  pFromJSVal = CSSValue+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSValue where+  toJSVal = return . unCSSValue+  {-# INLINE toJSVal #-}++instance FromJSVal CSSValue where+  fromJSVal v = fmap CSSValue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSValue where+  makeObject = makeObject . unCSSValue++class IsGObject o => IsCSSValue o+toCSSValue :: IsCSSValue o => o -> CSSValue+toCSSValue = unsafeCastGObject . toGObject++instance IsCSSValue CSSValue+instance IsGObject CSSValue where+  toGObject = GObject . unCSSValue+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSValue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSValue :: IsGObject obj => obj -> JSM CSSValue+castToCSSValue = castTo gTypeCSSValue "CSSValue"++gTypeCSSValue :: JSM GType+gTypeCSSValue = GType . Object <$> jsg "CSSValue"+#else+type IsCSSValue o = CSSValueClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CSSValueList".+-- Base interface functions are in:+--+--     * "JSDOM.CSSValue"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList Mozilla CSSValueList documentation>+newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal }++instance PToJSVal CSSValueList where+  pToJSVal = unCSSValueList+  {-# INLINE pToJSVal #-}++instance PFromJSVal CSSValueList where+  pFromJSVal = CSSValueList+  {-# INLINE pFromJSVal #-}++instance ToJSVal CSSValueList where+  toJSVal = return . unCSSValueList+  {-# INLINE toJSVal #-}++instance FromJSVal CSSValueList where+  fromJSVal v = fmap CSSValueList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CSSValueList where+  makeObject = makeObject . unCSSValueList++class IsCSSValue o => IsCSSValueList o+toCSSValueList :: IsCSSValueList o => o -> CSSValueList+toCSSValueList = unsafeCastGObject . toGObject++instance IsCSSValueList CSSValueList+instance IsCSSValue CSSValueList+instance IsGObject CSSValueList where+  toGObject = GObject . unCSSValueList+  {-# INLINE toGObject #-}+  unsafeCastGObject = CSSValueList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCSSValueList :: IsGObject obj => obj -> JSM CSSValueList+castToCSSValueList = castTo gTypeCSSValueList "CSSValueList"++gTypeCSSValueList :: JSM GType+gTypeCSSValueList = GType . Object <$> jsg "CSSValueList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CanvasGradient".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient Mozilla CanvasGradient documentation>+newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal }++instance PToJSVal CanvasGradient where+  pToJSVal = unCanvasGradient+  {-# INLINE pToJSVal #-}++instance PFromJSVal CanvasGradient where+  pFromJSVal = CanvasGradient+  {-# INLINE pFromJSVal #-}++instance ToJSVal CanvasGradient where+  toJSVal = return . unCanvasGradient+  {-# INLINE toJSVal #-}++instance FromJSVal CanvasGradient where+  fromJSVal v = fmap CanvasGradient <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CanvasGradient where+  makeObject = makeObject . unCanvasGradient++instance IsGObject CanvasGradient where+  toGObject = GObject . unCanvasGradient+  {-# INLINE toGObject #-}+  unsafeCastGObject = CanvasGradient . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCanvasGradient :: IsGObject obj => obj -> JSM CanvasGradient+castToCanvasGradient = castTo gTypeCanvasGradient "CanvasGradient"++gTypeCanvasGradient :: JSM GType+gTypeCanvasGradient = GType . Object <$> jsg "CanvasGradient"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CanvasPattern".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPattern Mozilla CanvasPattern documentation>+newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal }++instance PToJSVal CanvasPattern where+  pToJSVal = unCanvasPattern+  {-# INLINE pToJSVal #-}++instance PFromJSVal CanvasPattern where+  pFromJSVal = CanvasPattern+  {-# INLINE pFromJSVal #-}++instance ToJSVal CanvasPattern where+  toJSVal = return . unCanvasPattern+  {-# INLINE toJSVal #-}++instance FromJSVal CanvasPattern where+  fromJSVal v = fmap CanvasPattern <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CanvasPattern where+  makeObject = makeObject . unCanvasPattern++instance IsGObject CanvasPattern where+  toGObject = GObject . unCanvasPattern+  {-# INLINE toGObject #-}+  unsafeCastGObject = CanvasPattern . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCanvasPattern :: IsGObject obj => obj -> JSM CanvasPattern+castToCanvasPattern = castTo gTypeCanvasPattern "CanvasPattern"++gTypeCanvasPattern :: JSM GType+gTypeCanvasPattern = GType . Object <$> jsg "CanvasPattern"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CanvasProxy".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CanvasProxy Mozilla CanvasProxy documentation>+newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal }++instance PToJSVal CanvasProxy where+  pToJSVal = unCanvasProxy+  {-# INLINE pToJSVal #-}++instance PFromJSVal CanvasProxy where+  pFromJSVal = CanvasProxy+  {-# INLINE pFromJSVal #-}++instance ToJSVal CanvasProxy where+  toJSVal = return . unCanvasProxy+  {-# INLINE toJSVal #-}++instance FromJSVal CanvasProxy where+  fromJSVal v = fmap CanvasProxy <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CanvasProxy where+  makeObject = makeObject . unCanvasProxy++instance IsGObject CanvasProxy where+  toGObject = GObject . unCanvasProxy+  {-# INLINE toGObject #-}+  unsafeCastGObject = CanvasProxy . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCanvasProxy :: IsGObject obj => obj -> JSM CanvasProxy+castToCanvasProxy = castTo gTypeCanvasProxy "CanvasProxy"++gTypeCanvasProxy :: JSM GType+gTypeCanvasProxy = GType . Object <$> jsg "CanvasProxy"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CanvasRenderingContext".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext Mozilla CanvasRenderingContext documentation>+newtype CanvasRenderingContext = CanvasRenderingContext { unCanvasRenderingContext :: JSVal }++instance PToJSVal CanvasRenderingContext where+  pToJSVal = unCanvasRenderingContext+  {-# INLINE pToJSVal #-}++instance PFromJSVal CanvasRenderingContext where+  pFromJSVal = CanvasRenderingContext+  {-# INLINE pFromJSVal #-}++instance ToJSVal CanvasRenderingContext where+  toJSVal = return . unCanvasRenderingContext+  {-# INLINE toJSVal #-}++instance FromJSVal CanvasRenderingContext where+  fromJSVal v = fmap CanvasRenderingContext <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CanvasRenderingContext where+  makeObject = makeObject . unCanvasRenderingContext++class IsGObject o => IsCanvasRenderingContext o+toCanvasRenderingContext :: IsCanvasRenderingContext o => o -> CanvasRenderingContext+toCanvasRenderingContext = unsafeCastGObject . toGObject++instance IsCanvasRenderingContext CanvasRenderingContext+instance IsGObject CanvasRenderingContext where+  toGObject = GObject . unCanvasRenderingContext+  {-# INLINE toGObject #-}+  unsafeCastGObject = CanvasRenderingContext . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCanvasRenderingContext :: IsGObject obj => obj -> JSM CanvasRenderingContext+castToCanvasRenderingContext = castTo gTypeCanvasRenderingContext "CanvasRenderingContext"++gTypeCanvasRenderingContext :: JSM GType+gTypeCanvasRenderingContext = GType . Object <$> jsg "CanvasRenderingContext"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CanvasRenderingContext2D".+-- Base interface functions are in:+--+--     * "JSDOM.CanvasRenderingContext"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D Mozilla CanvasRenderingContext2D documentation>+newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal }++instance PToJSVal CanvasRenderingContext2D where+  pToJSVal = unCanvasRenderingContext2D+  {-# INLINE pToJSVal #-}++instance PFromJSVal CanvasRenderingContext2D where+  pFromJSVal = CanvasRenderingContext2D+  {-# INLINE pFromJSVal #-}++instance ToJSVal CanvasRenderingContext2D where+  toJSVal = return . unCanvasRenderingContext2D+  {-# INLINE toJSVal #-}++instance FromJSVal CanvasRenderingContext2D where+  fromJSVal v = fmap CanvasRenderingContext2D <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CanvasRenderingContext2D where+  makeObject = makeObject . unCanvasRenderingContext2D++instance IsCanvasRenderingContext CanvasRenderingContext2D+instance IsGObject CanvasRenderingContext2D where+  toGObject = GObject . unCanvasRenderingContext2D+  {-# INLINE toGObject #-}+  unsafeCastGObject = CanvasRenderingContext2D . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCanvasRenderingContext2D :: IsGObject obj => obj -> JSM CanvasRenderingContext2D+castToCanvasRenderingContext2D = castTo gTypeCanvasRenderingContext2D "CanvasRenderingContext2D"++gTypeCanvasRenderingContext2D :: JSM GType+gTypeCanvasRenderingContext2D = GType . Object <$> jsg "CanvasRenderingContext2D"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CapabilityRange".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange Mozilla CapabilityRange documentation>+newtype CapabilityRange = CapabilityRange { unCapabilityRange :: JSVal }++instance PToJSVal CapabilityRange where+  pToJSVal = unCapabilityRange+  {-# INLINE pToJSVal #-}++instance PFromJSVal CapabilityRange where+  pFromJSVal = CapabilityRange+  {-# INLINE pFromJSVal #-}++instance ToJSVal CapabilityRange where+  toJSVal = return . unCapabilityRange+  {-# INLINE toJSVal #-}++instance FromJSVal CapabilityRange where+  fromJSVal v = fmap CapabilityRange <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CapabilityRange where+  makeObject = makeObject . unCapabilityRange++instance IsGObject CapabilityRange where+  toGObject = GObject . unCapabilityRange+  {-# INLINE toGObject #-}+  unsafeCastGObject = CapabilityRange . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCapabilityRange :: IsGObject obj => obj -> JSM CapabilityRange+castToCapabilityRange = castTo gTypeCapabilityRange "CapabilityRange"++gTypeCapabilityRange :: JSM GType+gTypeCapabilityRange = GType . Object <$> jsg "CapabilityRange"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ChannelMergerNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ChannelMergerNode Mozilla ChannelMergerNode documentation>+newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal }++instance PToJSVal ChannelMergerNode where+  pToJSVal = unChannelMergerNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal ChannelMergerNode where+  pFromJSVal = ChannelMergerNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal ChannelMergerNode where+  toJSVal = return . unChannelMergerNode+  {-# INLINE toJSVal #-}++instance FromJSVal ChannelMergerNode where+  fromJSVal v = fmap ChannelMergerNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ChannelMergerNode where+  makeObject = makeObject . unChannelMergerNode++instance IsAudioNode ChannelMergerNode+instance IsEventTarget ChannelMergerNode+instance IsGObject ChannelMergerNode where+  toGObject = GObject . unChannelMergerNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = ChannelMergerNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToChannelMergerNode :: IsGObject obj => obj -> JSM ChannelMergerNode+castToChannelMergerNode = castTo gTypeChannelMergerNode "ChannelMergerNode"++gTypeChannelMergerNode :: JSM GType+gTypeChannelMergerNode = GType . Object <$> jsg "ChannelMergerNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ChannelSplitterNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ChannelSplitterNode Mozilla ChannelSplitterNode documentation>+newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal }++instance PToJSVal ChannelSplitterNode where+  pToJSVal = unChannelSplitterNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal ChannelSplitterNode where+  pFromJSVal = ChannelSplitterNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal ChannelSplitterNode where+  toJSVal = return . unChannelSplitterNode+  {-# INLINE toJSVal #-}++instance FromJSVal ChannelSplitterNode where+  fromJSVal v = fmap ChannelSplitterNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ChannelSplitterNode where+  makeObject = makeObject . unChannelSplitterNode++instance IsAudioNode ChannelSplitterNode+instance IsEventTarget ChannelSplitterNode+instance IsGObject ChannelSplitterNode where+  toGObject = GObject . unChannelSplitterNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = ChannelSplitterNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToChannelSplitterNode :: IsGObject obj => obj -> JSM ChannelSplitterNode+castToChannelSplitterNode = castTo gTypeChannelSplitterNode "ChannelSplitterNode"++gTypeChannelSplitterNode :: JSM GType+gTypeChannelSplitterNode = GType . Object <$> jsg "ChannelSplitterNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CharacterData".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData Mozilla CharacterData documentation>+newtype CharacterData = CharacterData { unCharacterData :: JSVal }++instance PToJSVal CharacterData where+  pToJSVal = unCharacterData+  {-# INLINE pToJSVal #-}++instance PFromJSVal CharacterData where+  pFromJSVal = CharacterData+  {-# INLINE pFromJSVal #-}++instance ToJSVal CharacterData where+  toJSVal = return . unCharacterData+  {-# INLINE toJSVal #-}++instance FromJSVal CharacterData where+  fromJSVal v = fmap CharacterData <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CharacterData where+  makeObject = makeObject . unCharacterData++class IsNode o => IsCharacterData o+toCharacterData :: IsCharacterData o => o -> CharacterData+toCharacterData = unsafeCastGObject . toGObject++instance IsCharacterData CharacterData+instance IsNode CharacterData+instance IsEventTarget CharacterData+instance IsGObject CharacterData where+  toGObject = GObject . unCharacterData+  {-# INLINE toGObject #-}+  unsafeCastGObject = CharacterData . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCharacterData :: IsGObject obj => obj -> JSM CharacterData+castToCharacterData = castTo gTypeCharacterData "CharacterData"++gTypeCharacterData :: JSM GType+gTypeCharacterData = GType . Object <$> jsg "CharacterData"+#else+type IsCharacterData o = CharacterDataClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ChildNode".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode Mozilla ChildNode documentation>+newtype ChildNode = ChildNode { unChildNode :: JSVal }++instance PToJSVal ChildNode where+  pToJSVal = unChildNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal ChildNode where+  pFromJSVal = ChildNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal ChildNode where+  toJSVal = return . unChildNode+  {-# INLINE toJSVal #-}++instance FromJSVal ChildNode where+  fromJSVal v = fmap ChildNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ChildNode where+  makeObject = makeObject . unChildNode++instance IsGObject ChildNode where+  toGObject = GObject . unChildNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = ChildNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToChildNode :: IsGObject obj => obj -> JSM ChildNode+castToChildNode = castTo gTypeChildNode "ChildNode"++gTypeChildNode :: JSM GType+gTypeChildNode = GType . Object <$> jsg "ChildNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ClientRect".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect Mozilla ClientRect documentation>+newtype ClientRect = ClientRect { unClientRect :: JSVal }++instance PToJSVal ClientRect where+  pToJSVal = unClientRect+  {-# INLINE pToJSVal #-}++instance PFromJSVal ClientRect where+  pFromJSVal = ClientRect+  {-# INLINE pFromJSVal #-}++instance ToJSVal ClientRect where+  toJSVal = return . unClientRect+  {-# INLINE toJSVal #-}++instance FromJSVal ClientRect where+  fromJSVal v = fmap ClientRect <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ClientRect where+  makeObject = makeObject . unClientRect++instance IsGObject ClientRect where+  toGObject = GObject . unClientRect+  {-# INLINE toGObject #-}+  unsafeCastGObject = ClientRect . unGObject+  {-# INLINE unsafeCastGObject #-}++castToClientRect :: IsGObject obj => obj -> JSM ClientRect+castToClientRect = castTo gTypeClientRect "ClientRect"++gTypeClientRect :: JSM GType+gTypeClientRect = GType . Object <$> jsg "ClientRect"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ClientRectList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList Mozilla ClientRectList documentation>+newtype ClientRectList = ClientRectList { unClientRectList :: JSVal }++instance PToJSVal ClientRectList where+  pToJSVal = unClientRectList+  {-# INLINE pToJSVal #-}++instance PFromJSVal ClientRectList where+  pFromJSVal = ClientRectList+  {-# INLINE pFromJSVal #-}++instance ToJSVal ClientRectList where+  toJSVal = return . unClientRectList+  {-# INLINE toJSVal #-}++instance FromJSVal ClientRectList where+  fromJSVal v = fmap ClientRectList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ClientRectList where+  makeObject = makeObject . unClientRectList++instance IsGObject ClientRectList where+  toGObject = GObject . unClientRectList+  {-# INLINE toGObject #-}+  unsafeCastGObject = ClientRectList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToClientRectList :: IsGObject obj => obj -> JSM ClientRectList+castToClientRectList = castTo gTypeClientRectList "ClientRectList"++gTypeClientRectList :: JSM GType+gTypeClientRectList = GType . Object <$> jsg "ClientRectList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CloseEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent Mozilla CloseEvent documentation>+newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal }++instance PToJSVal CloseEvent where+  pToJSVal = unCloseEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal CloseEvent where+  pFromJSVal = CloseEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal CloseEvent where+  toJSVal = return . unCloseEvent+  {-# INLINE toJSVal #-}++instance FromJSVal CloseEvent where+  fromJSVal v = fmap CloseEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CloseEvent where+  makeObject = makeObject . unCloseEvent++instance IsEvent CloseEvent+instance IsGObject CloseEvent where+  toGObject = GObject . unCloseEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = CloseEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCloseEvent :: IsGObject obj => obj -> JSM CloseEvent+castToCloseEvent = castTo gTypeCloseEvent "CloseEvent"++gTypeCloseEvent :: JSM GType+gTypeCloseEvent = GType . Object <$> jsg "CloseEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CommandLineAPIHost".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost Mozilla CommandLineAPIHost documentation>+newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal }++instance PToJSVal CommandLineAPIHost where+  pToJSVal = unCommandLineAPIHost+  {-# INLINE pToJSVal #-}++instance PFromJSVal CommandLineAPIHost where+  pFromJSVal = CommandLineAPIHost+  {-# INLINE pFromJSVal #-}++instance ToJSVal CommandLineAPIHost where+  toJSVal = return . unCommandLineAPIHost+  {-# INLINE toJSVal #-}++instance FromJSVal CommandLineAPIHost where+  fromJSVal v = fmap CommandLineAPIHost <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CommandLineAPIHost where+  makeObject = makeObject . unCommandLineAPIHost++instance IsGObject CommandLineAPIHost where+  toGObject = GObject . unCommandLineAPIHost+  {-# INLINE toGObject #-}+  unsafeCastGObject = CommandLineAPIHost . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCommandLineAPIHost :: IsGObject obj => obj -> JSM CommandLineAPIHost+castToCommandLineAPIHost = castTo gTypeCommandLineAPIHost "CommandLineAPIHost"++gTypeCommandLineAPIHost :: JSM GType+gTypeCommandLineAPIHost = GType . Object <$> jsg "CommandLineAPIHost"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Comment".+-- Base interface functions are in:+--+--     * "JSDOM.CharacterData"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation>+newtype Comment = Comment { unComment :: JSVal }++instance PToJSVal Comment where+  pToJSVal = unComment+  {-# INLINE pToJSVal #-}++instance PFromJSVal Comment where+  pFromJSVal = Comment+  {-# INLINE pFromJSVal #-}++instance ToJSVal Comment where+  toJSVal = return . unComment+  {-# INLINE toJSVal #-}++instance FromJSVal Comment where+  fromJSVal v = fmap Comment <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Comment where+  makeObject = makeObject . unComment++instance IsCharacterData Comment+instance IsNode Comment+instance IsEventTarget Comment+instance IsGObject Comment where+  toGObject = GObject . unComment+  {-# INLINE toGObject #-}+  unsafeCastGObject = Comment . unGObject+  {-# INLINE unsafeCastGObject #-}++castToComment :: IsGObject obj => obj -> JSM Comment+castToComment = castTo gTypeComment "Comment"++gTypeComment :: JSM GType+gTypeComment = GType . Object <$> jsg "Comment"+#else+type IsComment o = CommentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CompositionEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent Mozilla CompositionEvent documentation>+newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal }++instance PToJSVal CompositionEvent where+  pToJSVal = unCompositionEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal CompositionEvent where+  pFromJSVal = CompositionEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal CompositionEvent where+  toJSVal = return . unCompositionEvent+  {-# INLINE toJSVal #-}++instance FromJSVal CompositionEvent where+  fromJSVal v = fmap CompositionEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CompositionEvent where+  makeObject = makeObject . unCompositionEvent++instance IsUIEvent CompositionEvent+instance IsEvent CompositionEvent+instance IsGObject CompositionEvent where+  toGObject = GObject . unCompositionEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = CompositionEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCompositionEvent :: IsGObject obj => obj -> JSM CompositionEvent+castToCompositionEvent = castTo gTypeCompositionEvent "CompositionEvent"++gTypeCompositionEvent :: JSM GType+gTypeCompositionEvent = GType . Object <$> jsg "CompositionEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ConvolverNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode Mozilla ConvolverNode documentation>+newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal }++instance PToJSVal ConvolverNode where+  pToJSVal = unConvolverNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal ConvolverNode where+  pFromJSVal = ConvolverNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal ConvolverNode where+  toJSVal = return . unConvolverNode+  {-# INLINE toJSVal #-}++instance FromJSVal ConvolverNode where+  fromJSVal v = fmap ConvolverNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ConvolverNode where+  makeObject = makeObject . unConvolverNode++instance IsAudioNode ConvolverNode+instance IsEventTarget ConvolverNode+instance IsGObject ConvolverNode where+  toGObject = GObject . unConvolverNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = ConvolverNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToConvolverNode :: IsGObject obj => obj -> JSM ConvolverNode+castToConvolverNode = castTo gTypeConvolverNode "ConvolverNode"++gTypeConvolverNode :: JSM GType+gTypeConvolverNode = GType . Object <$> jsg "ConvolverNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Coordinates".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates Mozilla Coordinates documentation>+newtype Coordinates = Coordinates { unCoordinates :: JSVal }++instance PToJSVal Coordinates where+  pToJSVal = unCoordinates+  {-# INLINE pToJSVal #-}++instance PFromJSVal Coordinates where+  pFromJSVal = Coordinates+  {-# INLINE pFromJSVal #-}++instance ToJSVal Coordinates where+  toJSVal = return . unCoordinates+  {-# INLINE toJSVal #-}++instance FromJSVal Coordinates where+  fromJSVal v = fmap Coordinates <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Coordinates where+  makeObject = makeObject . unCoordinates++instance IsGObject Coordinates where+  toGObject = GObject . unCoordinates+  {-# INLINE toGObject #-}+  unsafeCastGObject = Coordinates . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCoordinates :: IsGObject obj => obj -> JSM Coordinates+castToCoordinates = castTo gTypeCoordinates "Coordinates"++gTypeCoordinates :: JSM GType+gTypeCoordinates = GType . Object <$> jsg "Coordinates"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Counter".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Counter Mozilla Counter documentation>+newtype Counter = Counter { unCounter :: JSVal }++instance PToJSVal Counter where+  pToJSVal = unCounter+  {-# INLINE pToJSVal #-}++instance PFromJSVal Counter where+  pFromJSVal = Counter+  {-# INLINE pFromJSVal #-}++instance ToJSVal Counter where+  toJSVal = return . unCounter+  {-# INLINE toJSVal #-}++instance FromJSVal Counter where+  fromJSVal v = fmap Counter <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Counter where+  makeObject = makeObject . unCounter++instance IsGObject Counter where+  toGObject = GObject . unCounter+  {-# INLINE toGObject #-}+  unsafeCastGObject = Counter . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCounter :: IsGObject obj => obj -> JSM Counter+castToCounter = castTo gTypeCounter "Counter"++gTypeCounter :: JSM GType+gTypeCounter = GType . Object <$> jsg "Counter"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Crypto".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Crypto Mozilla Crypto documentation>+newtype Crypto = Crypto { unCrypto :: JSVal }++instance PToJSVal Crypto where+  pToJSVal = unCrypto+  {-# INLINE pToJSVal #-}++instance PFromJSVal Crypto where+  pFromJSVal = Crypto+  {-# INLINE pFromJSVal #-}++instance ToJSVal Crypto where+  toJSVal = return . unCrypto+  {-# INLINE toJSVal #-}++instance FromJSVal Crypto where+  fromJSVal v = fmap Crypto <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Crypto where+  makeObject = makeObject . unCrypto++instance IsGObject Crypto where+  toGObject = GObject . unCrypto+  {-# INLINE toGObject #-}+  unsafeCastGObject = Crypto . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCrypto :: IsGObject obj => obj -> JSM Crypto+castToCrypto = castTo gTypeCrypto "Crypto"++gTypeCrypto :: JSM GType+gTypeCrypto = GType . Object <$> jsg "Crypto"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CryptoKey".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey Mozilla CryptoKey documentation>+newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal }++instance PToJSVal CryptoKey where+  pToJSVal = unCryptoKey+  {-# INLINE pToJSVal #-}++instance PFromJSVal CryptoKey where+  pFromJSVal = CryptoKey+  {-# INLINE pFromJSVal #-}++instance ToJSVal CryptoKey where+  toJSVal = return . unCryptoKey+  {-# INLINE toJSVal #-}++instance FromJSVal CryptoKey where+  fromJSVal v = fmap CryptoKey <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CryptoKey where+  makeObject = makeObject . unCryptoKey++instance IsGObject CryptoKey where+  toGObject = GObject . unCryptoKey+  {-# INLINE toGObject #-}+  unsafeCastGObject = CryptoKey . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCryptoKey :: IsGObject obj => obj -> JSM CryptoKey+castToCryptoKey = castTo gTypeCryptoKey "CryptoKey"++gTypeCryptoKey :: JSM GType+gTypeCryptoKey = GType . Object <$> jsg "CryptoKey"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CryptoKeyPair".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair Mozilla CryptoKeyPair documentation>+newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal }++instance PToJSVal CryptoKeyPair where+  pToJSVal = unCryptoKeyPair+  {-# INLINE pToJSVal #-}++instance PFromJSVal CryptoKeyPair where+  pFromJSVal = CryptoKeyPair+  {-# INLINE pFromJSVal #-}++instance ToJSVal CryptoKeyPair where+  toJSVal = return . unCryptoKeyPair+  {-# INLINE toJSVal #-}++instance FromJSVal CryptoKeyPair where+  fromJSVal v = fmap CryptoKeyPair <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CryptoKeyPair where+  makeObject = makeObject . unCryptoKeyPair++instance IsGObject CryptoKeyPair where+  toGObject = GObject . unCryptoKeyPair+  {-# INLINE toGObject #-}+  unsafeCastGObject = CryptoKeyPair . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCryptoKeyPair :: IsGObject obj => obj -> JSM CryptoKeyPair+castToCryptoKeyPair = castTo gTypeCryptoKeyPair "CryptoKeyPair"++gTypeCryptoKeyPair :: JSM GType+gTypeCryptoKeyPair = GType . Object <$> jsg "CryptoKeyPair"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.CustomEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent Mozilla CustomEvent documentation>+newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal }++instance PToJSVal CustomEvent where+  pToJSVal = unCustomEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal CustomEvent where+  pFromJSVal = CustomEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal CustomEvent where+  toJSVal = return . unCustomEvent+  {-# INLINE toJSVal #-}++instance FromJSVal CustomEvent where+  fromJSVal v = fmap CustomEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject CustomEvent where+  makeObject = makeObject . unCustomEvent++instance IsEvent CustomEvent+instance IsGObject CustomEvent where+  toGObject = GObject . unCustomEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = CustomEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToCustomEvent :: IsGObject obj => obj -> JSM CustomEvent+castToCustomEvent = castTo gTypeCustomEvent "CustomEvent"++gTypeCustomEvent :: JSM GType+gTypeCustomEvent = GType . Object <$> jsg "CustomEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMError".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMError Mozilla DOMError documentation>+newtype DOMError = DOMError { unDOMError :: JSVal }++instance PToJSVal DOMError where+  pToJSVal = unDOMError+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMError where+  pFromJSVal = DOMError+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMError where+  toJSVal = return . unDOMError+  {-# INLINE toJSVal #-}++instance FromJSVal DOMError where+  fromJSVal v = fmap DOMError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMError where+  makeObject = makeObject . unDOMError++class IsGObject o => IsDOMError o+toDOMError :: IsDOMError o => o -> DOMError+toDOMError = unsafeCastGObject . toGObject++instance IsDOMError DOMError+instance IsGObject DOMError where+  toGObject = GObject . unDOMError+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMError :: IsGObject obj => obj -> JSM DOMError+castToDOMError = castTo gTypeDOMError "DOMError"++gTypeDOMError :: JSM GType+gTypeDOMError = GType . Object <$> jsg "DOMError"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMImplementation".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation Mozilla DOMImplementation documentation>+newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal }++instance PToJSVal DOMImplementation where+  pToJSVal = unDOMImplementation+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMImplementation where+  pFromJSVal = DOMImplementation+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMImplementation where+  toJSVal = return . unDOMImplementation+  {-# INLINE toJSVal #-}++instance FromJSVal DOMImplementation where+  fromJSVal v = fmap DOMImplementation <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMImplementation where+  makeObject = makeObject . unDOMImplementation++instance IsGObject DOMImplementation where+  toGObject = GObject . unDOMImplementation+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMImplementation . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMImplementation :: IsGObject obj => obj -> JSM DOMImplementation+castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation"++gTypeDOMImplementation :: JSM GType+gTypeDOMImplementation = GType . Object <$> jsg "DOMImplementation"+#else+type IsDOMImplementation o = DOMImplementationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMNamedFlowCollection".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection Mozilla WebKitNamedFlowCollection documentation>+newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal }++instance PToJSVal DOMNamedFlowCollection where+  pToJSVal = unDOMNamedFlowCollection+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMNamedFlowCollection where+  pFromJSVal = DOMNamedFlowCollection+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMNamedFlowCollection where+  toJSVal = return . unDOMNamedFlowCollection+  {-# INLINE toJSVal #-}++instance FromJSVal DOMNamedFlowCollection where+  fromJSVal v = fmap DOMNamedFlowCollection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMNamedFlowCollection where+  makeObject = makeObject . unDOMNamedFlowCollection++instance IsGObject DOMNamedFlowCollection where+  toGObject = GObject . unDOMNamedFlowCollection+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMNamedFlowCollection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMNamedFlowCollection :: IsGObject obj => obj -> JSM DOMNamedFlowCollection+castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection"++gTypeDOMNamedFlowCollection :: JSM GType+gTypeDOMNamedFlowCollection = GType . Object <$> jsg "WebKitNamedFlowCollection"+#else+#ifndef USE_OLD_WEBKIT+type IsDOMNamedFlowCollection o = DOMNamedFlowCollectionClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMParser".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation>+newtype DOMParser = DOMParser { unDOMParser :: JSVal }++instance PToJSVal DOMParser where+  pToJSVal = unDOMParser+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMParser where+  pFromJSVal = DOMParser+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMParser where+  toJSVal = return . unDOMParser+  {-# INLINE toJSVal #-}++instance FromJSVal DOMParser where+  fromJSVal v = fmap DOMParser <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMParser where+  makeObject = makeObject . unDOMParser++instance IsGObject DOMParser where+  toGObject = GObject . unDOMParser+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMParser . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMParser :: IsGObject obj => obj -> JSM DOMParser+castToDOMParser = castTo gTypeDOMParser "DOMParser"++gTypeDOMParser :: JSM GType+gTypeDOMParser = GType . Object <$> jsg "DOMParser"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMSettableTokenList".+-- Base interface functions are in:+--+--     * "JSDOM.DOMTokenList"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList Mozilla DOMSettableTokenList documentation>+newtype DOMSettableTokenList = DOMSettableTokenList { unDOMSettableTokenList :: JSVal }++instance PToJSVal DOMSettableTokenList where+  pToJSVal = unDOMSettableTokenList+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMSettableTokenList where+  pFromJSVal = DOMSettableTokenList+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMSettableTokenList where+  toJSVal = return . unDOMSettableTokenList+  {-# INLINE toJSVal #-}++instance FromJSVal DOMSettableTokenList where+  fromJSVal v = fmap DOMSettableTokenList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMSettableTokenList where+  makeObject = makeObject . unDOMSettableTokenList++instance IsDOMTokenList DOMSettableTokenList+instance IsGObject DOMSettableTokenList where+  toGObject = GObject . unDOMSettableTokenList+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMSettableTokenList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMSettableTokenList :: IsGObject obj => obj -> JSM DOMSettableTokenList+castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList"++gTypeDOMSettableTokenList :: JSM GType+gTypeDOMSettableTokenList = GType . Object <$> jsg "DOMSettableTokenList"+#else+type IsDOMSettableTokenList o = DOMSettableTokenListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMStringList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList Mozilla DOMStringList documentation>+newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal }++instance PToJSVal DOMStringList where+  pToJSVal = unDOMStringList+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMStringList where+  pFromJSVal = DOMStringList+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMStringList where+  toJSVal = return . unDOMStringList+  {-# INLINE toJSVal #-}++instance FromJSVal DOMStringList where+  fromJSVal v = fmap DOMStringList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMStringList where+  makeObject = makeObject . unDOMStringList++instance IsGObject DOMStringList where+  toGObject = GObject . unDOMStringList+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMStringList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMStringList :: IsGObject obj => obj -> JSM DOMStringList+castToDOMStringList = castTo gTypeDOMStringList "DOMStringList"++gTypeDOMStringList :: JSM GType+gTypeDOMStringList = GType . Object <$> jsg "DOMStringList"+#else+type IsDOMStringList o = DOMStringListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMStringMap".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap Mozilla DOMStringMap documentation>+newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal }++instance PToJSVal DOMStringMap where+  pToJSVal = unDOMStringMap+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMStringMap where+  pFromJSVal = DOMStringMap+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMStringMap where+  toJSVal = return . unDOMStringMap+  {-# INLINE toJSVal #-}++instance FromJSVal DOMStringMap where+  fromJSVal v = fmap DOMStringMap <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMStringMap where+  makeObject = makeObject . unDOMStringMap++instance IsGObject DOMStringMap where+  toGObject = GObject . unDOMStringMap+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMStringMap . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMStringMap :: IsGObject obj => obj -> JSM DOMStringMap+castToDOMStringMap = castTo gTypeDOMStringMap "DOMStringMap"++gTypeDOMStringMap :: JSM GType+gTypeDOMStringMap = GType . Object <$> jsg "DOMStringMap"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DOMTokenList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList Mozilla DOMTokenList documentation>+newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal }++instance PToJSVal DOMTokenList where+  pToJSVal = unDOMTokenList+  {-# INLINE pToJSVal #-}++instance PFromJSVal DOMTokenList where+  pFromJSVal = DOMTokenList+  {-# INLINE pFromJSVal #-}++instance ToJSVal DOMTokenList where+  toJSVal = return . unDOMTokenList+  {-# INLINE toJSVal #-}++instance FromJSVal DOMTokenList where+  fromJSVal v = fmap DOMTokenList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DOMTokenList where+  makeObject = makeObject . unDOMTokenList++class IsGObject o => IsDOMTokenList o+toDOMTokenList :: IsDOMTokenList o => o -> DOMTokenList+toDOMTokenList = unsafeCastGObject . toGObject++instance IsDOMTokenList DOMTokenList+instance IsGObject DOMTokenList where+  toGObject = GObject . unDOMTokenList+  {-# INLINE toGObject #-}+  unsafeCastGObject = DOMTokenList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDOMTokenList :: IsGObject obj => obj -> JSM DOMTokenList+castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList"++gTypeDOMTokenList :: JSM GType+gTypeDOMTokenList = GType . Object <$> jsg "DOMTokenList"+#else+type IsDOMTokenList o = DOMTokenListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DataCue".+-- Base interface functions are in:+--+--     * "JSDOM.TextTrackCue"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation>+newtype DataCue = DataCue { unDataCue :: JSVal }++instance PToJSVal DataCue where+  pToJSVal = unDataCue+  {-# INLINE pToJSVal #-}++instance PFromJSVal DataCue where+  pFromJSVal = DataCue+  {-# INLINE pFromJSVal #-}++instance ToJSVal DataCue where+  toJSVal = return . unDataCue+  {-# INLINE toJSVal #-}++instance FromJSVal DataCue where+  fromJSVal v = fmap DataCue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DataCue where+  makeObject = makeObject . unDataCue++instance IsTextTrackCue DataCue+instance IsEventTarget DataCue+instance IsGObject DataCue where+  toGObject = GObject . unDataCue+  {-# INLINE toGObject #-}+  unsafeCastGObject = DataCue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDataCue :: IsGObject obj => obj -> JSM DataCue+castToDataCue = castTo gTypeDataCue "DataCue"++gTypeDataCue :: JSM GType+gTypeDataCue = GType . Object <$> jsg "WebKitDataCue"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DataTransfer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer Mozilla DataTransfer documentation>+newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal }++instance PToJSVal DataTransfer where+  pToJSVal = unDataTransfer+  {-# INLINE pToJSVal #-}++instance PFromJSVal DataTransfer where+  pFromJSVal = DataTransfer+  {-# INLINE pFromJSVal #-}++instance ToJSVal DataTransfer where+  toJSVal = return . unDataTransfer+  {-# INLINE toJSVal #-}++instance FromJSVal DataTransfer where+  fromJSVal v = fmap DataTransfer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DataTransfer where+  makeObject = makeObject . unDataTransfer++instance IsGObject DataTransfer where+  toGObject = GObject . unDataTransfer+  {-# INLINE toGObject #-}+  unsafeCastGObject = DataTransfer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDataTransfer :: IsGObject obj => obj -> JSM DataTransfer+castToDataTransfer = castTo gTypeDataTransfer "DataTransfer"++gTypeDataTransfer :: JSM GType+gTypeDataTransfer = GType . Object <$> jsg "DataTransfer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DataTransferItem".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem Mozilla DataTransferItem documentation>+newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal }++instance PToJSVal DataTransferItem where+  pToJSVal = unDataTransferItem+  {-# INLINE pToJSVal #-}++instance PFromJSVal DataTransferItem where+  pFromJSVal = DataTransferItem+  {-# INLINE pFromJSVal #-}++instance ToJSVal DataTransferItem where+  toJSVal = return . unDataTransferItem+  {-# INLINE toJSVal #-}++instance FromJSVal DataTransferItem where+  fromJSVal v = fmap DataTransferItem <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DataTransferItem where+  makeObject = makeObject . unDataTransferItem++instance IsGObject DataTransferItem where+  toGObject = GObject . unDataTransferItem+  {-# INLINE toGObject #-}+  unsafeCastGObject = DataTransferItem . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDataTransferItem :: IsGObject obj => obj -> JSM DataTransferItem+castToDataTransferItem = castTo gTypeDataTransferItem "DataTransferItem"++gTypeDataTransferItem :: JSM GType+gTypeDataTransferItem = GType . Object <$> jsg "DataTransferItem"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DataTransferItemList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList Mozilla DataTransferItemList documentation>+newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal }++instance PToJSVal DataTransferItemList where+  pToJSVal = unDataTransferItemList+  {-# INLINE pToJSVal #-}++instance PFromJSVal DataTransferItemList where+  pFromJSVal = DataTransferItemList+  {-# INLINE pFromJSVal #-}++instance ToJSVal DataTransferItemList where+  toJSVal = return . unDataTransferItemList+  {-# INLINE toJSVal #-}++instance FromJSVal DataTransferItemList where+  fromJSVal v = fmap DataTransferItemList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DataTransferItemList where+  makeObject = makeObject . unDataTransferItemList++instance IsGObject DataTransferItemList where+  toGObject = GObject . unDataTransferItemList+  {-# INLINE toGObject #-}+  unsafeCastGObject = DataTransferItemList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDataTransferItemList :: IsGObject obj => obj -> JSM DataTransferItemList+castToDataTransferItemList = castTo gTypeDataTransferItemList "DataTransferItemList"++gTypeDataTransferItemList :: JSM GType+gTypeDataTransferItemList = GType . Object <$> jsg "DataTransferItemList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Database".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Database Mozilla Database documentation>+newtype Database = Database { unDatabase :: JSVal }++instance PToJSVal Database where+  pToJSVal = unDatabase+  {-# INLINE pToJSVal #-}++instance PFromJSVal Database where+  pFromJSVal = Database+  {-# INLINE pFromJSVal #-}++instance ToJSVal Database where+  toJSVal = return . unDatabase+  {-# INLINE toJSVal #-}++instance FromJSVal Database where+  fromJSVal v = fmap Database <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Database where+  makeObject = makeObject . unDatabase++instance IsGObject Database where+  toGObject = GObject . unDatabase+  {-# INLINE toGObject #-}+  unsafeCastGObject = Database . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDatabase :: IsGObject obj => obj -> JSM Database+castToDatabase = castTo gTypeDatabase "Database"++gTypeDatabase :: JSM GType+gTypeDatabase = GType . Object <$> jsg "Database"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DedicatedWorkerGlobalScope".+-- Base interface functions are in:+--+--     * "JSDOM.WorkerGlobalScope"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope Mozilla DedicatedWorkerGlobalScope documentation>+newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal }++instance PToJSVal DedicatedWorkerGlobalScope where+  pToJSVal = unDedicatedWorkerGlobalScope+  {-# INLINE pToJSVal #-}++instance PFromJSVal DedicatedWorkerGlobalScope where+  pFromJSVal = DedicatedWorkerGlobalScope+  {-# INLINE pFromJSVal #-}++instance ToJSVal DedicatedWorkerGlobalScope where+  toJSVal = return . unDedicatedWorkerGlobalScope+  {-# INLINE toJSVal #-}++instance FromJSVal DedicatedWorkerGlobalScope where+  fromJSVal v = fmap DedicatedWorkerGlobalScope <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DedicatedWorkerGlobalScope where+  makeObject = makeObject . unDedicatedWorkerGlobalScope++instance IsWorkerGlobalScope DedicatedWorkerGlobalScope+instance IsEventTarget DedicatedWorkerGlobalScope+instance IsGObject DedicatedWorkerGlobalScope where+  toGObject = GObject . unDedicatedWorkerGlobalScope+  {-# INLINE toGObject #-}+  unsafeCastGObject = DedicatedWorkerGlobalScope . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDedicatedWorkerGlobalScope :: IsGObject obj => obj -> JSM DedicatedWorkerGlobalScope+castToDedicatedWorkerGlobalScope = castTo gTypeDedicatedWorkerGlobalScope "DedicatedWorkerGlobalScope"++gTypeDedicatedWorkerGlobalScope :: JSM GType+gTypeDedicatedWorkerGlobalScope = GType . Object <$> jsg "DedicatedWorkerGlobalScope"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DelayNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode Mozilla DelayNode documentation>+newtype DelayNode = DelayNode { unDelayNode :: JSVal }++instance PToJSVal DelayNode where+  pToJSVal = unDelayNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal DelayNode where+  pFromJSVal = DelayNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal DelayNode where+  toJSVal = return . unDelayNode+  {-# INLINE toJSVal #-}++instance FromJSVal DelayNode where+  fromJSVal v = fmap DelayNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DelayNode where+  makeObject = makeObject . unDelayNode++instance IsAudioNode DelayNode+instance IsEventTarget DelayNode+instance IsGObject DelayNode where+  toGObject = GObject . unDelayNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = DelayNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDelayNode :: IsGObject obj => obj -> JSM DelayNode+castToDelayNode = castTo gTypeDelayNode "DelayNode"++gTypeDelayNode :: JSM GType+gTypeDelayNode = GType . Object <$> jsg "DelayNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DeviceMotionEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent Mozilla DeviceMotionEvent documentation>+newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal }++instance PToJSVal DeviceMotionEvent where+  pToJSVal = unDeviceMotionEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal DeviceMotionEvent where+  pFromJSVal = DeviceMotionEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal DeviceMotionEvent where+  toJSVal = return . unDeviceMotionEvent+  {-# INLINE toJSVal #-}++instance FromJSVal DeviceMotionEvent where+  fromJSVal v = fmap DeviceMotionEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DeviceMotionEvent where+  makeObject = makeObject . unDeviceMotionEvent++instance IsEvent DeviceMotionEvent+instance IsGObject DeviceMotionEvent where+  toGObject = GObject . unDeviceMotionEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = DeviceMotionEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDeviceMotionEvent :: IsGObject obj => obj -> JSM DeviceMotionEvent+castToDeviceMotionEvent = castTo gTypeDeviceMotionEvent "DeviceMotionEvent"++gTypeDeviceMotionEvent :: JSM GType+gTypeDeviceMotionEvent = GType . Object <$> jsg "DeviceMotionEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DeviceOrientationEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent Mozilla DeviceOrientationEvent documentation>+newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal }++instance PToJSVal DeviceOrientationEvent where+  pToJSVal = unDeviceOrientationEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal DeviceOrientationEvent where+  pFromJSVal = DeviceOrientationEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal DeviceOrientationEvent where+  toJSVal = return . unDeviceOrientationEvent+  {-# INLINE toJSVal #-}++instance FromJSVal DeviceOrientationEvent where+  fromJSVal v = fmap DeviceOrientationEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DeviceOrientationEvent where+  makeObject = makeObject . unDeviceOrientationEvent++instance IsEvent DeviceOrientationEvent+instance IsGObject DeviceOrientationEvent where+  toGObject = GObject . unDeviceOrientationEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = DeviceOrientationEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDeviceOrientationEvent :: IsGObject obj => obj -> JSM DeviceOrientationEvent+castToDeviceOrientationEvent = castTo gTypeDeviceOrientationEvent "DeviceOrientationEvent"++gTypeDeviceOrientationEvent :: JSM GType+gTypeDeviceOrientationEvent = GType . Object <$> jsg "DeviceOrientationEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DeviceProximityEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent Mozilla DeviceProximityEvent documentation>+newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal }++instance PToJSVal DeviceProximityEvent where+  pToJSVal = unDeviceProximityEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal DeviceProximityEvent where+  pFromJSVal = DeviceProximityEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal DeviceProximityEvent where+  toJSVal = return . unDeviceProximityEvent+  {-# INLINE toJSVal #-}++instance FromJSVal DeviceProximityEvent where+  fromJSVal v = fmap DeviceProximityEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DeviceProximityEvent where+  makeObject = makeObject . unDeviceProximityEvent++instance IsEvent DeviceProximityEvent+instance IsGObject DeviceProximityEvent where+  toGObject = GObject . unDeviceProximityEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = DeviceProximityEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDeviceProximityEvent :: IsGObject obj => obj -> JSM DeviceProximityEvent+castToDeviceProximityEvent = castTo gTypeDeviceProximityEvent "DeviceProximityEvent"++gTypeDeviceProximityEvent :: JSM GType+gTypeDeviceProximityEvent = GType . Object <$> jsg "DeviceProximityEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Document".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation>+newtype Document = Document { unDocument :: JSVal }++instance PToJSVal Document where+  pToJSVal = unDocument+  {-# INLINE pToJSVal #-}++instance PFromJSVal Document where+  pFromJSVal = Document+  {-# INLINE pFromJSVal #-}++instance ToJSVal Document where+  toJSVal = return . unDocument+  {-# INLINE toJSVal #-}++instance FromJSVal Document where+  fromJSVal v = fmap Document <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Document where+  makeObject = makeObject . unDocument++class IsNode o => IsDocument o+toDocument :: IsDocument o => o -> Document+toDocument = unsafeCastGObject . toGObject++instance IsDocument Document+instance IsNode Document+instance IsEventTarget Document+instance IsGObject Document where+  toGObject = GObject . unDocument+  {-# INLINE toGObject #-}+  unsafeCastGObject = Document . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDocument :: IsGObject obj => obj -> JSM Document+castToDocument = castTo gTypeDocument "Document"++gTypeDocument :: JSM GType+gTypeDocument = GType . Object <$> jsg "Document"+#else+type IsDocument o = DocumentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DocumentFragment".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation>+newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal }++instance PToJSVal DocumentFragment where+  pToJSVal = unDocumentFragment+  {-# INLINE pToJSVal #-}++instance PFromJSVal DocumentFragment where+  pFromJSVal = DocumentFragment+  {-# INLINE pFromJSVal #-}++instance ToJSVal DocumentFragment where+  toJSVal = return . unDocumentFragment+  {-# INLINE toJSVal #-}++instance FromJSVal DocumentFragment where+  fromJSVal v = fmap DocumentFragment <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DocumentFragment where+  makeObject = makeObject . unDocumentFragment++instance IsNode DocumentFragment+instance IsEventTarget DocumentFragment+instance IsGObject DocumentFragment where+  toGObject = GObject . unDocumentFragment+  {-# INLINE toGObject #-}+  unsafeCastGObject = DocumentFragment . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDocumentFragment :: IsGObject obj => obj -> JSM DocumentFragment+castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment"++gTypeDocumentFragment :: JSM GType+gTypeDocumentFragment = GType . Object <$> jsg "DocumentFragment"+#else+type IsDocumentFragment o = DocumentFragmentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DocumentType".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType Mozilla DocumentType documentation>+newtype DocumentType = DocumentType { unDocumentType :: JSVal }++instance PToJSVal DocumentType where+  pToJSVal = unDocumentType+  {-# INLINE pToJSVal #-}++instance PFromJSVal DocumentType where+  pFromJSVal = DocumentType+  {-# INLINE pFromJSVal #-}++instance ToJSVal DocumentType where+  toJSVal = return . unDocumentType+  {-# INLINE toJSVal #-}++instance FromJSVal DocumentType where+  fromJSVal v = fmap DocumentType <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DocumentType where+  makeObject = makeObject . unDocumentType++instance IsNode DocumentType+instance IsEventTarget DocumentType+instance IsGObject DocumentType where+  toGObject = GObject . unDocumentType+  {-# INLINE toGObject #-}+  unsafeCastGObject = DocumentType . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDocumentType :: IsGObject obj => obj -> JSM DocumentType+castToDocumentType = castTo gTypeDocumentType "DocumentType"++gTypeDocumentType :: JSM GType+gTypeDocumentType = GType . Object <$> jsg "DocumentType"+#else+type IsDocumentType o = DocumentTypeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.DynamicsCompressorNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode Mozilla DynamicsCompressorNode documentation>+newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal }++instance PToJSVal DynamicsCompressorNode where+  pToJSVal = unDynamicsCompressorNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal DynamicsCompressorNode where+  pFromJSVal = DynamicsCompressorNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal DynamicsCompressorNode where+  toJSVal = return . unDynamicsCompressorNode+  {-# INLINE toJSVal #-}++instance FromJSVal DynamicsCompressorNode where+  fromJSVal v = fmap DynamicsCompressorNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject DynamicsCompressorNode where+  makeObject = makeObject . unDynamicsCompressorNode++instance IsAudioNode DynamicsCompressorNode+instance IsEventTarget DynamicsCompressorNode+instance IsGObject DynamicsCompressorNode where+  toGObject = GObject . unDynamicsCompressorNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = DynamicsCompressorNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToDynamicsCompressorNode :: IsGObject obj => obj -> JSM DynamicsCompressorNode+castToDynamicsCompressorNode = castTo gTypeDynamicsCompressorNode "DynamicsCompressorNode"++gTypeDynamicsCompressorNode :: JSM GType+gTypeDynamicsCompressorNode = GType . Object <$> jsg "DynamicsCompressorNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EXTBlendMinMax".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EXTBlendMinMax Mozilla EXTBlendMinMax documentation>+newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal }++instance PToJSVal EXTBlendMinMax where+  pToJSVal = unEXTBlendMinMax+  {-# INLINE pToJSVal #-}++instance PFromJSVal EXTBlendMinMax where+  pFromJSVal = EXTBlendMinMax+  {-# INLINE pFromJSVal #-}++instance ToJSVal EXTBlendMinMax where+  toJSVal = return . unEXTBlendMinMax+  {-# INLINE toJSVal #-}++instance FromJSVal EXTBlendMinMax where+  fromJSVal v = fmap EXTBlendMinMax <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EXTBlendMinMax where+  makeObject = makeObject . unEXTBlendMinMax++instance IsGObject EXTBlendMinMax where+  toGObject = GObject . unEXTBlendMinMax+  {-# INLINE toGObject #-}+  unsafeCastGObject = EXTBlendMinMax . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEXTBlendMinMax :: IsGObject obj => obj -> JSM EXTBlendMinMax+castToEXTBlendMinMax = castTo gTypeEXTBlendMinMax "EXTBlendMinMax"++gTypeEXTBlendMinMax :: JSM GType+gTypeEXTBlendMinMax = GType . Object <$> jsg "EXTBlendMinMax"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EXTFragDepth".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EXTFragDepth Mozilla EXTFragDepth documentation>+newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal }++instance PToJSVal EXTFragDepth where+  pToJSVal = unEXTFragDepth+  {-# INLINE pToJSVal #-}++instance PFromJSVal EXTFragDepth where+  pFromJSVal = EXTFragDepth+  {-# INLINE pFromJSVal #-}++instance ToJSVal EXTFragDepth where+  toJSVal = return . unEXTFragDepth+  {-# INLINE toJSVal #-}++instance FromJSVal EXTFragDepth where+  fromJSVal v = fmap EXTFragDepth <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EXTFragDepth where+  makeObject = makeObject . unEXTFragDepth++instance IsGObject EXTFragDepth where+  toGObject = GObject . unEXTFragDepth+  {-# INLINE toGObject #-}+  unsafeCastGObject = EXTFragDepth . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEXTFragDepth :: IsGObject obj => obj -> JSM EXTFragDepth+castToEXTFragDepth = castTo gTypeEXTFragDepth "EXTFragDepth"++gTypeEXTFragDepth :: JSM GType+gTypeEXTFragDepth = GType . Object <$> jsg "EXTFragDepth"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EXTShaderTextureLOD".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EXTShaderTextureLOD Mozilla EXTShaderTextureLOD documentation>+newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal }++instance PToJSVal EXTShaderTextureLOD where+  pToJSVal = unEXTShaderTextureLOD+  {-# INLINE pToJSVal #-}++instance PFromJSVal EXTShaderTextureLOD where+  pFromJSVal = EXTShaderTextureLOD+  {-# INLINE pFromJSVal #-}++instance ToJSVal EXTShaderTextureLOD where+  toJSVal = return . unEXTShaderTextureLOD+  {-# INLINE toJSVal #-}++instance FromJSVal EXTShaderTextureLOD where+  fromJSVal v = fmap EXTShaderTextureLOD <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EXTShaderTextureLOD where+  makeObject = makeObject . unEXTShaderTextureLOD++instance IsGObject EXTShaderTextureLOD where+  toGObject = GObject . unEXTShaderTextureLOD+  {-# INLINE toGObject #-}+  unsafeCastGObject = EXTShaderTextureLOD . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEXTShaderTextureLOD :: IsGObject obj => obj -> JSM EXTShaderTextureLOD+castToEXTShaderTextureLOD = castTo gTypeEXTShaderTextureLOD "EXTShaderTextureLOD"++gTypeEXTShaderTextureLOD :: JSM GType+gTypeEXTShaderTextureLOD = GType . Object <$> jsg "EXTShaderTextureLOD"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EXTTextureFilterAnisotropic".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EXTTextureFilterAnisotropic Mozilla EXTTextureFilterAnisotropic documentation>+newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal }++instance PToJSVal EXTTextureFilterAnisotropic where+  pToJSVal = unEXTTextureFilterAnisotropic+  {-# INLINE pToJSVal #-}++instance PFromJSVal EXTTextureFilterAnisotropic where+  pFromJSVal = EXTTextureFilterAnisotropic+  {-# INLINE pFromJSVal #-}++instance ToJSVal EXTTextureFilterAnisotropic where+  toJSVal = return . unEXTTextureFilterAnisotropic+  {-# INLINE toJSVal #-}++instance FromJSVal EXTTextureFilterAnisotropic where+  fromJSVal v = fmap EXTTextureFilterAnisotropic <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EXTTextureFilterAnisotropic where+  makeObject = makeObject . unEXTTextureFilterAnisotropic++instance IsGObject EXTTextureFilterAnisotropic where+  toGObject = GObject . unEXTTextureFilterAnisotropic+  {-# INLINE toGObject #-}+  unsafeCastGObject = EXTTextureFilterAnisotropic . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEXTTextureFilterAnisotropic :: IsGObject obj => obj -> JSM EXTTextureFilterAnisotropic+castToEXTTextureFilterAnisotropic = castTo gTypeEXTTextureFilterAnisotropic "EXTTextureFilterAnisotropic"++gTypeEXTTextureFilterAnisotropic :: JSM GType+gTypeEXTTextureFilterAnisotropic = GType . Object <$> jsg "EXTTextureFilterAnisotropic"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EXTsRGB".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EXTsRGB Mozilla EXTsRGB documentation>+newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal }++instance PToJSVal EXTsRGB where+  pToJSVal = unEXTsRGB+  {-# INLINE pToJSVal #-}++instance PFromJSVal EXTsRGB where+  pFromJSVal = EXTsRGB+  {-# INLINE pFromJSVal #-}++instance ToJSVal EXTsRGB where+  toJSVal = return . unEXTsRGB+  {-# INLINE toJSVal #-}++instance FromJSVal EXTsRGB where+  fromJSVal v = fmap EXTsRGB <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EXTsRGB where+  makeObject = makeObject . unEXTsRGB++instance IsGObject EXTsRGB where+  toGObject = GObject . unEXTsRGB+  {-# INLINE toGObject #-}+  unsafeCastGObject = EXTsRGB . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEXTsRGB :: IsGObject obj => obj -> JSM EXTsRGB+castToEXTsRGB = castTo gTypeEXTsRGB "EXTsRGB"++gTypeEXTsRGB :: JSM GType+gTypeEXTsRGB = GType . Object <$> jsg "EXTsRGB"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Element".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Element Mozilla Element documentation>+newtype Element = Element { unElement :: JSVal }++instance PToJSVal Element where+  pToJSVal = unElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal Element where+  pFromJSVal = Element+  {-# INLINE pFromJSVal #-}++instance ToJSVal Element where+  toJSVal = return . unElement+  {-# INLINE toJSVal #-}++instance FromJSVal Element where+  fromJSVal v = fmap Element <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Element where+  makeObject = makeObject . unElement++class IsNode o => IsElement o+toElement :: IsElement o => o -> Element+toElement = unsafeCastGObject . toGObject++instance IsElement Element+instance IsNode Element+instance IsEventTarget Element+instance IsGObject Element where+  toGObject = GObject . unElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = Element . unGObject+  {-# INLINE unsafeCastGObject #-}++castToElement :: IsGObject obj => obj -> JSM Element+castToElement = castTo gTypeElement "Element"++gTypeElement :: JSM GType+gTypeElement = GType . Object <$> jsg "Element"+#else+type IsElement o = ElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Entity".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Entity Mozilla Entity documentation>+newtype Entity = Entity { unEntity :: JSVal }++instance PToJSVal Entity where+  pToJSVal = unEntity+  {-# INLINE pToJSVal #-}++instance PFromJSVal Entity where+  pFromJSVal = Entity+  {-# INLINE pFromJSVal #-}++instance ToJSVal Entity where+  toJSVal = return . unEntity+  {-# INLINE toJSVal #-}++instance FromJSVal Entity where+  fromJSVal v = fmap Entity <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Entity where+  makeObject = makeObject . unEntity++instance IsNode Entity+instance IsEventTarget Entity+instance IsGObject Entity where+  toGObject = GObject . unEntity+  {-# INLINE toGObject #-}+  unsafeCastGObject = Entity . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEntity :: IsGObject obj => obj -> JSM Entity+castToEntity = castTo gTypeEntity "Entity"++gTypeEntity :: JSM GType+gTypeEntity = GType . Object <$> jsg "Entity"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EntityReference".+-- Base interface functions are in:+--+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EntityReference Mozilla EntityReference documentation>+newtype EntityReference = EntityReference { unEntityReference :: JSVal }++instance PToJSVal EntityReference where+  pToJSVal = unEntityReference+  {-# INLINE pToJSVal #-}++instance PFromJSVal EntityReference where+  pFromJSVal = EntityReference+  {-# INLINE pFromJSVal #-}++instance ToJSVal EntityReference where+  toJSVal = return . unEntityReference+  {-# INLINE toJSVal #-}++instance FromJSVal EntityReference where+  fromJSVal v = fmap EntityReference <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EntityReference where+  makeObject = makeObject . unEntityReference++instance IsNode EntityReference+instance IsEventTarget EntityReference+instance IsGObject EntityReference where+  toGObject = GObject . unEntityReference+  {-# INLINE toGObject #-}+  unsafeCastGObject = EntityReference . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEntityReference :: IsGObject obj => obj -> JSM EntityReference+castToEntityReference = castTo gTypeEntityReference "EntityReference"++gTypeEntityReference :: JSM GType+gTypeEntityReference = GType . Object <$> jsg "EntityReference"+#else+type IsEntityReference o = EntityReferenceClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ErrorEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent Mozilla ErrorEvent documentation>+newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal }++instance PToJSVal ErrorEvent where+  pToJSVal = unErrorEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal ErrorEvent where+  pFromJSVal = ErrorEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal ErrorEvent where+  toJSVal = return . unErrorEvent+  {-# INLINE toJSVal #-}++instance FromJSVal ErrorEvent where+  fromJSVal v = fmap ErrorEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ErrorEvent where+  makeObject = makeObject . unErrorEvent++instance IsEvent ErrorEvent+instance IsGObject ErrorEvent where+  toGObject = GObject . unErrorEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = ErrorEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToErrorEvent :: IsGObject obj => obj -> JSM ErrorEvent+castToErrorEvent = castTo gTypeErrorEvent "ErrorEvent"++gTypeErrorEvent :: JSM GType+gTypeErrorEvent = GType . Object <$> jsg "ErrorEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Event".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Event Mozilla Event documentation>+newtype Event = Event { unEvent :: JSVal }++instance PToJSVal Event where+  pToJSVal = unEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal Event where+  pFromJSVal = Event+  {-# INLINE pFromJSVal #-}++instance ToJSVal Event where+  toJSVal = return . unEvent+  {-# INLINE toJSVal #-}++instance FromJSVal Event where+  fromJSVal v = fmap Event <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Event where+  makeObject = makeObject . unEvent++class IsGObject o => IsEvent o+toEvent :: IsEvent o => o -> Event+toEvent = unsafeCastGObject . toGObject++instance IsEvent Event+instance IsGObject Event where+  toGObject = GObject . unEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = Event . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEvent :: IsGObject obj => obj -> JSM Event+castToEvent = castTo gTypeEvent "Event"++gTypeEvent :: JSM GType+gTypeEvent = GType . Object <$> jsg "Event"+#else+type IsEvent o = EventClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EventListener".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EventListener Mozilla EventListener documentation>+newtype EventListener = EventListener { unEventListener :: JSVal }++instance PToJSVal EventListener where+  pToJSVal = unEventListener+  {-# INLINE pToJSVal #-}++instance PFromJSVal EventListener where+  pFromJSVal = EventListener+  {-# INLINE pFromJSVal #-}++instance ToJSVal EventListener where+  toJSVal = return . unEventListener+  {-# INLINE toJSVal #-}++instance FromJSVal EventListener where+  fromJSVal v = fmap EventListener <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EventListener where+  makeObject = makeObject . unEventListener++instance IsGObject EventListener where+  toGObject = GObject . unEventListener+  {-# INLINE toGObject #-}+  unsafeCastGObject = EventListener . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEventListener :: IsGObject obj => obj -> JSM EventListener+castToEventListener = castTo gTypeEventListener "EventListener"++gTypeEventListener :: JSM GType+gTypeEventListener = GType . Object <$> jsg "EventListener"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EventSource".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation>+newtype EventSource = EventSource { unEventSource :: JSVal }++instance PToJSVal EventSource where+  pToJSVal = unEventSource+  {-# INLINE pToJSVal #-}++instance PFromJSVal EventSource where+  pFromJSVal = EventSource+  {-# INLINE pFromJSVal #-}++instance ToJSVal EventSource where+  toJSVal = return . unEventSource+  {-# INLINE toJSVal #-}++instance FromJSVal EventSource where+  fromJSVal v = fmap EventSource <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EventSource where+  makeObject = makeObject . unEventSource++instance IsEventTarget EventSource+instance IsGObject EventSource where+  toGObject = GObject . unEventSource+  {-# INLINE toGObject #-}+  unsafeCastGObject = EventSource . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEventSource :: IsGObject obj => obj -> JSM EventSource+castToEventSource = castTo gTypeEventSource "EventSource"++gTypeEventSource :: JSM GType+gTypeEventSource = GType . Object <$> jsg "EventSource"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.EventTarget".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget Mozilla EventTarget documentation>+newtype EventTarget = EventTarget { unEventTarget :: JSVal }++instance PToJSVal EventTarget where+  pToJSVal = unEventTarget+  {-# INLINE pToJSVal #-}++instance PFromJSVal EventTarget where+  pFromJSVal = EventTarget+  {-# INLINE pFromJSVal #-}++instance ToJSVal EventTarget where+  toJSVal = return . unEventTarget+  {-# INLINE toJSVal #-}++instance FromJSVal EventTarget where+  fromJSVal v = fmap EventTarget <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject EventTarget where+  makeObject = makeObject . unEventTarget++class IsGObject o => IsEventTarget o+toEventTarget :: IsEventTarget o => o -> EventTarget+toEventTarget = unsafeCastGObject . toGObject++instance IsEventTarget EventTarget+instance IsGObject EventTarget where+  toGObject = GObject . unEventTarget+  {-# INLINE toGObject #-}+  unsafeCastGObject = EventTarget . unGObject+  {-# INLINE unsafeCastGObject #-}++castToEventTarget :: IsGObject obj => obj -> JSM EventTarget+castToEventTarget = castTo gTypeEventTarget "EventTarget"++gTypeEventTarget :: JSM GType+gTypeEventTarget = GType . Object <$> jsg "EventTarget"+#else+type IsEventTarget o = EventTargetClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.File".+-- Base interface functions are in:+--+--     * "JSDOM.Blob"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/File Mozilla File documentation>+newtype File = File { unFile :: JSVal }++instance PToJSVal File where+  pToJSVal = unFile+  {-# INLINE pToJSVal #-}++instance PFromJSVal File where+  pFromJSVal = File+  {-# INLINE pFromJSVal #-}++instance ToJSVal File where+  toJSVal = return . unFile+  {-# INLINE toJSVal #-}++instance FromJSVal File where+  fromJSVal v = fmap File <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject File where+  makeObject = makeObject . unFile++instance IsBlob File+instance IsGObject File where+  toGObject = GObject . unFile+  {-# INLINE toGObject #-}+  unsafeCastGObject = File . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFile :: IsGObject obj => obj -> JSM File+castToFile = castTo gTypeFile "File"++gTypeFile :: JSM GType+gTypeFile = GType . Object <$> jsg "File"+#else+type IsFile o = FileClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FileError".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FileError Mozilla FileError documentation>+newtype FileError = FileError { unFileError :: JSVal }++instance PToJSVal FileError where+  pToJSVal = unFileError+  {-# INLINE pToJSVal #-}++instance PFromJSVal FileError where+  pFromJSVal = FileError+  {-# INLINE pFromJSVal #-}++instance ToJSVal FileError where+  toJSVal = return . unFileError+  {-# INLINE toJSVal #-}++instance FromJSVal FileError where+  fromJSVal v = fmap FileError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FileError where+  makeObject = makeObject . unFileError++instance IsGObject FileError where+  toGObject = GObject . unFileError+  {-# INLINE toGObject #-}+  unsafeCastGObject = FileError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFileError :: IsGObject obj => obj -> JSM FileError+castToFileError = castTo gTypeFileError "FileError"++gTypeFileError :: JSM GType+gTypeFileError = GType . Object <$> jsg "FileError"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FileList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FileList Mozilla FileList documentation>+newtype FileList = FileList { unFileList :: JSVal }++instance PToJSVal FileList where+  pToJSVal = unFileList+  {-# INLINE pToJSVal #-}++instance PFromJSVal FileList where+  pFromJSVal = FileList+  {-# INLINE pFromJSVal #-}++instance ToJSVal FileList where+  toJSVal = return . unFileList+  {-# INLINE toJSVal #-}++instance FromJSVal FileList where+  fromJSVal v = fmap FileList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FileList where+  makeObject = makeObject . unFileList++instance IsGObject FileList where+  toGObject = GObject . unFileList+  {-# INLINE toGObject #-}+  unsafeCastGObject = FileList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFileList :: IsGObject obj => obj -> JSM FileList+castToFileList = castTo gTypeFileList "FileList"++gTypeFileList :: JSM GType+gTypeFileList = GType . Object <$> jsg "FileList"+#else+type IsFileList o = FileListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FileReader".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation>+newtype FileReader = FileReader { unFileReader :: JSVal }++instance PToJSVal FileReader where+  pToJSVal = unFileReader+  {-# INLINE pToJSVal #-}++instance PFromJSVal FileReader where+  pFromJSVal = FileReader+  {-# INLINE pFromJSVal #-}++instance ToJSVal FileReader where+  toJSVal = return . unFileReader+  {-# INLINE toJSVal #-}++instance FromJSVal FileReader where+  fromJSVal v = fmap FileReader <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FileReader where+  makeObject = makeObject . unFileReader++instance IsEventTarget FileReader+instance IsGObject FileReader where+  toGObject = GObject . unFileReader+  {-# INLINE toGObject #-}+  unsafeCastGObject = FileReader . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFileReader :: IsGObject obj => obj -> JSM FileReader+castToFileReader = castTo gTypeFileReader "FileReader"++gTypeFileReader :: JSM GType+gTypeFileReader = GType . Object <$> jsg "FileReader"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FileReaderSync".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation>+newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal }++instance PToJSVal FileReaderSync where+  pToJSVal = unFileReaderSync+  {-# INLINE pToJSVal #-}++instance PFromJSVal FileReaderSync where+  pFromJSVal = FileReaderSync+  {-# INLINE pFromJSVal #-}++instance ToJSVal FileReaderSync where+  toJSVal = return . unFileReaderSync+  {-# INLINE toJSVal #-}++instance FromJSVal FileReaderSync where+  fromJSVal v = fmap FileReaderSync <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FileReaderSync where+  makeObject = makeObject . unFileReaderSync++instance IsGObject FileReaderSync where+  toGObject = GObject . unFileReaderSync+  {-# INLINE toGObject #-}+  unsafeCastGObject = FileReaderSync . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFileReaderSync :: IsGObject obj => obj -> JSM FileReaderSync+castToFileReaderSync = castTo gTypeFileReaderSync "FileReaderSync"++gTypeFileReaderSync :: JSM GType+gTypeFileReaderSync = GType . Object <$> jsg "FileReaderSync"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FocusEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent Mozilla FocusEvent documentation>+newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal }++instance PToJSVal FocusEvent where+  pToJSVal = unFocusEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal FocusEvent where+  pFromJSVal = FocusEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal FocusEvent where+  toJSVal = return . unFocusEvent+  {-# INLINE toJSVal #-}++instance FromJSVal FocusEvent where+  fromJSVal v = fmap FocusEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FocusEvent where+  makeObject = makeObject . unFocusEvent++instance IsUIEvent FocusEvent+instance IsEvent FocusEvent+instance IsGObject FocusEvent where+  toGObject = GObject . unFocusEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = FocusEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFocusEvent :: IsGObject obj => obj -> JSM FocusEvent+castToFocusEvent = castTo gTypeFocusEvent "FocusEvent"++gTypeFocusEvent :: JSM GType+gTypeFocusEvent = GType . Object <$> jsg "FocusEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FontLoader".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader Mozilla FontLoader documentation>+newtype FontLoader = FontLoader { unFontLoader :: JSVal }++instance PToJSVal FontLoader where+  pToJSVal = unFontLoader+  {-# INLINE pToJSVal #-}++instance PFromJSVal FontLoader where+  pFromJSVal = FontLoader+  {-# INLINE pFromJSVal #-}++instance ToJSVal FontLoader where+  toJSVal = return . unFontLoader+  {-# INLINE toJSVal #-}++instance FromJSVal FontLoader where+  fromJSVal v = fmap FontLoader <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FontLoader where+  makeObject = makeObject . unFontLoader++instance IsEventTarget FontLoader+instance IsGObject FontLoader where+  toGObject = GObject . unFontLoader+  {-# INLINE toGObject #-}+  unsafeCastGObject = FontLoader . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFontLoader :: IsGObject obj => obj -> JSM FontLoader+castToFontLoader = castTo gTypeFontLoader "FontLoader"++gTypeFontLoader :: JSM GType+gTypeFontLoader = GType . Object <$> jsg "FontLoader"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.FormData".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation>+newtype FormData = FormData { unFormData :: JSVal }++instance PToJSVal FormData where+  pToJSVal = unFormData+  {-# INLINE pToJSVal #-}++instance PFromJSVal FormData where+  pFromJSVal = FormData+  {-# INLINE pFromJSVal #-}++instance ToJSVal FormData where+  toJSVal = return . unFormData+  {-# INLINE toJSVal #-}++instance FromJSVal FormData where+  fromJSVal v = fmap FormData <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject FormData where+  makeObject = makeObject . unFormData++instance IsGObject FormData where+  toGObject = GObject . unFormData+  {-# INLINE toGObject #-}+  unsafeCastGObject = FormData . unGObject+  {-# INLINE unsafeCastGObject #-}++castToFormData :: IsGObject obj => obj -> JSM FormData+castToFormData = castTo gTypeFormData "FormData"++gTypeFormData :: JSM GType+gTypeFormData = GType . Object <$> jsg "FormData"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.GainNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/GainNode Mozilla GainNode documentation>+newtype GainNode = GainNode { unGainNode :: JSVal }++instance PToJSVal GainNode where+  pToJSVal = unGainNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal GainNode where+  pFromJSVal = GainNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal GainNode where+  toJSVal = return . unGainNode+  {-# INLINE toJSVal #-}++instance FromJSVal GainNode where+  fromJSVal v = fmap GainNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject GainNode where+  makeObject = makeObject . unGainNode++instance IsAudioNode GainNode+instance IsEventTarget GainNode+instance IsGObject GainNode where+  toGObject = GObject . unGainNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = GainNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToGainNode :: IsGObject obj => obj -> JSM GainNode+castToGainNode = castTo gTypeGainNode "GainNode"++gTypeGainNode :: JSM GType+gTypeGainNode = GType . Object <$> jsg "GainNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Gamepad".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad Mozilla Gamepad documentation>+newtype Gamepad = Gamepad { unGamepad :: JSVal }++instance PToJSVal Gamepad where+  pToJSVal = unGamepad+  {-# INLINE pToJSVal #-}++instance PFromJSVal Gamepad where+  pFromJSVal = Gamepad+  {-# INLINE pFromJSVal #-}++instance ToJSVal Gamepad where+  toJSVal = return . unGamepad+  {-# INLINE toJSVal #-}++instance FromJSVal Gamepad where+  fromJSVal v = fmap Gamepad <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Gamepad where+  makeObject = makeObject . unGamepad++instance IsGObject Gamepad where+  toGObject = GObject . unGamepad+  {-# INLINE toGObject #-}+  unsafeCastGObject = Gamepad . unGObject+  {-# INLINE unsafeCastGObject #-}++castToGamepad :: IsGObject obj => obj -> JSM Gamepad+castToGamepad = castTo gTypeGamepad "Gamepad"++gTypeGamepad :: JSM GType+gTypeGamepad = GType . Object <$> jsg "Gamepad"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.GamepadButton".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton Mozilla GamepadButton documentation>+newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal }++instance PToJSVal GamepadButton where+  pToJSVal = unGamepadButton+  {-# INLINE pToJSVal #-}++instance PFromJSVal GamepadButton where+  pFromJSVal = GamepadButton+  {-# INLINE pFromJSVal #-}++instance ToJSVal GamepadButton where+  toJSVal = return . unGamepadButton+  {-# INLINE toJSVal #-}++instance FromJSVal GamepadButton where+  fromJSVal v = fmap GamepadButton <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject GamepadButton where+  makeObject = makeObject . unGamepadButton++instance IsGObject GamepadButton where+  toGObject = GObject . unGamepadButton+  {-# INLINE toGObject #-}+  unsafeCastGObject = GamepadButton . unGObject+  {-# INLINE unsafeCastGObject #-}++castToGamepadButton :: IsGObject obj => obj -> JSM GamepadButton+castToGamepadButton = castTo gTypeGamepadButton "GamepadButton"++gTypeGamepadButton :: JSM GType+gTypeGamepadButton = GType . Object <$> jsg "GamepadButton"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.GamepadEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent Mozilla GamepadEvent documentation>+newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal }++instance PToJSVal GamepadEvent where+  pToJSVal = unGamepadEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal GamepadEvent where+  pFromJSVal = GamepadEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal GamepadEvent where+  toJSVal = return . unGamepadEvent+  {-# INLINE toJSVal #-}++instance FromJSVal GamepadEvent where+  fromJSVal v = fmap GamepadEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject GamepadEvent where+  makeObject = makeObject . unGamepadEvent++instance IsEvent GamepadEvent+instance IsGObject GamepadEvent where+  toGObject = GObject . unGamepadEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = GamepadEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToGamepadEvent :: IsGObject obj => obj -> JSM GamepadEvent+castToGamepadEvent = castTo gTypeGamepadEvent "GamepadEvent"++gTypeGamepadEvent :: JSM GType+gTypeGamepadEvent = GType . Object <$> jsg "GamepadEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Geolocation".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation Mozilla Geolocation documentation>+newtype Geolocation = Geolocation { unGeolocation :: JSVal }++instance PToJSVal Geolocation where+  pToJSVal = unGeolocation+  {-# INLINE pToJSVal #-}++instance PFromJSVal Geolocation where+  pFromJSVal = Geolocation+  {-# INLINE pFromJSVal #-}++instance ToJSVal Geolocation where+  toJSVal = return . unGeolocation+  {-# INLINE toJSVal #-}++instance FromJSVal Geolocation where+  fromJSVal v = fmap Geolocation <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Geolocation where+  makeObject = makeObject . unGeolocation++instance IsGObject Geolocation where+  toGObject = GObject . unGeolocation+  {-# INLINE toGObject #-}+  unsafeCastGObject = Geolocation . unGObject+  {-# INLINE unsafeCastGObject #-}++castToGeolocation :: IsGObject obj => obj -> JSM Geolocation+castToGeolocation = castTo gTypeGeolocation "Geolocation"++gTypeGeolocation :: JSM GType+gTypeGeolocation = GType . Object <$> jsg "Geolocation"+#else+type IsGeolocation o = GeolocationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Geoposition".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition Mozilla Geoposition documentation>+newtype Geoposition = Geoposition { unGeoposition :: JSVal }++instance PToJSVal Geoposition where+  pToJSVal = unGeoposition+  {-# INLINE pToJSVal #-}++instance PFromJSVal Geoposition where+  pFromJSVal = Geoposition+  {-# INLINE pFromJSVal #-}++instance ToJSVal Geoposition where+  toJSVal = return . unGeoposition+  {-# INLINE toJSVal #-}++instance FromJSVal Geoposition where+  fromJSVal v = fmap Geoposition <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Geoposition where+  makeObject = makeObject . unGeoposition++instance IsGObject Geoposition where+  toGObject = GObject . unGeoposition+  {-# INLINE toGObject #-}+  unsafeCastGObject = Geoposition . unGObject+  {-# INLINE unsafeCastGObject #-}++castToGeoposition :: IsGObject obj => obj -> JSM Geoposition+castToGeoposition = castTo gTypeGeoposition "Geoposition"++gTypeGeoposition :: JSM GType+gTypeGeoposition = GType . Object <$> jsg "Geoposition"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLAllCollection".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection Mozilla HTMLAllCollection documentation>+newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal }++instance PToJSVal HTMLAllCollection where+  pToJSVal = unHTMLAllCollection+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLAllCollection where+  pFromJSVal = HTMLAllCollection+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLAllCollection where+  toJSVal = return . unHTMLAllCollection+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLAllCollection where+  fromJSVal v = fmap HTMLAllCollection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLAllCollection where+  makeObject = makeObject . unHTMLAllCollection++instance IsGObject HTMLAllCollection where+  toGObject = GObject . unHTMLAllCollection+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLAllCollection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLAllCollection :: IsGObject obj => obj -> JSM HTMLAllCollection+castToHTMLAllCollection = castTo gTypeHTMLAllCollection "HTMLAllCollection"++gTypeHTMLAllCollection :: JSM GType+gTypeHTMLAllCollection = GType . Object <$> jsg "HTMLAllCollection"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLAnchorElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement Mozilla HTMLAnchorElement documentation>+newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal }++instance PToJSVal HTMLAnchorElement where+  pToJSVal = unHTMLAnchorElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLAnchorElement where+  pFromJSVal = HTMLAnchorElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLAnchorElement where+  toJSVal = return . unHTMLAnchorElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLAnchorElement where+  fromJSVal v = fmap HTMLAnchorElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLAnchorElement where+  makeObject = makeObject . unHTMLAnchorElement++instance IsHTMLElement HTMLAnchorElement+instance IsElement HTMLAnchorElement+instance IsNode HTMLAnchorElement+instance IsEventTarget HTMLAnchorElement+instance IsGObject HTMLAnchorElement where+  toGObject = GObject . unHTMLAnchorElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLAnchorElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLAnchorElement :: IsGObject obj => obj -> JSM HTMLAnchorElement+castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement"++gTypeHTMLAnchorElement :: JSM GType+gTypeHTMLAnchorElement = GType . Object <$> jsg "HTMLAnchorElement"+#else+type IsHTMLAnchorElement o = HTMLAnchorElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLAppletElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement Mozilla HTMLAppletElement documentation>+newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal }++instance PToJSVal HTMLAppletElement where+  pToJSVal = unHTMLAppletElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLAppletElement where+  pFromJSVal = HTMLAppletElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLAppletElement where+  toJSVal = return . unHTMLAppletElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLAppletElement where+  fromJSVal v = fmap HTMLAppletElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLAppletElement where+  makeObject = makeObject . unHTMLAppletElement++instance IsHTMLElement HTMLAppletElement+instance IsElement HTMLAppletElement+instance IsNode HTMLAppletElement+instance IsEventTarget HTMLAppletElement+instance IsGObject HTMLAppletElement where+  toGObject = GObject . unHTMLAppletElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLAppletElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLAppletElement :: IsGObject obj => obj -> JSM HTMLAppletElement+castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement"++gTypeHTMLAppletElement :: JSM GType+gTypeHTMLAppletElement = GType . Object <$> jsg "HTMLAppletElement"+#else+type IsHTMLAppletElement o = HTMLAppletElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLAreaElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement Mozilla HTMLAreaElement documentation>+newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal }++instance PToJSVal HTMLAreaElement where+  pToJSVal = unHTMLAreaElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLAreaElement where+  pFromJSVal = HTMLAreaElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLAreaElement where+  toJSVal = return . unHTMLAreaElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLAreaElement where+  fromJSVal v = fmap HTMLAreaElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLAreaElement where+  makeObject = makeObject . unHTMLAreaElement++instance IsHTMLElement HTMLAreaElement+instance IsElement HTMLAreaElement+instance IsNode HTMLAreaElement+instance IsEventTarget HTMLAreaElement+instance IsGObject HTMLAreaElement where+  toGObject = GObject . unHTMLAreaElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLAreaElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLAreaElement :: IsGObject obj => obj -> JSM HTMLAreaElement+castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement"++gTypeHTMLAreaElement :: JSM GType+gTypeHTMLAreaElement = GType . Object <$> jsg "HTMLAreaElement"+#else+type IsHTMLAreaElement o = HTMLAreaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLAudioElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLMediaElement"+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAudioElement Mozilla HTMLAudioElement documentation>+newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal }++instance PToJSVal HTMLAudioElement where+  pToJSVal = unHTMLAudioElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLAudioElement where+  pFromJSVal = HTMLAudioElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLAudioElement where+  toJSVal = return . unHTMLAudioElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLAudioElement where+  fromJSVal v = fmap HTMLAudioElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLAudioElement where+  makeObject = makeObject . unHTMLAudioElement++instance IsHTMLMediaElement HTMLAudioElement+instance IsHTMLElement HTMLAudioElement+instance IsElement HTMLAudioElement+instance IsNode HTMLAudioElement+instance IsEventTarget HTMLAudioElement+instance IsGObject HTMLAudioElement where+  toGObject = GObject . unHTMLAudioElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLAudioElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLAudioElement :: IsGObject obj => obj -> JSM HTMLAudioElement+castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement"++gTypeHTMLAudioElement :: JSM GType+gTypeHTMLAudioElement = GType . Object <$> jsg "HTMLAudioElement"+#else+type IsHTMLAudioElement o = HTMLAudioElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLBRElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement Mozilla HTMLBRElement documentation>+newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal }++instance PToJSVal HTMLBRElement where+  pToJSVal = unHTMLBRElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLBRElement where+  pFromJSVal = HTMLBRElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLBRElement where+  toJSVal = return . unHTMLBRElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLBRElement where+  fromJSVal v = fmap HTMLBRElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLBRElement where+  makeObject = makeObject . unHTMLBRElement++instance IsHTMLElement HTMLBRElement+instance IsElement HTMLBRElement+instance IsNode HTMLBRElement+instance IsEventTarget HTMLBRElement+instance IsGObject HTMLBRElement where+  toGObject = GObject . unHTMLBRElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLBRElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLBRElement :: IsGObject obj => obj -> JSM HTMLBRElement+castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement"++gTypeHTMLBRElement :: JSM GType+gTypeHTMLBRElement = GType . Object <$> jsg "HTMLBRElement"+#else+type IsHTMLBRElement o = HTMLBRElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLBaseElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement Mozilla HTMLBaseElement documentation>+newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal }++instance PToJSVal HTMLBaseElement where+  pToJSVal = unHTMLBaseElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLBaseElement where+  pFromJSVal = HTMLBaseElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLBaseElement where+  toJSVal = return . unHTMLBaseElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLBaseElement where+  fromJSVal v = fmap HTMLBaseElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLBaseElement where+  makeObject = makeObject . unHTMLBaseElement++instance IsHTMLElement HTMLBaseElement+instance IsElement HTMLBaseElement+instance IsNode HTMLBaseElement+instance IsEventTarget HTMLBaseElement+instance IsGObject HTMLBaseElement where+  toGObject = GObject . unHTMLBaseElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLBaseElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLBaseElement :: IsGObject obj => obj -> JSM HTMLBaseElement+castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement"++gTypeHTMLBaseElement :: JSM GType+gTypeHTMLBaseElement = GType . Object <$> jsg "HTMLBaseElement"+#else+type IsHTMLBaseElement o = HTMLBaseElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLBaseFontElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement Mozilla HTMLBaseFontElement documentation>+newtype HTMLBaseFontElement = HTMLBaseFontElement { unHTMLBaseFontElement :: JSVal }++instance PToJSVal HTMLBaseFontElement where+  pToJSVal = unHTMLBaseFontElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLBaseFontElement where+  pFromJSVal = HTMLBaseFontElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLBaseFontElement where+  toJSVal = return . unHTMLBaseFontElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLBaseFontElement where+  fromJSVal v = fmap HTMLBaseFontElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLBaseFontElement where+  makeObject = makeObject . unHTMLBaseFontElement++instance IsHTMLElement HTMLBaseFontElement+instance IsElement HTMLBaseFontElement+instance IsNode HTMLBaseFontElement+instance IsEventTarget HTMLBaseFontElement+instance IsGObject HTMLBaseFontElement where+  toGObject = GObject . unHTMLBaseFontElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLBaseFontElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLBaseFontElement :: IsGObject obj => obj -> JSM HTMLBaseFontElement+castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement"++gTypeHTMLBaseFontElement :: JSM GType+gTypeHTMLBaseFontElement = GType . Object <$> jsg "HTMLBaseFontElement"+#else+type IsHTMLBaseFontElement o = HTMLBaseFontElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLBodyElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement Mozilla HTMLBodyElement documentation>+newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal }++instance PToJSVal HTMLBodyElement where+  pToJSVal = unHTMLBodyElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLBodyElement where+  pFromJSVal = HTMLBodyElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLBodyElement where+  toJSVal = return . unHTMLBodyElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLBodyElement where+  fromJSVal v = fmap HTMLBodyElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLBodyElement where+  makeObject = makeObject . unHTMLBodyElement++instance IsHTMLElement HTMLBodyElement+instance IsElement HTMLBodyElement+instance IsNode HTMLBodyElement+instance IsEventTarget HTMLBodyElement+instance IsGObject HTMLBodyElement where+  toGObject = GObject . unHTMLBodyElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLBodyElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLBodyElement :: IsGObject obj => obj -> JSM HTMLBodyElement+castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement"++gTypeHTMLBodyElement :: JSM GType+gTypeHTMLBodyElement = GType . Object <$> jsg "HTMLBodyElement"+#else+type IsHTMLBodyElement o = HTMLBodyElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLButtonElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement Mozilla HTMLButtonElement documentation>+newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal }++instance PToJSVal HTMLButtonElement where+  pToJSVal = unHTMLButtonElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLButtonElement where+  pFromJSVal = HTMLButtonElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLButtonElement where+  toJSVal = return . unHTMLButtonElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLButtonElement where+  fromJSVal v = fmap HTMLButtonElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLButtonElement where+  makeObject = makeObject . unHTMLButtonElement++instance IsHTMLElement HTMLButtonElement+instance IsElement HTMLButtonElement+instance IsNode HTMLButtonElement+instance IsEventTarget HTMLButtonElement+instance IsGObject HTMLButtonElement where+  toGObject = GObject . unHTMLButtonElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLButtonElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLButtonElement :: IsGObject obj => obj -> JSM HTMLButtonElement+castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement"++gTypeHTMLButtonElement :: JSM GType+gTypeHTMLButtonElement = GType . Object <$> jsg "HTMLButtonElement"+#else+type IsHTMLButtonElement o = HTMLButtonElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLCanvasElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement Mozilla HTMLCanvasElement documentation>+newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal }++instance PToJSVal HTMLCanvasElement where+  pToJSVal = unHTMLCanvasElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLCanvasElement where+  pFromJSVal = HTMLCanvasElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLCanvasElement where+  toJSVal = return . unHTMLCanvasElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLCanvasElement where+  fromJSVal v = fmap HTMLCanvasElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLCanvasElement where+  makeObject = makeObject . unHTMLCanvasElement++instance IsHTMLElement HTMLCanvasElement+instance IsElement HTMLCanvasElement+instance IsNode HTMLCanvasElement+instance IsEventTarget HTMLCanvasElement+instance IsGObject HTMLCanvasElement where+  toGObject = GObject . unHTMLCanvasElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLCanvasElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLCanvasElement :: IsGObject obj => obj -> JSM HTMLCanvasElement+castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement"++gTypeHTMLCanvasElement :: JSM GType+gTypeHTMLCanvasElement = GType . Object <$> jsg "HTMLCanvasElement"+#else+type IsHTMLCanvasElement o = HTMLCanvasElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLCollection".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection Mozilla HTMLCollection documentation>+newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal }++instance PToJSVal HTMLCollection where+  pToJSVal = unHTMLCollection+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLCollection where+  pFromJSVal = HTMLCollection+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLCollection where+  toJSVal = return . unHTMLCollection+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLCollection where+  fromJSVal v = fmap HTMLCollection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLCollection where+  makeObject = makeObject . unHTMLCollection++class IsGObject o => IsHTMLCollection o+toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection+toHTMLCollection = unsafeCastGObject . toGObject++instance IsHTMLCollection HTMLCollection+instance IsGObject HTMLCollection where+  toGObject = GObject . unHTMLCollection+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLCollection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLCollection :: IsGObject obj => obj -> JSM HTMLCollection+castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection"++gTypeHTMLCollection :: JSM GType+gTypeHTMLCollection = GType . Object <$> jsg "HTMLCollection"+#else+type IsHTMLCollection o = HTMLCollectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLDListElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement Mozilla HTMLDListElement documentation>+newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal }++instance PToJSVal HTMLDListElement where+  pToJSVal = unHTMLDListElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLDListElement where+  pFromJSVal = HTMLDListElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLDListElement where+  toJSVal = return . unHTMLDListElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLDListElement where+  fromJSVal v = fmap HTMLDListElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLDListElement where+  makeObject = makeObject . unHTMLDListElement++instance IsHTMLElement HTMLDListElement+instance IsElement HTMLDListElement+instance IsNode HTMLDListElement+instance IsEventTarget HTMLDListElement+instance IsGObject HTMLDListElement where+  toGObject = GObject . unHTMLDListElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLDListElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLDListElement :: IsGObject obj => obj -> JSM HTMLDListElement+castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement"++gTypeHTMLDListElement :: JSM GType+gTypeHTMLDListElement = GType . Object <$> jsg "HTMLDListElement"+#else+type IsHTMLDListElement o = HTMLDListElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLDataListElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement Mozilla HTMLDataListElement documentation>+newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal }++instance PToJSVal HTMLDataListElement where+  pToJSVal = unHTMLDataListElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLDataListElement where+  pFromJSVal = HTMLDataListElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLDataListElement where+  toJSVal = return . unHTMLDataListElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLDataListElement where+  fromJSVal v = fmap HTMLDataListElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLDataListElement where+  makeObject = makeObject . unHTMLDataListElement++instance IsHTMLElement HTMLDataListElement+instance IsElement HTMLDataListElement+instance IsNode HTMLDataListElement+instance IsEventTarget HTMLDataListElement+instance IsGObject HTMLDataListElement where+  toGObject = GObject . unHTMLDataListElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLDataListElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLDataListElement :: IsGObject obj => obj -> JSM HTMLDataListElement+castToHTMLDataListElement = castTo gTypeHTMLDataListElement "HTMLDataListElement"++gTypeHTMLDataListElement :: JSM GType+gTypeHTMLDataListElement = GType . Object <$> jsg "HTMLDataListElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLDetailsElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement Mozilla HTMLDetailsElement documentation>+newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal }++instance PToJSVal HTMLDetailsElement where+  pToJSVal = unHTMLDetailsElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLDetailsElement where+  pFromJSVal = HTMLDetailsElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLDetailsElement where+  toJSVal = return . unHTMLDetailsElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLDetailsElement where+  fromJSVal v = fmap HTMLDetailsElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLDetailsElement where+  makeObject = makeObject . unHTMLDetailsElement++instance IsHTMLElement HTMLDetailsElement+instance IsElement HTMLDetailsElement+instance IsNode HTMLDetailsElement+instance IsEventTarget HTMLDetailsElement+instance IsGObject HTMLDetailsElement where+  toGObject = GObject . unHTMLDetailsElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLDetailsElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLDetailsElement :: IsGObject obj => obj -> JSM HTMLDetailsElement+castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement"++gTypeHTMLDetailsElement :: JSM GType+gTypeHTMLDetailsElement = GType . Object <$> jsg "HTMLDetailsElement"+#else+type IsHTMLDetailsElement o = HTMLDetailsElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLDirectoryElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement Mozilla HTMLDirectoryElement documentation>+newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal }++instance PToJSVal HTMLDirectoryElement where+  pToJSVal = unHTMLDirectoryElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLDirectoryElement where+  pFromJSVal = HTMLDirectoryElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLDirectoryElement where+  toJSVal = return . unHTMLDirectoryElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLDirectoryElement where+  fromJSVal v = fmap HTMLDirectoryElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLDirectoryElement where+  makeObject = makeObject . unHTMLDirectoryElement++instance IsHTMLElement HTMLDirectoryElement+instance IsElement HTMLDirectoryElement+instance IsNode HTMLDirectoryElement+instance IsEventTarget HTMLDirectoryElement+instance IsGObject HTMLDirectoryElement where+  toGObject = GObject . unHTMLDirectoryElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLDirectoryElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLDirectoryElement :: IsGObject obj => obj -> JSM HTMLDirectoryElement+castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement"++gTypeHTMLDirectoryElement :: JSM GType+gTypeHTMLDirectoryElement = GType . Object <$> jsg "HTMLDirectoryElement"+#else+type IsHTMLDirectoryElement o = HTMLDirectoryElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLDivElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement Mozilla HTMLDivElement documentation>+newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal }++instance PToJSVal HTMLDivElement where+  pToJSVal = unHTMLDivElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLDivElement where+  pFromJSVal = HTMLDivElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLDivElement where+  toJSVal = return . unHTMLDivElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLDivElement where+  fromJSVal v = fmap HTMLDivElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLDivElement where+  makeObject = makeObject . unHTMLDivElement++instance IsHTMLElement HTMLDivElement+instance IsElement HTMLDivElement+instance IsNode HTMLDivElement+instance IsEventTarget HTMLDivElement+instance IsGObject HTMLDivElement where+  toGObject = GObject . unHTMLDivElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLDivElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLDivElement :: IsGObject obj => obj -> JSM HTMLDivElement+castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement"++gTypeHTMLDivElement :: JSM GType+gTypeHTMLDivElement = GType . Object <$> jsg "HTMLDivElement"+#else+type IsHTMLDivElement o = HTMLDivElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLDocument".+-- Base interface functions are in:+--+--     * "JSDOM.Document"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument Mozilla HTMLDocument documentation>+newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal }++instance PToJSVal HTMLDocument where+  pToJSVal = unHTMLDocument+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLDocument where+  pFromJSVal = HTMLDocument+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLDocument where+  toJSVal = return . unHTMLDocument+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLDocument where+  fromJSVal v = fmap HTMLDocument <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLDocument where+  makeObject = makeObject . unHTMLDocument++instance IsDocument HTMLDocument+instance IsNode HTMLDocument+instance IsEventTarget HTMLDocument+instance IsGObject HTMLDocument where+  toGObject = GObject . unHTMLDocument+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLDocument . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLDocument :: IsGObject obj => obj -> JSM HTMLDocument+castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument"++gTypeHTMLDocument :: JSM GType+gTypeHTMLDocument = GType . Object <$> jsg "HTMLDocument"+#else+type IsHTMLDocument o = HTMLDocumentClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLElement".+-- Base interface functions are in:+--+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement Mozilla HTMLElement documentation>+newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal }++instance PToJSVal HTMLElement where+  pToJSVal = unHTMLElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLElement where+  pFromJSVal = HTMLElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLElement where+  toJSVal = return . unHTMLElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLElement where+  fromJSVal v = fmap HTMLElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLElement where+  makeObject = makeObject . unHTMLElement++class IsElement o => IsHTMLElement o+toHTMLElement :: IsHTMLElement o => o -> HTMLElement+toHTMLElement = unsafeCastGObject . toGObject++instance IsHTMLElement HTMLElement+instance IsElement HTMLElement+instance IsNode HTMLElement+instance IsEventTarget HTMLElement+instance IsGObject HTMLElement where+  toGObject = GObject . unHTMLElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLElement :: IsGObject obj => obj -> JSM HTMLElement+castToHTMLElement = castTo gTypeHTMLElement "HTMLElement"++gTypeHTMLElement :: JSM GType+gTypeHTMLElement = GType . Object <$> jsg "HTMLElement"+#else+type IsHTMLElement o = HTMLElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLEmbedElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement Mozilla HTMLEmbedElement documentation>+newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal }++instance PToJSVal HTMLEmbedElement where+  pToJSVal = unHTMLEmbedElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLEmbedElement where+  pFromJSVal = HTMLEmbedElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLEmbedElement where+  toJSVal = return . unHTMLEmbedElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLEmbedElement where+  fromJSVal v = fmap HTMLEmbedElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLEmbedElement where+  makeObject = makeObject . unHTMLEmbedElement++instance IsHTMLElement HTMLEmbedElement+instance IsElement HTMLEmbedElement+instance IsNode HTMLEmbedElement+instance IsEventTarget HTMLEmbedElement+instance IsGObject HTMLEmbedElement where+  toGObject = GObject . unHTMLEmbedElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLEmbedElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLEmbedElement :: IsGObject obj => obj -> JSM HTMLEmbedElement+castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement"++gTypeHTMLEmbedElement :: JSM GType+gTypeHTMLEmbedElement = GType . Object <$> jsg "HTMLEmbedElement"+#else+type IsHTMLEmbedElement o = HTMLEmbedElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLFieldSetElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement Mozilla HTMLFieldSetElement documentation>+newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal }++instance PToJSVal HTMLFieldSetElement where+  pToJSVal = unHTMLFieldSetElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLFieldSetElement where+  pFromJSVal = HTMLFieldSetElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLFieldSetElement where+  toJSVal = return . unHTMLFieldSetElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLFieldSetElement where+  fromJSVal v = fmap HTMLFieldSetElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLFieldSetElement where+  makeObject = makeObject . unHTMLFieldSetElement++instance IsHTMLElement HTMLFieldSetElement+instance IsElement HTMLFieldSetElement+instance IsNode HTMLFieldSetElement+instance IsEventTarget HTMLFieldSetElement+instance IsGObject HTMLFieldSetElement where+  toGObject = GObject . unHTMLFieldSetElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLFieldSetElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLFieldSetElement :: IsGObject obj => obj -> JSM HTMLFieldSetElement+castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement"++gTypeHTMLFieldSetElement :: JSM GType+gTypeHTMLFieldSetElement = GType . Object <$> jsg "HTMLFieldSetElement"+#else+type IsHTMLFieldSetElement o = HTMLFieldSetElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLFontElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement Mozilla HTMLFontElement documentation>+newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal }++instance PToJSVal HTMLFontElement where+  pToJSVal = unHTMLFontElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLFontElement where+  pFromJSVal = HTMLFontElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLFontElement where+  toJSVal = return . unHTMLFontElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLFontElement where+  fromJSVal v = fmap HTMLFontElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLFontElement where+  makeObject = makeObject . unHTMLFontElement++instance IsHTMLElement HTMLFontElement+instance IsElement HTMLFontElement+instance IsNode HTMLFontElement+instance IsEventTarget HTMLFontElement+instance IsGObject HTMLFontElement where+  toGObject = GObject . unHTMLFontElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLFontElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLFontElement :: IsGObject obj => obj -> JSM HTMLFontElement+castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement"++gTypeHTMLFontElement :: JSM GType+gTypeHTMLFontElement = GType . Object <$> jsg "HTMLFontElement"+#else+type IsHTMLFontElement o = HTMLFontElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLFormControlsCollection".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLCollection"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection Mozilla HTMLFormControlsCollection documentation>+newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal }++instance PToJSVal HTMLFormControlsCollection where+  pToJSVal = unHTMLFormControlsCollection+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLFormControlsCollection where+  pFromJSVal = HTMLFormControlsCollection+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLFormControlsCollection where+  toJSVal = return . unHTMLFormControlsCollection+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLFormControlsCollection where+  fromJSVal v = fmap HTMLFormControlsCollection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLFormControlsCollection where+  makeObject = makeObject . unHTMLFormControlsCollection++instance IsHTMLCollection HTMLFormControlsCollection+instance IsGObject HTMLFormControlsCollection where+  toGObject = GObject . unHTMLFormControlsCollection+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLFormControlsCollection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLFormControlsCollection :: IsGObject obj => obj -> JSM HTMLFormControlsCollection+castToHTMLFormControlsCollection = castTo gTypeHTMLFormControlsCollection "HTMLFormControlsCollection"++gTypeHTMLFormControlsCollection :: JSM GType+gTypeHTMLFormControlsCollection = GType . Object <$> jsg "HTMLFormControlsCollection"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLFormElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement Mozilla HTMLFormElement documentation>+newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal }++instance PToJSVal HTMLFormElement where+  pToJSVal = unHTMLFormElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLFormElement where+  pFromJSVal = HTMLFormElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLFormElement where+  toJSVal = return . unHTMLFormElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLFormElement where+  fromJSVal v = fmap HTMLFormElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLFormElement where+  makeObject = makeObject . unHTMLFormElement++instance IsHTMLElement HTMLFormElement+instance IsElement HTMLFormElement+instance IsNode HTMLFormElement+instance IsEventTarget HTMLFormElement+instance IsGObject HTMLFormElement where+  toGObject = GObject . unHTMLFormElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLFormElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLFormElement :: IsGObject obj => obj -> JSM HTMLFormElement+castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement"++gTypeHTMLFormElement :: JSM GType+gTypeHTMLFormElement = GType . Object <$> jsg "HTMLFormElement"+#else+type IsHTMLFormElement o = HTMLFormElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLFrameElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement Mozilla HTMLFrameElement documentation>+newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal }++instance PToJSVal HTMLFrameElement where+  pToJSVal = unHTMLFrameElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLFrameElement where+  pFromJSVal = HTMLFrameElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLFrameElement where+  toJSVal = return . unHTMLFrameElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLFrameElement where+  fromJSVal v = fmap HTMLFrameElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLFrameElement where+  makeObject = makeObject . unHTMLFrameElement++instance IsHTMLElement HTMLFrameElement+instance IsElement HTMLFrameElement+instance IsNode HTMLFrameElement+instance IsEventTarget HTMLFrameElement+instance IsGObject HTMLFrameElement where+  toGObject = GObject . unHTMLFrameElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLFrameElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLFrameElement :: IsGObject obj => obj -> JSM HTMLFrameElement+castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement"++gTypeHTMLFrameElement :: JSM GType+gTypeHTMLFrameElement = GType . Object <$> jsg "HTMLFrameElement"+#else+type IsHTMLFrameElement o = HTMLFrameElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLFrameSetElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement Mozilla HTMLFrameSetElement documentation>+newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal }++instance PToJSVal HTMLFrameSetElement where+  pToJSVal = unHTMLFrameSetElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLFrameSetElement where+  pFromJSVal = HTMLFrameSetElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLFrameSetElement where+  toJSVal = return . unHTMLFrameSetElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLFrameSetElement where+  fromJSVal v = fmap HTMLFrameSetElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLFrameSetElement where+  makeObject = makeObject . unHTMLFrameSetElement++instance IsHTMLElement HTMLFrameSetElement+instance IsElement HTMLFrameSetElement+instance IsNode HTMLFrameSetElement+instance IsEventTarget HTMLFrameSetElement+instance IsGObject HTMLFrameSetElement where+  toGObject = GObject . unHTMLFrameSetElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLFrameSetElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLFrameSetElement :: IsGObject obj => obj -> JSM HTMLFrameSetElement+castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement"++gTypeHTMLFrameSetElement :: JSM GType+gTypeHTMLFrameSetElement = GType . Object <$> jsg "HTMLFrameSetElement"+#else+type IsHTMLFrameSetElement o = HTMLFrameSetElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLHRElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement Mozilla HTMLHRElement documentation>+newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal }++instance PToJSVal HTMLHRElement where+  pToJSVal = unHTMLHRElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLHRElement where+  pFromJSVal = HTMLHRElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLHRElement where+  toJSVal = return . unHTMLHRElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLHRElement where+  fromJSVal v = fmap HTMLHRElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLHRElement where+  makeObject = makeObject . unHTMLHRElement++instance IsHTMLElement HTMLHRElement+instance IsElement HTMLHRElement+instance IsNode HTMLHRElement+instance IsEventTarget HTMLHRElement+instance IsGObject HTMLHRElement where+  toGObject = GObject . unHTMLHRElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLHRElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLHRElement :: IsGObject obj => obj -> JSM HTMLHRElement+castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement"++gTypeHTMLHRElement :: JSM GType+gTypeHTMLHRElement = GType . Object <$> jsg "HTMLHRElement"+#else+type IsHTMLHRElement o = HTMLHRElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLHeadElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement Mozilla HTMLHeadElement documentation>+newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal }++instance PToJSVal HTMLHeadElement where+  pToJSVal = unHTMLHeadElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLHeadElement where+  pFromJSVal = HTMLHeadElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLHeadElement where+  toJSVal = return . unHTMLHeadElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLHeadElement where+  fromJSVal v = fmap HTMLHeadElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLHeadElement where+  makeObject = makeObject . unHTMLHeadElement++instance IsHTMLElement HTMLHeadElement+instance IsElement HTMLHeadElement+instance IsNode HTMLHeadElement+instance IsEventTarget HTMLHeadElement+instance IsGObject HTMLHeadElement where+  toGObject = GObject . unHTMLHeadElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLHeadElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLHeadElement :: IsGObject obj => obj -> JSM HTMLHeadElement+castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement"++gTypeHTMLHeadElement :: JSM GType+gTypeHTMLHeadElement = GType . Object <$> jsg "HTMLHeadElement"+#else+type IsHTMLHeadElement o = HTMLHeadElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLHeadingElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement Mozilla HTMLHeadingElement documentation>+newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal }++instance PToJSVal HTMLHeadingElement where+  pToJSVal = unHTMLHeadingElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLHeadingElement where+  pFromJSVal = HTMLHeadingElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLHeadingElement where+  toJSVal = return . unHTMLHeadingElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLHeadingElement where+  fromJSVal v = fmap HTMLHeadingElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLHeadingElement where+  makeObject = makeObject . unHTMLHeadingElement++instance IsHTMLElement HTMLHeadingElement+instance IsElement HTMLHeadingElement+instance IsNode HTMLHeadingElement+instance IsEventTarget HTMLHeadingElement+instance IsGObject HTMLHeadingElement where+  toGObject = GObject . unHTMLHeadingElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLHeadingElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLHeadingElement :: IsGObject obj => obj -> JSM HTMLHeadingElement+castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement"++gTypeHTMLHeadingElement :: JSM GType+gTypeHTMLHeadingElement = GType . Object <$> jsg "HTMLHeadingElement"+#else+type IsHTMLHeadingElement o = HTMLHeadingElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLHtmlElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement Mozilla HTMLHtmlElement documentation>+newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal }++instance PToJSVal HTMLHtmlElement where+  pToJSVal = unHTMLHtmlElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLHtmlElement where+  pFromJSVal = HTMLHtmlElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLHtmlElement where+  toJSVal = return . unHTMLHtmlElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLHtmlElement where+  fromJSVal v = fmap HTMLHtmlElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLHtmlElement where+  makeObject = makeObject . unHTMLHtmlElement++instance IsHTMLElement HTMLHtmlElement+instance IsElement HTMLHtmlElement+instance IsNode HTMLHtmlElement+instance IsEventTarget HTMLHtmlElement+instance IsGObject HTMLHtmlElement where+  toGObject = GObject . unHTMLHtmlElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLHtmlElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLHtmlElement :: IsGObject obj => obj -> JSM HTMLHtmlElement+castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement"++gTypeHTMLHtmlElement :: JSM GType+gTypeHTMLHtmlElement = GType . Object <$> jsg "HTMLHtmlElement"+#else+type IsHTMLHtmlElement o = HTMLHtmlElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLIFrameElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement Mozilla HTMLIFrameElement documentation>+newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal }++instance PToJSVal HTMLIFrameElement where+  pToJSVal = unHTMLIFrameElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLIFrameElement where+  pFromJSVal = HTMLIFrameElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLIFrameElement where+  toJSVal = return . unHTMLIFrameElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLIFrameElement where+  fromJSVal v = fmap HTMLIFrameElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLIFrameElement where+  makeObject = makeObject . unHTMLIFrameElement++instance IsHTMLElement HTMLIFrameElement+instance IsElement HTMLIFrameElement+instance IsNode HTMLIFrameElement+instance IsEventTarget HTMLIFrameElement+instance IsGObject HTMLIFrameElement where+  toGObject = GObject . unHTMLIFrameElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLIFrameElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLIFrameElement :: IsGObject obj => obj -> JSM HTMLIFrameElement+castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement"++gTypeHTMLIFrameElement :: JSM GType+gTypeHTMLIFrameElement = GType . Object <$> jsg "HTMLIFrameElement"+#else+type IsHTMLIFrameElement o = HTMLIFrameElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLImageElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement Mozilla HTMLImageElement documentation>+newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal }++instance PToJSVal HTMLImageElement where+  pToJSVal = unHTMLImageElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLImageElement where+  pFromJSVal = HTMLImageElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLImageElement where+  toJSVal = return . unHTMLImageElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLImageElement where+  fromJSVal v = fmap HTMLImageElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLImageElement where+  makeObject = makeObject . unHTMLImageElement++instance IsHTMLElement HTMLImageElement+instance IsElement HTMLImageElement+instance IsNode HTMLImageElement+instance IsEventTarget HTMLImageElement+instance IsGObject HTMLImageElement where+  toGObject = GObject . unHTMLImageElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLImageElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLImageElement :: IsGObject obj => obj -> JSM HTMLImageElement+castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement"++gTypeHTMLImageElement :: JSM GType+gTypeHTMLImageElement = GType . Object <$> jsg "HTMLImageElement"+#else+type IsHTMLImageElement o = HTMLImageElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLInputElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement Mozilla HTMLInputElement documentation>+newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal }++instance PToJSVal HTMLInputElement where+  pToJSVal = unHTMLInputElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLInputElement where+  pFromJSVal = HTMLInputElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLInputElement where+  toJSVal = return . unHTMLInputElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLInputElement where+  fromJSVal v = fmap HTMLInputElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLInputElement where+  makeObject = makeObject . unHTMLInputElement++instance IsHTMLElement HTMLInputElement+instance IsElement HTMLInputElement+instance IsNode HTMLInputElement+instance IsEventTarget HTMLInputElement+instance IsGObject HTMLInputElement where+  toGObject = GObject . unHTMLInputElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLInputElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLInputElement :: IsGObject obj => obj -> JSM HTMLInputElement+castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement"++gTypeHTMLInputElement :: JSM GType+gTypeHTMLInputElement = GType . Object <$> jsg "HTMLInputElement"+#else+type IsHTMLInputElement o = HTMLInputElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLKeygenElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement Mozilla HTMLKeygenElement documentation>+newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal }++instance PToJSVal HTMLKeygenElement where+  pToJSVal = unHTMLKeygenElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLKeygenElement where+  pFromJSVal = HTMLKeygenElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLKeygenElement where+  toJSVal = return . unHTMLKeygenElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLKeygenElement where+  fromJSVal v = fmap HTMLKeygenElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLKeygenElement where+  makeObject = makeObject . unHTMLKeygenElement++instance IsHTMLElement HTMLKeygenElement+instance IsElement HTMLKeygenElement+instance IsNode HTMLKeygenElement+instance IsEventTarget HTMLKeygenElement+instance IsGObject HTMLKeygenElement where+  toGObject = GObject . unHTMLKeygenElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLKeygenElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLKeygenElement :: IsGObject obj => obj -> JSM HTMLKeygenElement+castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement"++gTypeHTMLKeygenElement :: JSM GType+gTypeHTMLKeygenElement = GType . Object <$> jsg "HTMLKeygenElement"+#else+type IsHTMLKeygenElement o = HTMLKeygenElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLLIElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement Mozilla HTMLLIElement documentation>+newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal }++instance PToJSVal HTMLLIElement where+  pToJSVal = unHTMLLIElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLLIElement where+  pFromJSVal = HTMLLIElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLLIElement where+  toJSVal = return . unHTMLLIElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLLIElement where+  fromJSVal v = fmap HTMLLIElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLLIElement where+  makeObject = makeObject . unHTMLLIElement++instance IsHTMLElement HTMLLIElement+instance IsElement HTMLLIElement+instance IsNode HTMLLIElement+instance IsEventTarget HTMLLIElement+instance IsGObject HTMLLIElement where+  toGObject = GObject . unHTMLLIElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLLIElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLLIElement :: IsGObject obj => obj -> JSM HTMLLIElement+castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement"++gTypeHTMLLIElement :: JSM GType+gTypeHTMLLIElement = GType . Object <$> jsg "HTMLLIElement"+#else+type IsHTMLLIElement o = HTMLLIElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLLabelElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement Mozilla HTMLLabelElement documentation>+newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal }++instance PToJSVal HTMLLabelElement where+  pToJSVal = unHTMLLabelElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLLabelElement where+  pFromJSVal = HTMLLabelElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLLabelElement where+  toJSVal = return . unHTMLLabelElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLLabelElement where+  fromJSVal v = fmap HTMLLabelElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLLabelElement where+  makeObject = makeObject . unHTMLLabelElement++instance IsHTMLElement HTMLLabelElement+instance IsElement HTMLLabelElement+instance IsNode HTMLLabelElement+instance IsEventTarget HTMLLabelElement+instance IsGObject HTMLLabelElement where+  toGObject = GObject . unHTMLLabelElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLLabelElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLLabelElement :: IsGObject obj => obj -> JSM HTMLLabelElement+castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement"++gTypeHTMLLabelElement :: JSM GType+gTypeHTMLLabelElement = GType . Object <$> jsg "HTMLLabelElement"+#else+type IsHTMLLabelElement o = HTMLLabelElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLLegendElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement Mozilla HTMLLegendElement documentation>+newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal }++instance PToJSVal HTMLLegendElement where+  pToJSVal = unHTMLLegendElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLLegendElement where+  pFromJSVal = HTMLLegendElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLLegendElement where+  toJSVal = return . unHTMLLegendElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLLegendElement where+  fromJSVal v = fmap HTMLLegendElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLLegendElement where+  makeObject = makeObject . unHTMLLegendElement++instance IsHTMLElement HTMLLegendElement+instance IsElement HTMLLegendElement+instance IsNode HTMLLegendElement+instance IsEventTarget HTMLLegendElement+instance IsGObject HTMLLegendElement where+  toGObject = GObject . unHTMLLegendElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLLegendElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLLegendElement :: IsGObject obj => obj -> JSM HTMLLegendElement+castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement"++gTypeHTMLLegendElement :: JSM GType+gTypeHTMLLegendElement = GType . Object <$> jsg "HTMLLegendElement"+#else+type IsHTMLLegendElement o = HTMLLegendElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLLinkElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement Mozilla HTMLLinkElement documentation>+newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal }++instance PToJSVal HTMLLinkElement where+  pToJSVal = unHTMLLinkElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLLinkElement where+  pFromJSVal = HTMLLinkElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLLinkElement where+  toJSVal = return . unHTMLLinkElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLLinkElement where+  fromJSVal v = fmap HTMLLinkElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLLinkElement where+  makeObject = makeObject . unHTMLLinkElement++instance IsHTMLElement HTMLLinkElement+instance IsElement HTMLLinkElement+instance IsNode HTMLLinkElement+instance IsEventTarget HTMLLinkElement+instance IsGObject HTMLLinkElement where+  toGObject = GObject . unHTMLLinkElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLLinkElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLLinkElement :: IsGObject obj => obj -> JSM HTMLLinkElement+castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement"++gTypeHTMLLinkElement :: JSM GType+gTypeHTMLLinkElement = GType . Object <$> jsg "HTMLLinkElement"+#else+type IsHTMLLinkElement o = HTMLLinkElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLMapElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement Mozilla HTMLMapElement documentation>+newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal }++instance PToJSVal HTMLMapElement where+  pToJSVal = unHTMLMapElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLMapElement where+  pFromJSVal = HTMLMapElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLMapElement where+  toJSVal = return . unHTMLMapElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLMapElement where+  fromJSVal v = fmap HTMLMapElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLMapElement where+  makeObject = makeObject . unHTMLMapElement++instance IsHTMLElement HTMLMapElement+instance IsElement HTMLMapElement+instance IsNode HTMLMapElement+instance IsEventTarget HTMLMapElement+instance IsGObject HTMLMapElement where+  toGObject = GObject . unHTMLMapElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLMapElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLMapElement :: IsGObject obj => obj -> JSM HTMLMapElement+castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement"++gTypeHTMLMapElement :: JSM GType+gTypeHTMLMapElement = GType . Object <$> jsg "HTMLMapElement"+#else+type IsHTMLMapElement o = HTMLMapElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLMarqueeElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement Mozilla HTMLMarqueeElement documentation>+newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal }++instance PToJSVal HTMLMarqueeElement where+  pToJSVal = unHTMLMarqueeElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLMarqueeElement where+  pFromJSVal = HTMLMarqueeElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLMarqueeElement where+  toJSVal = return . unHTMLMarqueeElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLMarqueeElement where+  fromJSVal v = fmap HTMLMarqueeElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLMarqueeElement where+  makeObject = makeObject . unHTMLMarqueeElement++instance IsHTMLElement HTMLMarqueeElement+instance IsElement HTMLMarqueeElement+instance IsNode HTMLMarqueeElement+instance IsEventTarget HTMLMarqueeElement+instance IsGObject HTMLMarqueeElement where+  toGObject = GObject . unHTMLMarqueeElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLMarqueeElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLMarqueeElement :: IsGObject obj => obj -> JSM HTMLMarqueeElement+castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement"++gTypeHTMLMarqueeElement :: JSM GType+gTypeHTMLMarqueeElement = GType . Object <$> jsg "HTMLMarqueeElement"+#else+type IsHTMLMarqueeElement o = HTMLMarqueeElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLMediaElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement Mozilla HTMLMediaElement documentation>+newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal }++instance PToJSVal HTMLMediaElement where+  pToJSVal = unHTMLMediaElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLMediaElement where+  pFromJSVal = HTMLMediaElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLMediaElement where+  toJSVal = return . unHTMLMediaElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLMediaElement where+  fromJSVal v = fmap HTMLMediaElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLMediaElement where+  makeObject = makeObject . unHTMLMediaElement++class IsHTMLElement o => IsHTMLMediaElement o+toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement+toHTMLMediaElement = unsafeCastGObject . toGObject++instance IsHTMLMediaElement HTMLMediaElement+instance IsHTMLElement HTMLMediaElement+instance IsElement HTMLMediaElement+instance IsNode HTMLMediaElement+instance IsEventTarget HTMLMediaElement+instance IsGObject HTMLMediaElement where+  toGObject = GObject . unHTMLMediaElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLMediaElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLMediaElement :: IsGObject obj => obj -> JSM HTMLMediaElement+castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement"++gTypeHTMLMediaElement :: JSM GType+gTypeHTMLMediaElement = GType . Object <$> jsg "HTMLMediaElement"+#else+type IsHTMLMediaElement o = HTMLMediaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLMenuElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement Mozilla HTMLMenuElement documentation>+newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal }++instance PToJSVal HTMLMenuElement where+  pToJSVal = unHTMLMenuElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLMenuElement where+  pFromJSVal = HTMLMenuElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLMenuElement where+  toJSVal = return . unHTMLMenuElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLMenuElement where+  fromJSVal v = fmap HTMLMenuElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLMenuElement where+  makeObject = makeObject . unHTMLMenuElement++instance IsHTMLElement HTMLMenuElement+instance IsElement HTMLMenuElement+instance IsNode HTMLMenuElement+instance IsEventTarget HTMLMenuElement+instance IsGObject HTMLMenuElement where+  toGObject = GObject . unHTMLMenuElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLMenuElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLMenuElement :: IsGObject obj => obj -> JSM HTMLMenuElement+castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement"++gTypeHTMLMenuElement :: JSM GType+gTypeHTMLMenuElement = GType . Object <$> jsg "HTMLMenuElement"+#else+type IsHTMLMenuElement o = HTMLMenuElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLMetaElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement Mozilla HTMLMetaElement documentation>+newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal }++instance PToJSVal HTMLMetaElement where+  pToJSVal = unHTMLMetaElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLMetaElement where+  pFromJSVal = HTMLMetaElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLMetaElement where+  toJSVal = return . unHTMLMetaElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLMetaElement where+  fromJSVal v = fmap HTMLMetaElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLMetaElement where+  makeObject = makeObject . unHTMLMetaElement++instance IsHTMLElement HTMLMetaElement+instance IsElement HTMLMetaElement+instance IsNode HTMLMetaElement+instance IsEventTarget HTMLMetaElement+instance IsGObject HTMLMetaElement where+  toGObject = GObject . unHTMLMetaElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLMetaElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLMetaElement :: IsGObject obj => obj -> JSM HTMLMetaElement+castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement"++gTypeHTMLMetaElement :: JSM GType+gTypeHTMLMetaElement = GType . Object <$> jsg "HTMLMetaElement"+#else+type IsHTMLMetaElement o = HTMLMetaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLMeterElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement Mozilla HTMLMeterElement documentation>+newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal }++instance PToJSVal HTMLMeterElement where+  pToJSVal = unHTMLMeterElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLMeterElement where+  pFromJSVal = HTMLMeterElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLMeterElement where+  toJSVal = return . unHTMLMeterElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLMeterElement where+  fromJSVal v = fmap HTMLMeterElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLMeterElement where+  makeObject = makeObject . unHTMLMeterElement++instance IsHTMLElement HTMLMeterElement+instance IsElement HTMLMeterElement+instance IsNode HTMLMeterElement+instance IsEventTarget HTMLMeterElement+instance IsGObject HTMLMeterElement where+  toGObject = GObject . unHTMLMeterElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLMeterElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLMeterElement :: IsGObject obj => obj -> JSM HTMLMeterElement+castToHTMLMeterElement = castTo gTypeHTMLMeterElement "HTMLMeterElement"++gTypeHTMLMeterElement :: JSM GType+gTypeHTMLMeterElement = GType . Object <$> jsg "HTMLMeterElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLModElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement Mozilla HTMLModElement documentation>+newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal }++instance PToJSVal HTMLModElement where+  pToJSVal = unHTMLModElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLModElement where+  pFromJSVal = HTMLModElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLModElement where+  toJSVal = return . unHTMLModElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLModElement where+  fromJSVal v = fmap HTMLModElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLModElement where+  makeObject = makeObject . unHTMLModElement++instance IsHTMLElement HTMLModElement+instance IsElement HTMLModElement+instance IsNode HTMLModElement+instance IsEventTarget HTMLModElement+instance IsGObject HTMLModElement where+  toGObject = GObject . unHTMLModElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLModElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLModElement :: IsGObject obj => obj -> JSM HTMLModElement+castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement"++gTypeHTMLModElement :: JSM GType+gTypeHTMLModElement = GType . Object <$> jsg "HTMLModElement"+#else+type IsHTMLModElement o = HTMLModElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLOListElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement Mozilla HTMLOListElement documentation>+newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal }++instance PToJSVal HTMLOListElement where+  pToJSVal = unHTMLOListElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLOListElement where+  pFromJSVal = HTMLOListElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLOListElement where+  toJSVal = return . unHTMLOListElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLOListElement where+  fromJSVal v = fmap HTMLOListElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLOListElement where+  makeObject = makeObject . unHTMLOListElement++instance IsHTMLElement HTMLOListElement+instance IsElement HTMLOListElement+instance IsNode HTMLOListElement+instance IsEventTarget HTMLOListElement+instance IsGObject HTMLOListElement where+  toGObject = GObject . unHTMLOListElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLOListElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLOListElement :: IsGObject obj => obj -> JSM HTMLOListElement+castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement"++gTypeHTMLOListElement :: JSM GType+gTypeHTMLOListElement = GType . Object <$> jsg "HTMLOListElement"+#else+type IsHTMLOListElement o = HTMLOListElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLObjectElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement Mozilla HTMLObjectElement documentation>+newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal }++instance PToJSVal HTMLObjectElement where+  pToJSVal = unHTMLObjectElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLObjectElement where+  pFromJSVal = HTMLObjectElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLObjectElement where+  toJSVal = return . unHTMLObjectElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLObjectElement where+  fromJSVal v = fmap HTMLObjectElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLObjectElement where+  makeObject = makeObject . unHTMLObjectElement++instance IsHTMLElement HTMLObjectElement+instance IsElement HTMLObjectElement+instance IsNode HTMLObjectElement+instance IsEventTarget HTMLObjectElement+instance IsGObject HTMLObjectElement where+  toGObject = GObject . unHTMLObjectElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLObjectElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLObjectElement :: IsGObject obj => obj -> JSM HTMLObjectElement+castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement"++gTypeHTMLObjectElement :: JSM GType+gTypeHTMLObjectElement = GType . Object <$> jsg "HTMLObjectElement"+#else+type IsHTMLObjectElement o = HTMLObjectElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLOptGroupElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement Mozilla HTMLOptGroupElement documentation>+newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal }++instance PToJSVal HTMLOptGroupElement where+  pToJSVal = unHTMLOptGroupElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLOptGroupElement where+  pFromJSVal = HTMLOptGroupElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLOptGroupElement where+  toJSVal = return . unHTMLOptGroupElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLOptGroupElement where+  fromJSVal v = fmap HTMLOptGroupElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLOptGroupElement where+  makeObject = makeObject . unHTMLOptGroupElement++instance IsHTMLElement HTMLOptGroupElement+instance IsElement HTMLOptGroupElement+instance IsNode HTMLOptGroupElement+instance IsEventTarget HTMLOptGroupElement+instance IsGObject HTMLOptGroupElement where+  toGObject = GObject . unHTMLOptGroupElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLOptGroupElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLOptGroupElement :: IsGObject obj => obj -> JSM HTMLOptGroupElement+castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement"++gTypeHTMLOptGroupElement :: JSM GType+gTypeHTMLOptGroupElement = GType . Object <$> jsg "HTMLOptGroupElement"+#else+type IsHTMLOptGroupElement o = HTMLOptGroupElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLOptionElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement Mozilla HTMLOptionElement documentation>+newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal }++instance PToJSVal HTMLOptionElement where+  pToJSVal = unHTMLOptionElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLOptionElement where+  pFromJSVal = HTMLOptionElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLOptionElement where+  toJSVal = return . unHTMLOptionElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLOptionElement where+  fromJSVal v = fmap HTMLOptionElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLOptionElement where+  makeObject = makeObject . unHTMLOptionElement++instance IsHTMLElement HTMLOptionElement+instance IsElement HTMLOptionElement+instance IsNode HTMLOptionElement+instance IsEventTarget HTMLOptionElement+instance IsGObject HTMLOptionElement where+  toGObject = GObject . unHTMLOptionElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLOptionElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLOptionElement :: IsGObject obj => obj -> JSM HTMLOptionElement+castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement"++gTypeHTMLOptionElement :: JSM GType+gTypeHTMLOptionElement = GType . Object <$> jsg "HTMLOptionElement"+#else+type IsHTMLOptionElement o = HTMLOptionElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLOptionsCollection".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLCollection"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection Mozilla HTMLOptionsCollection documentation>+newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal }++instance PToJSVal HTMLOptionsCollection where+  pToJSVal = unHTMLOptionsCollection+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLOptionsCollection where+  pFromJSVal = HTMLOptionsCollection+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLOptionsCollection where+  toJSVal = return . unHTMLOptionsCollection+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLOptionsCollection where+  fromJSVal v = fmap HTMLOptionsCollection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLOptionsCollection where+  makeObject = makeObject . unHTMLOptionsCollection++instance IsHTMLCollection HTMLOptionsCollection+instance IsGObject HTMLOptionsCollection where+  toGObject = GObject . unHTMLOptionsCollection+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLOptionsCollection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLOptionsCollection :: IsGObject obj => obj -> JSM HTMLOptionsCollection+castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection"++gTypeHTMLOptionsCollection :: JSM GType+gTypeHTMLOptionsCollection = GType . Object <$> jsg "HTMLOptionsCollection"+#else+type IsHTMLOptionsCollection o = HTMLOptionsCollectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLOutputElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement Mozilla HTMLOutputElement documentation>+newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal }++instance PToJSVal HTMLOutputElement where+  pToJSVal = unHTMLOutputElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLOutputElement where+  pFromJSVal = HTMLOutputElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLOutputElement where+  toJSVal = return . unHTMLOutputElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLOutputElement where+  fromJSVal v = fmap HTMLOutputElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLOutputElement where+  makeObject = makeObject . unHTMLOutputElement++instance IsHTMLElement HTMLOutputElement+instance IsElement HTMLOutputElement+instance IsNode HTMLOutputElement+instance IsEventTarget HTMLOutputElement+instance IsGObject HTMLOutputElement where+  toGObject = GObject . unHTMLOutputElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLOutputElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLOutputElement :: IsGObject obj => obj -> JSM HTMLOutputElement+castToHTMLOutputElement = castTo gTypeHTMLOutputElement "HTMLOutputElement"++gTypeHTMLOutputElement :: JSM GType+gTypeHTMLOutputElement = GType . Object <$> jsg "HTMLOutputElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLParagraphElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement Mozilla HTMLParagraphElement documentation>+newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal }++instance PToJSVal HTMLParagraphElement where+  pToJSVal = unHTMLParagraphElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLParagraphElement where+  pFromJSVal = HTMLParagraphElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLParagraphElement where+  toJSVal = return . unHTMLParagraphElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLParagraphElement where+  fromJSVal v = fmap HTMLParagraphElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLParagraphElement where+  makeObject = makeObject . unHTMLParagraphElement++instance IsHTMLElement HTMLParagraphElement+instance IsElement HTMLParagraphElement+instance IsNode HTMLParagraphElement+instance IsEventTarget HTMLParagraphElement+instance IsGObject HTMLParagraphElement where+  toGObject = GObject . unHTMLParagraphElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLParagraphElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLParagraphElement :: IsGObject obj => obj -> JSM HTMLParagraphElement+castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement"++gTypeHTMLParagraphElement :: JSM GType+gTypeHTMLParagraphElement = GType . Object <$> jsg "HTMLParagraphElement"+#else+type IsHTMLParagraphElement o = HTMLParagraphElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLParamElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement Mozilla HTMLParamElement documentation>+newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal }++instance PToJSVal HTMLParamElement where+  pToJSVal = unHTMLParamElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLParamElement where+  pFromJSVal = HTMLParamElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLParamElement where+  toJSVal = return . unHTMLParamElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLParamElement where+  fromJSVal v = fmap HTMLParamElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLParamElement where+  makeObject = makeObject . unHTMLParamElement++instance IsHTMLElement HTMLParamElement+instance IsElement HTMLParamElement+instance IsNode HTMLParamElement+instance IsEventTarget HTMLParamElement+instance IsGObject HTMLParamElement where+  toGObject = GObject . unHTMLParamElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLParamElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLParamElement :: IsGObject obj => obj -> JSM HTMLParamElement+castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement"++gTypeHTMLParamElement :: JSM GType+gTypeHTMLParamElement = GType . Object <$> jsg "HTMLParamElement"+#else+type IsHTMLParamElement o = HTMLParamElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLPreElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement Mozilla HTMLPreElement documentation>+newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal }++instance PToJSVal HTMLPreElement where+  pToJSVal = unHTMLPreElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLPreElement where+  pFromJSVal = HTMLPreElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLPreElement where+  toJSVal = return . unHTMLPreElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLPreElement where+  fromJSVal v = fmap HTMLPreElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLPreElement where+  makeObject = makeObject . unHTMLPreElement++instance IsHTMLElement HTMLPreElement+instance IsElement HTMLPreElement+instance IsNode HTMLPreElement+instance IsEventTarget HTMLPreElement+instance IsGObject HTMLPreElement where+  toGObject = GObject . unHTMLPreElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLPreElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLPreElement :: IsGObject obj => obj -> JSM HTMLPreElement+castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement"++gTypeHTMLPreElement :: JSM GType+gTypeHTMLPreElement = GType . Object <$> jsg "HTMLPreElement"+#else+type IsHTMLPreElement o = HTMLPreElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLProgressElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement Mozilla HTMLProgressElement documentation>+newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal }++instance PToJSVal HTMLProgressElement where+  pToJSVal = unHTMLProgressElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLProgressElement where+  pFromJSVal = HTMLProgressElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLProgressElement where+  toJSVal = return . unHTMLProgressElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLProgressElement where+  fromJSVal v = fmap HTMLProgressElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLProgressElement where+  makeObject = makeObject . unHTMLProgressElement++instance IsHTMLElement HTMLProgressElement+instance IsElement HTMLProgressElement+instance IsNode HTMLProgressElement+instance IsEventTarget HTMLProgressElement+instance IsGObject HTMLProgressElement where+  toGObject = GObject . unHTMLProgressElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLProgressElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLProgressElement :: IsGObject obj => obj -> JSM HTMLProgressElement+castToHTMLProgressElement = castTo gTypeHTMLProgressElement "HTMLProgressElement"++gTypeHTMLProgressElement :: JSM GType+gTypeHTMLProgressElement = GType . Object <$> jsg "HTMLProgressElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLQuoteElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement Mozilla HTMLQuoteElement documentation>+newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal }++instance PToJSVal HTMLQuoteElement where+  pToJSVal = unHTMLQuoteElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLQuoteElement where+  pFromJSVal = HTMLQuoteElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLQuoteElement where+  toJSVal = return . unHTMLQuoteElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLQuoteElement where+  fromJSVal v = fmap HTMLQuoteElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLQuoteElement where+  makeObject = makeObject . unHTMLQuoteElement++instance IsHTMLElement HTMLQuoteElement+instance IsElement HTMLQuoteElement+instance IsNode HTMLQuoteElement+instance IsEventTarget HTMLQuoteElement+instance IsGObject HTMLQuoteElement where+  toGObject = GObject . unHTMLQuoteElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLQuoteElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLQuoteElement :: IsGObject obj => obj -> JSM HTMLQuoteElement+castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement"++gTypeHTMLQuoteElement :: JSM GType+gTypeHTMLQuoteElement = GType . Object <$> jsg "HTMLQuoteElement"+#else+type IsHTMLQuoteElement o = HTMLQuoteElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLScriptElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement Mozilla HTMLScriptElement documentation>+newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal }++instance PToJSVal HTMLScriptElement where+  pToJSVal = unHTMLScriptElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLScriptElement where+  pFromJSVal = HTMLScriptElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLScriptElement where+  toJSVal = return . unHTMLScriptElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLScriptElement where+  fromJSVal v = fmap HTMLScriptElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLScriptElement where+  makeObject = makeObject . unHTMLScriptElement++instance IsHTMLElement HTMLScriptElement+instance IsElement HTMLScriptElement+instance IsNode HTMLScriptElement+instance IsEventTarget HTMLScriptElement+instance IsGObject HTMLScriptElement where+  toGObject = GObject . unHTMLScriptElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLScriptElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLScriptElement :: IsGObject obj => obj -> JSM HTMLScriptElement+castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement"++gTypeHTMLScriptElement :: JSM GType+gTypeHTMLScriptElement = GType . Object <$> jsg "HTMLScriptElement"+#else+type IsHTMLScriptElement o = HTMLScriptElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLSelectElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement Mozilla HTMLSelectElement documentation>+newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal }++instance PToJSVal HTMLSelectElement where+  pToJSVal = unHTMLSelectElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLSelectElement where+  pFromJSVal = HTMLSelectElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLSelectElement where+  toJSVal = return . unHTMLSelectElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLSelectElement where+  fromJSVal v = fmap HTMLSelectElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLSelectElement where+  makeObject = makeObject . unHTMLSelectElement++instance IsHTMLElement HTMLSelectElement+instance IsElement HTMLSelectElement+instance IsNode HTMLSelectElement+instance IsEventTarget HTMLSelectElement+instance IsGObject HTMLSelectElement where+  toGObject = GObject . unHTMLSelectElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLSelectElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLSelectElement :: IsGObject obj => obj -> JSM HTMLSelectElement+castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement"++gTypeHTMLSelectElement :: JSM GType+gTypeHTMLSelectElement = GType . Object <$> jsg "HTMLSelectElement"+#else+type IsHTMLSelectElement o = HTMLSelectElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLSourceElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement Mozilla HTMLSourceElement documentation>+newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal }++instance PToJSVal HTMLSourceElement where+  pToJSVal = unHTMLSourceElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLSourceElement where+  pFromJSVal = HTMLSourceElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLSourceElement where+  toJSVal = return . unHTMLSourceElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLSourceElement where+  fromJSVal v = fmap HTMLSourceElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLSourceElement where+  makeObject = makeObject . unHTMLSourceElement++instance IsHTMLElement HTMLSourceElement+instance IsElement HTMLSourceElement+instance IsNode HTMLSourceElement+instance IsEventTarget HTMLSourceElement+instance IsGObject HTMLSourceElement where+  toGObject = GObject . unHTMLSourceElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLSourceElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLSourceElement :: IsGObject obj => obj -> JSM HTMLSourceElement+castToHTMLSourceElement = castTo gTypeHTMLSourceElement "HTMLSourceElement"++gTypeHTMLSourceElement :: JSM GType+gTypeHTMLSourceElement = GType . Object <$> jsg "HTMLSourceElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLSpanElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSpanElement Mozilla HTMLSpanElement documentation>+newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal }++instance PToJSVal HTMLSpanElement where+  pToJSVal = unHTMLSpanElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLSpanElement where+  pFromJSVal = HTMLSpanElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLSpanElement where+  toJSVal = return . unHTMLSpanElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLSpanElement where+  fromJSVal v = fmap HTMLSpanElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLSpanElement where+  makeObject = makeObject . unHTMLSpanElement++instance IsHTMLElement HTMLSpanElement+instance IsElement HTMLSpanElement+instance IsNode HTMLSpanElement+instance IsEventTarget HTMLSpanElement+instance IsGObject HTMLSpanElement where+  toGObject = GObject . unHTMLSpanElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLSpanElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLSpanElement :: IsGObject obj => obj -> JSM HTMLSpanElement+castToHTMLSpanElement = castTo gTypeHTMLSpanElement "HTMLSpanElement"++gTypeHTMLSpanElement :: JSM GType+gTypeHTMLSpanElement = GType . Object <$> jsg "HTMLSpanElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLStyleElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement Mozilla HTMLStyleElement documentation>+newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal }++instance PToJSVal HTMLStyleElement where+  pToJSVal = unHTMLStyleElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLStyleElement where+  pFromJSVal = HTMLStyleElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLStyleElement where+  toJSVal = return . unHTMLStyleElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLStyleElement where+  fromJSVal v = fmap HTMLStyleElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLStyleElement where+  makeObject = makeObject . unHTMLStyleElement++instance IsHTMLElement HTMLStyleElement+instance IsElement HTMLStyleElement+instance IsNode HTMLStyleElement+instance IsEventTarget HTMLStyleElement+instance IsGObject HTMLStyleElement where+  toGObject = GObject . unHTMLStyleElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLStyleElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLStyleElement :: IsGObject obj => obj -> JSM HTMLStyleElement+castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement"++gTypeHTMLStyleElement :: JSM GType+gTypeHTMLStyleElement = GType . Object <$> jsg "HTMLStyleElement"+#else+type IsHTMLStyleElement o = HTMLStyleElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTableCaptionElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement Mozilla HTMLTableCaptionElement documentation>+newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal }++instance PToJSVal HTMLTableCaptionElement where+  pToJSVal = unHTMLTableCaptionElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTableCaptionElement where+  pFromJSVal = HTMLTableCaptionElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTableCaptionElement where+  toJSVal = return . unHTMLTableCaptionElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTableCaptionElement where+  fromJSVal v = fmap HTMLTableCaptionElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTableCaptionElement where+  makeObject = makeObject . unHTMLTableCaptionElement++instance IsHTMLElement HTMLTableCaptionElement+instance IsElement HTMLTableCaptionElement+instance IsNode HTMLTableCaptionElement+instance IsEventTarget HTMLTableCaptionElement+instance IsGObject HTMLTableCaptionElement where+  toGObject = GObject . unHTMLTableCaptionElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTableCaptionElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTableCaptionElement :: IsGObject obj => obj -> JSM HTMLTableCaptionElement+castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement"++gTypeHTMLTableCaptionElement :: JSM GType+gTypeHTMLTableCaptionElement = GType . Object <$> jsg "HTMLTableCaptionElement"+#else+type IsHTMLTableCaptionElement o = HTMLTableCaptionElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTableCellElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement Mozilla HTMLTableCellElement documentation>+newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal }++instance PToJSVal HTMLTableCellElement where+  pToJSVal = unHTMLTableCellElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTableCellElement where+  pFromJSVal = HTMLTableCellElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTableCellElement where+  toJSVal = return . unHTMLTableCellElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTableCellElement where+  fromJSVal v = fmap HTMLTableCellElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTableCellElement where+  makeObject = makeObject . unHTMLTableCellElement++instance IsHTMLElement HTMLTableCellElement+instance IsElement HTMLTableCellElement+instance IsNode HTMLTableCellElement+instance IsEventTarget HTMLTableCellElement+instance IsGObject HTMLTableCellElement where+  toGObject = GObject . unHTMLTableCellElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTableCellElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTableCellElement :: IsGObject obj => obj -> JSM HTMLTableCellElement+castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement"++gTypeHTMLTableCellElement :: JSM GType+gTypeHTMLTableCellElement = GType . Object <$> jsg "HTMLTableCellElement"+#else+type IsHTMLTableCellElement o = HTMLTableCellElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTableColElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement Mozilla HTMLTableColElement documentation>+newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal }++instance PToJSVal HTMLTableColElement where+  pToJSVal = unHTMLTableColElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTableColElement where+  pFromJSVal = HTMLTableColElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTableColElement where+  toJSVal = return . unHTMLTableColElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTableColElement where+  fromJSVal v = fmap HTMLTableColElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTableColElement where+  makeObject = makeObject . unHTMLTableColElement++instance IsHTMLElement HTMLTableColElement+instance IsElement HTMLTableColElement+instance IsNode HTMLTableColElement+instance IsEventTarget HTMLTableColElement+instance IsGObject HTMLTableColElement where+  toGObject = GObject . unHTMLTableColElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTableColElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTableColElement :: IsGObject obj => obj -> JSM HTMLTableColElement+castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement"++gTypeHTMLTableColElement :: JSM GType+gTypeHTMLTableColElement = GType . Object <$> jsg "HTMLTableColElement"+#else+type IsHTMLTableColElement o = HTMLTableColElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTableElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement Mozilla HTMLTableElement documentation>+newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal }++instance PToJSVal HTMLTableElement where+  pToJSVal = unHTMLTableElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTableElement where+  pFromJSVal = HTMLTableElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTableElement where+  toJSVal = return . unHTMLTableElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTableElement where+  fromJSVal v = fmap HTMLTableElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTableElement where+  makeObject = makeObject . unHTMLTableElement++instance IsHTMLElement HTMLTableElement+instance IsElement HTMLTableElement+instance IsNode HTMLTableElement+instance IsEventTarget HTMLTableElement+instance IsGObject HTMLTableElement where+  toGObject = GObject . unHTMLTableElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTableElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTableElement :: IsGObject obj => obj -> JSM HTMLTableElement+castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement"++gTypeHTMLTableElement :: JSM GType+gTypeHTMLTableElement = GType . Object <$> jsg "HTMLTableElement"+#else+type IsHTMLTableElement o = HTMLTableElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTableRowElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement Mozilla HTMLTableRowElement documentation>+newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal }++instance PToJSVal HTMLTableRowElement where+  pToJSVal = unHTMLTableRowElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTableRowElement where+  pFromJSVal = HTMLTableRowElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTableRowElement where+  toJSVal = return . unHTMLTableRowElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTableRowElement where+  fromJSVal v = fmap HTMLTableRowElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTableRowElement where+  makeObject = makeObject . unHTMLTableRowElement++instance IsHTMLElement HTMLTableRowElement+instance IsElement HTMLTableRowElement+instance IsNode HTMLTableRowElement+instance IsEventTarget HTMLTableRowElement+instance IsGObject HTMLTableRowElement where+  toGObject = GObject . unHTMLTableRowElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTableRowElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTableRowElement :: IsGObject obj => obj -> JSM HTMLTableRowElement+castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement"++gTypeHTMLTableRowElement :: JSM GType+gTypeHTMLTableRowElement = GType . Object <$> jsg "HTMLTableRowElement"+#else+type IsHTMLTableRowElement o = HTMLTableRowElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTableSectionElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement Mozilla HTMLTableSectionElement documentation>+newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal }++instance PToJSVal HTMLTableSectionElement where+  pToJSVal = unHTMLTableSectionElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTableSectionElement where+  pFromJSVal = HTMLTableSectionElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTableSectionElement where+  toJSVal = return . unHTMLTableSectionElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTableSectionElement where+  fromJSVal v = fmap HTMLTableSectionElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTableSectionElement where+  makeObject = makeObject . unHTMLTableSectionElement++instance IsHTMLElement HTMLTableSectionElement+instance IsElement HTMLTableSectionElement+instance IsNode HTMLTableSectionElement+instance IsEventTarget HTMLTableSectionElement+instance IsGObject HTMLTableSectionElement where+  toGObject = GObject . unHTMLTableSectionElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTableSectionElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTableSectionElement :: IsGObject obj => obj -> JSM HTMLTableSectionElement+castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement"++gTypeHTMLTableSectionElement :: JSM GType+gTypeHTMLTableSectionElement = GType . Object <$> jsg "HTMLTableSectionElement"+#else+type IsHTMLTableSectionElement o = HTMLTableSectionElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTemplateElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement Mozilla HTMLTemplateElement documentation>+newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal }++instance PToJSVal HTMLTemplateElement where+  pToJSVal = unHTMLTemplateElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTemplateElement where+  pFromJSVal = HTMLTemplateElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTemplateElement where+  toJSVal = return . unHTMLTemplateElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTemplateElement where+  fromJSVal v = fmap HTMLTemplateElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTemplateElement where+  makeObject = makeObject . unHTMLTemplateElement++instance IsHTMLElement HTMLTemplateElement+instance IsElement HTMLTemplateElement+instance IsNode HTMLTemplateElement+instance IsEventTarget HTMLTemplateElement+instance IsGObject HTMLTemplateElement where+  toGObject = GObject . unHTMLTemplateElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTemplateElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTemplateElement :: IsGObject obj => obj -> JSM HTMLTemplateElement+castToHTMLTemplateElement = castTo gTypeHTMLTemplateElement "HTMLTemplateElement"++gTypeHTMLTemplateElement :: JSM GType+gTypeHTMLTemplateElement = GType . Object <$> jsg "HTMLTemplateElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTextAreaElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement Mozilla HTMLTextAreaElement documentation>+newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal }++instance PToJSVal HTMLTextAreaElement where+  pToJSVal = unHTMLTextAreaElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTextAreaElement where+  pFromJSVal = HTMLTextAreaElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTextAreaElement where+  toJSVal = return . unHTMLTextAreaElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTextAreaElement where+  fromJSVal v = fmap HTMLTextAreaElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTextAreaElement where+  makeObject = makeObject . unHTMLTextAreaElement++instance IsHTMLElement HTMLTextAreaElement+instance IsElement HTMLTextAreaElement+instance IsNode HTMLTextAreaElement+instance IsEventTarget HTMLTextAreaElement+instance IsGObject HTMLTextAreaElement where+  toGObject = GObject . unHTMLTextAreaElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTextAreaElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTextAreaElement :: IsGObject obj => obj -> JSM HTMLTextAreaElement+castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement"++gTypeHTMLTextAreaElement :: JSM GType+gTypeHTMLTextAreaElement = GType . Object <$> jsg "HTMLTextAreaElement"+#else+type IsHTMLTextAreaElement o = HTMLTextAreaElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTitleElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement Mozilla HTMLTitleElement documentation>+newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal }++instance PToJSVal HTMLTitleElement where+  pToJSVal = unHTMLTitleElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTitleElement where+  pFromJSVal = HTMLTitleElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTitleElement where+  toJSVal = return . unHTMLTitleElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTitleElement where+  fromJSVal v = fmap HTMLTitleElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTitleElement where+  makeObject = makeObject . unHTMLTitleElement++instance IsHTMLElement HTMLTitleElement+instance IsElement HTMLTitleElement+instance IsNode HTMLTitleElement+instance IsEventTarget HTMLTitleElement+instance IsGObject HTMLTitleElement where+  toGObject = GObject . unHTMLTitleElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTitleElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTitleElement :: IsGObject obj => obj -> JSM HTMLTitleElement+castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement"++gTypeHTMLTitleElement :: JSM GType+gTypeHTMLTitleElement = GType . Object <$> jsg "HTMLTitleElement"+#else+type IsHTMLTitleElement o = HTMLTitleElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLTrackElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement Mozilla HTMLTrackElement documentation>+newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal }++instance PToJSVal HTMLTrackElement where+  pToJSVal = unHTMLTrackElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLTrackElement where+  pFromJSVal = HTMLTrackElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLTrackElement where+  toJSVal = return . unHTMLTrackElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLTrackElement where+  fromJSVal v = fmap HTMLTrackElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLTrackElement where+  makeObject = makeObject . unHTMLTrackElement++instance IsHTMLElement HTMLTrackElement+instance IsElement HTMLTrackElement+instance IsNode HTMLTrackElement+instance IsEventTarget HTMLTrackElement+instance IsGObject HTMLTrackElement where+  toGObject = GObject . unHTMLTrackElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLTrackElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLTrackElement :: IsGObject obj => obj -> JSM HTMLTrackElement+castToHTMLTrackElement = castTo gTypeHTMLTrackElement "HTMLTrackElement"++gTypeHTMLTrackElement :: JSM GType+gTypeHTMLTrackElement = GType . Object <$> jsg "HTMLTrackElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLUListElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement Mozilla HTMLUListElement documentation>+newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal }++instance PToJSVal HTMLUListElement where+  pToJSVal = unHTMLUListElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLUListElement where+  pFromJSVal = HTMLUListElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLUListElement where+  toJSVal = return . unHTMLUListElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLUListElement where+  fromJSVal v = fmap HTMLUListElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLUListElement where+  makeObject = makeObject . unHTMLUListElement++instance IsHTMLElement HTMLUListElement+instance IsElement HTMLUListElement+instance IsNode HTMLUListElement+instance IsEventTarget HTMLUListElement+instance IsGObject HTMLUListElement where+  toGObject = GObject . unHTMLUListElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLUListElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLUListElement :: IsGObject obj => obj -> JSM HTMLUListElement+castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement"++gTypeHTMLUListElement :: JSM GType+gTypeHTMLUListElement = GType . Object <$> jsg "HTMLUListElement"+#else+type IsHTMLUListElement o = HTMLUListElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLUnknownElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUnknownElement Mozilla HTMLUnknownElement documentation>+newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal }++instance PToJSVal HTMLUnknownElement where+  pToJSVal = unHTMLUnknownElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLUnknownElement where+  pFromJSVal = HTMLUnknownElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLUnknownElement where+  toJSVal = return . unHTMLUnknownElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLUnknownElement where+  fromJSVal v = fmap HTMLUnknownElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLUnknownElement where+  makeObject = makeObject . unHTMLUnknownElement++instance IsHTMLElement HTMLUnknownElement+instance IsElement HTMLUnknownElement+instance IsNode HTMLUnknownElement+instance IsEventTarget HTMLUnknownElement+instance IsGObject HTMLUnknownElement where+  toGObject = GObject . unHTMLUnknownElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLUnknownElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLUnknownElement :: IsGObject obj => obj -> JSM HTMLUnknownElement+castToHTMLUnknownElement = castTo gTypeHTMLUnknownElement "HTMLUnknownElement"++gTypeHTMLUnknownElement :: JSM GType+gTypeHTMLUnknownElement = GType . Object <$> jsg "HTMLUnknownElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HTMLVideoElement".+-- Base interface functions are in:+--+--     * "JSDOM.HTMLMediaElement"+--     * "JSDOM.HTMLElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement Mozilla HTMLVideoElement documentation>+newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal }++instance PToJSVal HTMLVideoElement where+  pToJSVal = unHTMLVideoElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal HTMLVideoElement where+  pFromJSVal = HTMLVideoElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal HTMLVideoElement where+  toJSVal = return . unHTMLVideoElement+  {-# INLINE toJSVal #-}++instance FromJSVal HTMLVideoElement where+  fromJSVal v = fmap HTMLVideoElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HTMLVideoElement where+  makeObject = makeObject . unHTMLVideoElement++instance IsHTMLMediaElement HTMLVideoElement+instance IsHTMLElement HTMLVideoElement+instance IsElement HTMLVideoElement+instance IsNode HTMLVideoElement+instance IsEventTarget HTMLVideoElement+instance IsGObject HTMLVideoElement where+  toGObject = GObject . unHTMLVideoElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = HTMLVideoElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHTMLVideoElement :: IsGObject obj => obj -> JSM HTMLVideoElement+castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement"++gTypeHTMLVideoElement :: JSM GType+gTypeHTMLVideoElement = GType . Object <$> jsg "HTMLVideoElement"+#else+type IsHTMLVideoElement o = HTMLVideoElementClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.HashChangeEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent Mozilla HashChangeEvent documentation>+newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal }++instance PToJSVal HashChangeEvent where+  pToJSVal = unHashChangeEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal HashChangeEvent where+  pFromJSVal = HashChangeEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal HashChangeEvent where+  toJSVal = return . unHashChangeEvent+  {-# INLINE toJSVal #-}++instance FromJSVal HashChangeEvent where+  fromJSVal v = fmap HashChangeEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject HashChangeEvent where+  makeObject = makeObject . unHashChangeEvent++instance IsEvent HashChangeEvent+instance IsGObject HashChangeEvent where+  toGObject = GObject . unHashChangeEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = HashChangeEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHashChangeEvent :: IsGObject obj => obj -> JSM HashChangeEvent+castToHashChangeEvent = castTo gTypeHashChangeEvent "HashChangeEvent"++gTypeHashChangeEvent :: JSM GType+gTypeHashChangeEvent = GType . Object <$> jsg "HashChangeEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.History".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/History Mozilla History documentation>+newtype History = History { unHistory :: JSVal }++instance PToJSVal History where+  pToJSVal = unHistory+  {-# INLINE pToJSVal #-}++instance PFromJSVal History where+  pFromJSVal = History+  {-# INLINE pFromJSVal #-}++instance ToJSVal History where+  toJSVal = return . unHistory+  {-# INLINE toJSVal #-}++instance FromJSVal History where+  fromJSVal v = fmap History <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject History where+  makeObject = makeObject . unHistory++instance IsGObject History where+  toGObject = GObject . unHistory+  {-# INLINE toGObject #-}+  unsafeCastGObject = History . unGObject+  {-# INLINE unsafeCastGObject #-}++castToHistory :: IsGObject obj => obj -> JSM History+castToHistory = castTo gTypeHistory "History"++gTypeHistory :: JSM GType+gTypeHistory = GType . Object <$> jsg "History"+#else+type IsHistory o = HistoryClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBAny".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBAny Mozilla IDBAny documentation>+newtype IDBAny = IDBAny { unIDBAny :: JSVal }++instance PToJSVal IDBAny where+  pToJSVal = unIDBAny+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBAny where+  pFromJSVal = IDBAny+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBAny where+  toJSVal = return . unIDBAny+  {-# INLINE toJSVal #-}++instance FromJSVal IDBAny where+  fromJSVal v = fmap IDBAny <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBAny where+  makeObject = makeObject . unIDBAny++instance IsGObject IDBAny where+  toGObject = GObject . unIDBAny+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBAny . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBAny :: IsGObject obj => obj -> JSM IDBAny+castToIDBAny = castTo gTypeIDBAny "IDBAny"++gTypeIDBAny :: JSM GType+gTypeIDBAny = GType . Object <$> jsg "IDBAny"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBCursor".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor Mozilla IDBCursor documentation>+newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal }++instance PToJSVal IDBCursor where+  pToJSVal = unIDBCursor+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBCursor where+  pFromJSVal = IDBCursor+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBCursor where+  toJSVal = return . unIDBCursor+  {-# INLINE toJSVal #-}++instance FromJSVal IDBCursor where+  fromJSVal v = fmap IDBCursor <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBCursor where+  makeObject = makeObject . unIDBCursor++class IsGObject o => IsIDBCursor o+toIDBCursor :: IsIDBCursor o => o -> IDBCursor+toIDBCursor = unsafeCastGObject . toGObject++instance IsIDBCursor IDBCursor+instance IsGObject IDBCursor where+  toGObject = GObject . unIDBCursor+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBCursor . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBCursor :: IsGObject obj => obj -> JSM IDBCursor+castToIDBCursor = castTo gTypeIDBCursor "IDBCursor"++gTypeIDBCursor :: JSM GType+gTypeIDBCursor = GType . Object <$> jsg "IDBCursor"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBCursorWithValue".+-- Base interface functions are in:+--+--     * "JSDOM.IDBCursor"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursorWithValue Mozilla IDBCursorWithValue documentation>+newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal }++instance PToJSVal IDBCursorWithValue where+  pToJSVal = unIDBCursorWithValue+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBCursorWithValue where+  pFromJSVal = IDBCursorWithValue+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBCursorWithValue where+  toJSVal = return . unIDBCursorWithValue+  {-# INLINE toJSVal #-}++instance FromJSVal IDBCursorWithValue where+  fromJSVal v = fmap IDBCursorWithValue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBCursorWithValue where+  makeObject = makeObject . unIDBCursorWithValue++instance IsIDBCursor IDBCursorWithValue+instance IsGObject IDBCursorWithValue where+  toGObject = GObject . unIDBCursorWithValue+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBCursorWithValue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBCursorWithValue :: IsGObject obj => obj -> JSM IDBCursorWithValue+castToIDBCursorWithValue = castTo gTypeIDBCursorWithValue "IDBCursorWithValue"++gTypeIDBCursorWithValue :: JSM GType+gTypeIDBCursorWithValue = GType . Object <$> jsg "IDBCursorWithValue"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBDatabase".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase Mozilla IDBDatabase documentation>+newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal }++instance PToJSVal IDBDatabase where+  pToJSVal = unIDBDatabase+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBDatabase where+  pFromJSVal = IDBDatabase+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBDatabase where+  toJSVal = return . unIDBDatabase+  {-# INLINE toJSVal #-}++instance FromJSVal IDBDatabase where+  fromJSVal v = fmap IDBDatabase <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBDatabase where+  makeObject = makeObject . unIDBDatabase++instance IsEventTarget IDBDatabase+instance IsGObject IDBDatabase where+  toGObject = GObject . unIDBDatabase+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBDatabase . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBDatabase :: IsGObject obj => obj -> JSM IDBDatabase+castToIDBDatabase = castTo gTypeIDBDatabase "IDBDatabase"++gTypeIDBDatabase :: JSM GType+gTypeIDBDatabase = GType . Object <$> jsg "IDBDatabase"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBFactory".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory Mozilla IDBFactory documentation>+newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal }++instance PToJSVal IDBFactory where+  pToJSVal = unIDBFactory+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBFactory where+  pFromJSVal = IDBFactory+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBFactory where+  toJSVal = return . unIDBFactory+  {-# INLINE toJSVal #-}++instance FromJSVal IDBFactory where+  fromJSVal v = fmap IDBFactory <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBFactory where+  makeObject = makeObject . unIDBFactory++instance IsGObject IDBFactory where+  toGObject = GObject . unIDBFactory+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBFactory . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBFactory :: IsGObject obj => obj -> JSM IDBFactory+castToIDBFactory = castTo gTypeIDBFactory "IDBFactory"++gTypeIDBFactory :: JSM GType+gTypeIDBFactory = GType . Object <$> jsg "IDBFactory"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBIndex".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex Mozilla IDBIndex documentation>+newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal }++instance PToJSVal IDBIndex where+  pToJSVal = unIDBIndex+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBIndex where+  pFromJSVal = IDBIndex+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBIndex where+  toJSVal = return . unIDBIndex+  {-# INLINE toJSVal #-}++instance FromJSVal IDBIndex where+  fromJSVal v = fmap IDBIndex <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBIndex where+  makeObject = makeObject . unIDBIndex++instance IsGObject IDBIndex where+  toGObject = GObject . unIDBIndex+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBIndex . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBIndex :: IsGObject obj => obj -> JSM IDBIndex+castToIDBIndex = castTo gTypeIDBIndex "IDBIndex"++gTypeIDBIndex :: JSM GType+gTypeIDBIndex = GType . Object <$> jsg "IDBIndex"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBKeyRange".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange Mozilla IDBKeyRange documentation>+newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal }++instance PToJSVal IDBKeyRange where+  pToJSVal = unIDBKeyRange+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBKeyRange where+  pFromJSVal = IDBKeyRange+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBKeyRange where+  toJSVal = return . unIDBKeyRange+  {-# INLINE toJSVal #-}++instance FromJSVal IDBKeyRange where+  fromJSVal v = fmap IDBKeyRange <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBKeyRange where+  makeObject = makeObject . unIDBKeyRange++instance IsGObject IDBKeyRange where+  toGObject = GObject . unIDBKeyRange+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBKeyRange . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBKeyRange :: IsGObject obj => obj -> JSM IDBKeyRange+castToIDBKeyRange = castTo gTypeIDBKeyRange "IDBKeyRange"++gTypeIDBKeyRange :: JSM GType+gTypeIDBKeyRange = GType . Object <$> jsg "IDBKeyRange"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBObjectStore".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore Mozilla IDBObjectStore documentation>+newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal }++instance PToJSVal IDBObjectStore where+  pToJSVal = unIDBObjectStore+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBObjectStore where+  pFromJSVal = IDBObjectStore+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBObjectStore where+  toJSVal = return . unIDBObjectStore+  {-# INLINE toJSVal #-}++instance FromJSVal IDBObjectStore where+  fromJSVal v = fmap IDBObjectStore <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBObjectStore where+  makeObject = makeObject . unIDBObjectStore++instance IsGObject IDBObjectStore where+  toGObject = GObject . unIDBObjectStore+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBObjectStore . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBObjectStore :: IsGObject obj => obj -> JSM IDBObjectStore+castToIDBObjectStore = castTo gTypeIDBObjectStore "IDBObjectStore"++gTypeIDBObjectStore :: JSM GType+gTypeIDBObjectStore = GType . Object <$> jsg "IDBObjectStore"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBOpenDBRequest".+-- Base interface functions are in:+--+--     * "JSDOM.IDBRequest"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest Mozilla IDBOpenDBRequest documentation>+newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal }++instance PToJSVal IDBOpenDBRequest where+  pToJSVal = unIDBOpenDBRequest+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBOpenDBRequest where+  pFromJSVal = IDBOpenDBRequest+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBOpenDBRequest where+  toJSVal = return . unIDBOpenDBRequest+  {-# INLINE toJSVal #-}++instance FromJSVal IDBOpenDBRequest where+  fromJSVal v = fmap IDBOpenDBRequest <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBOpenDBRequest where+  makeObject = makeObject . unIDBOpenDBRequest++instance IsIDBRequest IDBOpenDBRequest+instance IsEventTarget IDBOpenDBRequest+instance IsGObject IDBOpenDBRequest where+  toGObject = GObject . unIDBOpenDBRequest+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBOpenDBRequest . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBOpenDBRequest :: IsGObject obj => obj -> JSM IDBOpenDBRequest+castToIDBOpenDBRequest = castTo gTypeIDBOpenDBRequest "IDBOpenDBRequest"++gTypeIDBOpenDBRequest :: JSM GType+gTypeIDBOpenDBRequest = GType . Object <$> jsg "IDBOpenDBRequest"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBRequest".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest Mozilla IDBRequest documentation>+newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal }++instance PToJSVal IDBRequest where+  pToJSVal = unIDBRequest+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBRequest where+  pFromJSVal = IDBRequest+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBRequest where+  toJSVal = return . unIDBRequest+  {-# INLINE toJSVal #-}++instance FromJSVal IDBRequest where+  fromJSVal v = fmap IDBRequest <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBRequest where+  makeObject = makeObject . unIDBRequest++class IsEventTarget o => IsIDBRequest o+toIDBRequest :: IsIDBRequest o => o -> IDBRequest+toIDBRequest = unsafeCastGObject . toGObject++instance IsIDBRequest IDBRequest+instance IsEventTarget IDBRequest+instance IsGObject IDBRequest where+  toGObject = GObject . unIDBRequest+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBRequest . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBRequest :: IsGObject obj => obj -> JSM IDBRequest+castToIDBRequest = castTo gTypeIDBRequest "IDBRequest"++gTypeIDBRequest :: JSM GType+gTypeIDBRequest = GType . Object <$> jsg "IDBRequest"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBTransaction".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction Mozilla IDBTransaction documentation>+newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal }++instance PToJSVal IDBTransaction where+  pToJSVal = unIDBTransaction+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBTransaction where+  pFromJSVal = IDBTransaction+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBTransaction where+  toJSVal = return . unIDBTransaction+  {-# INLINE toJSVal #-}++instance FromJSVal IDBTransaction where+  fromJSVal v = fmap IDBTransaction <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBTransaction where+  makeObject = makeObject . unIDBTransaction++instance IsEventTarget IDBTransaction+instance IsGObject IDBTransaction where+  toGObject = GObject . unIDBTransaction+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBTransaction . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBTransaction :: IsGObject obj => obj -> JSM IDBTransaction+castToIDBTransaction = castTo gTypeIDBTransaction "IDBTransaction"++gTypeIDBTransaction :: JSM GType+gTypeIDBTransaction = GType . Object <$> jsg "IDBTransaction"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.IDBVersionChangeEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent Mozilla IDBVersionChangeEvent documentation>+newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal }++instance PToJSVal IDBVersionChangeEvent where+  pToJSVal = unIDBVersionChangeEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal IDBVersionChangeEvent where+  pFromJSVal = IDBVersionChangeEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal IDBVersionChangeEvent where+  toJSVal = return . unIDBVersionChangeEvent+  {-# INLINE toJSVal #-}++instance FromJSVal IDBVersionChangeEvent where+  fromJSVal v = fmap IDBVersionChangeEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject IDBVersionChangeEvent where+  makeObject = makeObject . unIDBVersionChangeEvent++instance IsEvent IDBVersionChangeEvent+instance IsGObject IDBVersionChangeEvent where+  toGObject = GObject . unIDBVersionChangeEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = IDBVersionChangeEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToIDBVersionChangeEvent :: IsGObject obj => obj -> JSM IDBVersionChangeEvent+castToIDBVersionChangeEvent = castTo gTypeIDBVersionChangeEvent "IDBVersionChangeEvent"++gTypeIDBVersionChangeEvent :: JSM GType+gTypeIDBVersionChangeEvent = GType . Object <$> jsg "IDBVersionChangeEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ImageData".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation>+newtype ImageData = ImageData { unImageData :: JSVal }++instance PToJSVal ImageData where+  pToJSVal = unImageData+  {-# INLINE pToJSVal #-}++instance PFromJSVal ImageData where+  pFromJSVal = ImageData+  {-# INLINE pFromJSVal #-}++instance ToJSVal ImageData where+  toJSVal = return . unImageData+  {-# INLINE toJSVal #-}++instance FromJSVal ImageData where+  fromJSVal v = fmap ImageData <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ImageData where+  makeObject = makeObject . unImageData++instance IsGObject ImageData where+  toGObject = GObject . unImageData+  {-# INLINE toGObject #-}+  unsafeCastGObject = ImageData . unGObject+  {-# INLINE unsafeCastGObject #-}++castToImageData :: IsGObject obj => obj -> JSM ImageData+castToImageData = castTo gTypeImageData "ImageData"++gTypeImageData :: JSM GType+gTypeImageData = GType . Object <$> jsg "ImageData"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.InspectorFrontendHost".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost Mozilla InspectorFrontendHost documentation>+newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal }++instance PToJSVal InspectorFrontendHost where+  pToJSVal = unInspectorFrontendHost+  {-# INLINE pToJSVal #-}++instance PFromJSVal InspectorFrontendHost where+  pFromJSVal = InspectorFrontendHost+  {-# INLINE pFromJSVal #-}++instance ToJSVal InspectorFrontendHost where+  toJSVal = return . unInspectorFrontendHost+  {-# INLINE toJSVal #-}++instance FromJSVal InspectorFrontendHost where+  fromJSVal v = fmap InspectorFrontendHost <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject InspectorFrontendHost where+  makeObject = makeObject . unInspectorFrontendHost++instance IsGObject InspectorFrontendHost where+  toGObject = GObject . unInspectorFrontendHost+  {-# INLINE toGObject #-}+  unsafeCastGObject = InspectorFrontendHost . unGObject+  {-# INLINE unsafeCastGObject #-}++castToInspectorFrontendHost :: IsGObject obj => obj -> JSM InspectorFrontendHost+castToInspectorFrontendHost = castTo gTypeInspectorFrontendHost "InspectorFrontendHost"++gTypeInspectorFrontendHost :: JSM GType+gTypeInspectorFrontendHost = GType . Object <$> jsg "InspectorFrontendHost"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.InternalSettings".+-- Base interface functions are in:+--+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings Mozilla InternalSettings documentation>+newtype InternalSettings = InternalSettings { unInternalSettings :: JSVal }++instance PToJSVal InternalSettings where+  pToJSVal = unInternalSettings+  {-# INLINE pToJSVal #-}++instance PFromJSVal InternalSettings where+  pFromJSVal = InternalSettings+  {-# INLINE pFromJSVal #-}++instance ToJSVal InternalSettings where+  toJSVal = return . unInternalSettings+  {-# INLINE toJSVal #-}++instance FromJSVal InternalSettings where+  fromJSVal v = fmap InternalSettings <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject InternalSettings where+  makeObject = makeObject . unInternalSettings++instance IsGObject InternalSettings where+  toGObject = GObject . unInternalSettings+  {-# INLINE toGObject #-}+  unsafeCastGObject = InternalSettings . unGObject+  {-# INLINE unsafeCastGObject #-}++castToInternalSettings :: IsGObject obj => obj -> JSM InternalSettings+castToInternalSettings = castTo gTypeInternalSettings "InternalSettings"++gTypeInternalSettings :: JSM GType+gTypeInternalSettings = GType . Object <$> jsg "InternalSettings"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Internals".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Internals Mozilla Internals documentation>+newtype Internals = Internals { unInternals :: JSVal }++instance PToJSVal Internals where+  pToJSVal = unInternals+  {-# INLINE pToJSVal #-}++instance PFromJSVal Internals where+  pFromJSVal = Internals+  {-# INLINE pFromJSVal #-}++instance ToJSVal Internals where+  toJSVal = return . unInternals+  {-# INLINE toJSVal #-}++instance FromJSVal Internals where+  fromJSVal v = fmap Internals <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Internals where+  makeObject = makeObject . unInternals++instance IsGObject Internals where+  toGObject = GObject . unInternals+  {-# INLINE toGObject #-}+  unsafeCastGObject = Internals . unGObject+  {-# INLINE unsafeCastGObject #-}++castToInternals :: IsGObject obj => obj -> JSM Internals+castToInternals = castTo gTypeInternals "Internals"++gTypeInternals :: JSM GType+gTypeInternals = GType . Object <$> jsg "Internals"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.KeyboardEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent Mozilla KeyboardEvent documentation>+newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal }++instance PToJSVal KeyboardEvent where+  pToJSVal = unKeyboardEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal KeyboardEvent where+  pFromJSVal = KeyboardEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal KeyboardEvent where+  toJSVal = return . unKeyboardEvent+  {-# INLINE toJSVal #-}++instance FromJSVal KeyboardEvent where+  fromJSVal v = fmap KeyboardEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject KeyboardEvent where+  makeObject = makeObject . unKeyboardEvent++instance IsUIEvent KeyboardEvent+instance IsEvent KeyboardEvent+instance IsGObject KeyboardEvent where+  toGObject = GObject . unKeyboardEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = KeyboardEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToKeyboardEvent :: IsGObject obj => obj -> JSM KeyboardEvent+castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent"++gTypeKeyboardEvent :: JSM GType+gTypeKeyboardEvent = GType . Object <$> jsg "KeyboardEvent"+#else+#ifndef USE_OLD_WEBKIT+type IsKeyboardEvent o = KeyboardEventClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Location".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Location Mozilla Location documentation>+newtype Location = Location { unLocation :: JSVal }++instance PToJSVal Location where+  pToJSVal = unLocation+  {-# INLINE pToJSVal #-}++instance PFromJSVal Location where+  pFromJSVal = Location+  {-# INLINE pFromJSVal #-}++instance ToJSVal Location where+  toJSVal = return . unLocation+  {-# INLINE toJSVal #-}++instance FromJSVal Location where+  fromJSVal v = fmap Location <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Location where+  makeObject = makeObject . unLocation++instance IsGObject Location where+  toGObject = GObject . unLocation+  {-# INLINE toGObject #-}+  unsafeCastGObject = Location . unGObject+  {-# INLINE unsafeCastGObject #-}++castToLocation :: IsGObject obj => obj -> JSM Location+castToLocation = castTo gTypeLocation "Location"++gTypeLocation :: JSM GType+gTypeLocation = GType . Object <$> jsg "Location"+#else+type IsLocation o = LocationClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MallocStatistics".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics Mozilla MallocStatistics documentation>+newtype MallocStatistics = MallocStatistics { unMallocStatistics :: JSVal }++instance PToJSVal MallocStatistics where+  pToJSVal = unMallocStatistics+  {-# INLINE pToJSVal #-}++instance PFromJSVal MallocStatistics where+  pFromJSVal = MallocStatistics+  {-# INLINE pFromJSVal #-}++instance ToJSVal MallocStatistics where+  toJSVal = return . unMallocStatistics+  {-# INLINE toJSVal #-}++instance FromJSVal MallocStatistics where+  fromJSVal v = fmap MallocStatistics <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MallocStatistics where+  makeObject = makeObject . unMallocStatistics++instance IsGObject MallocStatistics where+  toGObject = GObject . unMallocStatistics+  {-# INLINE toGObject #-}+  unsafeCastGObject = MallocStatistics . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMallocStatistics :: IsGObject obj => obj -> JSM MallocStatistics+castToMallocStatistics = castTo gTypeMallocStatistics "MallocStatistics"++gTypeMallocStatistics :: JSM GType+gTypeMallocStatistics = GType . Object <$> jsg "MallocStatistics"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaController".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaController Mozilla MediaController documentation>+newtype MediaController = MediaController { unMediaController :: JSVal }++instance PToJSVal MediaController where+  pToJSVal = unMediaController+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaController where+  pFromJSVal = MediaController+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaController where+  toJSVal = return . unMediaController+  {-# INLINE toJSVal #-}++instance FromJSVal MediaController where+  fromJSVal v = fmap MediaController <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaController where+  makeObject = makeObject . unMediaController++instance IsEventTarget MediaController+instance IsGObject MediaController where+  toGObject = GObject . unMediaController+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaController . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaController :: IsGObject obj => obj -> JSM MediaController+castToMediaController = castTo gTypeMediaController "MediaController"++gTypeMediaController :: JSM GType+gTypeMediaController = GType . Object <$> jsg "MediaController"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaControlsHost".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost Mozilla MediaControlsHost documentation>+newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal }++instance PToJSVal MediaControlsHost where+  pToJSVal = unMediaControlsHost+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaControlsHost where+  pFromJSVal = MediaControlsHost+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaControlsHost where+  toJSVal = return . unMediaControlsHost+  {-# INLINE toJSVal #-}++instance FromJSVal MediaControlsHost where+  fromJSVal v = fmap MediaControlsHost <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaControlsHost where+  makeObject = makeObject . unMediaControlsHost++instance IsGObject MediaControlsHost where+  toGObject = GObject . unMediaControlsHost+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaControlsHost . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaControlsHost :: IsGObject obj => obj -> JSM MediaControlsHost+castToMediaControlsHost = castTo gTypeMediaControlsHost "MediaControlsHost"++gTypeMediaControlsHost :: JSM GType+gTypeMediaControlsHost = GType . Object <$> jsg "MediaControlsHost"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaElementAudioSourceNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode Mozilla MediaElementAudioSourceNode documentation>+newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal }++instance PToJSVal MediaElementAudioSourceNode where+  pToJSVal = unMediaElementAudioSourceNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaElementAudioSourceNode where+  pFromJSVal = MediaElementAudioSourceNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaElementAudioSourceNode where+  toJSVal = return . unMediaElementAudioSourceNode+  {-# INLINE toJSVal #-}++instance FromJSVal MediaElementAudioSourceNode where+  fromJSVal v = fmap MediaElementAudioSourceNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaElementAudioSourceNode where+  makeObject = makeObject . unMediaElementAudioSourceNode++instance IsAudioNode MediaElementAudioSourceNode+instance IsEventTarget MediaElementAudioSourceNode+instance IsGObject MediaElementAudioSourceNode where+  toGObject = GObject . unMediaElementAudioSourceNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaElementAudioSourceNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaElementAudioSourceNode :: IsGObject obj => obj -> JSM MediaElementAudioSourceNode+castToMediaElementAudioSourceNode = castTo gTypeMediaElementAudioSourceNode "MediaElementAudioSourceNode"++gTypeMediaElementAudioSourceNode :: JSM GType+gTypeMediaElementAudioSourceNode = GType . Object <$> jsg "MediaElementAudioSourceNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaError".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaError Mozilla MediaError documentation>+newtype MediaError = MediaError { unMediaError :: JSVal }++instance PToJSVal MediaError where+  pToJSVal = unMediaError+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaError where+  pFromJSVal = MediaError+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaError where+  toJSVal = return . unMediaError+  {-# INLINE toJSVal #-}++instance FromJSVal MediaError where+  fromJSVal v = fmap MediaError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaError where+  makeObject = makeObject . unMediaError++instance IsGObject MediaError where+  toGObject = GObject . unMediaError+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaError :: IsGObject obj => obj -> JSM MediaError+castToMediaError = castTo gTypeMediaError "MediaError"++gTypeMediaError :: JSM GType+gTypeMediaError = GType . Object <$> jsg "MediaError"+#else+type IsMediaError o = MediaErrorClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaKeyError".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError Mozilla WebKitMediaKeyError documentation>+newtype MediaKeyError = MediaKeyError { unMediaKeyError :: JSVal }++instance PToJSVal MediaKeyError where+  pToJSVal = unMediaKeyError+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaKeyError where+  pFromJSVal = MediaKeyError+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaKeyError where+  toJSVal = return . unMediaKeyError+  {-# INLINE toJSVal #-}++instance FromJSVal MediaKeyError where+  fromJSVal v = fmap MediaKeyError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaKeyError where+  makeObject = makeObject . unMediaKeyError++instance IsGObject MediaKeyError where+  toGObject = GObject . unMediaKeyError+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaKeyError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaKeyError :: IsGObject obj => obj -> JSM MediaKeyError+castToMediaKeyError = castTo gTypeMediaKeyError "MediaKeyError"++gTypeMediaKeyError :: JSM GType+gTypeMediaKeyError = GType . Object <$> jsg "WebKitMediaKeyError"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaKeyEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent Mozilla MediaKeyEvent documentation>+newtype MediaKeyEvent = MediaKeyEvent { unMediaKeyEvent :: JSVal }++instance PToJSVal MediaKeyEvent where+  pToJSVal = unMediaKeyEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaKeyEvent where+  pFromJSVal = MediaKeyEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaKeyEvent where+  toJSVal = return . unMediaKeyEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MediaKeyEvent where+  fromJSVal v = fmap MediaKeyEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaKeyEvent where+  makeObject = makeObject . unMediaKeyEvent++instance IsEvent MediaKeyEvent+instance IsGObject MediaKeyEvent where+  toGObject = GObject . unMediaKeyEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaKeyEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaKeyEvent :: IsGObject obj => obj -> JSM MediaKeyEvent+castToMediaKeyEvent = castTo gTypeMediaKeyEvent "MediaKeyEvent"++gTypeMediaKeyEvent :: JSM GType+gTypeMediaKeyEvent = GType . Object <$> jsg "MediaKeyEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaKeyMessageEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent Mozilla WebKitMediaKeyMessageEvent documentation>+newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal }++instance PToJSVal MediaKeyMessageEvent where+  pToJSVal = unMediaKeyMessageEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaKeyMessageEvent where+  pFromJSVal = MediaKeyMessageEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaKeyMessageEvent where+  toJSVal = return . unMediaKeyMessageEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MediaKeyMessageEvent where+  fromJSVal v = fmap MediaKeyMessageEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaKeyMessageEvent where+  makeObject = makeObject . unMediaKeyMessageEvent++instance IsEvent MediaKeyMessageEvent+instance IsGObject MediaKeyMessageEvent where+  toGObject = GObject . unMediaKeyMessageEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaKeyMessageEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaKeyMessageEvent :: IsGObject obj => obj -> JSM MediaKeyMessageEvent+castToMediaKeyMessageEvent = castTo gTypeMediaKeyMessageEvent "MediaKeyMessageEvent"++gTypeMediaKeyMessageEvent :: JSM GType+gTypeMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaKeyNeededEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent Mozilla MediaKeyNeededEvent documentation>+newtype MediaKeyNeededEvent = MediaKeyNeededEvent { unMediaKeyNeededEvent :: JSVal }++instance PToJSVal MediaKeyNeededEvent where+  pToJSVal = unMediaKeyNeededEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaKeyNeededEvent where+  pFromJSVal = MediaKeyNeededEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaKeyNeededEvent where+  toJSVal = return . unMediaKeyNeededEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MediaKeyNeededEvent where+  fromJSVal v = fmap MediaKeyNeededEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaKeyNeededEvent where+  makeObject = makeObject . unMediaKeyNeededEvent++instance IsEvent MediaKeyNeededEvent+instance IsGObject MediaKeyNeededEvent where+  toGObject = GObject . unMediaKeyNeededEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaKeyNeededEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaKeyNeededEvent :: IsGObject obj => obj -> JSM MediaKeyNeededEvent+castToMediaKeyNeededEvent = castTo gTypeMediaKeyNeededEvent "MediaKeyNeededEvent"++gTypeMediaKeyNeededEvent :: JSM GType+gTypeMediaKeyNeededEvent = GType . Object <$> jsg "MediaKeyNeededEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaKeySession".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession Mozilla WebKitMediaKeySession documentation>+newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal }++instance PToJSVal MediaKeySession where+  pToJSVal = unMediaKeySession+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaKeySession where+  pFromJSVal = MediaKeySession+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaKeySession where+  toJSVal = return . unMediaKeySession+  {-# INLINE toJSVal #-}++instance FromJSVal MediaKeySession where+  fromJSVal v = fmap MediaKeySession <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaKeySession where+  makeObject = makeObject . unMediaKeySession++instance IsEventTarget MediaKeySession+instance IsGObject MediaKeySession where+  toGObject = GObject . unMediaKeySession+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaKeySession . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaKeySession :: IsGObject obj => obj -> JSM MediaKeySession+castToMediaKeySession = castTo gTypeMediaKeySession "MediaKeySession"++gTypeMediaKeySession :: JSM GType+gTypeMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaKeys".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys Mozilla WebKitMediaKeys documentation>+newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal }++instance PToJSVal MediaKeys where+  pToJSVal = unMediaKeys+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaKeys where+  pFromJSVal = MediaKeys+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaKeys where+  toJSVal = return . unMediaKeys+  {-# INLINE toJSVal #-}++instance FromJSVal MediaKeys where+  fromJSVal v = fmap MediaKeys <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaKeys where+  makeObject = makeObject . unMediaKeys++instance IsGObject MediaKeys where+  toGObject = GObject . unMediaKeys+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaKeys . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaKeys :: IsGObject obj => obj -> JSM MediaKeys+castToMediaKeys = castTo gTypeMediaKeys "MediaKeys"++gTypeMediaKeys :: JSM GType+gTypeMediaKeys = GType . Object <$> jsg "WebKitMediaKeys"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaList Mozilla MediaList documentation>+newtype MediaList = MediaList { unMediaList :: JSVal }++instance PToJSVal MediaList where+  pToJSVal = unMediaList+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaList where+  pFromJSVal = MediaList+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaList where+  toJSVal = return . unMediaList+  {-# INLINE toJSVal #-}++instance FromJSVal MediaList where+  fromJSVal v = fmap MediaList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaList where+  makeObject = makeObject . unMediaList++instance IsGObject MediaList where+  toGObject = GObject . unMediaList+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaList :: IsGObject obj => obj -> JSM MediaList+castToMediaList = castTo gTypeMediaList "MediaList"++gTypeMediaList :: JSM GType+gTypeMediaList = GType . Object <$> jsg "MediaList"+#else+type IsMediaList o = MediaListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaQueryList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList Mozilla MediaQueryList documentation>+newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal }++instance PToJSVal MediaQueryList where+  pToJSVal = unMediaQueryList+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaQueryList where+  pFromJSVal = MediaQueryList+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaQueryList where+  toJSVal = return . unMediaQueryList+  {-# INLINE toJSVal #-}++instance FromJSVal MediaQueryList where+  fromJSVal v = fmap MediaQueryList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaQueryList where+  makeObject = makeObject . unMediaQueryList++instance IsGObject MediaQueryList where+  toGObject = GObject . unMediaQueryList+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaQueryList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaQueryList :: IsGObject obj => obj -> JSM MediaQueryList+castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList"++gTypeMediaQueryList :: JSM GType+gTypeMediaQueryList = GType . Object <$> jsg "MediaQueryList"+#else+type IsMediaQueryList o = MediaQueryListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaSource".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource Mozilla MediaSource documentation>+newtype MediaSource = MediaSource { unMediaSource :: JSVal }++instance PToJSVal MediaSource where+  pToJSVal = unMediaSource+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaSource where+  pFromJSVal = MediaSource+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaSource where+  toJSVal = return . unMediaSource+  {-# INLINE toJSVal #-}++instance FromJSVal MediaSource where+  fromJSVal v = fmap MediaSource <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaSource where+  makeObject = makeObject . unMediaSource++instance IsEventTarget MediaSource+instance IsGObject MediaSource where+  toGObject = GObject . unMediaSource+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaSource . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaSource :: IsGObject obj => obj -> JSM MediaSource+castToMediaSource = castTo gTypeMediaSource "MediaSource"++gTypeMediaSource :: JSM GType+gTypeMediaSource = GType . Object <$> jsg "MediaSource"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaSourceStates".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates Mozilla MediaSourceStates documentation>+newtype MediaSourceStates = MediaSourceStates { unMediaSourceStates :: JSVal }++instance PToJSVal MediaSourceStates where+  pToJSVal = unMediaSourceStates+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaSourceStates where+  pFromJSVal = MediaSourceStates+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaSourceStates where+  toJSVal = return . unMediaSourceStates+  {-# INLINE toJSVal #-}++instance FromJSVal MediaSourceStates where+  fromJSVal v = fmap MediaSourceStates <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaSourceStates where+  makeObject = makeObject . unMediaSourceStates++instance IsGObject MediaSourceStates where+  toGObject = GObject . unMediaSourceStates+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaSourceStates . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaSourceStates :: IsGObject obj => obj -> JSM MediaSourceStates+castToMediaSourceStates = castTo gTypeMediaSourceStates "MediaSourceStates"++gTypeMediaSourceStates :: JSM GType+gTypeMediaSourceStates = GType . Object <$> jsg "MediaSourceStates"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStream".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation>+newtype MediaStream = MediaStream { unMediaStream :: JSVal }++instance PToJSVal MediaStream where+  pToJSVal = unMediaStream+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStream where+  pFromJSVal = MediaStream+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStream where+  toJSVal = return . unMediaStream+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStream where+  fromJSVal v = fmap MediaStream <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStream where+  makeObject = makeObject . unMediaStream++instance IsEventTarget MediaStream+instance IsGObject MediaStream where+  toGObject = GObject . unMediaStream+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStream . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStream :: IsGObject obj => obj -> JSM MediaStream+castToMediaStream = castTo gTypeMediaStream "MediaStream"++gTypeMediaStream :: JSM GType+gTypeMediaStream = GType . Object <$> jsg "webkitMediaStream"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStreamAudioDestinationNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode Mozilla MediaStreamAudioDestinationNode documentation>+newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal }++instance PToJSVal MediaStreamAudioDestinationNode where+  pToJSVal = unMediaStreamAudioDestinationNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStreamAudioDestinationNode where+  pFromJSVal = MediaStreamAudioDestinationNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStreamAudioDestinationNode where+  toJSVal = return . unMediaStreamAudioDestinationNode+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStreamAudioDestinationNode where+  fromJSVal v = fmap MediaStreamAudioDestinationNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStreamAudioDestinationNode where+  makeObject = makeObject . unMediaStreamAudioDestinationNode++instance IsAudioNode MediaStreamAudioDestinationNode+instance IsEventTarget MediaStreamAudioDestinationNode+instance IsGObject MediaStreamAudioDestinationNode where+  toGObject = GObject . unMediaStreamAudioDestinationNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStreamAudioDestinationNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStreamAudioDestinationNode :: IsGObject obj => obj -> JSM MediaStreamAudioDestinationNode+castToMediaStreamAudioDestinationNode = castTo gTypeMediaStreamAudioDestinationNode "MediaStreamAudioDestinationNode"++gTypeMediaStreamAudioDestinationNode :: JSM GType+gTypeMediaStreamAudioDestinationNode = GType . Object <$> jsg "MediaStreamAudioDestinationNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStreamAudioSourceNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode Mozilla MediaStreamAudioSourceNode documentation>+newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal }++instance PToJSVal MediaStreamAudioSourceNode where+  pToJSVal = unMediaStreamAudioSourceNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStreamAudioSourceNode where+  pFromJSVal = MediaStreamAudioSourceNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStreamAudioSourceNode where+  toJSVal = return . unMediaStreamAudioSourceNode+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStreamAudioSourceNode where+  fromJSVal v = fmap MediaStreamAudioSourceNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStreamAudioSourceNode where+  makeObject = makeObject . unMediaStreamAudioSourceNode++instance IsAudioNode MediaStreamAudioSourceNode+instance IsEventTarget MediaStreamAudioSourceNode+instance IsGObject MediaStreamAudioSourceNode where+  toGObject = GObject . unMediaStreamAudioSourceNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStreamAudioSourceNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStreamAudioSourceNode :: IsGObject obj => obj -> JSM MediaStreamAudioSourceNode+castToMediaStreamAudioSourceNode = castTo gTypeMediaStreamAudioSourceNode "MediaStreamAudioSourceNode"++gTypeMediaStreamAudioSourceNode :: JSM GType+gTypeMediaStreamAudioSourceNode = GType . Object <$> jsg "MediaStreamAudioSourceNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStreamCapabilities".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamCapabilities Mozilla MediaStreamCapabilities documentation>+newtype MediaStreamCapabilities = MediaStreamCapabilities { unMediaStreamCapabilities :: JSVal }++instance PToJSVal MediaStreamCapabilities where+  pToJSVal = unMediaStreamCapabilities+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStreamCapabilities where+  pFromJSVal = MediaStreamCapabilities+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStreamCapabilities where+  toJSVal = return . unMediaStreamCapabilities+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStreamCapabilities where+  fromJSVal v = fmap MediaStreamCapabilities <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStreamCapabilities where+  makeObject = makeObject . unMediaStreamCapabilities++class IsGObject o => IsMediaStreamCapabilities o+toMediaStreamCapabilities :: IsMediaStreamCapabilities o => o -> MediaStreamCapabilities+toMediaStreamCapabilities = unsafeCastGObject . toGObject++instance IsMediaStreamCapabilities MediaStreamCapabilities+instance IsGObject MediaStreamCapabilities where+  toGObject = GObject . unMediaStreamCapabilities+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStreamCapabilities . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStreamCapabilities :: IsGObject obj => obj -> JSM MediaStreamCapabilities+castToMediaStreamCapabilities = castTo gTypeMediaStreamCapabilities "MediaStreamCapabilities"++gTypeMediaStreamCapabilities :: JSM GType+gTypeMediaStreamCapabilities = GType . Object <$> jsg "MediaStreamCapabilities"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStreamEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent Mozilla MediaStreamEvent documentation>+newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal }++instance PToJSVal MediaStreamEvent where+  pToJSVal = unMediaStreamEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStreamEvent where+  pFromJSVal = MediaStreamEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStreamEvent where+  toJSVal = return . unMediaStreamEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStreamEvent where+  fromJSVal v = fmap MediaStreamEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStreamEvent where+  makeObject = makeObject . unMediaStreamEvent++instance IsEvent MediaStreamEvent+instance IsGObject MediaStreamEvent where+  toGObject = GObject . unMediaStreamEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStreamEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStreamEvent :: IsGObject obj => obj -> JSM MediaStreamEvent+castToMediaStreamEvent = castTo gTypeMediaStreamEvent "MediaStreamEvent"++gTypeMediaStreamEvent :: JSM GType+gTypeMediaStreamEvent = GType . Object <$> jsg "MediaStreamEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStreamTrack".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack Mozilla MediaStreamTrack documentation>+newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal }++instance PToJSVal MediaStreamTrack where+  pToJSVal = unMediaStreamTrack+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStreamTrack where+  pFromJSVal = MediaStreamTrack+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStreamTrack where+  toJSVal = return . unMediaStreamTrack+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStreamTrack where+  fromJSVal v = fmap MediaStreamTrack <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStreamTrack where+  makeObject = makeObject . unMediaStreamTrack++class IsEventTarget o => IsMediaStreamTrack o+toMediaStreamTrack :: IsMediaStreamTrack o => o -> MediaStreamTrack+toMediaStreamTrack = unsafeCastGObject . toGObject++instance IsMediaStreamTrack MediaStreamTrack+instance IsEventTarget MediaStreamTrack+instance IsGObject MediaStreamTrack where+  toGObject = GObject . unMediaStreamTrack+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStreamTrack . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStreamTrack :: IsGObject obj => obj -> JSM MediaStreamTrack+castToMediaStreamTrack = castTo gTypeMediaStreamTrack "MediaStreamTrack"++gTypeMediaStreamTrack :: JSM GType+gTypeMediaStreamTrack = GType . Object <$> jsg "MediaStreamTrack"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaStreamTrackEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent Mozilla MediaStreamTrackEvent documentation>+newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal }++instance PToJSVal MediaStreamTrackEvent where+  pToJSVal = unMediaStreamTrackEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaStreamTrackEvent where+  pFromJSVal = MediaStreamTrackEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaStreamTrackEvent where+  toJSVal = return . unMediaStreamTrackEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MediaStreamTrackEvent where+  fromJSVal v = fmap MediaStreamTrackEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaStreamTrackEvent where+  makeObject = makeObject . unMediaStreamTrackEvent++instance IsEvent MediaStreamTrackEvent+instance IsGObject MediaStreamTrackEvent where+  toGObject = GObject . unMediaStreamTrackEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaStreamTrackEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaStreamTrackEvent :: IsGObject obj => obj -> JSM MediaStreamTrackEvent+castToMediaStreamTrackEvent = castTo gTypeMediaStreamTrackEvent "MediaStreamTrackEvent"++gTypeMediaStreamTrackEvent :: JSM GType+gTypeMediaStreamTrackEvent = GType . Object <$> jsg "MediaStreamTrackEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaTrackConstraint".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraint Mozilla MediaTrackConstraint documentation>+newtype MediaTrackConstraint = MediaTrackConstraint { unMediaTrackConstraint :: JSVal }++instance PToJSVal MediaTrackConstraint where+  pToJSVal = unMediaTrackConstraint+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaTrackConstraint where+  pFromJSVal = MediaTrackConstraint+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaTrackConstraint where+  toJSVal = return . unMediaTrackConstraint+  {-# INLINE toJSVal #-}++instance FromJSVal MediaTrackConstraint where+  fromJSVal v = fmap MediaTrackConstraint <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaTrackConstraint where+  makeObject = makeObject . unMediaTrackConstraint++instance IsGObject MediaTrackConstraint where+  toGObject = GObject . unMediaTrackConstraint+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaTrackConstraint . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaTrackConstraint :: IsGObject obj => obj -> JSM MediaTrackConstraint+castToMediaTrackConstraint = castTo gTypeMediaTrackConstraint "MediaTrackConstraint"++gTypeMediaTrackConstraint :: JSM GType+gTypeMediaTrackConstraint = GType . Object <$> jsg "MediaTrackConstraint"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaTrackConstraintSet".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraintSet Mozilla MediaTrackConstraintSet documentation>+newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal }++instance PToJSVal MediaTrackConstraintSet where+  pToJSVal = unMediaTrackConstraintSet+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaTrackConstraintSet where+  pFromJSVal = MediaTrackConstraintSet+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaTrackConstraintSet where+  toJSVal = return . unMediaTrackConstraintSet+  {-# INLINE toJSVal #-}++instance FromJSVal MediaTrackConstraintSet where+  fromJSVal v = fmap MediaTrackConstraintSet <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaTrackConstraintSet where+  makeObject = makeObject . unMediaTrackConstraintSet++instance IsGObject MediaTrackConstraintSet where+  toGObject = GObject . unMediaTrackConstraintSet+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaTrackConstraintSet . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaTrackConstraintSet :: IsGObject obj => obj -> JSM MediaTrackConstraintSet+castToMediaTrackConstraintSet = castTo gTypeMediaTrackConstraintSet "MediaTrackConstraintSet"++gTypeMediaTrackConstraintSet :: JSM GType+gTypeMediaTrackConstraintSet = GType . Object <$> jsg "MediaTrackConstraintSet"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MediaTrackConstraints".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints Mozilla MediaTrackConstraints documentation>+newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal }++instance PToJSVal MediaTrackConstraints where+  pToJSVal = unMediaTrackConstraints+  {-# INLINE pToJSVal #-}++instance PFromJSVal MediaTrackConstraints where+  pFromJSVal = MediaTrackConstraints+  {-# INLINE pFromJSVal #-}++instance ToJSVal MediaTrackConstraints where+  toJSVal = return . unMediaTrackConstraints+  {-# INLINE toJSVal #-}++instance FromJSVal MediaTrackConstraints where+  fromJSVal v = fmap MediaTrackConstraints <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MediaTrackConstraints where+  makeObject = makeObject . unMediaTrackConstraints++instance IsGObject MediaTrackConstraints where+  toGObject = GObject . unMediaTrackConstraints+  {-# INLINE toGObject #-}+  unsafeCastGObject = MediaTrackConstraints . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMediaTrackConstraints :: IsGObject obj => obj -> JSM MediaTrackConstraints+castToMediaTrackConstraints = castTo gTypeMediaTrackConstraints "MediaTrackConstraints"++gTypeMediaTrackConstraints :: JSM GType+gTypeMediaTrackConstraints = GType . Object <$> jsg "MediaTrackConstraints"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MemoryInfo".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo Mozilla MemoryInfo documentation>+newtype MemoryInfo = MemoryInfo { unMemoryInfo :: JSVal }++instance PToJSVal MemoryInfo where+  pToJSVal = unMemoryInfo+  {-# INLINE pToJSVal #-}++instance PFromJSVal MemoryInfo where+  pFromJSVal = MemoryInfo+  {-# INLINE pFromJSVal #-}++instance ToJSVal MemoryInfo where+  toJSVal = return . unMemoryInfo+  {-# INLINE toJSVal #-}++instance FromJSVal MemoryInfo where+  fromJSVal v = fmap MemoryInfo <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MemoryInfo where+  makeObject = makeObject . unMemoryInfo++instance IsGObject MemoryInfo where+  toGObject = GObject . unMemoryInfo+  {-# INLINE toGObject #-}+  unsafeCastGObject = MemoryInfo . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMemoryInfo :: IsGObject obj => obj -> JSM MemoryInfo+castToMemoryInfo = castTo gTypeMemoryInfo "MemoryInfo"++gTypeMemoryInfo :: JSM GType+gTypeMemoryInfo = GType . Object <$> jsg "MemoryInfo"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MessageChannel".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel Mozilla MessageChannel documentation>+newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal }++instance PToJSVal MessageChannel where+  pToJSVal = unMessageChannel+  {-# INLINE pToJSVal #-}++instance PFromJSVal MessageChannel where+  pFromJSVal = MessageChannel+  {-# INLINE pFromJSVal #-}++instance ToJSVal MessageChannel where+  toJSVal = return . unMessageChannel+  {-# INLINE toJSVal #-}++instance FromJSVal MessageChannel where+  fromJSVal v = fmap MessageChannel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MessageChannel where+  makeObject = makeObject . unMessageChannel++instance IsGObject MessageChannel where+  toGObject = GObject . unMessageChannel+  {-# INLINE toGObject #-}+  unsafeCastGObject = MessageChannel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMessageChannel :: IsGObject obj => obj -> JSM MessageChannel+castToMessageChannel = castTo gTypeMessageChannel "MessageChannel"++gTypeMessageChannel :: JSM GType+gTypeMessageChannel = GType . Object <$> jsg "MessageChannel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MessageEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent Mozilla MessageEvent documentation>+newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal }++instance PToJSVal MessageEvent where+  pToJSVal = unMessageEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MessageEvent where+  pFromJSVal = MessageEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MessageEvent where+  toJSVal = return . unMessageEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MessageEvent where+  fromJSVal v = fmap MessageEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MessageEvent where+  makeObject = makeObject . unMessageEvent++instance IsEvent MessageEvent+instance IsGObject MessageEvent where+  toGObject = GObject . unMessageEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MessageEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMessageEvent :: IsGObject obj => obj -> JSM MessageEvent+castToMessageEvent = castTo gTypeMessageEvent "MessageEvent"++gTypeMessageEvent :: JSM GType+gTypeMessageEvent = GType . Object <$> jsg "MessageEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MessagePort".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort Mozilla MessagePort documentation>+newtype MessagePort = MessagePort { unMessagePort :: JSVal }++instance PToJSVal MessagePort where+  pToJSVal = unMessagePort+  {-# INLINE pToJSVal #-}++instance PFromJSVal MessagePort where+  pFromJSVal = MessagePort+  {-# INLINE pFromJSVal #-}++instance ToJSVal MessagePort where+  toJSVal = return . unMessagePort+  {-# INLINE toJSVal #-}++instance FromJSVal MessagePort where+  fromJSVal v = fmap MessagePort <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MessagePort where+  makeObject = makeObject . unMessagePort++instance IsEventTarget MessagePort+instance IsGObject MessagePort where+  toGObject = GObject . unMessagePort+  {-# INLINE toGObject #-}+  unsafeCastGObject = MessagePort . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMessagePort :: IsGObject obj => obj -> JSM MessagePort+castToMessagePort = castTo gTypeMessagePort "MessagePort"++gTypeMessagePort :: JSM GType+gTypeMessagePort = GType . Object <$> jsg "MessagePort"+#else+type IsMessagePort o = MessagePortClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MimeType".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MimeType Mozilla MimeType documentation>+newtype MimeType = MimeType { unMimeType :: JSVal }++instance PToJSVal MimeType where+  pToJSVal = unMimeType+  {-# INLINE pToJSVal #-}++instance PFromJSVal MimeType where+  pFromJSVal = MimeType+  {-# INLINE pFromJSVal #-}++instance ToJSVal MimeType where+  toJSVal = return . unMimeType+  {-# INLINE toJSVal #-}++instance FromJSVal MimeType where+  fromJSVal v = fmap MimeType <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MimeType where+  makeObject = makeObject . unMimeType++instance IsGObject MimeType where+  toGObject = GObject . unMimeType+  {-# INLINE toGObject #-}+  unsafeCastGObject = MimeType . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMimeType :: IsGObject obj => obj -> JSM MimeType+castToMimeType = castTo gTypeMimeType "MimeType"++gTypeMimeType :: JSM GType+gTypeMimeType = GType . Object <$> jsg "MimeType"+#else+type IsMimeType o = MimeTypeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MimeTypeArray".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray Mozilla MimeTypeArray documentation>+newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal }++instance PToJSVal MimeTypeArray where+  pToJSVal = unMimeTypeArray+  {-# INLINE pToJSVal #-}++instance PFromJSVal MimeTypeArray where+  pFromJSVal = MimeTypeArray+  {-# INLINE pFromJSVal #-}++instance ToJSVal MimeTypeArray where+  toJSVal = return . unMimeTypeArray+  {-# INLINE toJSVal #-}++instance FromJSVal MimeTypeArray where+  fromJSVal v = fmap MimeTypeArray <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MimeTypeArray where+  makeObject = makeObject . unMimeTypeArray++instance IsGObject MimeTypeArray where+  toGObject = GObject . unMimeTypeArray+  {-# INLINE toGObject #-}+  unsafeCastGObject = MimeTypeArray . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMimeTypeArray :: IsGObject obj => obj -> JSM MimeTypeArray+castToMimeTypeArray = castTo gTypeMimeTypeArray "MimeTypeArray"++gTypeMimeTypeArray :: JSM GType+gTypeMimeTypeArray = GType . Object <$> jsg "MimeTypeArray"+#else+type IsMimeTypeArray o = MimeTypeArrayClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MouseEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent Mozilla MouseEvent documentation>+newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal }++instance PToJSVal MouseEvent where+  pToJSVal = unMouseEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MouseEvent where+  pFromJSVal = MouseEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MouseEvent where+  toJSVal = return . unMouseEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MouseEvent where+  fromJSVal v = fmap MouseEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MouseEvent where+  makeObject = makeObject . unMouseEvent++class IsUIEvent o => IsMouseEvent o+toMouseEvent :: IsMouseEvent o => o -> MouseEvent+toMouseEvent = unsafeCastGObject . toGObject++instance IsMouseEvent MouseEvent+instance IsUIEvent MouseEvent+instance IsEvent MouseEvent+instance IsGObject MouseEvent where+  toGObject = GObject . unMouseEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MouseEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMouseEvent :: IsGObject obj => obj -> JSM MouseEvent+castToMouseEvent = castTo gTypeMouseEvent "MouseEvent"++gTypeMouseEvent :: JSM GType+gTypeMouseEvent = GType . Object <$> jsg "MouseEvent"+#else+type IsMouseEvent o = MouseEventClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MutationEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent Mozilla MutationEvent documentation>+newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal }++instance PToJSVal MutationEvent where+  pToJSVal = unMutationEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal MutationEvent where+  pFromJSVal = MutationEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal MutationEvent where+  toJSVal = return . unMutationEvent+  {-# INLINE toJSVal #-}++instance FromJSVal MutationEvent where+  fromJSVal v = fmap MutationEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MutationEvent where+  makeObject = makeObject . unMutationEvent++instance IsEvent MutationEvent+instance IsGObject MutationEvent where+  toGObject = GObject . unMutationEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = MutationEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMutationEvent :: IsGObject obj => obj -> JSM MutationEvent+castToMutationEvent = castTo gTypeMutationEvent "MutationEvent"++gTypeMutationEvent :: JSM GType+gTypeMutationEvent = GType . Object <$> jsg "MutationEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MutationObserver".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver Mozilla MutationObserver documentation>+newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal }++instance PToJSVal MutationObserver where+  pToJSVal = unMutationObserver+  {-# INLINE pToJSVal #-}++instance PFromJSVal MutationObserver where+  pFromJSVal = MutationObserver+  {-# INLINE pFromJSVal #-}++instance ToJSVal MutationObserver where+  toJSVal = return . unMutationObserver+  {-# INLINE toJSVal #-}++instance FromJSVal MutationObserver where+  fromJSVal v = fmap MutationObserver <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MutationObserver where+  makeObject = makeObject . unMutationObserver++instance IsGObject MutationObserver where+  toGObject = GObject . unMutationObserver+  {-# INLINE toGObject #-}+  unsafeCastGObject = MutationObserver . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMutationObserver :: IsGObject obj => obj -> JSM MutationObserver+castToMutationObserver = castTo gTypeMutationObserver "MutationObserver"++gTypeMutationObserver :: JSM GType+gTypeMutationObserver = GType . Object <$> jsg "MutationObserver"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.MutationRecord".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord Mozilla MutationRecord documentation>+newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal }++instance PToJSVal MutationRecord where+  pToJSVal = unMutationRecord+  {-# INLINE pToJSVal #-}++instance PFromJSVal MutationRecord where+  pFromJSVal = MutationRecord+  {-# INLINE pFromJSVal #-}++instance ToJSVal MutationRecord where+  toJSVal = return . unMutationRecord+  {-# INLINE toJSVal #-}++instance FromJSVal MutationRecord where+  fromJSVal v = fmap MutationRecord <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject MutationRecord where+  makeObject = makeObject . unMutationRecord++instance IsGObject MutationRecord where+  toGObject = GObject . unMutationRecord+  {-# INLINE toGObject #-}+  unsafeCastGObject = MutationRecord . unGObject+  {-# INLINE unsafeCastGObject #-}++castToMutationRecord :: IsGObject obj => obj -> JSM MutationRecord+castToMutationRecord = castTo gTypeMutationRecord "MutationRecord"++gTypeMutationRecord :: JSM GType+gTypeMutationRecord = GType . Object <$> jsg "MutationRecord"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.NamedNodeMap".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap Mozilla NamedNodeMap documentation>+newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal }++instance PToJSVal NamedNodeMap where+  pToJSVal = unNamedNodeMap+  {-# INLINE pToJSVal #-}++instance PFromJSVal NamedNodeMap where+  pFromJSVal = NamedNodeMap+  {-# INLINE pFromJSVal #-}++instance ToJSVal NamedNodeMap where+  toJSVal = return . unNamedNodeMap+  {-# INLINE toJSVal #-}++instance FromJSVal NamedNodeMap where+  fromJSVal v = fmap NamedNodeMap <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject NamedNodeMap where+  makeObject = makeObject . unNamedNodeMap++instance IsGObject NamedNodeMap where+  toGObject = GObject . unNamedNodeMap+  {-# INLINE toGObject #-}+  unsafeCastGObject = NamedNodeMap . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNamedNodeMap :: IsGObject obj => obj -> JSM NamedNodeMap+castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap"++gTypeNamedNodeMap :: JSM GType+gTypeNamedNodeMap = GType . Object <$> jsg "NamedNodeMap"+#else+type IsNamedNodeMap o = NamedNodeMapClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Navigator".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Navigator Mozilla Navigator documentation>+newtype Navigator = Navigator { unNavigator :: JSVal }++instance PToJSVal Navigator where+  pToJSVal = unNavigator+  {-# INLINE pToJSVal #-}++instance PFromJSVal Navigator where+  pFromJSVal = Navigator+  {-# INLINE pFromJSVal #-}++instance ToJSVal Navigator where+  toJSVal = return . unNavigator+  {-# INLINE toJSVal #-}++instance FromJSVal Navigator where+  fromJSVal v = fmap Navigator <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Navigator where+  makeObject = makeObject . unNavigator++instance IsGObject Navigator where+  toGObject = GObject . unNavigator+  {-# INLINE toGObject #-}+  unsafeCastGObject = Navigator . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNavigator :: IsGObject obj => obj -> JSM Navigator+castToNavigator = castTo gTypeNavigator "Navigator"++gTypeNavigator :: JSM GType+gTypeNavigator = GType . Object <$> jsg "Navigator"+#else+type IsNavigator o = NavigatorClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.NavigatorUserMediaError".+-- Base interface functions are in:+--+--     * "JSDOM.DOMError"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaError Mozilla NavigatorUserMediaError documentation>+newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal }++instance PToJSVal NavigatorUserMediaError where+  pToJSVal = unNavigatorUserMediaError+  {-# INLINE pToJSVal #-}++instance PFromJSVal NavigatorUserMediaError where+  pFromJSVal = NavigatorUserMediaError+  {-# INLINE pFromJSVal #-}++instance ToJSVal NavigatorUserMediaError where+  toJSVal = return . unNavigatorUserMediaError+  {-# INLINE toJSVal #-}++instance FromJSVal NavigatorUserMediaError where+  fromJSVal v = fmap NavigatorUserMediaError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject NavigatorUserMediaError where+  makeObject = makeObject . unNavigatorUserMediaError++instance IsDOMError NavigatorUserMediaError+instance IsGObject NavigatorUserMediaError where+  toGObject = GObject . unNavigatorUserMediaError+  {-# INLINE toGObject #-}+  unsafeCastGObject = NavigatorUserMediaError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNavigatorUserMediaError :: IsGObject obj => obj -> JSM NavigatorUserMediaError+castToNavigatorUserMediaError = castTo gTypeNavigatorUserMediaError "NavigatorUserMediaError"++gTypeNavigatorUserMediaError :: JSM GType+gTypeNavigatorUserMediaError = GType . Object <$> jsg "NavigatorUserMediaError"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Node".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Node Mozilla Node documentation>+newtype Node = Node { unNode :: JSVal }++instance PToJSVal Node where+  pToJSVal = unNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal Node where+  pFromJSVal = Node+  {-# INLINE pFromJSVal #-}++instance ToJSVal Node where+  toJSVal = return . unNode+  {-# INLINE toJSVal #-}++instance FromJSVal Node where+  fromJSVal v = fmap Node <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Node where+  makeObject = makeObject . unNode++class IsEventTarget o => IsNode o+toNode :: IsNode o => o -> Node+toNode = unsafeCastGObject . toGObject++instance IsNode Node+instance IsEventTarget Node+instance IsGObject Node where+  toGObject = GObject . unNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = Node . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNode :: IsGObject obj => obj -> JSM Node+castToNode = castTo gTypeNode "Node"++gTypeNode :: JSM GType+gTypeNode = GType . Object <$> jsg "Node"+#else+type IsNode o = NodeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.NodeFilter".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter Mozilla NodeFilter documentation>+newtype NodeFilter = NodeFilter { unNodeFilter :: JSVal }++instance PToJSVal NodeFilter where+  pToJSVal = unNodeFilter+  {-# INLINE pToJSVal #-}++instance PFromJSVal NodeFilter where+  pFromJSVal = NodeFilter+  {-# INLINE pFromJSVal #-}++instance ToJSVal NodeFilter where+  toJSVal = return . unNodeFilter+  {-# INLINE toJSVal #-}++instance FromJSVal NodeFilter where+  fromJSVal v = fmap NodeFilter <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject NodeFilter where+  makeObject = makeObject . unNodeFilter++instance IsGObject NodeFilter where+  toGObject = GObject . unNodeFilter+  {-# INLINE toGObject #-}+  unsafeCastGObject = NodeFilter . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNodeFilter :: IsGObject obj => obj -> JSM NodeFilter+castToNodeFilter = castTo gTypeNodeFilter "NodeFilter"++gTypeNodeFilter :: JSM GType+gTypeNodeFilter = GType . Object <$> jsg "NodeFilter"+#else+type IsNodeFilter o = NodeFilterClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.NodeIterator".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator Mozilla NodeIterator documentation>+newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal }++instance PToJSVal NodeIterator where+  pToJSVal = unNodeIterator+  {-# INLINE pToJSVal #-}++instance PFromJSVal NodeIterator where+  pFromJSVal = NodeIterator+  {-# INLINE pFromJSVal #-}++instance ToJSVal NodeIterator where+  toJSVal = return . unNodeIterator+  {-# INLINE toJSVal #-}++instance FromJSVal NodeIterator where+  fromJSVal v = fmap NodeIterator <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject NodeIterator where+  makeObject = makeObject . unNodeIterator++instance IsGObject NodeIterator where+  toGObject = GObject . unNodeIterator+  {-# INLINE toGObject #-}+  unsafeCastGObject = NodeIterator . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNodeIterator :: IsGObject obj => obj -> JSM NodeIterator+castToNodeIterator = castTo gTypeNodeIterator "NodeIterator"++gTypeNodeIterator :: JSM GType+gTypeNodeIterator = GType . Object <$> jsg "NodeIterator"+#else+type IsNodeIterator o = NodeIteratorClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.NodeList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/NodeList Mozilla NodeList documentation>+newtype NodeList = NodeList { unNodeList :: JSVal }++instance PToJSVal NodeList where+  pToJSVal = unNodeList+  {-# INLINE pToJSVal #-}++instance PFromJSVal NodeList where+  pFromJSVal = NodeList+  {-# INLINE pFromJSVal #-}++instance ToJSVal NodeList where+  toJSVal = return . unNodeList+  {-# INLINE toJSVal #-}++instance FromJSVal NodeList where+  fromJSVal v = fmap NodeList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject NodeList where+  makeObject = makeObject . unNodeList++class IsGObject o => IsNodeList o+toNodeList :: IsNodeList o => o -> NodeList+toNodeList = unsafeCastGObject . toGObject++instance IsNodeList NodeList+instance IsGObject NodeList where+  toGObject = GObject . unNodeList+  {-# INLINE toGObject #-}+  unsafeCastGObject = NodeList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNodeList :: IsGObject obj => obj -> JSM NodeList+castToNodeList = castTo gTypeNodeList "NodeList"++gTypeNodeList :: JSM GType+gTypeNodeList = GType . Object <$> jsg "NodeList"+#else+type IsNodeList o = NodeListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Notification".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Notification Mozilla Notification documentation>+newtype Notification = Notification { unNotification :: JSVal }++instance PToJSVal Notification where+  pToJSVal = unNotification+  {-# INLINE pToJSVal #-}++instance PFromJSVal Notification where+  pFromJSVal = Notification+  {-# INLINE pFromJSVal #-}++instance ToJSVal Notification where+  toJSVal = return . unNotification+  {-# INLINE toJSVal #-}++instance FromJSVal Notification where+  fromJSVal v = fmap Notification <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Notification where+  makeObject = makeObject . unNotification++instance IsEventTarget Notification+instance IsGObject Notification where+  toGObject = GObject . unNotification+  {-# INLINE toGObject #-}+  unsafeCastGObject = Notification . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNotification :: IsGObject obj => obj -> JSM Notification+castToNotification = castTo gTypeNotification "Notification"++gTypeNotification :: JSM GType+gTypeNotification = GType . Object <$> jsg "Notification"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.NotificationCenter".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter Mozilla NotificationCenter documentation>+newtype NotificationCenter = NotificationCenter { unNotificationCenter :: JSVal }++instance PToJSVal NotificationCenter where+  pToJSVal = unNotificationCenter+  {-# INLINE pToJSVal #-}++instance PFromJSVal NotificationCenter where+  pFromJSVal = NotificationCenter+  {-# INLINE pFromJSVal #-}++instance ToJSVal NotificationCenter where+  toJSVal = return . unNotificationCenter+  {-# INLINE toJSVal #-}++instance FromJSVal NotificationCenter where+  fromJSVal v = fmap NotificationCenter <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject NotificationCenter where+  makeObject = makeObject . unNotificationCenter++instance IsGObject NotificationCenter where+  toGObject = GObject . unNotificationCenter+  {-# INLINE toGObject #-}+  unsafeCastGObject = NotificationCenter . unGObject+  {-# INLINE unsafeCastGObject #-}++castToNotificationCenter :: IsGObject obj => obj -> JSM NotificationCenter+castToNotificationCenter = castTo gTypeNotificationCenter "NotificationCenter"++gTypeNotificationCenter :: JSM GType+gTypeNotificationCenter = GType . Object <$> jsg "NotificationCenter"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESElementIndexUint".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESElementIndexUint Mozilla OESElementIndexUint documentation>+newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal }++instance PToJSVal OESElementIndexUint where+  pToJSVal = unOESElementIndexUint+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESElementIndexUint where+  pFromJSVal = OESElementIndexUint+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESElementIndexUint where+  toJSVal = return . unOESElementIndexUint+  {-# INLINE toJSVal #-}++instance FromJSVal OESElementIndexUint where+  fromJSVal v = fmap OESElementIndexUint <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESElementIndexUint where+  makeObject = makeObject . unOESElementIndexUint++instance IsGObject OESElementIndexUint where+  toGObject = GObject . unOESElementIndexUint+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESElementIndexUint . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESElementIndexUint :: IsGObject obj => obj -> JSM OESElementIndexUint+castToOESElementIndexUint = castTo gTypeOESElementIndexUint "OESElementIndexUint"++gTypeOESElementIndexUint :: JSM GType+gTypeOESElementIndexUint = GType . Object <$> jsg "OESElementIndexUint"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESStandardDerivatives".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESStandardDerivatives Mozilla OESStandardDerivatives documentation>+newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal }++instance PToJSVal OESStandardDerivatives where+  pToJSVal = unOESStandardDerivatives+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESStandardDerivatives where+  pFromJSVal = OESStandardDerivatives+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESStandardDerivatives where+  toJSVal = return . unOESStandardDerivatives+  {-# INLINE toJSVal #-}++instance FromJSVal OESStandardDerivatives where+  fromJSVal v = fmap OESStandardDerivatives <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESStandardDerivatives where+  makeObject = makeObject . unOESStandardDerivatives++instance IsGObject OESStandardDerivatives where+  toGObject = GObject . unOESStandardDerivatives+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESStandardDerivatives . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESStandardDerivatives :: IsGObject obj => obj -> JSM OESStandardDerivatives+castToOESStandardDerivatives = castTo gTypeOESStandardDerivatives "OESStandardDerivatives"++gTypeOESStandardDerivatives :: JSM GType+gTypeOESStandardDerivatives = GType . Object <$> jsg "OESStandardDerivatives"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESTextureFloat".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureFloat Mozilla OESTextureFloat documentation>+newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal }++instance PToJSVal OESTextureFloat where+  pToJSVal = unOESTextureFloat+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESTextureFloat where+  pFromJSVal = OESTextureFloat+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESTextureFloat where+  toJSVal = return . unOESTextureFloat+  {-# INLINE toJSVal #-}++instance FromJSVal OESTextureFloat where+  fromJSVal v = fmap OESTextureFloat <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESTextureFloat where+  makeObject = makeObject . unOESTextureFloat++instance IsGObject OESTextureFloat where+  toGObject = GObject . unOESTextureFloat+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESTextureFloat . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESTextureFloat :: IsGObject obj => obj -> JSM OESTextureFloat+castToOESTextureFloat = castTo gTypeOESTextureFloat "OESTextureFloat"++gTypeOESTextureFloat :: JSM GType+gTypeOESTextureFloat = GType . Object <$> jsg "OESTextureFloat"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESTextureFloatLinear".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureFloatLinear Mozilla OESTextureFloatLinear documentation>+newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal }++instance PToJSVal OESTextureFloatLinear where+  pToJSVal = unOESTextureFloatLinear+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESTextureFloatLinear where+  pFromJSVal = OESTextureFloatLinear+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESTextureFloatLinear where+  toJSVal = return . unOESTextureFloatLinear+  {-# INLINE toJSVal #-}++instance FromJSVal OESTextureFloatLinear where+  fromJSVal v = fmap OESTextureFloatLinear <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESTextureFloatLinear where+  makeObject = makeObject . unOESTextureFloatLinear++instance IsGObject OESTextureFloatLinear where+  toGObject = GObject . unOESTextureFloatLinear+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESTextureFloatLinear . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESTextureFloatLinear :: IsGObject obj => obj -> JSM OESTextureFloatLinear+castToOESTextureFloatLinear = castTo gTypeOESTextureFloatLinear "OESTextureFloatLinear"++gTypeOESTextureFloatLinear :: JSM GType+gTypeOESTextureFloatLinear = GType . Object <$> jsg "OESTextureFloatLinear"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESTextureHalfFloat".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureHalfFloat Mozilla OESTextureHalfFloat documentation>+newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal }++instance PToJSVal OESTextureHalfFloat where+  pToJSVal = unOESTextureHalfFloat+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESTextureHalfFloat where+  pFromJSVal = OESTextureHalfFloat+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESTextureHalfFloat where+  toJSVal = return . unOESTextureHalfFloat+  {-# INLINE toJSVal #-}++instance FromJSVal OESTextureHalfFloat where+  fromJSVal v = fmap OESTextureHalfFloat <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESTextureHalfFloat where+  makeObject = makeObject . unOESTextureHalfFloat++instance IsGObject OESTextureHalfFloat where+  toGObject = GObject . unOESTextureHalfFloat+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESTextureHalfFloat . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESTextureHalfFloat :: IsGObject obj => obj -> JSM OESTextureHalfFloat+castToOESTextureHalfFloat = castTo gTypeOESTextureHalfFloat "OESTextureHalfFloat"++gTypeOESTextureHalfFloat :: JSM GType+gTypeOESTextureHalfFloat = GType . Object <$> jsg "OESTextureHalfFloat"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESTextureHalfFloatLinear".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureHalfFloatLinear Mozilla OESTextureHalfFloatLinear documentation>+newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal }++instance PToJSVal OESTextureHalfFloatLinear where+  pToJSVal = unOESTextureHalfFloatLinear+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESTextureHalfFloatLinear where+  pFromJSVal = OESTextureHalfFloatLinear+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESTextureHalfFloatLinear where+  toJSVal = return . unOESTextureHalfFloatLinear+  {-# INLINE toJSVal #-}++instance FromJSVal OESTextureHalfFloatLinear where+  fromJSVal v = fmap OESTextureHalfFloatLinear <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESTextureHalfFloatLinear where+  makeObject = makeObject . unOESTextureHalfFloatLinear++instance IsGObject OESTextureHalfFloatLinear where+  toGObject = GObject . unOESTextureHalfFloatLinear+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESTextureHalfFloatLinear . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESTextureHalfFloatLinear :: IsGObject obj => obj -> JSM OESTextureHalfFloatLinear+castToOESTextureHalfFloatLinear = castTo gTypeOESTextureHalfFloatLinear "OESTextureHalfFloatLinear"++gTypeOESTextureHalfFloatLinear :: JSM GType+gTypeOESTextureHalfFloatLinear = GType . Object <$> jsg "OESTextureHalfFloatLinear"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OESVertexArrayObject".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject Mozilla OESVertexArrayObject documentation>+newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal }++instance PToJSVal OESVertexArrayObject where+  pToJSVal = unOESVertexArrayObject+  {-# INLINE pToJSVal #-}++instance PFromJSVal OESVertexArrayObject where+  pFromJSVal = OESVertexArrayObject+  {-# INLINE pFromJSVal #-}++instance ToJSVal OESVertexArrayObject where+  toJSVal = return . unOESVertexArrayObject+  {-# INLINE toJSVal #-}++instance FromJSVal OESVertexArrayObject where+  fromJSVal v = fmap OESVertexArrayObject <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OESVertexArrayObject where+  makeObject = makeObject . unOESVertexArrayObject++instance IsGObject OESVertexArrayObject where+  toGObject = GObject . unOESVertexArrayObject+  {-# INLINE toGObject #-}+  unsafeCastGObject = OESVertexArrayObject . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOESVertexArrayObject :: IsGObject obj => obj -> JSM OESVertexArrayObject+castToOESVertexArrayObject = castTo gTypeOESVertexArrayObject "OESVertexArrayObject"++gTypeOESVertexArrayObject :: JSM GType+gTypeOESVertexArrayObject = GType . Object <$> jsg "OESVertexArrayObject"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OfflineAudioCompletionEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent Mozilla OfflineAudioCompletionEvent documentation>+newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal }++instance PToJSVal OfflineAudioCompletionEvent where+  pToJSVal = unOfflineAudioCompletionEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal OfflineAudioCompletionEvent where+  pFromJSVal = OfflineAudioCompletionEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal OfflineAudioCompletionEvent where+  toJSVal = return . unOfflineAudioCompletionEvent+  {-# INLINE toJSVal #-}++instance FromJSVal OfflineAudioCompletionEvent where+  fromJSVal v = fmap OfflineAudioCompletionEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OfflineAudioCompletionEvent where+  makeObject = makeObject . unOfflineAudioCompletionEvent++instance IsEvent OfflineAudioCompletionEvent+instance IsGObject OfflineAudioCompletionEvent where+  toGObject = GObject . unOfflineAudioCompletionEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = OfflineAudioCompletionEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOfflineAudioCompletionEvent :: IsGObject obj => obj -> JSM OfflineAudioCompletionEvent+castToOfflineAudioCompletionEvent = castTo gTypeOfflineAudioCompletionEvent "OfflineAudioCompletionEvent"++gTypeOfflineAudioCompletionEvent :: JSM GType+gTypeOfflineAudioCompletionEvent = GType . Object <$> jsg "OfflineAudioCompletionEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OfflineAudioContext".+-- Base interface functions are in:+--+--     * "JSDOM.AudioContext"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioContext Mozilla OfflineAudioContext documentation>+newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal }++instance PToJSVal OfflineAudioContext where+  pToJSVal = unOfflineAudioContext+  {-# INLINE pToJSVal #-}++instance PFromJSVal OfflineAudioContext where+  pFromJSVal = OfflineAudioContext+  {-# INLINE pFromJSVal #-}++instance ToJSVal OfflineAudioContext where+  toJSVal = return . unOfflineAudioContext+  {-# INLINE toJSVal #-}++instance FromJSVal OfflineAudioContext where+  fromJSVal v = fmap OfflineAudioContext <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OfflineAudioContext where+  makeObject = makeObject . unOfflineAudioContext++instance IsAudioContext OfflineAudioContext+instance IsEventTarget OfflineAudioContext+instance IsGObject OfflineAudioContext where+  toGObject = GObject . unOfflineAudioContext+  {-# INLINE toGObject #-}+  unsafeCastGObject = OfflineAudioContext . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOfflineAudioContext :: IsGObject obj => obj -> JSM OfflineAudioContext+castToOfflineAudioContext = castTo gTypeOfflineAudioContext "OfflineAudioContext"++gTypeOfflineAudioContext :: JSM GType+gTypeOfflineAudioContext = GType . Object <$> jsg "OfflineAudioContext"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OscillatorNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode Mozilla OscillatorNode documentation>+newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal }++instance PToJSVal OscillatorNode where+  pToJSVal = unOscillatorNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal OscillatorNode where+  pFromJSVal = OscillatorNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal OscillatorNode where+  toJSVal = return . unOscillatorNode+  {-# INLINE toJSVal #-}++instance FromJSVal OscillatorNode where+  fromJSVal v = fmap OscillatorNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OscillatorNode where+  makeObject = makeObject . unOscillatorNode++instance IsAudioNode OscillatorNode+instance IsEventTarget OscillatorNode+instance IsGObject OscillatorNode where+  toGObject = GObject . unOscillatorNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = OscillatorNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOscillatorNode :: IsGObject obj => obj -> JSM OscillatorNode+castToOscillatorNode = castTo gTypeOscillatorNode "OscillatorNode"++gTypeOscillatorNode :: JSM GType+gTypeOscillatorNode = GType . Object <$> jsg "OscillatorNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.OverflowEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent Mozilla OverflowEvent documentation>+newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal }++instance PToJSVal OverflowEvent where+  pToJSVal = unOverflowEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal OverflowEvent where+  pFromJSVal = OverflowEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal OverflowEvent where+  toJSVal = return . unOverflowEvent+  {-# INLINE toJSVal #-}++instance FromJSVal OverflowEvent where+  fromJSVal v = fmap OverflowEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject OverflowEvent where+  makeObject = makeObject . unOverflowEvent++instance IsEvent OverflowEvent+instance IsGObject OverflowEvent where+  toGObject = GObject . unOverflowEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = OverflowEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToOverflowEvent :: IsGObject obj => obj -> JSM OverflowEvent+castToOverflowEvent = castTo gTypeOverflowEvent "OverflowEvent"++gTypeOverflowEvent :: JSM GType+gTypeOverflowEvent = GType . Object <$> jsg "OverflowEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PageTransitionEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent Mozilla PageTransitionEvent documentation>+newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal }++instance PToJSVal PageTransitionEvent where+  pToJSVal = unPageTransitionEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal PageTransitionEvent where+  pFromJSVal = PageTransitionEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal PageTransitionEvent where+  toJSVal = return . unPageTransitionEvent+  {-# INLINE toJSVal #-}++instance FromJSVal PageTransitionEvent where+  fromJSVal v = fmap PageTransitionEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PageTransitionEvent where+  makeObject = makeObject . unPageTransitionEvent++instance IsEvent PageTransitionEvent+instance IsGObject PageTransitionEvent where+  toGObject = GObject . unPageTransitionEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = PageTransitionEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPageTransitionEvent :: IsGObject obj => obj -> JSM PageTransitionEvent+castToPageTransitionEvent = castTo gTypePageTransitionEvent "PageTransitionEvent"++gTypePageTransitionEvent :: JSM GType+gTypePageTransitionEvent = GType . Object <$> jsg "PageTransitionEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PannerNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode Mozilla webkitAudioPannerNode documentation>+newtype PannerNode = PannerNode { unPannerNode :: JSVal }++instance PToJSVal PannerNode where+  pToJSVal = unPannerNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal PannerNode where+  pFromJSVal = PannerNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal PannerNode where+  toJSVal = return . unPannerNode+  {-# INLINE toJSVal #-}++instance FromJSVal PannerNode where+  fromJSVal v = fmap PannerNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PannerNode where+  makeObject = makeObject . unPannerNode++instance IsAudioNode PannerNode+instance IsEventTarget PannerNode+instance IsGObject PannerNode where+  toGObject = GObject . unPannerNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = PannerNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPannerNode :: IsGObject obj => obj -> JSM PannerNode+castToPannerNode = castTo gTypePannerNode "PannerNode"++gTypePannerNode :: JSM GType+gTypePannerNode = GType . Object <$> jsg "webkitAudioPannerNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Path2D".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation>+newtype Path2D = Path2D { unPath2D :: JSVal }++instance PToJSVal Path2D where+  pToJSVal = unPath2D+  {-# INLINE pToJSVal #-}++instance PFromJSVal Path2D where+  pFromJSVal = Path2D+  {-# INLINE pFromJSVal #-}++instance ToJSVal Path2D where+  toJSVal = return . unPath2D+  {-# INLINE toJSVal #-}++instance FromJSVal Path2D where+  fromJSVal v = fmap Path2D <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Path2D where+  makeObject = makeObject . unPath2D++instance IsGObject Path2D where+  toGObject = GObject . unPath2D+  {-# INLINE toGObject #-}+  unsafeCastGObject = Path2D . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPath2D :: IsGObject obj => obj -> JSM Path2D+castToPath2D = castTo gTypePath2D "Path2D"++gTypePath2D :: JSM GType+gTypePath2D = GType . Object <$> jsg "Path2D"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Performance".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Performance Mozilla Performance documentation>+newtype Performance = Performance { unPerformance :: JSVal }++instance PToJSVal Performance where+  pToJSVal = unPerformance+  {-# INLINE pToJSVal #-}++instance PFromJSVal Performance where+  pFromJSVal = Performance+  {-# INLINE pFromJSVal #-}++instance ToJSVal Performance where+  toJSVal = return . unPerformance+  {-# INLINE toJSVal #-}++instance FromJSVal Performance where+  fromJSVal v = fmap Performance <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Performance where+  makeObject = makeObject . unPerformance++instance IsEventTarget Performance+instance IsGObject Performance where+  toGObject = GObject . unPerformance+  {-# INLINE toGObject #-}+  unsafeCastGObject = Performance . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformance :: IsGObject obj => obj -> JSM Performance+castToPerformance = castTo gTypePerformance "Performance"++gTypePerformance :: JSM GType+gTypePerformance = GType . Object <$> jsg "Performance"+#else+#ifndef USE_OLD_WEBKIT+type IsPerformance o = PerformanceClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceEntry".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry Mozilla PerformanceEntry documentation>+newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal }++instance PToJSVal PerformanceEntry where+  pToJSVal = unPerformanceEntry+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceEntry where+  pFromJSVal = PerformanceEntry+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceEntry where+  toJSVal = return . unPerformanceEntry+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceEntry where+  fromJSVal v = fmap PerformanceEntry <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceEntry where+  makeObject = makeObject . unPerformanceEntry++class IsGObject o => IsPerformanceEntry o+toPerformanceEntry :: IsPerformanceEntry o => o -> PerformanceEntry+toPerformanceEntry = unsafeCastGObject . toGObject++instance IsPerformanceEntry PerformanceEntry+instance IsGObject PerformanceEntry where+  toGObject = GObject . unPerformanceEntry+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceEntry . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceEntry :: IsGObject obj => obj -> JSM PerformanceEntry+castToPerformanceEntry = castTo gTypePerformanceEntry "PerformanceEntry"++gTypePerformanceEntry :: JSM GType+gTypePerformanceEntry = GType . Object <$> jsg "PerformanceEntry"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceEntryList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList Mozilla PerformanceEntryList documentation>+newtype PerformanceEntryList = PerformanceEntryList { unPerformanceEntryList :: JSVal }++instance PToJSVal PerformanceEntryList where+  pToJSVal = unPerformanceEntryList+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceEntryList where+  pFromJSVal = PerformanceEntryList+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceEntryList where+  toJSVal = return . unPerformanceEntryList+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceEntryList where+  fromJSVal v = fmap PerformanceEntryList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceEntryList where+  makeObject = makeObject . unPerformanceEntryList++instance IsGObject PerformanceEntryList where+  toGObject = GObject . unPerformanceEntryList+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceEntryList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceEntryList :: IsGObject obj => obj -> JSM PerformanceEntryList+castToPerformanceEntryList = castTo gTypePerformanceEntryList "PerformanceEntryList"++gTypePerformanceEntryList :: JSM GType+gTypePerformanceEntryList = GType . Object <$> jsg "PerformanceEntryList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceMark".+-- Base interface functions are in:+--+--     * "JSDOM.PerformanceEntry"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceMark Mozilla PerformanceMark documentation>+newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal }++instance PToJSVal PerformanceMark where+  pToJSVal = unPerformanceMark+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceMark where+  pFromJSVal = PerformanceMark+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceMark where+  toJSVal = return . unPerformanceMark+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceMark where+  fromJSVal v = fmap PerformanceMark <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceMark where+  makeObject = makeObject . unPerformanceMark++instance IsPerformanceEntry PerformanceMark+instance IsGObject PerformanceMark where+  toGObject = GObject . unPerformanceMark+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceMark . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceMark :: IsGObject obj => obj -> JSM PerformanceMark+castToPerformanceMark = castTo gTypePerformanceMark "PerformanceMark"++gTypePerformanceMark :: JSM GType+gTypePerformanceMark = GType . Object <$> jsg "PerformanceMark"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceMeasure".+-- Base interface functions are in:+--+--     * "JSDOM.PerformanceEntry"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceMeasure Mozilla PerformanceMeasure documentation>+newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal }++instance PToJSVal PerformanceMeasure where+  pToJSVal = unPerformanceMeasure+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceMeasure where+  pFromJSVal = PerformanceMeasure+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceMeasure where+  toJSVal = return . unPerformanceMeasure+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceMeasure where+  fromJSVal v = fmap PerformanceMeasure <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceMeasure where+  makeObject = makeObject . unPerformanceMeasure++instance IsPerformanceEntry PerformanceMeasure+instance IsGObject PerformanceMeasure where+  toGObject = GObject . unPerformanceMeasure+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceMeasure . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceMeasure :: IsGObject obj => obj -> JSM PerformanceMeasure+castToPerformanceMeasure = castTo gTypePerformanceMeasure "PerformanceMeasure"++gTypePerformanceMeasure :: JSM GType+gTypePerformanceMeasure = GType . Object <$> jsg "PerformanceMeasure"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceNavigation".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation Mozilla PerformanceNavigation documentation>+newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal }++instance PToJSVal PerformanceNavigation where+  pToJSVal = unPerformanceNavigation+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceNavigation where+  pFromJSVal = PerformanceNavigation+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceNavigation where+  toJSVal = return . unPerformanceNavigation+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceNavigation where+  fromJSVal v = fmap PerformanceNavigation <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceNavigation where+  makeObject = makeObject . unPerformanceNavigation++instance IsGObject PerformanceNavigation where+  toGObject = GObject . unPerformanceNavigation+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceNavigation . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceNavigation :: IsGObject obj => obj -> JSM PerformanceNavigation+castToPerformanceNavigation = castTo gTypePerformanceNavigation "PerformanceNavigation"++gTypePerformanceNavigation :: JSM GType+gTypePerformanceNavigation = GType . Object <$> jsg "PerformanceNavigation"+#else+#ifndef USE_OLD_WEBKIT+type IsPerformanceNavigation o = PerformanceNavigationClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceResourceTiming".+-- Base interface functions are in:+--+--     * "JSDOM.PerformanceEntry"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming Mozilla PerformanceResourceTiming documentation>+newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal }++instance PToJSVal PerformanceResourceTiming where+  pToJSVal = unPerformanceResourceTiming+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceResourceTiming where+  pFromJSVal = PerformanceResourceTiming+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceResourceTiming where+  toJSVal = return . unPerformanceResourceTiming+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceResourceTiming where+  fromJSVal v = fmap PerformanceResourceTiming <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceResourceTiming where+  makeObject = makeObject . unPerformanceResourceTiming++instance IsPerformanceEntry PerformanceResourceTiming+instance IsGObject PerformanceResourceTiming where+  toGObject = GObject . unPerformanceResourceTiming+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceResourceTiming . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceResourceTiming :: IsGObject obj => obj -> JSM PerformanceResourceTiming+castToPerformanceResourceTiming = castTo gTypePerformanceResourceTiming "PerformanceResourceTiming"++gTypePerformanceResourceTiming :: JSM GType+gTypePerformanceResourceTiming = GType . Object <$> jsg "PerformanceResourceTiming"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PerformanceTiming".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming Mozilla PerformanceTiming documentation>+newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal }++instance PToJSVal PerformanceTiming where+  pToJSVal = unPerformanceTiming+  {-# INLINE pToJSVal #-}++instance PFromJSVal PerformanceTiming where+  pFromJSVal = PerformanceTiming+  {-# INLINE pFromJSVal #-}++instance ToJSVal PerformanceTiming where+  toJSVal = return . unPerformanceTiming+  {-# INLINE toJSVal #-}++instance FromJSVal PerformanceTiming where+  fromJSVal v = fmap PerformanceTiming <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PerformanceTiming where+  makeObject = makeObject . unPerformanceTiming++instance IsGObject PerformanceTiming where+  toGObject = GObject . unPerformanceTiming+  {-# INLINE toGObject #-}+  unsafeCastGObject = PerformanceTiming . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPerformanceTiming :: IsGObject obj => obj -> JSM PerformanceTiming+castToPerformanceTiming = castTo gTypePerformanceTiming "PerformanceTiming"++gTypePerformanceTiming :: JSM GType+gTypePerformanceTiming = GType . Object <$> jsg "PerformanceTiming"+#else+#ifndef USE_OLD_WEBKIT+type IsPerformanceTiming o = PerformanceTimingClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PeriodicWave".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PeriodicWave Mozilla PeriodicWave documentation>+newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal }++instance PToJSVal PeriodicWave where+  pToJSVal = unPeriodicWave+  {-# INLINE pToJSVal #-}++instance PFromJSVal PeriodicWave where+  pFromJSVal = PeriodicWave+  {-# INLINE pFromJSVal #-}++instance ToJSVal PeriodicWave where+  toJSVal = return . unPeriodicWave+  {-# INLINE toJSVal #-}++instance FromJSVal PeriodicWave where+  fromJSVal v = fmap PeriodicWave <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PeriodicWave where+  makeObject = makeObject . unPeriodicWave++instance IsGObject PeriodicWave where+  toGObject = GObject . unPeriodicWave+  {-# INLINE toGObject #-}+  unsafeCastGObject = PeriodicWave . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPeriodicWave :: IsGObject obj => obj -> JSM PeriodicWave+castToPeriodicWave = castTo gTypePeriodicWave "PeriodicWave"++gTypePeriodicWave :: JSM GType+gTypePeriodicWave = GType . Object <$> jsg "PeriodicWave"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Plugin".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Plugin Mozilla Plugin documentation>+newtype Plugin = Plugin { unPlugin :: JSVal }++instance PToJSVal Plugin where+  pToJSVal = unPlugin+  {-# INLINE pToJSVal #-}++instance PFromJSVal Plugin where+  pFromJSVal = Plugin+  {-# INLINE pFromJSVal #-}++instance ToJSVal Plugin where+  toJSVal = return . unPlugin+  {-# INLINE toJSVal #-}++instance FromJSVal Plugin where+  fromJSVal v = fmap Plugin <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Plugin where+  makeObject = makeObject . unPlugin++instance IsGObject Plugin where+  toGObject = GObject . unPlugin+  {-# INLINE toGObject #-}+  unsafeCastGObject = Plugin . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPlugin :: IsGObject obj => obj -> JSM Plugin+castToPlugin = castTo gTypePlugin "Plugin"++gTypePlugin :: JSM GType+gTypePlugin = GType . Object <$> jsg "Plugin"+#else+type IsPlugin o = PluginClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PluginArray".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray Mozilla PluginArray documentation>+newtype PluginArray = PluginArray { unPluginArray :: JSVal }++instance PToJSVal PluginArray where+  pToJSVal = unPluginArray+  {-# INLINE pToJSVal #-}++instance PFromJSVal PluginArray where+  pFromJSVal = PluginArray+  {-# INLINE pFromJSVal #-}++instance ToJSVal PluginArray where+  toJSVal = return . unPluginArray+  {-# INLINE toJSVal #-}++instance FromJSVal PluginArray where+  fromJSVal v = fmap PluginArray <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PluginArray where+  makeObject = makeObject . unPluginArray++instance IsGObject PluginArray where+  toGObject = GObject . unPluginArray+  {-# INLINE toGObject #-}+  unsafeCastGObject = PluginArray . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPluginArray :: IsGObject obj => obj -> JSM PluginArray+castToPluginArray = castTo gTypePluginArray "PluginArray"++gTypePluginArray :: JSM GType+gTypePluginArray = GType . Object <$> jsg "PluginArray"+#else+type IsPluginArray o = PluginArrayClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PopStateEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent Mozilla PopStateEvent documentation>+newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal }++instance PToJSVal PopStateEvent where+  pToJSVal = unPopStateEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal PopStateEvent where+  pFromJSVal = PopStateEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal PopStateEvent where+  toJSVal = return . unPopStateEvent+  {-# INLINE toJSVal #-}++instance FromJSVal PopStateEvent where+  fromJSVal v = fmap PopStateEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PopStateEvent where+  makeObject = makeObject . unPopStateEvent++instance IsEvent PopStateEvent+instance IsGObject PopStateEvent where+  toGObject = GObject . unPopStateEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = PopStateEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPopStateEvent :: IsGObject obj => obj -> JSM PopStateEvent+castToPopStateEvent = castTo gTypePopStateEvent "PopStateEvent"++gTypePopStateEvent :: JSM GType+gTypePopStateEvent = GType . Object <$> jsg "PopStateEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.PositionError".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/PositionError Mozilla PositionError documentation>+newtype PositionError = PositionError { unPositionError :: JSVal }++instance PToJSVal PositionError where+  pToJSVal = unPositionError+  {-# INLINE pToJSVal #-}++instance PFromJSVal PositionError where+  pFromJSVal = PositionError+  {-# INLINE pFromJSVal #-}++instance ToJSVal PositionError where+  toJSVal = return . unPositionError+  {-# INLINE toJSVal #-}++instance FromJSVal PositionError where+  fromJSVal v = fmap PositionError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject PositionError where+  makeObject = makeObject . unPositionError++instance IsGObject PositionError where+  toGObject = GObject . unPositionError+  {-# INLINE toGObject #-}+  unsafeCastGObject = PositionError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToPositionError :: IsGObject obj => obj -> JSM PositionError+castToPositionError = castTo gTypePositionError "PositionError"++gTypePositionError :: JSM GType+gTypePositionError = GType . Object <$> jsg "PositionError"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ProcessingInstruction".+-- Base interface functions are in:+--+--     * "JSDOM.CharacterData"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction Mozilla ProcessingInstruction documentation>+newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal }++instance PToJSVal ProcessingInstruction where+  pToJSVal = unProcessingInstruction+  {-# INLINE pToJSVal #-}++instance PFromJSVal ProcessingInstruction where+  pFromJSVal = ProcessingInstruction+  {-# INLINE pFromJSVal #-}++instance ToJSVal ProcessingInstruction where+  toJSVal = return . unProcessingInstruction+  {-# INLINE toJSVal #-}++instance FromJSVal ProcessingInstruction where+  fromJSVal v = fmap ProcessingInstruction <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ProcessingInstruction where+  makeObject = makeObject . unProcessingInstruction++instance IsCharacterData ProcessingInstruction+instance IsNode ProcessingInstruction+instance IsEventTarget ProcessingInstruction+instance IsGObject ProcessingInstruction where+  toGObject = GObject . unProcessingInstruction+  {-# INLINE toGObject #-}+  unsafeCastGObject = ProcessingInstruction . unGObject+  {-# INLINE unsafeCastGObject #-}++castToProcessingInstruction :: IsGObject obj => obj -> JSM ProcessingInstruction+castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction"++gTypeProcessingInstruction :: JSM GType+gTypeProcessingInstruction = GType . Object <$> jsg "ProcessingInstruction"+#else+type IsProcessingInstruction o = ProcessingInstructionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ProgressEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent Mozilla ProgressEvent documentation>+newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal }++instance PToJSVal ProgressEvent where+  pToJSVal = unProgressEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal ProgressEvent where+  pFromJSVal = ProgressEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal ProgressEvent where+  toJSVal = return . unProgressEvent+  {-# INLINE toJSVal #-}++instance FromJSVal ProgressEvent where+  fromJSVal v = fmap ProgressEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ProgressEvent where+  makeObject = makeObject . unProgressEvent++class IsEvent o => IsProgressEvent o+toProgressEvent :: IsProgressEvent o => o -> ProgressEvent+toProgressEvent = unsafeCastGObject . toGObject++instance IsProgressEvent ProgressEvent+instance IsEvent ProgressEvent+instance IsGObject ProgressEvent where+  toGObject = GObject . unProgressEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = ProgressEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToProgressEvent :: IsGObject obj => obj -> JSM ProgressEvent+castToProgressEvent = castTo gTypeProgressEvent "ProgressEvent"++gTypeProgressEvent :: JSM GType+gTypeProgressEvent = GType . Object <$> jsg "ProgressEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.QuickTimePluginReplacement".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement Mozilla QuickTimePluginReplacement documentation>+newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal }++instance PToJSVal QuickTimePluginReplacement where+  pToJSVal = unQuickTimePluginReplacement+  {-# INLINE pToJSVal #-}++instance PFromJSVal QuickTimePluginReplacement where+  pFromJSVal = QuickTimePluginReplacement+  {-# INLINE pFromJSVal #-}++instance ToJSVal QuickTimePluginReplacement where+  toJSVal = return . unQuickTimePluginReplacement+  {-# INLINE toJSVal #-}++instance FromJSVal QuickTimePluginReplacement where+  fromJSVal v = fmap QuickTimePluginReplacement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject QuickTimePluginReplacement where+  makeObject = makeObject . unQuickTimePluginReplacement++instance IsGObject QuickTimePluginReplacement where+  toGObject = GObject . unQuickTimePluginReplacement+  {-# INLINE toGObject #-}+  unsafeCastGObject = QuickTimePluginReplacement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToQuickTimePluginReplacement :: IsGObject obj => obj -> JSM QuickTimePluginReplacement+castToQuickTimePluginReplacement = castTo gTypeQuickTimePluginReplacement "QuickTimePluginReplacement"++gTypeQuickTimePluginReplacement :: JSM GType+gTypeQuickTimePluginReplacement = GType . Object <$> jsg "QuickTimePluginReplacement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RGBColor".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor Mozilla RGBColor documentation>+newtype RGBColor = RGBColor { unRGBColor :: JSVal }++instance PToJSVal RGBColor where+  pToJSVal = unRGBColor+  {-# INLINE pToJSVal #-}++instance PFromJSVal RGBColor where+  pFromJSVal = RGBColor+  {-# INLINE pFromJSVal #-}++instance ToJSVal RGBColor where+  toJSVal = return . unRGBColor+  {-# INLINE toJSVal #-}++instance FromJSVal RGBColor where+  fromJSVal v = fmap RGBColor <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RGBColor where+  makeObject = makeObject . unRGBColor++instance IsGObject RGBColor where+  toGObject = GObject . unRGBColor+  {-# INLINE toGObject #-}+  unsafeCastGObject = RGBColor . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRGBColor :: IsGObject obj => obj -> JSM RGBColor+castToRGBColor = castTo gTypeRGBColor "RGBColor"++gTypeRGBColor :: JSM GType+gTypeRGBColor = GType . Object <$> jsg "RGBColor"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCConfiguration".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration Mozilla RTCConfiguration documentation>+newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal }++instance PToJSVal RTCConfiguration where+  pToJSVal = unRTCConfiguration+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCConfiguration where+  pFromJSVal = RTCConfiguration+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCConfiguration where+  toJSVal = return . unRTCConfiguration+  {-# INLINE toJSVal #-}++instance FromJSVal RTCConfiguration where+  fromJSVal v = fmap RTCConfiguration <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCConfiguration where+  makeObject = makeObject . unRTCConfiguration++instance IsGObject RTCConfiguration where+  toGObject = GObject . unRTCConfiguration+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCConfiguration . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCConfiguration :: IsGObject obj => obj -> JSM RTCConfiguration+castToRTCConfiguration = castTo gTypeRTCConfiguration "RTCConfiguration"++gTypeRTCConfiguration :: JSM GType+gTypeRTCConfiguration = GType . Object <$> jsg "RTCConfiguration"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCDTMFSender".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender Mozilla RTCDTMFSender documentation>+newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal }++instance PToJSVal RTCDTMFSender where+  pToJSVal = unRTCDTMFSender+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCDTMFSender where+  pFromJSVal = RTCDTMFSender+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCDTMFSender where+  toJSVal = return . unRTCDTMFSender+  {-# INLINE toJSVal #-}++instance FromJSVal RTCDTMFSender where+  fromJSVal v = fmap RTCDTMFSender <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCDTMFSender where+  makeObject = makeObject . unRTCDTMFSender++instance IsEventTarget RTCDTMFSender+instance IsGObject RTCDTMFSender where+  toGObject = GObject . unRTCDTMFSender+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCDTMFSender . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCDTMFSender :: IsGObject obj => obj -> JSM RTCDTMFSender+castToRTCDTMFSender = castTo gTypeRTCDTMFSender "RTCDTMFSender"++gTypeRTCDTMFSender :: JSM GType+gTypeRTCDTMFSender = GType . Object <$> jsg "RTCDTMFSender"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCDTMFToneChangeEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent Mozilla RTCDTMFToneChangeEvent documentation>+newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal }++instance PToJSVal RTCDTMFToneChangeEvent where+  pToJSVal = unRTCDTMFToneChangeEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCDTMFToneChangeEvent where+  pFromJSVal = RTCDTMFToneChangeEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCDTMFToneChangeEvent where+  toJSVal = return . unRTCDTMFToneChangeEvent+  {-# INLINE toJSVal #-}++instance FromJSVal RTCDTMFToneChangeEvent where+  fromJSVal v = fmap RTCDTMFToneChangeEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCDTMFToneChangeEvent where+  makeObject = makeObject . unRTCDTMFToneChangeEvent++instance IsEvent RTCDTMFToneChangeEvent+instance IsGObject RTCDTMFToneChangeEvent where+  toGObject = GObject . unRTCDTMFToneChangeEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCDTMFToneChangeEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCDTMFToneChangeEvent :: IsGObject obj => obj -> JSM RTCDTMFToneChangeEvent+castToRTCDTMFToneChangeEvent = castTo gTypeRTCDTMFToneChangeEvent "RTCDTMFToneChangeEvent"++gTypeRTCDTMFToneChangeEvent :: JSM GType+gTypeRTCDTMFToneChangeEvent = GType . Object <$> jsg "RTCDTMFToneChangeEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCDataChannel".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel Mozilla RTCDataChannel documentation>+newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal }++instance PToJSVal RTCDataChannel where+  pToJSVal = unRTCDataChannel+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCDataChannel where+  pFromJSVal = RTCDataChannel+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCDataChannel where+  toJSVal = return . unRTCDataChannel+  {-# INLINE toJSVal #-}++instance FromJSVal RTCDataChannel where+  fromJSVal v = fmap RTCDataChannel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCDataChannel where+  makeObject = makeObject . unRTCDataChannel++instance IsEventTarget RTCDataChannel+instance IsGObject RTCDataChannel where+  toGObject = GObject . unRTCDataChannel+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCDataChannel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCDataChannel :: IsGObject obj => obj -> JSM RTCDataChannel+castToRTCDataChannel = castTo gTypeRTCDataChannel "RTCDataChannel"++gTypeRTCDataChannel :: JSM GType+gTypeRTCDataChannel = GType . Object <$> jsg "RTCDataChannel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCDataChannelEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent Mozilla RTCDataChannelEvent documentation>+newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal }++instance PToJSVal RTCDataChannelEvent where+  pToJSVal = unRTCDataChannelEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCDataChannelEvent where+  pFromJSVal = RTCDataChannelEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCDataChannelEvent where+  toJSVal = return . unRTCDataChannelEvent+  {-# INLINE toJSVal #-}++instance FromJSVal RTCDataChannelEvent where+  fromJSVal v = fmap RTCDataChannelEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCDataChannelEvent where+  makeObject = makeObject . unRTCDataChannelEvent++instance IsEvent RTCDataChannelEvent+instance IsGObject RTCDataChannelEvent where+  toGObject = GObject . unRTCDataChannelEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCDataChannelEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCDataChannelEvent :: IsGObject obj => obj -> JSM RTCDataChannelEvent+castToRTCDataChannelEvent = castTo gTypeRTCDataChannelEvent "RTCDataChannelEvent"++gTypeRTCDataChannelEvent :: JSM GType+gTypeRTCDataChannelEvent = GType . Object <$> jsg "RTCDataChannelEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCIceCandidate".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate Mozilla RTCIceCandidate documentation>+newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal }++instance PToJSVal RTCIceCandidate where+  pToJSVal = unRTCIceCandidate+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCIceCandidate where+  pFromJSVal = RTCIceCandidate+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCIceCandidate where+  toJSVal = return . unRTCIceCandidate+  {-# INLINE toJSVal #-}++instance FromJSVal RTCIceCandidate where+  fromJSVal v = fmap RTCIceCandidate <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCIceCandidate where+  makeObject = makeObject . unRTCIceCandidate++instance IsGObject RTCIceCandidate where+  toGObject = GObject . unRTCIceCandidate+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCIceCandidate . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCIceCandidate :: IsGObject obj => obj -> JSM RTCIceCandidate+castToRTCIceCandidate = castTo gTypeRTCIceCandidate "RTCIceCandidate"++gTypeRTCIceCandidate :: JSM GType+gTypeRTCIceCandidate = GType . Object <$> jsg "RTCIceCandidate"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCIceCandidateEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent Mozilla RTCIceCandidateEvent documentation>+newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal }++instance PToJSVal RTCIceCandidateEvent where+  pToJSVal = unRTCIceCandidateEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCIceCandidateEvent where+  pFromJSVal = RTCIceCandidateEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCIceCandidateEvent where+  toJSVal = return . unRTCIceCandidateEvent+  {-# INLINE toJSVal #-}++instance FromJSVal RTCIceCandidateEvent where+  fromJSVal v = fmap RTCIceCandidateEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCIceCandidateEvent where+  makeObject = makeObject . unRTCIceCandidateEvent++instance IsEvent RTCIceCandidateEvent+instance IsGObject RTCIceCandidateEvent where+  toGObject = GObject . unRTCIceCandidateEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCIceCandidateEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCIceCandidateEvent :: IsGObject obj => obj -> JSM RTCIceCandidateEvent+castToRTCIceCandidateEvent = castTo gTypeRTCIceCandidateEvent "RTCIceCandidateEvent"++gTypeRTCIceCandidateEvent :: JSM GType+gTypeRTCIceCandidateEvent = GType . Object <$> jsg "RTCIceCandidateEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCIceServer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer Mozilla RTCIceServer documentation>+newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal }++instance PToJSVal RTCIceServer where+  pToJSVal = unRTCIceServer+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCIceServer where+  pFromJSVal = RTCIceServer+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCIceServer where+  toJSVal = return . unRTCIceServer+  {-# INLINE toJSVal #-}++instance FromJSVal RTCIceServer where+  fromJSVal v = fmap RTCIceServer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCIceServer where+  makeObject = makeObject . unRTCIceServer++instance IsGObject RTCIceServer where+  toGObject = GObject . unRTCIceServer+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCIceServer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCIceServer :: IsGObject obj => obj -> JSM RTCIceServer+castToRTCIceServer = castTo gTypeRTCIceServer "RTCIceServer"++gTypeRTCIceServer :: JSM GType+gTypeRTCIceServer = GType . Object <$> jsg "RTCIceServer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCPeerConnection".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection Mozilla webkitRTCPeerConnection documentation>+newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal }++instance PToJSVal RTCPeerConnection where+  pToJSVal = unRTCPeerConnection+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCPeerConnection where+  pFromJSVal = RTCPeerConnection+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCPeerConnection where+  toJSVal = return . unRTCPeerConnection+  {-# INLINE toJSVal #-}++instance FromJSVal RTCPeerConnection where+  fromJSVal v = fmap RTCPeerConnection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCPeerConnection where+  makeObject = makeObject . unRTCPeerConnection++instance IsEventTarget RTCPeerConnection+instance IsGObject RTCPeerConnection where+  toGObject = GObject . unRTCPeerConnection+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCPeerConnection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCPeerConnection :: IsGObject obj => obj -> JSM RTCPeerConnection+castToRTCPeerConnection = castTo gTypeRTCPeerConnection "RTCPeerConnection"++gTypeRTCPeerConnection :: JSM GType+gTypeRTCPeerConnection = GType . Object <$> jsg "webkitRTCPeerConnection"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCSessionDescription".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription Mozilla RTCSessionDescription documentation>+newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal }++instance PToJSVal RTCSessionDescription where+  pToJSVal = unRTCSessionDescription+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCSessionDescription where+  pFromJSVal = RTCSessionDescription+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCSessionDescription where+  toJSVal = return . unRTCSessionDescription+  {-# INLINE toJSVal #-}++instance FromJSVal RTCSessionDescription where+  fromJSVal v = fmap RTCSessionDescription <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCSessionDescription where+  makeObject = makeObject . unRTCSessionDescription++instance IsGObject RTCSessionDescription where+  toGObject = GObject . unRTCSessionDescription+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCSessionDescription . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCSessionDescription :: IsGObject obj => obj -> JSM RTCSessionDescription+castToRTCSessionDescription = castTo gTypeRTCSessionDescription "RTCSessionDescription"++gTypeRTCSessionDescription :: JSM GType+gTypeRTCSessionDescription = GType . Object <$> jsg "RTCSessionDescription"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCStatsReport".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport Mozilla RTCStatsReport documentation>+newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal }++instance PToJSVal RTCStatsReport where+  pToJSVal = unRTCStatsReport+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCStatsReport where+  pFromJSVal = RTCStatsReport+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCStatsReport where+  toJSVal = return . unRTCStatsReport+  {-# INLINE toJSVal #-}++instance FromJSVal RTCStatsReport where+  fromJSVal v = fmap RTCStatsReport <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCStatsReport where+  makeObject = makeObject . unRTCStatsReport++instance IsGObject RTCStatsReport where+  toGObject = GObject . unRTCStatsReport+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCStatsReport . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCStatsReport :: IsGObject obj => obj -> JSM RTCStatsReport+castToRTCStatsReport = castTo gTypeRTCStatsReport "RTCStatsReport"++gTypeRTCStatsReport :: JSM GType+gTypeRTCStatsReport = GType . Object <$> jsg "RTCStatsReport"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RTCStatsResponse".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse Mozilla RTCStatsResponse documentation>+newtype RTCStatsResponse = RTCStatsResponse { unRTCStatsResponse :: JSVal }++instance PToJSVal RTCStatsResponse where+  pToJSVal = unRTCStatsResponse+  {-# INLINE pToJSVal #-}++instance PFromJSVal RTCStatsResponse where+  pFromJSVal = RTCStatsResponse+  {-# INLINE pFromJSVal #-}++instance ToJSVal RTCStatsResponse where+  toJSVal = return . unRTCStatsResponse+  {-# INLINE toJSVal #-}++instance FromJSVal RTCStatsResponse where+  fromJSVal v = fmap RTCStatsResponse <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RTCStatsResponse where+  makeObject = makeObject . unRTCStatsResponse++instance IsGObject RTCStatsResponse where+  toGObject = GObject . unRTCStatsResponse+  {-# INLINE toGObject #-}+  unsafeCastGObject = RTCStatsResponse . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRTCStatsResponse :: IsGObject obj => obj -> JSM RTCStatsResponse+castToRTCStatsResponse = castTo gTypeRTCStatsResponse "RTCStatsResponse"++gTypeRTCStatsResponse :: JSM GType+gTypeRTCStatsResponse = GType . Object <$> jsg "RTCStatsResponse"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.RadioNodeList".+-- Base interface functions are in:+--+--     * "JSDOM.NodeList"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList Mozilla RadioNodeList documentation>+newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal }++instance PToJSVal RadioNodeList where+  pToJSVal = unRadioNodeList+  {-# INLINE pToJSVal #-}++instance PFromJSVal RadioNodeList where+  pFromJSVal = RadioNodeList+  {-# INLINE pFromJSVal #-}++instance ToJSVal RadioNodeList where+  toJSVal = return . unRadioNodeList+  {-# INLINE toJSVal #-}++instance FromJSVal RadioNodeList where+  fromJSVal v = fmap RadioNodeList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject RadioNodeList where+  makeObject = makeObject . unRadioNodeList++instance IsNodeList RadioNodeList+instance IsGObject RadioNodeList where+  toGObject = GObject . unRadioNodeList+  {-# INLINE toGObject #-}+  unsafeCastGObject = RadioNodeList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRadioNodeList :: IsGObject obj => obj -> JSM RadioNodeList+castToRadioNodeList = castTo gTypeRadioNodeList "RadioNodeList"++gTypeRadioNodeList :: JSM GType+gTypeRadioNodeList = GType . Object <$> jsg "RadioNodeList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Range".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Range Mozilla Range documentation>+newtype Range = Range { unRange :: JSVal }++instance PToJSVal Range where+  pToJSVal = unRange+  {-# INLINE pToJSVal #-}++instance PFromJSVal Range where+  pFromJSVal = Range+  {-# INLINE pFromJSVal #-}++instance ToJSVal Range where+  toJSVal = return . unRange+  {-# INLINE toJSVal #-}++instance FromJSVal Range where+  fromJSVal v = fmap Range <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Range where+  makeObject = makeObject . unRange++instance IsGObject Range where+  toGObject = GObject . unRange+  {-# INLINE toGObject #-}+  unsafeCastGObject = Range . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRange :: IsGObject obj => obj -> JSM Range+castToRange = castTo gTypeRange "Range"++gTypeRange :: JSM GType+gTypeRange = GType . Object <$> jsg "Range"+#else+type IsRange o = RangeClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ReadableStream".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream Mozilla ReadableStream documentation>+newtype ReadableStream = ReadableStream { unReadableStream :: JSVal }++instance PToJSVal ReadableStream where+  pToJSVal = unReadableStream+  {-# INLINE pToJSVal #-}++instance PFromJSVal ReadableStream where+  pFromJSVal = ReadableStream+  {-# INLINE pFromJSVal #-}++instance ToJSVal ReadableStream where+  toJSVal = return . unReadableStream+  {-# INLINE toJSVal #-}++instance FromJSVal ReadableStream where+  fromJSVal v = fmap ReadableStream <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ReadableStream where+  makeObject = makeObject . unReadableStream++instance IsGObject ReadableStream where+  toGObject = GObject . unReadableStream+  {-# INLINE toGObject #-}+  unsafeCastGObject = ReadableStream . unGObject+  {-# INLINE unsafeCastGObject #-}++castToReadableStream :: IsGObject obj => obj -> JSM ReadableStream+castToReadableStream = castTo gTypeReadableStream "ReadableStream"++gTypeReadableStream :: JSM GType+gTypeReadableStream = GType . Object <$> jsg "ReadableStream"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Rect".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Rect Mozilla Rect documentation>+newtype Rect = Rect { unRect :: JSVal }++instance PToJSVal Rect where+  pToJSVal = unRect+  {-# INLINE pToJSVal #-}++instance PFromJSVal Rect where+  pFromJSVal = Rect+  {-# INLINE pFromJSVal #-}++instance ToJSVal Rect where+  toJSVal = return . unRect+  {-# INLINE toJSVal #-}++instance FromJSVal Rect where+  fromJSVal v = fmap Rect <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Rect where+  makeObject = makeObject . unRect++instance IsGObject Rect where+  toGObject = GObject . unRect+  {-# INLINE toGObject #-}+  unsafeCastGObject = Rect . unGObject+  {-# INLINE unsafeCastGObject #-}++castToRect :: IsGObject obj => obj -> JSM Rect+castToRect = castTo gTypeRect "Rect"++gTypeRect :: JSM GType+gTypeRect = GType . Object <$> jsg "Rect"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SQLError".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SQLError Mozilla SQLError documentation>+newtype SQLError = SQLError { unSQLError :: JSVal }++instance PToJSVal SQLError where+  pToJSVal = unSQLError+  {-# INLINE pToJSVal #-}++instance PFromJSVal SQLError where+  pFromJSVal = SQLError+  {-# INLINE pFromJSVal #-}++instance ToJSVal SQLError where+  toJSVal = return . unSQLError+  {-# INLINE toJSVal #-}++instance FromJSVal SQLError where+  fromJSVal v = fmap SQLError <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SQLError where+  makeObject = makeObject . unSQLError++instance IsGObject SQLError where+  toGObject = GObject . unSQLError+  {-# INLINE toGObject #-}+  unsafeCastGObject = SQLError . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSQLError :: IsGObject obj => obj -> JSM SQLError+castToSQLError = castTo gTypeSQLError "SQLError"++gTypeSQLError :: JSM GType+gTypeSQLError = GType . Object <$> jsg "SQLError"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SQLResultSet".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet Mozilla SQLResultSet documentation>+newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal }++instance PToJSVal SQLResultSet where+  pToJSVal = unSQLResultSet+  {-# INLINE pToJSVal #-}++instance PFromJSVal SQLResultSet where+  pFromJSVal = SQLResultSet+  {-# INLINE pFromJSVal #-}++instance ToJSVal SQLResultSet where+  toJSVal = return . unSQLResultSet+  {-# INLINE toJSVal #-}++instance FromJSVal SQLResultSet where+  fromJSVal v = fmap SQLResultSet <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SQLResultSet where+  makeObject = makeObject . unSQLResultSet++instance IsGObject SQLResultSet where+  toGObject = GObject . unSQLResultSet+  {-# INLINE toGObject #-}+  unsafeCastGObject = SQLResultSet . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSQLResultSet :: IsGObject obj => obj -> JSM SQLResultSet+castToSQLResultSet = castTo gTypeSQLResultSet "SQLResultSet"++gTypeSQLResultSet :: JSM GType+gTypeSQLResultSet = GType . Object <$> jsg "SQLResultSet"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SQLResultSetRowList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList Mozilla SQLResultSetRowList documentation>+newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal }++instance PToJSVal SQLResultSetRowList where+  pToJSVal = unSQLResultSetRowList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SQLResultSetRowList where+  pFromJSVal = SQLResultSetRowList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SQLResultSetRowList where+  toJSVal = return . unSQLResultSetRowList+  {-# INLINE toJSVal #-}++instance FromJSVal SQLResultSetRowList where+  fromJSVal v = fmap SQLResultSetRowList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SQLResultSetRowList where+  makeObject = makeObject . unSQLResultSetRowList++instance IsGObject SQLResultSetRowList where+  toGObject = GObject . unSQLResultSetRowList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SQLResultSetRowList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSQLResultSetRowList :: IsGObject obj => obj -> JSM SQLResultSetRowList+castToSQLResultSetRowList = castTo gTypeSQLResultSetRowList "SQLResultSetRowList"++gTypeSQLResultSetRowList :: JSM GType+gTypeSQLResultSetRowList = GType . Object <$> jsg "SQLResultSetRowList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SQLTransaction".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction Mozilla SQLTransaction documentation>+newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal }++instance PToJSVal SQLTransaction where+  pToJSVal = unSQLTransaction+  {-# INLINE pToJSVal #-}++instance PFromJSVal SQLTransaction where+  pFromJSVal = SQLTransaction+  {-# INLINE pFromJSVal #-}++instance ToJSVal SQLTransaction where+  toJSVal = return . unSQLTransaction+  {-# INLINE toJSVal #-}++instance FromJSVal SQLTransaction where+  fromJSVal v = fmap SQLTransaction <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SQLTransaction where+  makeObject = makeObject . unSQLTransaction++instance IsGObject SQLTransaction where+  toGObject = GObject . unSQLTransaction+  {-# INLINE toGObject #-}+  unsafeCastGObject = SQLTransaction . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSQLTransaction :: IsGObject obj => obj -> JSM SQLTransaction+castToSQLTransaction = castTo gTypeSQLTransaction "SQLTransaction"++gTypeSQLTransaction :: JSM GType+gTypeSQLTransaction = GType . Object <$> jsg "SQLTransaction"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement Mozilla SVGAElement documentation>+newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal }++instance PToJSVal SVGAElement where+  pToJSVal = unSVGAElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAElement where+  pFromJSVal = SVGAElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAElement where+  toJSVal = return . unSVGAElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAElement where+  fromJSVal v = fmap SVGAElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAElement where+  makeObject = makeObject . unSVGAElement++instance IsSVGGraphicsElement SVGAElement+instance IsSVGElement SVGAElement+instance IsElement SVGAElement+instance IsNode SVGAElement+instance IsEventTarget SVGAElement+instance IsGObject SVGAElement where+  toGObject = GObject . unSVGAElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAElement :: IsGObject obj => obj -> JSM SVGAElement+castToSVGAElement = castTo gTypeSVGAElement "SVGAElement"++gTypeSVGAElement :: JSM GType+gTypeSVGAElement = GType . Object <$> jsg "SVGAElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAltGlyphDefElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphDefElement Mozilla SVGAltGlyphDefElement documentation>+newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal }++instance PToJSVal SVGAltGlyphDefElement where+  pToJSVal = unSVGAltGlyphDefElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAltGlyphDefElement where+  pFromJSVal = SVGAltGlyphDefElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAltGlyphDefElement where+  toJSVal = return . unSVGAltGlyphDefElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAltGlyphDefElement where+  fromJSVal v = fmap SVGAltGlyphDefElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAltGlyphDefElement where+  makeObject = makeObject . unSVGAltGlyphDefElement++instance IsSVGElement SVGAltGlyphDefElement+instance IsElement SVGAltGlyphDefElement+instance IsNode SVGAltGlyphDefElement+instance IsEventTarget SVGAltGlyphDefElement+instance IsGObject SVGAltGlyphDefElement where+  toGObject = GObject . unSVGAltGlyphDefElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAltGlyphDefElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAltGlyphDefElement :: IsGObject obj => obj -> JSM SVGAltGlyphDefElement+castToSVGAltGlyphDefElement = castTo gTypeSVGAltGlyphDefElement "SVGAltGlyphDefElement"++gTypeSVGAltGlyphDefElement :: JSM GType+gTypeSVGAltGlyphDefElement = GType . Object <$> jsg "SVGAltGlyphDefElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAltGlyphElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGTextPositioningElement"+--     * "JSDOM.SVGTextContentElement"+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement Mozilla SVGAltGlyphElement documentation>+newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal }++instance PToJSVal SVGAltGlyphElement where+  pToJSVal = unSVGAltGlyphElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAltGlyphElement where+  pFromJSVal = SVGAltGlyphElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAltGlyphElement where+  toJSVal = return . unSVGAltGlyphElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAltGlyphElement where+  fromJSVal v = fmap SVGAltGlyphElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAltGlyphElement where+  makeObject = makeObject . unSVGAltGlyphElement++instance IsSVGTextPositioningElement SVGAltGlyphElement+instance IsSVGTextContentElement SVGAltGlyphElement+instance IsSVGGraphicsElement SVGAltGlyphElement+instance IsSVGElement SVGAltGlyphElement+instance IsElement SVGAltGlyphElement+instance IsNode SVGAltGlyphElement+instance IsEventTarget SVGAltGlyphElement+instance IsGObject SVGAltGlyphElement where+  toGObject = GObject . unSVGAltGlyphElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAltGlyphElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAltGlyphElement :: IsGObject obj => obj -> JSM SVGAltGlyphElement+castToSVGAltGlyphElement = castTo gTypeSVGAltGlyphElement "SVGAltGlyphElement"++gTypeSVGAltGlyphElement :: JSM GType+gTypeSVGAltGlyphElement = GType . Object <$> jsg "SVGAltGlyphElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAltGlyphItemElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphItemElement Mozilla SVGAltGlyphItemElement documentation>+newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal }++instance PToJSVal SVGAltGlyphItemElement where+  pToJSVal = unSVGAltGlyphItemElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAltGlyphItemElement where+  pFromJSVal = SVGAltGlyphItemElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAltGlyphItemElement where+  toJSVal = return . unSVGAltGlyphItemElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAltGlyphItemElement where+  fromJSVal v = fmap SVGAltGlyphItemElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAltGlyphItemElement where+  makeObject = makeObject . unSVGAltGlyphItemElement++instance IsSVGElement SVGAltGlyphItemElement+instance IsElement SVGAltGlyphItemElement+instance IsNode SVGAltGlyphItemElement+instance IsEventTarget SVGAltGlyphItemElement+instance IsGObject SVGAltGlyphItemElement where+  toGObject = GObject . unSVGAltGlyphItemElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAltGlyphItemElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAltGlyphItemElement :: IsGObject obj => obj -> JSM SVGAltGlyphItemElement+castToSVGAltGlyphItemElement = castTo gTypeSVGAltGlyphItemElement "SVGAltGlyphItemElement"++gTypeSVGAltGlyphItemElement :: JSM GType+gTypeSVGAltGlyphItemElement = GType . Object <$> jsg "SVGAltGlyphItemElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAngle".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle Mozilla SVGAngle documentation>+newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal }++instance PToJSVal SVGAngle where+  pToJSVal = unSVGAngle+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAngle where+  pFromJSVal = SVGAngle+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAngle where+  toJSVal = return . unSVGAngle+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAngle where+  fromJSVal v = fmap SVGAngle <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAngle where+  makeObject = makeObject . unSVGAngle++instance IsGObject SVGAngle where+  toGObject = GObject . unSVGAngle+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAngle . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAngle :: IsGObject obj => obj -> JSM SVGAngle+castToSVGAngle = castTo gTypeSVGAngle "SVGAngle"++gTypeSVGAngle :: JSM GType+gTypeSVGAngle = GType . Object <$> jsg "SVGAngle"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimateColorElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGAnimationElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateColorElement Mozilla SVGAnimateColorElement documentation>+newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal }++instance PToJSVal SVGAnimateColorElement where+  pToJSVal = unSVGAnimateColorElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimateColorElement where+  pFromJSVal = SVGAnimateColorElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimateColorElement where+  toJSVal = return . unSVGAnimateColorElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimateColorElement where+  fromJSVal v = fmap SVGAnimateColorElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimateColorElement where+  makeObject = makeObject . unSVGAnimateColorElement++instance IsSVGAnimationElement SVGAnimateColorElement+instance IsSVGElement SVGAnimateColorElement+instance IsElement SVGAnimateColorElement+instance IsNode SVGAnimateColorElement+instance IsEventTarget SVGAnimateColorElement+instance IsGObject SVGAnimateColorElement where+  toGObject = GObject . unSVGAnimateColorElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimateColorElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimateColorElement :: IsGObject obj => obj -> JSM SVGAnimateColorElement+castToSVGAnimateColorElement = castTo gTypeSVGAnimateColorElement "SVGAnimateColorElement"++gTypeSVGAnimateColorElement :: JSM GType+gTypeSVGAnimateColorElement = GType . Object <$> jsg "SVGAnimateColorElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimateElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGAnimationElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateElement Mozilla SVGAnimateElement documentation>+newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal }++instance PToJSVal SVGAnimateElement where+  pToJSVal = unSVGAnimateElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimateElement where+  pFromJSVal = SVGAnimateElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimateElement where+  toJSVal = return . unSVGAnimateElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimateElement where+  fromJSVal v = fmap SVGAnimateElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimateElement where+  makeObject = makeObject . unSVGAnimateElement++instance IsSVGAnimationElement SVGAnimateElement+instance IsSVGElement SVGAnimateElement+instance IsElement SVGAnimateElement+instance IsNode SVGAnimateElement+instance IsEventTarget SVGAnimateElement+instance IsGObject SVGAnimateElement where+  toGObject = GObject . unSVGAnimateElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimateElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimateElement :: IsGObject obj => obj -> JSM SVGAnimateElement+castToSVGAnimateElement = castTo gTypeSVGAnimateElement "SVGAnimateElement"++gTypeSVGAnimateElement :: JSM GType+gTypeSVGAnimateElement = GType . Object <$> jsg "SVGAnimateElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimateMotionElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGAnimationElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateMotionElement Mozilla SVGAnimateMotionElement documentation>+newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal }++instance PToJSVal SVGAnimateMotionElement where+  pToJSVal = unSVGAnimateMotionElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimateMotionElement where+  pFromJSVal = SVGAnimateMotionElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimateMotionElement where+  toJSVal = return . unSVGAnimateMotionElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimateMotionElement where+  fromJSVal v = fmap SVGAnimateMotionElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimateMotionElement where+  makeObject = makeObject . unSVGAnimateMotionElement++instance IsSVGAnimationElement SVGAnimateMotionElement+instance IsSVGElement SVGAnimateMotionElement+instance IsElement SVGAnimateMotionElement+instance IsNode SVGAnimateMotionElement+instance IsEventTarget SVGAnimateMotionElement+instance IsGObject SVGAnimateMotionElement where+  toGObject = GObject . unSVGAnimateMotionElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimateMotionElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimateMotionElement :: IsGObject obj => obj -> JSM SVGAnimateMotionElement+castToSVGAnimateMotionElement = castTo gTypeSVGAnimateMotionElement "SVGAnimateMotionElement"++gTypeSVGAnimateMotionElement :: JSM GType+gTypeSVGAnimateMotionElement = GType . Object <$> jsg "SVGAnimateMotionElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimateTransformElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGAnimationElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateTransformElement Mozilla SVGAnimateTransformElement documentation>+newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal }++instance PToJSVal SVGAnimateTransformElement where+  pToJSVal = unSVGAnimateTransformElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimateTransformElement where+  pFromJSVal = SVGAnimateTransformElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimateTransformElement where+  toJSVal = return . unSVGAnimateTransformElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimateTransformElement where+  fromJSVal v = fmap SVGAnimateTransformElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimateTransformElement where+  makeObject = makeObject . unSVGAnimateTransformElement++instance IsSVGAnimationElement SVGAnimateTransformElement+instance IsSVGElement SVGAnimateTransformElement+instance IsElement SVGAnimateTransformElement+instance IsNode SVGAnimateTransformElement+instance IsEventTarget SVGAnimateTransformElement+instance IsGObject SVGAnimateTransformElement where+  toGObject = GObject . unSVGAnimateTransformElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimateTransformElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimateTransformElement :: IsGObject obj => obj -> JSM SVGAnimateTransformElement+castToSVGAnimateTransformElement = castTo gTypeSVGAnimateTransformElement "SVGAnimateTransformElement"++gTypeSVGAnimateTransformElement :: JSM GType+gTypeSVGAnimateTransformElement = GType . Object <$> jsg "SVGAnimateTransformElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedAngle".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle Mozilla SVGAnimatedAngle documentation>+newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal }++instance PToJSVal SVGAnimatedAngle where+  pToJSVal = unSVGAnimatedAngle+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedAngle where+  pFromJSVal = SVGAnimatedAngle+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedAngle where+  toJSVal = return . unSVGAnimatedAngle+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedAngle where+  fromJSVal v = fmap SVGAnimatedAngle <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedAngle where+  makeObject = makeObject . unSVGAnimatedAngle++instance IsGObject SVGAnimatedAngle where+  toGObject = GObject . unSVGAnimatedAngle+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedAngle . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedAngle :: IsGObject obj => obj -> JSM SVGAnimatedAngle+castToSVGAnimatedAngle = castTo gTypeSVGAnimatedAngle "SVGAnimatedAngle"++gTypeSVGAnimatedAngle :: JSM GType+gTypeSVGAnimatedAngle = GType . Object <$> jsg "SVGAnimatedAngle"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedBoolean".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean Mozilla SVGAnimatedBoolean documentation>+newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal }++instance PToJSVal SVGAnimatedBoolean where+  pToJSVal = unSVGAnimatedBoolean+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedBoolean where+  pFromJSVal = SVGAnimatedBoolean+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedBoolean where+  toJSVal = return . unSVGAnimatedBoolean+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedBoolean where+  fromJSVal v = fmap SVGAnimatedBoolean <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedBoolean where+  makeObject = makeObject . unSVGAnimatedBoolean++instance IsGObject SVGAnimatedBoolean where+  toGObject = GObject . unSVGAnimatedBoolean+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedBoolean . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedBoolean :: IsGObject obj => obj -> JSM SVGAnimatedBoolean+castToSVGAnimatedBoolean = castTo gTypeSVGAnimatedBoolean "SVGAnimatedBoolean"++gTypeSVGAnimatedBoolean :: JSM GType+gTypeSVGAnimatedBoolean = GType . Object <$> jsg "SVGAnimatedBoolean"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedEnumeration".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration Mozilla SVGAnimatedEnumeration documentation>+newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal }++instance PToJSVal SVGAnimatedEnumeration where+  pToJSVal = unSVGAnimatedEnumeration+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedEnumeration where+  pFromJSVal = SVGAnimatedEnumeration+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedEnumeration where+  toJSVal = return . unSVGAnimatedEnumeration+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedEnumeration where+  fromJSVal v = fmap SVGAnimatedEnumeration <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedEnumeration where+  makeObject = makeObject . unSVGAnimatedEnumeration++instance IsGObject SVGAnimatedEnumeration where+  toGObject = GObject . unSVGAnimatedEnumeration+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedEnumeration . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedEnumeration :: IsGObject obj => obj -> JSM SVGAnimatedEnumeration+castToSVGAnimatedEnumeration = castTo gTypeSVGAnimatedEnumeration "SVGAnimatedEnumeration"++gTypeSVGAnimatedEnumeration :: JSM GType+gTypeSVGAnimatedEnumeration = GType . Object <$> jsg "SVGAnimatedEnumeration"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedInteger".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger Mozilla SVGAnimatedInteger documentation>+newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal }++instance PToJSVal SVGAnimatedInteger where+  pToJSVal = unSVGAnimatedInteger+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedInteger where+  pFromJSVal = SVGAnimatedInteger+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedInteger where+  toJSVal = return . unSVGAnimatedInteger+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedInteger where+  fromJSVal v = fmap SVGAnimatedInteger <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedInteger where+  makeObject = makeObject . unSVGAnimatedInteger++instance IsGObject SVGAnimatedInteger where+  toGObject = GObject . unSVGAnimatedInteger+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedInteger . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedInteger :: IsGObject obj => obj -> JSM SVGAnimatedInteger+castToSVGAnimatedInteger = castTo gTypeSVGAnimatedInteger "SVGAnimatedInteger"++gTypeSVGAnimatedInteger :: JSM GType+gTypeSVGAnimatedInteger = GType . Object <$> jsg "SVGAnimatedInteger"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedLength".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength Mozilla SVGAnimatedLength documentation>+newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal }++instance PToJSVal SVGAnimatedLength where+  pToJSVal = unSVGAnimatedLength+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedLength where+  pFromJSVal = SVGAnimatedLength+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedLength where+  toJSVal = return . unSVGAnimatedLength+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedLength where+  fromJSVal v = fmap SVGAnimatedLength <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedLength where+  makeObject = makeObject . unSVGAnimatedLength++instance IsGObject SVGAnimatedLength where+  toGObject = GObject . unSVGAnimatedLength+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedLength . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedLength :: IsGObject obj => obj -> JSM SVGAnimatedLength+castToSVGAnimatedLength = castTo gTypeSVGAnimatedLength "SVGAnimatedLength"++gTypeSVGAnimatedLength :: JSM GType+gTypeSVGAnimatedLength = GType . Object <$> jsg "SVGAnimatedLength"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedLengthList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList Mozilla SVGAnimatedLengthList documentation>+newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal }++instance PToJSVal SVGAnimatedLengthList where+  pToJSVal = unSVGAnimatedLengthList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedLengthList where+  pFromJSVal = SVGAnimatedLengthList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedLengthList where+  toJSVal = return . unSVGAnimatedLengthList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedLengthList where+  fromJSVal v = fmap SVGAnimatedLengthList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedLengthList where+  makeObject = makeObject . unSVGAnimatedLengthList++instance IsGObject SVGAnimatedLengthList where+  toGObject = GObject . unSVGAnimatedLengthList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedLengthList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedLengthList :: IsGObject obj => obj -> JSM SVGAnimatedLengthList+castToSVGAnimatedLengthList = castTo gTypeSVGAnimatedLengthList "SVGAnimatedLengthList"++gTypeSVGAnimatedLengthList :: JSM GType+gTypeSVGAnimatedLengthList = GType . Object <$> jsg "SVGAnimatedLengthList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedNumber".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber Mozilla SVGAnimatedNumber documentation>+newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal }++instance PToJSVal SVGAnimatedNumber where+  pToJSVal = unSVGAnimatedNumber+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedNumber where+  pFromJSVal = SVGAnimatedNumber+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedNumber where+  toJSVal = return . unSVGAnimatedNumber+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedNumber where+  fromJSVal v = fmap SVGAnimatedNumber <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedNumber where+  makeObject = makeObject . unSVGAnimatedNumber++instance IsGObject SVGAnimatedNumber where+  toGObject = GObject . unSVGAnimatedNumber+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedNumber . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedNumber :: IsGObject obj => obj -> JSM SVGAnimatedNumber+castToSVGAnimatedNumber = castTo gTypeSVGAnimatedNumber "SVGAnimatedNumber"++gTypeSVGAnimatedNumber :: JSM GType+gTypeSVGAnimatedNumber = GType . Object <$> jsg "SVGAnimatedNumber"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedNumberList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList Mozilla SVGAnimatedNumberList documentation>+newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal }++instance PToJSVal SVGAnimatedNumberList where+  pToJSVal = unSVGAnimatedNumberList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedNumberList where+  pFromJSVal = SVGAnimatedNumberList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedNumberList where+  toJSVal = return . unSVGAnimatedNumberList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedNumberList where+  fromJSVal v = fmap SVGAnimatedNumberList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedNumberList where+  makeObject = makeObject . unSVGAnimatedNumberList++instance IsGObject SVGAnimatedNumberList where+  toGObject = GObject . unSVGAnimatedNumberList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedNumberList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedNumberList :: IsGObject obj => obj -> JSM SVGAnimatedNumberList+castToSVGAnimatedNumberList = castTo gTypeSVGAnimatedNumberList "SVGAnimatedNumberList"++gTypeSVGAnimatedNumberList :: JSM GType+gTypeSVGAnimatedNumberList = GType . Object <$> jsg "SVGAnimatedNumberList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedPreserveAspectRatio".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio Mozilla SVGAnimatedPreserveAspectRatio documentation>+newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal }++instance PToJSVal SVGAnimatedPreserveAspectRatio where+  pToJSVal = unSVGAnimatedPreserveAspectRatio+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedPreserveAspectRatio where+  pFromJSVal = SVGAnimatedPreserveAspectRatio+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedPreserveAspectRatio where+  toJSVal = return . unSVGAnimatedPreserveAspectRatio+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedPreserveAspectRatio where+  fromJSVal v = fmap SVGAnimatedPreserveAspectRatio <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedPreserveAspectRatio where+  makeObject = makeObject . unSVGAnimatedPreserveAspectRatio++instance IsGObject SVGAnimatedPreserveAspectRatio where+  toGObject = GObject . unSVGAnimatedPreserveAspectRatio+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedPreserveAspectRatio . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedPreserveAspectRatio :: IsGObject obj => obj -> JSM SVGAnimatedPreserveAspectRatio+castToSVGAnimatedPreserveAspectRatio = castTo gTypeSVGAnimatedPreserveAspectRatio "SVGAnimatedPreserveAspectRatio"++gTypeSVGAnimatedPreserveAspectRatio :: JSM GType+gTypeSVGAnimatedPreserveAspectRatio = GType . Object <$> jsg "SVGAnimatedPreserveAspectRatio"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedRect".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect Mozilla SVGAnimatedRect documentation>+newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal }++instance PToJSVal SVGAnimatedRect where+  pToJSVal = unSVGAnimatedRect+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedRect where+  pFromJSVal = SVGAnimatedRect+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedRect where+  toJSVal = return . unSVGAnimatedRect+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedRect where+  fromJSVal v = fmap SVGAnimatedRect <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedRect where+  makeObject = makeObject . unSVGAnimatedRect++instance IsGObject SVGAnimatedRect where+  toGObject = GObject . unSVGAnimatedRect+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedRect . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedRect :: IsGObject obj => obj -> JSM SVGAnimatedRect+castToSVGAnimatedRect = castTo gTypeSVGAnimatedRect "SVGAnimatedRect"++gTypeSVGAnimatedRect :: JSM GType+gTypeSVGAnimatedRect = GType . Object <$> jsg "SVGAnimatedRect"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedString".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString Mozilla SVGAnimatedString documentation>+newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal }++instance PToJSVal SVGAnimatedString where+  pToJSVal = unSVGAnimatedString+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedString where+  pFromJSVal = SVGAnimatedString+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedString where+  toJSVal = return . unSVGAnimatedString+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedString where+  fromJSVal v = fmap SVGAnimatedString <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedString where+  makeObject = makeObject . unSVGAnimatedString++instance IsGObject SVGAnimatedString where+  toGObject = GObject . unSVGAnimatedString+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedString . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedString :: IsGObject obj => obj -> JSM SVGAnimatedString+castToSVGAnimatedString = castTo gTypeSVGAnimatedString "SVGAnimatedString"++gTypeSVGAnimatedString :: JSM GType+gTypeSVGAnimatedString = GType . Object <$> jsg "SVGAnimatedString"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimatedTransformList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList Mozilla SVGAnimatedTransformList documentation>+newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal }++instance PToJSVal SVGAnimatedTransformList where+  pToJSVal = unSVGAnimatedTransformList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimatedTransformList where+  pFromJSVal = SVGAnimatedTransformList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimatedTransformList where+  toJSVal = return . unSVGAnimatedTransformList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimatedTransformList where+  fromJSVal v = fmap SVGAnimatedTransformList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimatedTransformList where+  makeObject = makeObject . unSVGAnimatedTransformList++instance IsGObject SVGAnimatedTransformList where+  toGObject = GObject . unSVGAnimatedTransformList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimatedTransformList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimatedTransformList :: IsGObject obj => obj -> JSM SVGAnimatedTransformList+castToSVGAnimatedTransformList = castTo gTypeSVGAnimatedTransformList "SVGAnimatedTransformList"++gTypeSVGAnimatedTransformList :: JSM GType+gTypeSVGAnimatedTransformList = GType . Object <$> jsg "SVGAnimatedTransformList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGAnimationElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement Mozilla SVGAnimationElement documentation>+newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal }++instance PToJSVal SVGAnimationElement where+  pToJSVal = unSVGAnimationElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGAnimationElement where+  pFromJSVal = SVGAnimationElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGAnimationElement where+  toJSVal = return . unSVGAnimationElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGAnimationElement where+  fromJSVal v = fmap SVGAnimationElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGAnimationElement where+  makeObject = makeObject . unSVGAnimationElement++class IsSVGElement o => IsSVGAnimationElement o+toSVGAnimationElement :: IsSVGAnimationElement o => o -> SVGAnimationElement+toSVGAnimationElement = unsafeCastGObject . toGObject++instance IsSVGAnimationElement SVGAnimationElement+instance IsSVGElement SVGAnimationElement+instance IsElement SVGAnimationElement+instance IsNode SVGAnimationElement+instance IsEventTarget SVGAnimationElement+instance IsGObject SVGAnimationElement where+  toGObject = GObject . unSVGAnimationElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGAnimationElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGAnimationElement :: IsGObject obj => obj -> JSM SVGAnimationElement+castToSVGAnimationElement = castTo gTypeSVGAnimationElement "SVGAnimationElement"++gTypeSVGAnimationElement :: JSM GType+gTypeSVGAnimationElement = GType . Object <$> jsg "SVGAnimationElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGCircleElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement Mozilla SVGCircleElement documentation>+newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal }++instance PToJSVal SVGCircleElement where+  pToJSVal = unSVGCircleElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGCircleElement where+  pFromJSVal = SVGCircleElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGCircleElement where+  toJSVal = return . unSVGCircleElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGCircleElement where+  fromJSVal v = fmap SVGCircleElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGCircleElement where+  makeObject = makeObject . unSVGCircleElement++instance IsSVGGraphicsElement SVGCircleElement+instance IsSVGElement SVGCircleElement+instance IsElement SVGCircleElement+instance IsNode SVGCircleElement+instance IsEventTarget SVGCircleElement+instance IsGObject SVGCircleElement where+  toGObject = GObject . unSVGCircleElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGCircleElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGCircleElement :: IsGObject obj => obj -> JSM SVGCircleElement+castToSVGCircleElement = castTo gTypeSVGCircleElement "SVGCircleElement"++gTypeSVGCircleElement :: JSM GType+gTypeSVGCircleElement = GType . Object <$> jsg "SVGCircleElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGClipPathElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement Mozilla SVGClipPathElement documentation>+newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal }++instance PToJSVal SVGClipPathElement where+  pToJSVal = unSVGClipPathElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGClipPathElement where+  pFromJSVal = SVGClipPathElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGClipPathElement where+  toJSVal = return . unSVGClipPathElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGClipPathElement where+  fromJSVal v = fmap SVGClipPathElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGClipPathElement where+  makeObject = makeObject . unSVGClipPathElement++instance IsSVGGraphicsElement SVGClipPathElement+instance IsSVGElement SVGClipPathElement+instance IsElement SVGClipPathElement+instance IsNode SVGClipPathElement+instance IsEventTarget SVGClipPathElement+instance IsGObject SVGClipPathElement where+  toGObject = GObject . unSVGClipPathElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGClipPathElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGClipPathElement :: IsGObject obj => obj -> JSM SVGClipPathElement+castToSVGClipPathElement = castTo gTypeSVGClipPathElement "SVGClipPathElement"++gTypeSVGClipPathElement :: JSM GType+gTypeSVGClipPathElement = GType . Object <$> jsg "SVGClipPathElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGColor".+-- Base interface functions are in:+--+--     * "JSDOM.CSSValue"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor Mozilla SVGColor documentation>+newtype SVGColor = SVGColor { unSVGColor :: JSVal }++instance PToJSVal SVGColor where+  pToJSVal = unSVGColor+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGColor where+  pFromJSVal = SVGColor+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGColor where+  toJSVal = return . unSVGColor+  {-# INLINE toJSVal #-}++instance FromJSVal SVGColor where+  fromJSVal v = fmap SVGColor <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGColor where+  makeObject = makeObject . unSVGColor++class IsCSSValue o => IsSVGColor o+toSVGColor :: IsSVGColor o => o -> SVGColor+toSVGColor = unsafeCastGObject . toGObject++instance IsSVGColor SVGColor+instance IsCSSValue SVGColor+instance IsGObject SVGColor where+  toGObject = GObject . unSVGColor+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGColor . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGColor :: IsGObject obj => obj -> JSM SVGColor+castToSVGColor = castTo gTypeSVGColor "SVGColor"++gTypeSVGColor :: JSM GType+gTypeSVGColor = GType . Object <$> jsg "SVGColor"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGComponentTransferFunctionElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement Mozilla SVGComponentTransferFunctionElement documentation>+newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal }++instance PToJSVal SVGComponentTransferFunctionElement where+  pToJSVal = unSVGComponentTransferFunctionElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGComponentTransferFunctionElement where+  pFromJSVal = SVGComponentTransferFunctionElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGComponentTransferFunctionElement where+  toJSVal = return . unSVGComponentTransferFunctionElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGComponentTransferFunctionElement where+  fromJSVal v = fmap SVGComponentTransferFunctionElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGComponentTransferFunctionElement where+  makeObject = makeObject . unSVGComponentTransferFunctionElement++class IsSVGElement o => IsSVGComponentTransferFunctionElement o+toSVGComponentTransferFunctionElement :: IsSVGComponentTransferFunctionElement o => o -> SVGComponentTransferFunctionElement+toSVGComponentTransferFunctionElement = unsafeCastGObject . toGObject++instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement+instance IsSVGElement SVGComponentTransferFunctionElement+instance IsElement SVGComponentTransferFunctionElement+instance IsNode SVGComponentTransferFunctionElement+instance IsEventTarget SVGComponentTransferFunctionElement+instance IsGObject SVGComponentTransferFunctionElement where+  toGObject = GObject . unSVGComponentTransferFunctionElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGComponentTransferFunctionElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGComponentTransferFunctionElement :: IsGObject obj => obj -> JSM SVGComponentTransferFunctionElement+castToSVGComponentTransferFunctionElement = castTo gTypeSVGComponentTransferFunctionElement "SVGComponentTransferFunctionElement"++gTypeSVGComponentTransferFunctionElement :: JSM GType+gTypeSVGComponentTransferFunctionElement = GType . Object <$> jsg "SVGComponentTransferFunctionElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGCursorElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement Mozilla SVGCursorElement documentation>+newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal }++instance PToJSVal SVGCursorElement where+  pToJSVal = unSVGCursorElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGCursorElement where+  pFromJSVal = SVGCursorElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGCursorElement where+  toJSVal = return . unSVGCursorElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGCursorElement where+  fromJSVal v = fmap SVGCursorElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGCursorElement where+  makeObject = makeObject . unSVGCursorElement++instance IsSVGElement SVGCursorElement+instance IsElement SVGCursorElement+instance IsNode SVGCursorElement+instance IsEventTarget SVGCursorElement+instance IsGObject SVGCursorElement where+  toGObject = GObject . unSVGCursorElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGCursorElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGCursorElement :: IsGObject obj => obj -> JSM SVGCursorElement+castToSVGCursorElement = castTo gTypeSVGCursorElement "SVGCursorElement"++gTypeSVGCursorElement :: JSM GType+gTypeSVGCursorElement = GType . Object <$> jsg "SVGCursorElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGDefsElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGDefsElement Mozilla SVGDefsElement documentation>+newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal }++instance PToJSVal SVGDefsElement where+  pToJSVal = unSVGDefsElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGDefsElement where+  pFromJSVal = SVGDefsElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGDefsElement where+  toJSVal = return . unSVGDefsElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGDefsElement where+  fromJSVal v = fmap SVGDefsElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGDefsElement where+  makeObject = makeObject . unSVGDefsElement++instance IsSVGGraphicsElement SVGDefsElement+instance IsSVGElement SVGDefsElement+instance IsElement SVGDefsElement+instance IsNode SVGDefsElement+instance IsEventTarget SVGDefsElement+instance IsGObject SVGDefsElement where+  toGObject = GObject . unSVGDefsElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGDefsElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGDefsElement :: IsGObject obj => obj -> JSM SVGDefsElement+castToSVGDefsElement = castTo gTypeSVGDefsElement "SVGDefsElement"++gTypeSVGDefsElement :: JSM GType+gTypeSVGDefsElement = GType . Object <$> jsg "SVGDefsElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGDescElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGDescElement Mozilla SVGDescElement documentation>+newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal }++instance PToJSVal SVGDescElement where+  pToJSVal = unSVGDescElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGDescElement where+  pFromJSVal = SVGDescElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGDescElement where+  toJSVal = return . unSVGDescElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGDescElement where+  fromJSVal v = fmap SVGDescElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGDescElement where+  makeObject = makeObject . unSVGDescElement++instance IsSVGElement SVGDescElement+instance IsElement SVGDescElement+instance IsNode SVGDescElement+instance IsEventTarget SVGDescElement+instance IsGObject SVGDescElement where+  toGObject = GObject . unSVGDescElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGDescElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGDescElement :: IsGObject obj => obj -> JSM SVGDescElement+castToSVGDescElement = castTo gTypeSVGDescElement "SVGDescElement"++gTypeSVGDescElement :: JSM GType+gTypeSVGDescElement = GType . Object <$> jsg "SVGDescElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGDocument".+-- Base interface functions are in:+--+--     * "JSDOM.Document"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument Mozilla SVGDocument documentation>+newtype SVGDocument = SVGDocument { unSVGDocument :: JSVal }++instance PToJSVal SVGDocument where+  pToJSVal = unSVGDocument+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGDocument where+  pFromJSVal = SVGDocument+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGDocument where+  toJSVal = return . unSVGDocument+  {-# INLINE toJSVal #-}++instance FromJSVal SVGDocument where+  fromJSVal v = fmap SVGDocument <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGDocument where+  makeObject = makeObject . unSVGDocument++instance IsDocument SVGDocument+instance IsNode SVGDocument+instance IsEventTarget SVGDocument+instance IsGObject SVGDocument where+  toGObject = GObject . unSVGDocument+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGDocument . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGDocument :: IsGObject obj => obj -> JSM SVGDocument+castToSVGDocument = castTo gTypeSVGDocument "SVGDocument"++gTypeSVGDocument :: JSM GType+gTypeSVGDocument = GType . Object <$> jsg "SVGDocument"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGElement".+-- Base interface functions are in:+--+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement Mozilla SVGElement documentation>+newtype SVGElement = SVGElement { unSVGElement :: JSVal }++instance PToJSVal SVGElement where+  pToJSVal = unSVGElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGElement where+  pFromJSVal = SVGElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGElement where+  toJSVal = return . unSVGElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGElement where+  fromJSVal v = fmap SVGElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGElement where+  makeObject = makeObject . unSVGElement++class IsElement o => IsSVGElement o+toSVGElement :: IsSVGElement o => o -> SVGElement+toSVGElement = unsafeCastGObject . toGObject++instance IsSVGElement SVGElement+instance IsElement SVGElement+instance IsNode SVGElement+instance IsEventTarget SVGElement+instance IsGObject SVGElement where+  toGObject = GObject . unSVGElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGElement :: IsGObject obj => obj -> JSM SVGElement+castToSVGElement = castTo gTypeSVGElement "SVGElement"++gTypeSVGElement :: JSM GType+gTypeSVGElement = GType . Object <$> jsg "SVGElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGEllipseElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement Mozilla SVGEllipseElement documentation>+newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal }++instance PToJSVal SVGEllipseElement where+  pToJSVal = unSVGEllipseElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGEllipseElement where+  pFromJSVal = SVGEllipseElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGEllipseElement where+  toJSVal = return . unSVGEllipseElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGEllipseElement where+  fromJSVal v = fmap SVGEllipseElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGEllipseElement where+  makeObject = makeObject . unSVGEllipseElement++instance IsSVGGraphicsElement SVGEllipseElement+instance IsSVGElement SVGEllipseElement+instance IsElement SVGEllipseElement+instance IsNode SVGEllipseElement+instance IsEventTarget SVGEllipseElement+instance IsGObject SVGEllipseElement where+  toGObject = GObject . unSVGEllipseElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGEllipseElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGEllipseElement :: IsGObject obj => obj -> JSM SVGEllipseElement+castToSVGEllipseElement = castTo gTypeSVGEllipseElement "SVGEllipseElement"++gTypeSVGEllipseElement :: JSM GType+gTypeSVGEllipseElement = GType . Object <$> jsg "SVGEllipseElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGExternalResourcesRequired".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired Mozilla SVGExternalResourcesRequired documentation>+newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal }++instance PToJSVal SVGExternalResourcesRequired where+  pToJSVal = unSVGExternalResourcesRequired+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGExternalResourcesRequired where+  pFromJSVal = SVGExternalResourcesRequired+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGExternalResourcesRequired where+  toJSVal = return . unSVGExternalResourcesRequired+  {-# INLINE toJSVal #-}++instance FromJSVal SVGExternalResourcesRequired where+  fromJSVal v = fmap SVGExternalResourcesRequired <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGExternalResourcesRequired where+  makeObject = makeObject . unSVGExternalResourcesRequired++instance IsGObject SVGExternalResourcesRequired where+  toGObject = GObject . unSVGExternalResourcesRequired+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGExternalResourcesRequired . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGExternalResourcesRequired :: IsGObject obj => obj -> JSM SVGExternalResourcesRequired+castToSVGExternalResourcesRequired = castTo gTypeSVGExternalResourcesRequired "SVGExternalResourcesRequired"++gTypeSVGExternalResourcesRequired :: JSM GType+gTypeSVGExternalResourcesRequired = GType . Object <$> jsg "SVGExternalResourcesRequired"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEBlendElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement Mozilla SVGFEBlendElement documentation>+newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal }++instance PToJSVal SVGFEBlendElement where+  pToJSVal = unSVGFEBlendElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEBlendElement where+  pFromJSVal = SVGFEBlendElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEBlendElement where+  toJSVal = return . unSVGFEBlendElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEBlendElement where+  fromJSVal v = fmap SVGFEBlendElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEBlendElement where+  makeObject = makeObject . unSVGFEBlendElement++instance IsSVGElement SVGFEBlendElement+instance IsElement SVGFEBlendElement+instance IsNode SVGFEBlendElement+instance IsEventTarget SVGFEBlendElement+instance IsGObject SVGFEBlendElement where+  toGObject = GObject . unSVGFEBlendElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEBlendElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEBlendElement :: IsGObject obj => obj -> JSM SVGFEBlendElement+castToSVGFEBlendElement = castTo gTypeSVGFEBlendElement "SVGFEBlendElement"++gTypeSVGFEBlendElement :: JSM GType+gTypeSVGFEBlendElement = GType . Object <$> jsg "SVGFEBlendElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEColorMatrixElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement Mozilla SVGFEColorMatrixElement documentation>+newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal }++instance PToJSVal SVGFEColorMatrixElement where+  pToJSVal = unSVGFEColorMatrixElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEColorMatrixElement where+  pFromJSVal = SVGFEColorMatrixElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEColorMatrixElement where+  toJSVal = return . unSVGFEColorMatrixElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEColorMatrixElement where+  fromJSVal v = fmap SVGFEColorMatrixElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEColorMatrixElement where+  makeObject = makeObject . unSVGFEColorMatrixElement++instance IsSVGElement SVGFEColorMatrixElement+instance IsElement SVGFEColorMatrixElement+instance IsNode SVGFEColorMatrixElement+instance IsEventTarget SVGFEColorMatrixElement+instance IsGObject SVGFEColorMatrixElement where+  toGObject = GObject . unSVGFEColorMatrixElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEColorMatrixElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEColorMatrixElement :: IsGObject obj => obj -> JSM SVGFEColorMatrixElement+castToSVGFEColorMatrixElement = castTo gTypeSVGFEColorMatrixElement "SVGFEColorMatrixElement"++gTypeSVGFEColorMatrixElement :: JSM GType+gTypeSVGFEColorMatrixElement = GType . Object <$> jsg "SVGFEColorMatrixElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEComponentTransferElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement Mozilla SVGFEComponentTransferElement documentation>+newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal }++instance PToJSVal SVGFEComponentTransferElement where+  pToJSVal = unSVGFEComponentTransferElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEComponentTransferElement where+  pFromJSVal = SVGFEComponentTransferElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEComponentTransferElement where+  toJSVal = return . unSVGFEComponentTransferElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEComponentTransferElement where+  fromJSVal v = fmap SVGFEComponentTransferElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEComponentTransferElement where+  makeObject = makeObject . unSVGFEComponentTransferElement++instance IsSVGElement SVGFEComponentTransferElement+instance IsElement SVGFEComponentTransferElement+instance IsNode SVGFEComponentTransferElement+instance IsEventTarget SVGFEComponentTransferElement+instance IsGObject SVGFEComponentTransferElement where+  toGObject = GObject . unSVGFEComponentTransferElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEComponentTransferElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEComponentTransferElement :: IsGObject obj => obj -> JSM SVGFEComponentTransferElement+castToSVGFEComponentTransferElement = castTo gTypeSVGFEComponentTransferElement "SVGFEComponentTransferElement"++gTypeSVGFEComponentTransferElement :: JSM GType+gTypeSVGFEComponentTransferElement = GType . Object <$> jsg "SVGFEComponentTransferElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFECompositeElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement Mozilla SVGFECompositeElement documentation>+newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal }++instance PToJSVal SVGFECompositeElement where+  pToJSVal = unSVGFECompositeElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFECompositeElement where+  pFromJSVal = SVGFECompositeElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFECompositeElement where+  toJSVal = return . unSVGFECompositeElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFECompositeElement where+  fromJSVal v = fmap SVGFECompositeElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFECompositeElement where+  makeObject = makeObject . unSVGFECompositeElement++instance IsSVGElement SVGFECompositeElement+instance IsElement SVGFECompositeElement+instance IsNode SVGFECompositeElement+instance IsEventTarget SVGFECompositeElement+instance IsGObject SVGFECompositeElement where+  toGObject = GObject . unSVGFECompositeElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFECompositeElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFECompositeElement :: IsGObject obj => obj -> JSM SVGFECompositeElement+castToSVGFECompositeElement = castTo gTypeSVGFECompositeElement "SVGFECompositeElement"++gTypeSVGFECompositeElement :: JSM GType+gTypeSVGFECompositeElement = GType . Object <$> jsg "SVGFECompositeElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEConvolveMatrixElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement Mozilla SVGFEConvolveMatrixElement documentation>+newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal }++instance PToJSVal SVGFEConvolveMatrixElement where+  pToJSVal = unSVGFEConvolveMatrixElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEConvolveMatrixElement where+  pFromJSVal = SVGFEConvolveMatrixElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEConvolveMatrixElement where+  toJSVal = return . unSVGFEConvolveMatrixElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEConvolveMatrixElement where+  fromJSVal v = fmap SVGFEConvolveMatrixElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEConvolveMatrixElement where+  makeObject = makeObject . unSVGFEConvolveMatrixElement++instance IsSVGElement SVGFEConvolveMatrixElement+instance IsElement SVGFEConvolveMatrixElement+instance IsNode SVGFEConvolveMatrixElement+instance IsEventTarget SVGFEConvolveMatrixElement+instance IsGObject SVGFEConvolveMatrixElement where+  toGObject = GObject . unSVGFEConvolveMatrixElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEConvolveMatrixElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEConvolveMatrixElement :: IsGObject obj => obj -> JSM SVGFEConvolveMatrixElement+castToSVGFEConvolveMatrixElement = castTo gTypeSVGFEConvolveMatrixElement "SVGFEConvolveMatrixElement"++gTypeSVGFEConvolveMatrixElement :: JSM GType+gTypeSVGFEConvolveMatrixElement = GType . Object <$> jsg "SVGFEConvolveMatrixElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEDiffuseLightingElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement Mozilla SVGFEDiffuseLightingElement documentation>+newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal }++instance PToJSVal SVGFEDiffuseLightingElement where+  pToJSVal = unSVGFEDiffuseLightingElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEDiffuseLightingElement where+  pFromJSVal = SVGFEDiffuseLightingElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEDiffuseLightingElement where+  toJSVal = return . unSVGFEDiffuseLightingElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEDiffuseLightingElement where+  fromJSVal v = fmap SVGFEDiffuseLightingElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEDiffuseLightingElement where+  makeObject = makeObject . unSVGFEDiffuseLightingElement++instance IsSVGElement SVGFEDiffuseLightingElement+instance IsElement SVGFEDiffuseLightingElement+instance IsNode SVGFEDiffuseLightingElement+instance IsEventTarget SVGFEDiffuseLightingElement+instance IsGObject SVGFEDiffuseLightingElement where+  toGObject = GObject . unSVGFEDiffuseLightingElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEDiffuseLightingElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEDiffuseLightingElement :: IsGObject obj => obj -> JSM SVGFEDiffuseLightingElement+castToSVGFEDiffuseLightingElement = castTo gTypeSVGFEDiffuseLightingElement "SVGFEDiffuseLightingElement"++gTypeSVGFEDiffuseLightingElement :: JSM GType+gTypeSVGFEDiffuseLightingElement = GType . Object <$> jsg "SVGFEDiffuseLightingElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEDisplacementMapElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement Mozilla SVGFEDisplacementMapElement documentation>+newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal }++instance PToJSVal SVGFEDisplacementMapElement where+  pToJSVal = unSVGFEDisplacementMapElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEDisplacementMapElement where+  pFromJSVal = SVGFEDisplacementMapElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEDisplacementMapElement where+  toJSVal = return . unSVGFEDisplacementMapElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEDisplacementMapElement where+  fromJSVal v = fmap SVGFEDisplacementMapElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEDisplacementMapElement where+  makeObject = makeObject . unSVGFEDisplacementMapElement++instance IsSVGElement SVGFEDisplacementMapElement+instance IsElement SVGFEDisplacementMapElement+instance IsNode SVGFEDisplacementMapElement+instance IsEventTarget SVGFEDisplacementMapElement+instance IsGObject SVGFEDisplacementMapElement where+  toGObject = GObject . unSVGFEDisplacementMapElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEDisplacementMapElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEDisplacementMapElement :: IsGObject obj => obj -> JSM SVGFEDisplacementMapElement+castToSVGFEDisplacementMapElement = castTo gTypeSVGFEDisplacementMapElement "SVGFEDisplacementMapElement"++gTypeSVGFEDisplacementMapElement :: JSM GType+gTypeSVGFEDisplacementMapElement = GType . Object <$> jsg "SVGFEDisplacementMapElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEDistantLightElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement Mozilla SVGFEDistantLightElement documentation>+newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal }++instance PToJSVal SVGFEDistantLightElement where+  pToJSVal = unSVGFEDistantLightElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEDistantLightElement where+  pFromJSVal = SVGFEDistantLightElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEDistantLightElement where+  toJSVal = return . unSVGFEDistantLightElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEDistantLightElement where+  fromJSVal v = fmap SVGFEDistantLightElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEDistantLightElement where+  makeObject = makeObject . unSVGFEDistantLightElement++instance IsSVGElement SVGFEDistantLightElement+instance IsElement SVGFEDistantLightElement+instance IsNode SVGFEDistantLightElement+instance IsEventTarget SVGFEDistantLightElement+instance IsGObject SVGFEDistantLightElement where+  toGObject = GObject . unSVGFEDistantLightElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEDistantLightElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEDistantLightElement :: IsGObject obj => obj -> JSM SVGFEDistantLightElement+castToSVGFEDistantLightElement = castTo gTypeSVGFEDistantLightElement "SVGFEDistantLightElement"++gTypeSVGFEDistantLightElement :: JSM GType+gTypeSVGFEDistantLightElement = GType . Object <$> jsg "SVGFEDistantLightElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEDropShadowElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement Mozilla SVGFEDropShadowElement documentation>+newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal }++instance PToJSVal SVGFEDropShadowElement where+  pToJSVal = unSVGFEDropShadowElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEDropShadowElement where+  pFromJSVal = SVGFEDropShadowElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEDropShadowElement where+  toJSVal = return . unSVGFEDropShadowElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEDropShadowElement where+  fromJSVal v = fmap SVGFEDropShadowElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEDropShadowElement where+  makeObject = makeObject . unSVGFEDropShadowElement++instance IsSVGElement SVGFEDropShadowElement+instance IsElement SVGFEDropShadowElement+instance IsNode SVGFEDropShadowElement+instance IsEventTarget SVGFEDropShadowElement+instance IsGObject SVGFEDropShadowElement where+  toGObject = GObject . unSVGFEDropShadowElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEDropShadowElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEDropShadowElement :: IsGObject obj => obj -> JSM SVGFEDropShadowElement+castToSVGFEDropShadowElement = castTo gTypeSVGFEDropShadowElement "SVGFEDropShadowElement"++gTypeSVGFEDropShadowElement :: JSM GType+gTypeSVGFEDropShadowElement = GType . Object <$> jsg "SVGFEDropShadowElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEFloodElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFloodElement Mozilla SVGFEFloodElement documentation>+newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal }++instance PToJSVal SVGFEFloodElement where+  pToJSVal = unSVGFEFloodElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEFloodElement where+  pFromJSVal = SVGFEFloodElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEFloodElement where+  toJSVal = return . unSVGFEFloodElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEFloodElement where+  fromJSVal v = fmap SVGFEFloodElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEFloodElement where+  makeObject = makeObject . unSVGFEFloodElement++instance IsSVGElement SVGFEFloodElement+instance IsElement SVGFEFloodElement+instance IsNode SVGFEFloodElement+instance IsEventTarget SVGFEFloodElement+instance IsGObject SVGFEFloodElement where+  toGObject = GObject . unSVGFEFloodElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEFloodElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEFloodElement :: IsGObject obj => obj -> JSM SVGFEFloodElement+castToSVGFEFloodElement = castTo gTypeSVGFEFloodElement "SVGFEFloodElement"++gTypeSVGFEFloodElement :: JSM GType+gTypeSVGFEFloodElement = GType . Object <$> jsg "SVGFEFloodElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEFuncAElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGComponentTransferFunctionElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncAElement Mozilla SVGFEFuncAElement documentation>+newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal }++instance PToJSVal SVGFEFuncAElement where+  pToJSVal = unSVGFEFuncAElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEFuncAElement where+  pFromJSVal = SVGFEFuncAElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEFuncAElement where+  toJSVal = return . unSVGFEFuncAElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEFuncAElement where+  fromJSVal v = fmap SVGFEFuncAElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEFuncAElement where+  makeObject = makeObject . unSVGFEFuncAElement++instance IsSVGComponentTransferFunctionElement SVGFEFuncAElement+instance IsSVGElement SVGFEFuncAElement+instance IsElement SVGFEFuncAElement+instance IsNode SVGFEFuncAElement+instance IsEventTarget SVGFEFuncAElement+instance IsGObject SVGFEFuncAElement where+  toGObject = GObject . unSVGFEFuncAElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEFuncAElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEFuncAElement :: IsGObject obj => obj -> JSM SVGFEFuncAElement+castToSVGFEFuncAElement = castTo gTypeSVGFEFuncAElement "SVGFEFuncAElement"++gTypeSVGFEFuncAElement :: JSM GType+gTypeSVGFEFuncAElement = GType . Object <$> jsg "SVGFEFuncAElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEFuncBElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGComponentTransferFunctionElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncBElement Mozilla SVGFEFuncBElement documentation>+newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal }++instance PToJSVal SVGFEFuncBElement where+  pToJSVal = unSVGFEFuncBElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEFuncBElement where+  pFromJSVal = SVGFEFuncBElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEFuncBElement where+  toJSVal = return . unSVGFEFuncBElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEFuncBElement where+  fromJSVal v = fmap SVGFEFuncBElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEFuncBElement where+  makeObject = makeObject . unSVGFEFuncBElement++instance IsSVGComponentTransferFunctionElement SVGFEFuncBElement+instance IsSVGElement SVGFEFuncBElement+instance IsElement SVGFEFuncBElement+instance IsNode SVGFEFuncBElement+instance IsEventTarget SVGFEFuncBElement+instance IsGObject SVGFEFuncBElement where+  toGObject = GObject . unSVGFEFuncBElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEFuncBElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEFuncBElement :: IsGObject obj => obj -> JSM SVGFEFuncBElement+castToSVGFEFuncBElement = castTo gTypeSVGFEFuncBElement "SVGFEFuncBElement"++gTypeSVGFEFuncBElement :: JSM GType+gTypeSVGFEFuncBElement = GType . Object <$> jsg "SVGFEFuncBElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEFuncGElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGComponentTransferFunctionElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncGElement Mozilla SVGFEFuncGElement documentation>+newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal }++instance PToJSVal SVGFEFuncGElement where+  pToJSVal = unSVGFEFuncGElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEFuncGElement where+  pFromJSVal = SVGFEFuncGElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEFuncGElement where+  toJSVal = return . unSVGFEFuncGElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEFuncGElement where+  fromJSVal v = fmap SVGFEFuncGElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEFuncGElement where+  makeObject = makeObject . unSVGFEFuncGElement++instance IsSVGComponentTransferFunctionElement SVGFEFuncGElement+instance IsSVGElement SVGFEFuncGElement+instance IsElement SVGFEFuncGElement+instance IsNode SVGFEFuncGElement+instance IsEventTarget SVGFEFuncGElement+instance IsGObject SVGFEFuncGElement where+  toGObject = GObject . unSVGFEFuncGElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEFuncGElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEFuncGElement :: IsGObject obj => obj -> JSM SVGFEFuncGElement+castToSVGFEFuncGElement = castTo gTypeSVGFEFuncGElement "SVGFEFuncGElement"++gTypeSVGFEFuncGElement :: JSM GType+gTypeSVGFEFuncGElement = GType . Object <$> jsg "SVGFEFuncGElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEFuncRElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGComponentTransferFunctionElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncRElement Mozilla SVGFEFuncRElement documentation>+newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal }++instance PToJSVal SVGFEFuncRElement where+  pToJSVal = unSVGFEFuncRElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEFuncRElement where+  pFromJSVal = SVGFEFuncRElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEFuncRElement where+  toJSVal = return . unSVGFEFuncRElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEFuncRElement where+  fromJSVal v = fmap SVGFEFuncRElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEFuncRElement where+  makeObject = makeObject . unSVGFEFuncRElement++instance IsSVGComponentTransferFunctionElement SVGFEFuncRElement+instance IsSVGElement SVGFEFuncRElement+instance IsElement SVGFEFuncRElement+instance IsNode SVGFEFuncRElement+instance IsEventTarget SVGFEFuncRElement+instance IsGObject SVGFEFuncRElement where+  toGObject = GObject . unSVGFEFuncRElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEFuncRElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEFuncRElement :: IsGObject obj => obj -> JSM SVGFEFuncRElement+castToSVGFEFuncRElement = castTo gTypeSVGFEFuncRElement "SVGFEFuncRElement"++gTypeSVGFEFuncRElement :: JSM GType+gTypeSVGFEFuncRElement = GType . Object <$> jsg "SVGFEFuncRElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEGaussianBlurElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement Mozilla SVGFEGaussianBlurElement documentation>+newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal }++instance PToJSVal SVGFEGaussianBlurElement where+  pToJSVal = unSVGFEGaussianBlurElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEGaussianBlurElement where+  pFromJSVal = SVGFEGaussianBlurElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEGaussianBlurElement where+  toJSVal = return . unSVGFEGaussianBlurElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEGaussianBlurElement where+  fromJSVal v = fmap SVGFEGaussianBlurElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEGaussianBlurElement where+  makeObject = makeObject . unSVGFEGaussianBlurElement++instance IsSVGElement SVGFEGaussianBlurElement+instance IsElement SVGFEGaussianBlurElement+instance IsNode SVGFEGaussianBlurElement+instance IsEventTarget SVGFEGaussianBlurElement+instance IsGObject SVGFEGaussianBlurElement where+  toGObject = GObject . unSVGFEGaussianBlurElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEGaussianBlurElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEGaussianBlurElement :: IsGObject obj => obj -> JSM SVGFEGaussianBlurElement+castToSVGFEGaussianBlurElement = castTo gTypeSVGFEGaussianBlurElement "SVGFEGaussianBlurElement"++gTypeSVGFEGaussianBlurElement :: JSM GType+gTypeSVGFEGaussianBlurElement = GType . Object <$> jsg "SVGFEGaussianBlurElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEImageElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement Mozilla SVGFEImageElement documentation>+newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal }++instance PToJSVal SVGFEImageElement where+  pToJSVal = unSVGFEImageElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEImageElement where+  pFromJSVal = SVGFEImageElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEImageElement where+  toJSVal = return . unSVGFEImageElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEImageElement where+  fromJSVal v = fmap SVGFEImageElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEImageElement where+  makeObject = makeObject . unSVGFEImageElement++instance IsSVGElement SVGFEImageElement+instance IsElement SVGFEImageElement+instance IsNode SVGFEImageElement+instance IsEventTarget SVGFEImageElement+instance IsGObject SVGFEImageElement where+  toGObject = GObject . unSVGFEImageElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEImageElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEImageElement :: IsGObject obj => obj -> JSM SVGFEImageElement+castToSVGFEImageElement = castTo gTypeSVGFEImageElement "SVGFEImageElement"++gTypeSVGFEImageElement :: JSM GType+gTypeSVGFEImageElement = GType . Object <$> jsg "SVGFEImageElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEMergeElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeElement Mozilla SVGFEMergeElement documentation>+newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal }++instance PToJSVal SVGFEMergeElement where+  pToJSVal = unSVGFEMergeElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEMergeElement where+  pFromJSVal = SVGFEMergeElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEMergeElement where+  toJSVal = return . unSVGFEMergeElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEMergeElement where+  fromJSVal v = fmap SVGFEMergeElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEMergeElement where+  makeObject = makeObject . unSVGFEMergeElement++instance IsSVGElement SVGFEMergeElement+instance IsElement SVGFEMergeElement+instance IsNode SVGFEMergeElement+instance IsEventTarget SVGFEMergeElement+instance IsGObject SVGFEMergeElement where+  toGObject = GObject . unSVGFEMergeElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEMergeElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEMergeElement :: IsGObject obj => obj -> JSM SVGFEMergeElement+castToSVGFEMergeElement = castTo gTypeSVGFEMergeElement "SVGFEMergeElement"++gTypeSVGFEMergeElement :: JSM GType+gTypeSVGFEMergeElement = GType . Object <$> jsg "SVGFEMergeElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEMergeNodeElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement Mozilla SVGFEMergeNodeElement documentation>+newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal }++instance PToJSVal SVGFEMergeNodeElement where+  pToJSVal = unSVGFEMergeNodeElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEMergeNodeElement where+  pFromJSVal = SVGFEMergeNodeElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEMergeNodeElement where+  toJSVal = return . unSVGFEMergeNodeElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEMergeNodeElement where+  fromJSVal v = fmap SVGFEMergeNodeElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEMergeNodeElement where+  makeObject = makeObject . unSVGFEMergeNodeElement++instance IsSVGElement SVGFEMergeNodeElement+instance IsElement SVGFEMergeNodeElement+instance IsNode SVGFEMergeNodeElement+instance IsEventTarget SVGFEMergeNodeElement+instance IsGObject SVGFEMergeNodeElement where+  toGObject = GObject . unSVGFEMergeNodeElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEMergeNodeElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEMergeNodeElement :: IsGObject obj => obj -> JSM SVGFEMergeNodeElement+castToSVGFEMergeNodeElement = castTo gTypeSVGFEMergeNodeElement "SVGFEMergeNodeElement"++gTypeSVGFEMergeNodeElement :: JSM GType+gTypeSVGFEMergeNodeElement = GType . Object <$> jsg "SVGFEMergeNodeElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEMorphologyElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement Mozilla SVGFEMorphologyElement documentation>+newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal }++instance PToJSVal SVGFEMorphologyElement where+  pToJSVal = unSVGFEMorphologyElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEMorphologyElement where+  pFromJSVal = SVGFEMorphologyElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEMorphologyElement where+  toJSVal = return . unSVGFEMorphologyElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEMorphologyElement where+  fromJSVal v = fmap SVGFEMorphologyElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEMorphologyElement where+  makeObject = makeObject . unSVGFEMorphologyElement++instance IsSVGElement SVGFEMorphologyElement+instance IsElement SVGFEMorphologyElement+instance IsNode SVGFEMorphologyElement+instance IsEventTarget SVGFEMorphologyElement+instance IsGObject SVGFEMorphologyElement where+  toGObject = GObject . unSVGFEMorphologyElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEMorphologyElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEMorphologyElement :: IsGObject obj => obj -> JSM SVGFEMorphologyElement+castToSVGFEMorphologyElement = castTo gTypeSVGFEMorphologyElement "SVGFEMorphologyElement"++gTypeSVGFEMorphologyElement :: JSM GType+gTypeSVGFEMorphologyElement = GType . Object <$> jsg "SVGFEMorphologyElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEOffsetElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement Mozilla SVGFEOffsetElement documentation>+newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal }++instance PToJSVal SVGFEOffsetElement where+  pToJSVal = unSVGFEOffsetElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEOffsetElement where+  pFromJSVal = SVGFEOffsetElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEOffsetElement where+  toJSVal = return . unSVGFEOffsetElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEOffsetElement where+  fromJSVal v = fmap SVGFEOffsetElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEOffsetElement where+  makeObject = makeObject . unSVGFEOffsetElement++instance IsSVGElement SVGFEOffsetElement+instance IsElement SVGFEOffsetElement+instance IsNode SVGFEOffsetElement+instance IsEventTarget SVGFEOffsetElement+instance IsGObject SVGFEOffsetElement where+  toGObject = GObject . unSVGFEOffsetElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEOffsetElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEOffsetElement :: IsGObject obj => obj -> JSM SVGFEOffsetElement+castToSVGFEOffsetElement = castTo gTypeSVGFEOffsetElement "SVGFEOffsetElement"++gTypeSVGFEOffsetElement :: JSM GType+gTypeSVGFEOffsetElement = GType . Object <$> jsg "SVGFEOffsetElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFEPointLightElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement Mozilla SVGFEPointLightElement documentation>+newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal }++instance PToJSVal SVGFEPointLightElement where+  pToJSVal = unSVGFEPointLightElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFEPointLightElement where+  pFromJSVal = SVGFEPointLightElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFEPointLightElement where+  toJSVal = return . unSVGFEPointLightElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFEPointLightElement where+  fromJSVal v = fmap SVGFEPointLightElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFEPointLightElement where+  makeObject = makeObject . unSVGFEPointLightElement++instance IsSVGElement SVGFEPointLightElement+instance IsElement SVGFEPointLightElement+instance IsNode SVGFEPointLightElement+instance IsEventTarget SVGFEPointLightElement+instance IsGObject SVGFEPointLightElement where+  toGObject = GObject . unSVGFEPointLightElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFEPointLightElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFEPointLightElement :: IsGObject obj => obj -> JSM SVGFEPointLightElement+castToSVGFEPointLightElement = castTo gTypeSVGFEPointLightElement "SVGFEPointLightElement"++gTypeSVGFEPointLightElement :: JSM GType+gTypeSVGFEPointLightElement = GType . Object <$> jsg "SVGFEPointLightElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFESpecularLightingElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement Mozilla SVGFESpecularLightingElement documentation>+newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal }++instance PToJSVal SVGFESpecularLightingElement where+  pToJSVal = unSVGFESpecularLightingElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFESpecularLightingElement where+  pFromJSVal = SVGFESpecularLightingElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFESpecularLightingElement where+  toJSVal = return . unSVGFESpecularLightingElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFESpecularLightingElement where+  fromJSVal v = fmap SVGFESpecularLightingElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFESpecularLightingElement where+  makeObject = makeObject . unSVGFESpecularLightingElement++instance IsSVGElement SVGFESpecularLightingElement+instance IsElement SVGFESpecularLightingElement+instance IsNode SVGFESpecularLightingElement+instance IsEventTarget SVGFESpecularLightingElement+instance IsGObject SVGFESpecularLightingElement where+  toGObject = GObject . unSVGFESpecularLightingElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFESpecularLightingElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFESpecularLightingElement :: IsGObject obj => obj -> JSM SVGFESpecularLightingElement+castToSVGFESpecularLightingElement = castTo gTypeSVGFESpecularLightingElement "SVGFESpecularLightingElement"++gTypeSVGFESpecularLightingElement :: JSM GType+gTypeSVGFESpecularLightingElement = GType . Object <$> jsg "SVGFESpecularLightingElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFESpotLightElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement Mozilla SVGFESpotLightElement documentation>+newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal }++instance PToJSVal SVGFESpotLightElement where+  pToJSVal = unSVGFESpotLightElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFESpotLightElement where+  pFromJSVal = SVGFESpotLightElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFESpotLightElement where+  toJSVal = return . unSVGFESpotLightElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFESpotLightElement where+  fromJSVal v = fmap SVGFESpotLightElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFESpotLightElement where+  makeObject = makeObject . unSVGFESpotLightElement++instance IsSVGElement SVGFESpotLightElement+instance IsElement SVGFESpotLightElement+instance IsNode SVGFESpotLightElement+instance IsEventTarget SVGFESpotLightElement+instance IsGObject SVGFESpotLightElement where+  toGObject = GObject . unSVGFESpotLightElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFESpotLightElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFESpotLightElement :: IsGObject obj => obj -> JSM SVGFESpotLightElement+castToSVGFESpotLightElement = castTo gTypeSVGFESpotLightElement "SVGFESpotLightElement"++gTypeSVGFESpotLightElement :: JSM GType+gTypeSVGFESpotLightElement = GType . Object <$> jsg "SVGFESpotLightElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFETileElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement Mozilla SVGFETileElement documentation>+newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal }++instance PToJSVal SVGFETileElement where+  pToJSVal = unSVGFETileElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFETileElement where+  pFromJSVal = SVGFETileElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFETileElement where+  toJSVal = return . unSVGFETileElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFETileElement where+  fromJSVal v = fmap SVGFETileElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFETileElement where+  makeObject = makeObject . unSVGFETileElement++instance IsSVGElement SVGFETileElement+instance IsElement SVGFETileElement+instance IsNode SVGFETileElement+instance IsEventTarget SVGFETileElement+instance IsGObject SVGFETileElement where+  toGObject = GObject . unSVGFETileElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFETileElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFETileElement :: IsGObject obj => obj -> JSM SVGFETileElement+castToSVGFETileElement = castTo gTypeSVGFETileElement "SVGFETileElement"++gTypeSVGFETileElement :: JSM GType+gTypeSVGFETileElement = GType . Object <$> jsg "SVGFETileElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFETurbulenceElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement Mozilla SVGFETurbulenceElement documentation>+newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal }++instance PToJSVal SVGFETurbulenceElement where+  pToJSVal = unSVGFETurbulenceElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFETurbulenceElement where+  pFromJSVal = SVGFETurbulenceElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFETurbulenceElement where+  toJSVal = return . unSVGFETurbulenceElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFETurbulenceElement where+  fromJSVal v = fmap SVGFETurbulenceElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFETurbulenceElement where+  makeObject = makeObject . unSVGFETurbulenceElement++instance IsSVGElement SVGFETurbulenceElement+instance IsElement SVGFETurbulenceElement+instance IsNode SVGFETurbulenceElement+instance IsEventTarget SVGFETurbulenceElement+instance IsGObject SVGFETurbulenceElement where+  toGObject = GObject . unSVGFETurbulenceElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFETurbulenceElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFETurbulenceElement :: IsGObject obj => obj -> JSM SVGFETurbulenceElement+castToSVGFETurbulenceElement = castTo gTypeSVGFETurbulenceElement "SVGFETurbulenceElement"++gTypeSVGFETurbulenceElement :: JSM GType+gTypeSVGFETurbulenceElement = GType . Object <$> jsg "SVGFETurbulenceElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFilterElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement Mozilla SVGFilterElement documentation>+newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal }++instance PToJSVal SVGFilterElement where+  pToJSVal = unSVGFilterElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFilterElement where+  pFromJSVal = SVGFilterElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFilterElement where+  toJSVal = return . unSVGFilterElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFilterElement where+  fromJSVal v = fmap SVGFilterElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFilterElement where+  makeObject = makeObject . unSVGFilterElement++instance IsSVGElement SVGFilterElement+instance IsElement SVGFilterElement+instance IsNode SVGFilterElement+instance IsEventTarget SVGFilterElement+instance IsGObject SVGFilterElement where+  toGObject = GObject . unSVGFilterElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFilterElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFilterElement :: IsGObject obj => obj -> JSM SVGFilterElement+castToSVGFilterElement = castTo gTypeSVGFilterElement "SVGFilterElement"++gTypeSVGFilterElement :: JSM GType+gTypeSVGFilterElement = GType . Object <$> jsg "SVGFilterElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFilterPrimitiveStandardAttributes".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes Mozilla SVGFilterPrimitiveStandardAttributes documentation>+newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal }++instance PToJSVal SVGFilterPrimitiveStandardAttributes where+  pToJSVal = unSVGFilterPrimitiveStandardAttributes+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFilterPrimitiveStandardAttributes where+  pFromJSVal = SVGFilterPrimitiveStandardAttributes+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFilterPrimitiveStandardAttributes where+  toJSVal = return . unSVGFilterPrimitiveStandardAttributes+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFilterPrimitiveStandardAttributes where+  fromJSVal v = fmap SVGFilterPrimitiveStandardAttributes <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFilterPrimitiveStandardAttributes where+  makeObject = makeObject . unSVGFilterPrimitiveStandardAttributes++instance IsGObject SVGFilterPrimitiveStandardAttributes where+  toGObject = GObject . unSVGFilterPrimitiveStandardAttributes+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFilterPrimitiveStandardAttributes . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFilterPrimitiveStandardAttributes :: IsGObject obj => obj -> JSM SVGFilterPrimitiveStandardAttributes+castToSVGFilterPrimitiveStandardAttributes = castTo gTypeSVGFilterPrimitiveStandardAttributes "SVGFilterPrimitiveStandardAttributes"++gTypeSVGFilterPrimitiveStandardAttributes :: JSM GType+gTypeSVGFilterPrimitiveStandardAttributes = GType . Object <$> jsg "SVGFilterPrimitiveStandardAttributes"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFitToViewBox".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox Mozilla SVGFitToViewBox documentation>+newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal }++instance PToJSVal SVGFitToViewBox where+  pToJSVal = unSVGFitToViewBox+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFitToViewBox where+  pFromJSVal = SVGFitToViewBox+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFitToViewBox where+  toJSVal = return . unSVGFitToViewBox+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFitToViewBox where+  fromJSVal v = fmap SVGFitToViewBox <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFitToViewBox where+  makeObject = makeObject . unSVGFitToViewBox++instance IsGObject SVGFitToViewBox where+  toGObject = GObject . unSVGFitToViewBox+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFitToViewBox . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFitToViewBox :: IsGObject obj => obj -> JSM SVGFitToViewBox+castToSVGFitToViewBox = castTo gTypeSVGFitToViewBox "SVGFitToViewBox"++gTypeSVGFitToViewBox :: JSM GType+gTypeSVGFitToViewBox = GType . Object <$> jsg "SVGFitToViewBox"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFontElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontElement Mozilla SVGFontElement documentation>+newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal }++instance PToJSVal SVGFontElement where+  pToJSVal = unSVGFontElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFontElement where+  pFromJSVal = SVGFontElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFontElement where+  toJSVal = return . unSVGFontElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFontElement where+  fromJSVal v = fmap SVGFontElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFontElement where+  makeObject = makeObject . unSVGFontElement++instance IsSVGElement SVGFontElement+instance IsElement SVGFontElement+instance IsNode SVGFontElement+instance IsEventTarget SVGFontElement+instance IsGObject SVGFontElement where+  toGObject = GObject . unSVGFontElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFontElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFontElement :: IsGObject obj => obj -> JSM SVGFontElement+castToSVGFontElement = castTo gTypeSVGFontElement "SVGFontElement"++gTypeSVGFontElement :: JSM GType+gTypeSVGFontElement = GType . Object <$> jsg "SVGFontElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFontFaceElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceElement Mozilla SVGFontFaceElement documentation>+newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal }++instance PToJSVal SVGFontFaceElement where+  pToJSVal = unSVGFontFaceElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFontFaceElement where+  pFromJSVal = SVGFontFaceElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFontFaceElement where+  toJSVal = return . unSVGFontFaceElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFontFaceElement where+  fromJSVal v = fmap SVGFontFaceElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFontFaceElement where+  makeObject = makeObject . unSVGFontFaceElement++instance IsSVGElement SVGFontFaceElement+instance IsElement SVGFontFaceElement+instance IsNode SVGFontFaceElement+instance IsEventTarget SVGFontFaceElement+instance IsGObject SVGFontFaceElement where+  toGObject = GObject . unSVGFontFaceElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFontFaceElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFontFaceElement :: IsGObject obj => obj -> JSM SVGFontFaceElement+castToSVGFontFaceElement = castTo gTypeSVGFontFaceElement "SVGFontFaceElement"++gTypeSVGFontFaceElement :: JSM GType+gTypeSVGFontFaceElement = GType . Object <$> jsg "SVGFontFaceElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFontFaceFormatElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceFormatElement Mozilla SVGFontFaceFormatElement documentation>+newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal }++instance PToJSVal SVGFontFaceFormatElement where+  pToJSVal = unSVGFontFaceFormatElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFontFaceFormatElement where+  pFromJSVal = SVGFontFaceFormatElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFontFaceFormatElement where+  toJSVal = return . unSVGFontFaceFormatElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFontFaceFormatElement where+  fromJSVal v = fmap SVGFontFaceFormatElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFontFaceFormatElement where+  makeObject = makeObject . unSVGFontFaceFormatElement++instance IsSVGElement SVGFontFaceFormatElement+instance IsElement SVGFontFaceFormatElement+instance IsNode SVGFontFaceFormatElement+instance IsEventTarget SVGFontFaceFormatElement+instance IsGObject SVGFontFaceFormatElement where+  toGObject = GObject . unSVGFontFaceFormatElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFontFaceFormatElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFontFaceFormatElement :: IsGObject obj => obj -> JSM SVGFontFaceFormatElement+castToSVGFontFaceFormatElement = castTo gTypeSVGFontFaceFormatElement "SVGFontFaceFormatElement"++gTypeSVGFontFaceFormatElement :: JSM GType+gTypeSVGFontFaceFormatElement = GType . Object <$> jsg "SVGFontFaceFormatElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFontFaceNameElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceNameElement Mozilla SVGFontFaceNameElement documentation>+newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal }++instance PToJSVal SVGFontFaceNameElement where+  pToJSVal = unSVGFontFaceNameElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFontFaceNameElement where+  pFromJSVal = SVGFontFaceNameElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFontFaceNameElement where+  toJSVal = return . unSVGFontFaceNameElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFontFaceNameElement where+  fromJSVal v = fmap SVGFontFaceNameElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFontFaceNameElement where+  makeObject = makeObject . unSVGFontFaceNameElement++instance IsSVGElement SVGFontFaceNameElement+instance IsElement SVGFontFaceNameElement+instance IsNode SVGFontFaceNameElement+instance IsEventTarget SVGFontFaceNameElement+instance IsGObject SVGFontFaceNameElement where+  toGObject = GObject . unSVGFontFaceNameElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFontFaceNameElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFontFaceNameElement :: IsGObject obj => obj -> JSM SVGFontFaceNameElement+castToSVGFontFaceNameElement = castTo gTypeSVGFontFaceNameElement "SVGFontFaceNameElement"++gTypeSVGFontFaceNameElement :: JSM GType+gTypeSVGFontFaceNameElement = GType . Object <$> jsg "SVGFontFaceNameElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFontFaceSrcElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceSrcElement Mozilla SVGFontFaceSrcElement documentation>+newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal }++instance PToJSVal SVGFontFaceSrcElement where+  pToJSVal = unSVGFontFaceSrcElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFontFaceSrcElement where+  pFromJSVal = SVGFontFaceSrcElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFontFaceSrcElement where+  toJSVal = return . unSVGFontFaceSrcElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFontFaceSrcElement where+  fromJSVal v = fmap SVGFontFaceSrcElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFontFaceSrcElement where+  makeObject = makeObject . unSVGFontFaceSrcElement++instance IsSVGElement SVGFontFaceSrcElement+instance IsElement SVGFontFaceSrcElement+instance IsNode SVGFontFaceSrcElement+instance IsEventTarget SVGFontFaceSrcElement+instance IsGObject SVGFontFaceSrcElement where+  toGObject = GObject . unSVGFontFaceSrcElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFontFaceSrcElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFontFaceSrcElement :: IsGObject obj => obj -> JSM SVGFontFaceSrcElement+castToSVGFontFaceSrcElement = castTo gTypeSVGFontFaceSrcElement "SVGFontFaceSrcElement"++gTypeSVGFontFaceSrcElement :: JSM GType+gTypeSVGFontFaceSrcElement = GType . Object <$> jsg "SVGFontFaceSrcElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGFontFaceUriElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceUriElement Mozilla SVGFontFaceUriElement documentation>+newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal }++instance PToJSVal SVGFontFaceUriElement where+  pToJSVal = unSVGFontFaceUriElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGFontFaceUriElement where+  pFromJSVal = SVGFontFaceUriElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGFontFaceUriElement where+  toJSVal = return . unSVGFontFaceUriElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGFontFaceUriElement where+  fromJSVal v = fmap SVGFontFaceUriElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGFontFaceUriElement where+  makeObject = makeObject . unSVGFontFaceUriElement++instance IsSVGElement SVGFontFaceUriElement+instance IsElement SVGFontFaceUriElement+instance IsNode SVGFontFaceUriElement+instance IsEventTarget SVGFontFaceUriElement+instance IsGObject SVGFontFaceUriElement where+  toGObject = GObject . unSVGFontFaceUriElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGFontFaceUriElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGFontFaceUriElement :: IsGObject obj => obj -> JSM SVGFontFaceUriElement+castToSVGFontFaceUriElement = castTo gTypeSVGFontFaceUriElement "SVGFontFaceUriElement"++gTypeSVGFontFaceUriElement :: JSM GType+gTypeSVGFontFaceUriElement = GType . Object <$> jsg "SVGFontFaceUriElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGForeignObjectElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement Mozilla SVGForeignObjectElement documentation>+newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal }++instance PToJSVal SVGForeignObjectElement where+  pToJSVal = unSVGForeignObjectElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGForeignObjectElement where+  pFromJSVal = SVGForeignObjectElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGForeignObjectElement where+  toJSVal = return . unSVGForeignObjectElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGForeignObjectElement where+  fromJSVal v = fmap SVGForeignObjectElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGForeignObjectElement where+  makeObject = makeObject . unSVGForeignObjectElement++instance IsSVGGraphicsElement SVGForeignObjectElement+instance IsSVGElement SVGForeignObjectElement+instance IsElement SVGForeignObjectElement+instance IsNode SVGForeignObjectElement+instance IsEventTarget SVGForeignObjectElement+instance IsGObject SVGForeignObjectElement where+  toGObject = GObject . unSVGForeignObjectElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGForeignObjectElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGForeignObjectElement :: IsGObject obj => obj -> JSM SVGForeignObjectElement+castToSVGForeignObjectElement = castTo gTypeSVGForeignObjectElement "SVGForeignObjectElement"++gTypeSVGForeignObjectElement :: JSM GType+gTypeSVGForeignObjectElement = GType . Object <$> jsg "SVGForeignObjectElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGGElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGGElement Mozilla SVGGElement documentation>+newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal }++instance PToJSVal SVGGElement where+  pToJSVal = unSVGGElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGGElement where+  pFromJSVal = SVGGElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGGElement where+  toJSVal = return . unSVGGElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGGElement where+  fromJSVal v = fmap SVGGElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGGElement where+  makeObject = makeObject . unSVGGElement++instance IsSVGGraphicsElement SVGGElement+instance IsSVGElement SVGGElement+instance IsElement SVGGElement+instance IsNode SVGGElement+instance IsEventTarget SVGGElement+instance IsGObject SVGGElement where+  toGObject = GObject . unSVGGElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGGElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGGElement :: IsGObject obj => obj -> JSM SVGGElement+castToSVGGElement = castTo gTypeSVGGElement "SVGGElement"++gTypeSVGGElement :: JSM GType+gTypeSVGGElement = GType . Object <$> jsg "SVGGElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGGlyphElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphElement Mozilla SVGGlyphElement documentation>+newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal }++instance PToJSVal SVGGlyphElement where+  pToJSVal = unSVGGlyphElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGGlyphElement where+  pFromJSVal = SVGGlyphElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGGlyphElement where+  toJSVal = return . unSVGGlyphElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGGlyphElement where+  fromJSVal v = fmap SVGGlyphElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGGlyphElement where+  makeObject = makeObject . unSVGGlyphElement++instance IsSVGElement SVGGlyphElement+instance IsElement SVGGlyphElement+instance IsNode SVGGlyphElement+instance IsEventTarget SVGGlyphElement+instance IsGObject SVGGlyphElement where+  toGObject = GObject . unSVGGlyphElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGGlyphElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGGlyphElement :: IsGObject obj => obj -> JSM SVGGlyphElement+castToSVGGlyphElement = castTo gTypeSVGGlyphElement "SVGGlyphElement"++gTypeSVGGlyphElement :: JSM GType+gTypeSVGGlyphElement = GType . Object <$> jsg "SVGGlyphElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGGlyphRefElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement Mozilla SVGGlyphRefElement documentation>+newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal }++instance PToJSVal SVGGlyphRefElement where+  pToJSVal = unSVGGlyphRefElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGGlyphRefElement where+  pFromJSVal = SVGGlyphRefElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGGlyphRefElement where+  toJSVal = return . unSVGGlyphRefElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGGlyphRefElement where+  fromJSVal v = fmap SVGGlyphRefElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGGlyphRefElement where+  makeObject = makeObject . unSVGGlyphRefElement++instance IsSVGElement SVGGlyphRefElement+instance IsElement SVGGlyphRefElement+instance IsNode SVGGlyphRefElement+instance IsEventTarget SVGGlyphRefElement+instance IsGObject SVGGlyphRefElement where+  toGObject = GObject . unSVGGlyphRefElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGGlyphRefElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGGlyphRefElement :: IsGObject obj => obj -> JSM SVGGlyphRefElement+castToSVGGlyphRefElement = castTo gTypeSVGGlyphRefElement "SVGGlyphRefElement"++gTypeSVGGlyphRefElement :: JSM GType+gTypeSVGGlyphRefElement = GType . Object <$> jsg "SVGGlyphRefElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGGradientElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement Mozilla SVGGradientElement documentation>+newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal }++instance PToJSVal SVGGradientElement where+  pToJSVal = unSVGGradientElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGGradientElement where+  pFromJSVal = SVGGradientElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGGradientElement where+  toJSVal = return . unSVGGradientElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGGradientElement where+  fromJSVal v = fmap SVGGradientElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGGradientElement where+  makeObject = makeObject . unSVGGradientElement++class IsSVGElement o => IsSVGGradientElement o+toSVGGradientElement :: IsSVGGradientElement o => o -> SVGGradientElement+toSVGGradientElement = unsafeCastGObject . toGObject++instance IsSVGGradientElement SVGGradientElement+instance IsSVGElement SVGGradientElement+instance IsElement SVGGradientElement+instance IsNode SVGGradientElement+instance IsEventTarget SVGGradientElement+instance IsGObject SVGGradientElement where+  toGObject = GObject . unSVGGradientElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGGradientElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGGradientElement :: IsGObject obj => obj -> JSM SVGGradientElement+castToSVGGradientElement = castTo gTypeSVGGradientElement "SVGGradientElement"++gTypeSVGGradientElement :: JSM GType+gTypeSVGGradientElement = GType . Object <$> jsg "SVGGradientElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGGraphicsElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement Mozilla SVGGraphicsElement documentation>+newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal }++instance PToJSVal SVGGraphicsElement where+  pToJSVal = unSVGGraphicsElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGGraphicsElement where+  pFromJSVal = SVGGraphicsElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGGraphicsElement where+  toJSVal = return . unSVGGraphicsElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGGraphicsElement where+  fromJSVal v = fmap SVGGraphicsElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGGraphicsElement where+  makeObject = makeObject . unSVGGraphicsElement++class IsSVGElement o => IsSVGGraphicsElement o+toSVGGraphicsElement :: IsSVGGraphicsElement o => o -> SVGGraphicsElement+toSVGGraphicsElement = unsafeCastGObject . toGObject++instance IsSVGGraphicsElement SVGGraphicsElement+instance IsSVGElement SVGGraphicsElement+instance IsElement SVGGraphicsElement+instance IsNode SVGGraphicsElement+instance IsEventTarget SVGGraphicsElement+instance IsGObject SVGGraphicsElement where+  toGObject = GObject . unSVGGraphicsElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGGraphicsElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGGraphicsElement :: IsGObject obj => obj -> JSM SVGGraphicsElement+castToSVGGraphicsElement = castTo gTypeSVGGraphicsElement "SVGGraphicsElement"++gTypeSVGGraphicsElement :: JSM GType+gTypeSVGGraphicsElement = GType . Object <$> jsg "SVGGraphicsElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGHKernElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGHKernElement Mozilla SVGHKernElement documentation>+newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal }++instance PToJSVal SVGHKernElement where+  pToJSVal = unSVGHKernElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGHKernElement where+  pFromJSVal = SVGHKernElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGHKernElement where+  toJSVal = return . unSVGHKernElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGHKernElement where+  fromJSVal v = fmap SVGHKernElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGHKernElement where+  makeObject = makeObject . unSVGHKernElement++instance IsSVGElement SVGHKernElement+instance IsElement SVGHKernElement+instance IsNode SVGHKernElement+instance IsEventTarget SVGHKernElement+instance IsGObject SVGHKernElement where+  toGObject = GObject . unSVGHKernElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGHKernElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGHKernElement :: IsGObject obj => obj -> JSM SVGHKernElement+castToSVGHKernElement = castTo gTypeSVGHKernElement "SVGHKernElement"++gTypeSVGHKernElement :: JSM GType+gTypeSVGHKernElement = GType . Object <$> jsg "SVGHKernElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGImageElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement Mozilla SVGImageElement documentation>+newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal }++instance PToJSVal SVGImageElement where+  pToJSVal = unSVGImageElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGImageElement where+  pFromJSVal = SVGImageElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGImageElement where+  toJSVal = return . unSVGImageElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGImageElement where+  fromJSVal v = fmap SVGImageElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGImageElement where+  makeObject = makeObject . unSVGImageElement++instance IsSVGGraphicsElement SVGImageElement+instance IsSVGElement SVGImageElement+instance IsElement SVGImageElement+instance IsNode SVGImageElement+instance IsEventTarget SVGImageElement+instance IsGObject SVGImageElement where+  toGObject = GObject . unSVGImageElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGImageElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGImageElement :: IsGObject obj => obj -> JSM SVGImageElement+castToSVGImageElement = castTo gTypeSVGImageElement "SVGImageElement"++gTypeSVGImageElement :: JSM GType+gTypeSVGImageElement = GType . Object <$> jsg "SVGImageElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGLength".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength Mozilla SVGLength documentation>+newtype SVGLength = SVGLength { unSVGLength :: JSVal }++instance PToJSVal SVGLength where+  pToJSVal = unSVGLength+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGLength where+  pFromJSVal = SVGLength+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGLength where+  toJSVal = return . unSVGLength+  {-# INLINE toJSVal #-}++instance FromJSVal SVGLength where+  fromJSVal v = fmap SVGLength <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGLength where+  makeObject = makeObject . unSVGLength++instance IsGObject SVGLength where+  toGObject = GObject . unSVGLength+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGLength . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGLength :: IsGObject obj => obj -> JSM SVGLength+castToSVGLength = castTo gTypeSVGLength "SVGLength"++gTypeSVGLength :: JSM GType+gTypeSVGLength = GType . Object <$> jsg "SVGLength"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGLengthList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList Mozilla SVGLengthList documentation>+newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal }++instance PToJSVal SVGLengthList where+  pToJSVal = unSVGLengthList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGLengthList where+  pFromJSVal = SVGLengthList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGLengthList where+  toJSVal = return . unSVGLengthList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGLengthList where+  fromJSVal v = fmap SVGLengthList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGLengthList where+  makeObject = makeObject . unSVGLengthList++instance IsGObject SVGLengthList where+  toGObject = GObject . unSVGLengthList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGLengthList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGLengthList :: IsGObject obj => obj -> JSM SVGLengthList+castToSVGLengthList = castTo gTypeSVGLengthList "SVGLengthList"++gTypeSVGLengthList :: JSM GType+gTypeSVGLengthList = GType . Object <$> jsg "SVGLengthList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGLineElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement Mozilla SVGLineElement documentation>+newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal }++instance PToJSVal SVGLineElement where+  pToJSVal = unSVGLineElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGLineElement where+  pFromJSVal = SVGLineElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGLineElement where+  toJSVal = return . unSVGLineElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGLineElement where+  fromJSVal v = fmap SVGLineElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGLineElement where+  makeObject = makeObject . unSVGLineElement++instance IsSVGGraphicsElement SVGLineElement+instance IsSVGElement SVGLineElement+instance IsElement SVGLineElement+instance IsNode SVGLineElement+instance IsEventTarget SVGLineElement+instance IsGObject SVGLineElement where+  toGObject = GObject . unSVGLineElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGLineElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGLineElement :: IsGObject obj => obj -> JSM SVGLineElement+castToSVGLineElement = castTo gTypeSVGLineElement "SVGLineElement"++gTypeSVGLineElement :: JSM GType+gTypeSVGLineElement = GType . Object <$> jsg "SVGLineElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGLinearGradientElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGradientElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement Mozilla SVGLinearGradientElement documentation>+newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal }++instance PToJSVal SVGLinearGradientElement where+  pToJSVal = unSVGLinearGradientElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGLinearGradientElement where+  pFromJSVal = SVGLinearGradientElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGLinearGradientElement where+  toJSVal = return . unSVGLinearGradientElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGLinearGradientElement where+  fromJSVal v = fmap SVGLinearGradientElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGLinearGradientElement where+  makeObject = makeObject . unSVGLinearGradientElement++instance IsSVGGradientElement SVGLinearGradientElement+instance IsSVGElement SVGLinearGradientElement+instance IsElement SVGLinearGradientElement+instance IsNode SVGLinearGradientElement+instance IsEventTarget SVGLinearGradientElement+instance IsGObject SVGLinearGradientElement where+  toGObject = GObject . unSVGLinearGradientElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGLinearGradientElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGLinearGradientElement :: IsGObject obj => obj -> JSM SVGLinearGradientElement+castToSVGLinearGradientElement = castTo gTypeSVGLinearGradientElement "SVGLinearGradientElement"++gTypeSVGLinearGradientElement :: JSM GType+gTypeSVGLinearGradientElement = GType . Object <$> jsg "SVGLinearGradientElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGMPathElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGMPathElement Mozilla SVGMPathElement documentation>+newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal }++instance PToJSVal SVGMPathElement where+  pToJSVal = unSVGMPathElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGMPathElement where+  pFromJSVal = SVGMPathElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGMPathElement where+  toJSVal = return . unSVGMPathElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGMPathElement where+  fromJSVal v = fmap SVGMPathElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGMPathElement where+  makeObject = makeObject . unSVGMPathElement++instance IsSVGElement SVGMPathElement+instance IsElement SVGMPathElement+instance IsNode SVGMPathElement+instance IsEventTarget SVGMPathElement+instance IsGObject SVGMPathElement where+  toGObject = GObject . unSVGMPathElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGMPathElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGMPathElement :: IsGObject obj => obj -> JSM SVGMPathElement+castToSVGMPathElement = castTo gTypeSVGMPathElement "SVGMPathElement"++gTypeSVGMPathElement :: JSM GType+gTypeSVGMPathElement = GType . Object <$> jsg "SVGMPathElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGMarkerElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement Mozilla SVGMarkerElement documentation>+newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal }++instance PToJSVal SVGMarkerElement where+  pToJSVal = unSVGMarkerElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGMarkerElement where+  pFromJSVal = SVGMarkerElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGMarkerElement where+  toJSVal = return . unSVGMarkerElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGMarkerElement where+  fromJSVal v = fmap SVGMarkerElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGMarkerElement where+  makeObject = makeObject . unSVGMarkerElement++instance IsSVGElement SVGMarkerElement+instance IsElement SVGMarkerElement+instance IsNode SVGMarkerElement+instance IsEventTarget SVGMarkerElement+instance IsGObject SVGMarkerElement where+  toGObject = GObject . unSVGMarkerElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGMarkerElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGMarkerElement :: IsGObject obj => obj -> JSM SVGMarkerElement+castToSVGMarkerElement = castTo gTypeSVGMarkerElement "SVGMarkerElement"++gTypeSVGMarkerElement :: JSM GType+gTypeSVGMarkerElement = GType . Object <$> jsg "SVGMarkerElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGMaskElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement Mozilla SVGMaskElement documentation>+newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal }++instance PToJSVal SVGMaskElement where+  pToJSVal = unSVGMaskElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGMaskElement where+  pFromJSVal = SVGMaskElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGMaskElement where+  toJSVal = return . unSVGMaskElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGMaskElement where+  fromJSVal v = fmap SVGMaskElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGMaskElement where+  makeObject = makeObject . unSVGMaskElement++instance IsSVGElement SVGMaskElement+instance IsElement SVGMaskElement+instance IsNode SVGMaskElement+instance IsEventTarget SVGMaskElement+instance IsGObject SVGMaskElement where+  toGObject = GObject . unSVGMaskElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGMaskElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGMaskElement :: IsGObject obj => obj -> JSM SVGMaskElement+castToSVGMaskElement = castTo gTypeSVGMaskElement "SVGMaskElement"++gTypeSVGMaskElement :: JSM GType+gTypeSVGMaskElement = GType . Object <$> jsg "SVGMaskElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGMatrix".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix Mozilla SVGMatrix documentation>+newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal }++instance PToJSVal SVGMatrix where+  pToJSVal = unSVGMatrix+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGMatrix where+  pFromJSVal = SVGMatrix+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGMatrix where+  toJSVal = return . unSVGMatrix+  {-# INLINE toJSVal #-}++instance FromJSVal SVGMatrix where+  fromJSVal v = fmap SVGMatrix <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGMatrix where+  makeObject = makeObject . unSVGMatrix++instance IsGObject SVGMatrix where+  toGObject = GObject . unSVGMatrix+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGMatrix . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGMatrix :: IsGObject obj => obj -> JSM SVGMatrix+castToSVGMatrix = castTo gTypeSVGMatrix "SVGMatrix"++gTypeSVGMatrix :: JSM GType+gTypeSVGMatrix = GType . Object <$> jsg "SVGMatrix"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGMetadataElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGMetadataElement Mozilla SVGMetadataElement documentation>+newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal }++instance PToJSVal SVGMetadataElement where+  pToJSVal = unSVGMetadataElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGMetadataElement where+  pFromJSVal = SVGMetadataElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGMetadataElement where+  toJSVal = return . unSVGMetadataElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGMetadataElement where+  fromJSVal v = fmap SVGMetadataElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGMetadataElement where+  makeObject = makeObject . unSVGMetadataElement++instance IsSVGElement SVGMetadataElement+instance IsElement SVGMetadataElement+instance IsNode SVGMetadataElement+instance IsEventTarget SVGMetadataElement+instance IsGObject SVGMetadataElement where+  toGObject = GObject . unSVGMetadataElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGMetadataElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGMetadataElement :: IsGObject obj => obj -> JSM SVGMetadataElement+castToSVGMetadataElement = castTo gTypeSVGMetadataElement "SVGMetadataElement"++gTypeSVGMetadataElement :: JSM GType+gTypeSVGMetadataElement = GType . Object <$> jsg "SVGMetadataElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGMissingGlyphElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGMissingGlyphElement Mozilla SVGMissingGlyphElement documentation>+newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal }++instance PToJSVal SVGMissingGlyphElement where+  pToJSVal = unSVGMissingGlyphElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGMissingGlyphElement where+  pFromJSVal = SVGMissingGlyphElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGMissingGlyphElement where+  toJSVal = return . unSVGMissingGlyphElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGMissingGlyphElement where+  fromJSVal v = fmap SVGMissingGlyphElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGMissingGlyphElement where+  makeObject = makeObject . unSVGMissingGlyphElement++instance IsSVGElement SVGMissingGlyphElement+instance IsElement SVGMissingGlyphElement+instance IsNode SVGMissingGlyphElement+instance IsEventTarget SVGMissingGlyphElement+instance IsGObject SVGMissingGlyphElement where+  toGObject = GObject . unSVGMissingGlyphElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGMissingGlyphElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGMissingGlyphElement :: IsGObject obj => obj -> JSM SVGMissingGlyphElement+castToSVGMissingGlyphElement = castTo gTypeSVGMissingGlyphElement "SVGMissingGlyphElement"++gTypeSVGMissingGlyphElement :: JSM GType+gTypeSVGMissingGlyphElement = GType . Object <$> jsg "SVGMissingGlyphElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGNumber".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber Mozilla SVGNumber documentation>+newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal }++instance PToJSVal SVGNumber where+  pToJSVal = unSVGNumber+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGNumber where+  pFromJSVal = SVGNumber+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGNumber where+  toJSVal = return . unSVGNumber+  {-# INLINE toJSVal #-}++instance FromJSVal SVGNumber where+  fromJSVal v = fmap SVGNumber <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGNumber where+  makeObject = makeObject . unSVGNumber++instance IsGObject SVGNumber where+  toGObject = GObject . unSVGNumber+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGNumber . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGNumber :: IsGObject obj => obj -> JSM SVGNumber+castToSVGNumber = castTo gTypeSVGNumber "SVGNumber"++gTypeSVGNumber :: JSM GType+gTypeSVGNumber = GType . Object <$> jsg "SVGNumber"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGNumberList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList Mozilla SVGNumberList documentation>+newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal }++instance PToJSVal SVGNumberList where+  pToJSVal = unSVGNumberList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGNumberList where+  pFromJSVal = SVGNumberList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGNumberList where+  toJSVal = return . unSVGNumberList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGNumberList where+  fromJSVal v = fmap SVGNumberList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGNumberList where+  makeObject = makeObject . unSVGNumberList++instance IsGObject SVGNumberList where+  toGObject = GObject . unSVGNumberList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGNumberList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGNumberList :: IsGObject obj => obj -> JSM SVGNumberList+castToSVGNumberList = castTo gTypeSVGNumberList "SVGNumberList"++gTypeSVGNumberList :: JSM GType+gTypeSVGNumberList = GType . Object <$> jsg "SVGNumberList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPaint".+-- Base interface functions are in:+--+--     * "JSDOM.SVGColor"+--     * "JSDOM.CSSValue"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint Mozilla SVGPaint documentation>+newtype SVGPaint = SVGPaint { unSVGPaint :: JSVal }++instance PToJSVal SVGPaint where+  pToJSVal = unSVGPaint+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPaint where+  pFromJSVal = SVGPaint+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPaint where+  toJSVal = return . unSVGPaint+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPaint where+  fromJSVal v = fmap SVGPaint <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPaint where+  makeObject = makeObject . unSVGPaint++instance IsSVGColor SVGPaint+instance IsCSSValue SVGPaint+instance IsGObject SVGPaint where+  toGObject = GObject . unSVGPaint+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPaint . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPaint :: IsGObject obj => obj -> JSM SVGPaint+castToSVGPaint = castTo gTypeSVGPaint "SVGPaint"++gTypeSVGPaint :: JSM GType+gTypeSVGPaint = GType . Object <$> jsg "SVGPaint"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement Mozilla SVGPathElement documentation>+newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal }++instance PToJSVal SVGPathElement where+  pToJSVal = unSVGPathElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathElement where+  pFromJSVal = SVGPathElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathElement where+  toJSVal = return . unSVGPathElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathElement where+  fromJSVal v = fmap SVGPathElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathElement where+  makeObject = makeObject . unSVGPathElement++instance IsSVGGraphicsElement SVGPathElement+instance IsSVGElement SVGPathElement+instance IsElement SVGPathElement+instance IsNode SVGPathElement+instance IsEventTarget SVGPathElement+instance IsGObject SVGPathElement where+  toGObject = GObject . unSVGPathElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathElement :: IsGObject obj => obj -> JSM SVGPathElement+castToSVGPathElement = castTo gTypeSVGPathElement "SVGPathElement"++gTypeSVGPathElement :: JSM GType+gTypeSVGPathElement = GType . Object <$> jsg "SVGPathElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSeg".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg Mozilla SVGPathSeg documentation>+newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal }++instance PToJSVal SVGPathSeg where+  pToJSVal = unSVGPathSeg+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSeg where+  pFromJSVal = SVGPathSeg+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSeg where+  toJSVal = return . unSVGPathSeg+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSeg where+  fromJSVal v = fmap SVGPathSeg <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSeg where+  makeObject = makeObject . unSVGPathSeg++class IsGObject o => IsSVGPathSeg o+toSVGPathSeg :: IsSVGPathSeg o => o -> SVGPathSeg+toSVGPathSeg = unsafeCastGObject . toGObject++instance IsSVGPathSeg SVGPathSeg+instance IsGObject SVGPathSeg where+  toGObject = GObject . unSVGPathSeg+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSeg . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSeg :: IsGObject obj => obj -> JSM SVGPathSeg+castToSVGPathSeg = castTo gTypeSVGPathSeg "SVGPathSeg"++gTypeSVGPathSeg :: JSM GType+gTypeSVGPathSeg = GType . Object <$> jsg "SVGPathSeg"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegArcAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs Mozilla SVGPathSegArcAbs documentation>+newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal }++instance PToJSVal SVGPathSegArcAbs where+  pToJSVal = unSVGPathSegArcAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegArcAbs where+  pFromJSVal = SVGPathSegArcAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegArcAbs where+  toJSVal = return . unSVGPathSegArcAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegArcAbs where+  fromJSVal v = fmap SVGPathSegArcAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegArcAbs where+  makeObject = makeObject . unSVGPathSegArcAbs++instance IsSVGPathSeg SVGPathSegArcAbs+instance IsGObject SVGPathSegArcAbs where+  toGObject = GObject . unSVGPathSegArcAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegArcAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegArcAbs :: IsGObject obj => obj -> JSM SVGPathSegArcAbs+castToSVGPathSegArcAbs = castTo gTypeSVGPathSegArcAbs "SVGPathSegArcAbs"++gTypeSVGPathSegArcAbs :: JSM GType+gTypeSVGPathSegArcAbs = GType . Object <$> jsg "SVGPathSegArcAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegArcRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel Mozilla SVGPathSegArcRel documentation>+newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal }++instance PToJSVal SVGPathSegArcRel where+  pToJSVal = unSVGPathSegArcRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegArcRel where+  pFromJSVal = SVGPathSegArcRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegArcRel where+  toJSVal = return . unSVGPathSegArcRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegArcRel where+  fromJSVal v = fmap SVGPathSegArcRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegArcRel where+  makeObject = makeObject . unSVGPathSegArcRel++instance IsSVGPathSeg SVGPathSegArcRel+instance IsGObject SVGPathSegArcRel where+  toGObject = GObject . unSVGPathSegArcRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegArcRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegArcRel :: IsGObject obj => obj -> JSM SVGPathSegArcRel+castToSVGPathSegArcRel = castTo gTypeSVGPathSegArcRel "SVGPathSegArcRel"++gTypeSVGPathSegArcRel :: JSM GType+gTypeSVGPathSegArcRel = GType . Object <$> jsg "SVGPathSegArcRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegClosePath".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegClosePath Mozilla SVGPathSegClosePath documentation>+newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal }++instance PToJSVal SVGPathSegClosePath where+  pToJSVal = unSVGPathSegClosePath+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegClosePath where+  pFromJSVal = SVGPathSegClosePath+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegClosePath where+  toJSVal = return . unSVGPathSegClosePath+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegClosePath where+  fromJSVal v = fmap SVGPathSegClosePath <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegClosePath where+  makeObject = makeObject . unSVGPathSegClosePath++instance IsSVGPathSeg SVGPathSegClosePath+instance IsGObject SVGPathSegClosePath where+  toGObject = GObject . unSVGPathSegClosePath+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegClosePath . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegClosePath :: IsGObject obj => obj -> JSM SVGPathSegClosePath+castToSVGPathSegClosePath = castTo gTypeSVGPathSegClosePath "SVGPathSegClosePath"++gTypeSVGPathSegClosePath :: JSM GType+gTypeSVGPathSegClosePath = GType . Object <$> jsg "SVGPathSegClosePath"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs Mozilla SVGPathSegCurvetoCubicAbs documentation>+newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal }++instance PToJSVal SVGPathSegCurvetoCubicAbs where+  pToJSVal = unSVGPathSegCurvetoCubicAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoCubicAbs where+  pFromJSVal = SVGPathSegCurvetoCubicAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoCubicAbs where+  toJSVal = return . unSVGPathSegCurvetoCubicAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoCubicAbs where+  fromJSVal v = fmap SVGPathSegCurvetoCubicAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoCubicAbs where+  makeObject = makeObject . unSVGPathSegCurvetoCubicAbs++instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs+instance IsGObject SVGPathSegCurvetoCubicAbs where+  toGObject = GObject . unSVGPathSegCurvetoCubicAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoCubicAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoCubicAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicAbs+castToSVGPathSegCurvetoCubicAbs = castTo gTypeSVGPathSegCurvetoCubicAbs "SVGPathSegCurvetoCubicAbs"++gTypeSVGPathSegCurvetoCubicAbs :: JSM GType+gTypeSVGPathSegCurvetoCubicAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel Mozilla SVGPathSegCurvetoCubicRel documentation>+newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal }++instance PToJSVal SVGPathSegCurvetoCubicRel where+  pToJSVal = unSVGPathSegCurvetoCubicRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoCubicRel where+  pFromJSVal = SVGPathSegCurvetoCubicRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoCubicRel where+  toJSVal = return . unSVGPathSegCurvetoCubicRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoCubicRel where+  fromJSVal v = fmap SVGPathSegCurvetoCubicRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoCubicRel where+  makeObject = makeObject . unSVGPathSegCurvetoCubicRel++instance IsSVGPathSeg SVGPathSegCurvetoCubicRel+instance IsGObject SVGPathSegCurvetoCubicRel where+  toGObject = GObject . unSVGPathSegCurvetoCubicRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoCubicRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoCubicRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicRel+castToSVGPathSegCurvetoCubicRel = castTo gTypeSVGPathSegCurvetoCubicRel "SVGPathSegCurvetoCubicRel"++gTypeSVGPathSegCurvetoCubicRel :: JSM GType+gTypeSVGPathSegCurvetoCubicRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicSmoothAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathSegCurvetoCubicSmoothAbs documentation>+newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal }++instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where+  pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where+  pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where+  toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where+  fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoCubicSmoothAbs where+  makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothAbs++instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs+instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where+  toGObject = GObject . unSVGPathSegCurvetoCubicSmoothAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoCubicSmoothAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoCubicSmoothAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicSmoothAbs+castToSVGPathSegCurvetoCubicSmoothAbs = castTo gTypeSVGPathSegCurvetoCubicSmoothAbs "SVGPathSegCurvetoCubicSmoothAbs"++gTypeSVGPathSegCurvetoCubicSmoothAbs :: JSM GType+gTypeSVGPathSegCurvetoCubicSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicSmoothRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathSegCurvetoCubicSmoothRel documentation>+newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal }++instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where+  pToJSVal = unSVGPathSegCurvetoCubicSmoothRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where+  pFromJSVal = SVGPathSegCurvetoCubicSmoothRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where+  toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where+  fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoCubicSmoothRel where+  makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothRel++instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel+instance IsGObject SVGPathSegCurvetoCubicSmoothRel where+  toGObject = GObject . unSVGPathSegCurvetoCubicSmoothRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoCubicSmoothRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoCubicSmoothRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicSmoothRel+castToSVGPathSegCurvetoCubicSmoothRel = castTo gTypeSVGPathSegCurvetoCubicSmoothRel "SVGPathSegCurvetoCubicSmoothRel"++gTypeSVGPathSegCurvetoCubicSmoothRel :: JSM GType+gTypeSVGPathSegCurvetoCubicSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs Mozilla SVGPathSegCurvetoQuadraticAbs documentation>+newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal }++instance PToJSVal SVGPathSegCurvetoQuadraticAbs where+  pToJSVal = unSVGPathSegCurvetoQuadraticAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where+  pFromJSVal = SVGPathSegCurvetoQuadraticAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoQuadraticAbs where+  toJSVal = return . unSVGPathSegCurvetoQuadraticAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoQuadraticAbs where+  fromJSVal v = fmap SVGPathSegCurvetoQuadraticAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoQuadraticAbs where+  makeObject = makeObject . unSVGPathSegCurvetoQuadraticAbs++instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs+instance IsGObject SVGPathSegCurvetoQuadraticAbs where+  toGObject = GObject . unSVGPathSegCurvetoQuadraticAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoQuadraticAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoQuadraticAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticAbs+castToSVGPathSegCurvetoQuadraticAbs = castTo gTypeSVGPathSegCurvetoQuadraticAbs "SVGPathSegCurvetoQuadraticAbs"++gTypeSVGPathSegCurvetoQuadraticAbs :: JSM GType+gTypeSVGPathSegCurvetoQuadraticAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel Mozilla SVGPathSegCurvetoQuadraticRel documentation>+newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal }++instance PToJSVal SVGPathSegCurvetoQuadraticRel where+  pToJSVal = unSVGPathSegCurvetoQuadraticRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoQuadraticRel where+  pFromJSVal = SVGPathSegCurvetoQuadraticRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoQuadraticRel where+  toJSVal = return . unSVGPathSegCurvetoQuadraticRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoQuadraticRel where+  fromJSVal v = fmap SVGPathSegCurvetoQuadraticRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoQuadraticRel where+  makeObject = makeObject . unSVGPathSegCurvetoQuadraticRel++instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel+instance IsGObject SVGPathSegCurvetoQuadraticRel where+  toGObject = GObject . unSVGPathSegCurvetoQuadraticRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoQuadraticRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoQuadraticRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticRel+castToSVGPathSegCurvetoQuadraticRel = castTo gTypeSVGPathSegCurvetoQuadraticRel "SVGPathSegCurvetoQuadraticRel"++gTypeSVGPathSegCurvetoQuadraticRel :: JSM GType+gTypeSVGPathSegCurvetoQuadraticRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticSmoothAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathSegCurvetoQuadraticSmoothAbs documentation>+newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal }++instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where+  pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where+  pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where+  toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where+  fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoQuadraticSmoothAbs where+  makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothAbs++instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs+instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where+  toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoQuadraticSmoothAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticSmoothAbs+castToSVGPathSegCurvetoQuadraticSmoothAbs = castTo gTypeSVGPathSegCurvetoQuadraticSmoothAbs "SVGPathSegCurvetoQuadraticSmoothAbs"++gTypeSVGPathSegCurvetoQuadraticSmoothAbs :: JSM GType+gTypeSVGPathSegCurvetoQuadraticSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticSmoothRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathSegCurvetoQuadraticSmoothRel documentation>+newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal }++instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where+  pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where+  pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where+  toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where+  fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegCurvetoQuadraticSmoothRel where+  makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothRel++instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel+instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where+  toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegCurvetoQuadraticSmoothRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticSmoothRel+castToSVGPathSegCurvetoQuadraticSmoothRel = castTo gTypeSVGPathSegCurvetoQuadraticSmoothRel "SVGPathSegCurvetoQuadraticSmoothRel"++gTypeSVGPathSegCurvetoQuadraticSmoothRel :: JSM GType+gTypeSVGPathSegCurvetoQuadraticSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs Mozilla SVGPathSegLinetoAbs documentation>+newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal }++instance PToJSVal SVGPathSegLinetoAbs where+  pToJSVal = unSVGPathSegLinetoAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegLinetoAbs where+  pFromJSVal = SVGPathSegLinetoAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegLinetoAbs where+  toJSVal = return . unSVGPathSegLinetoAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegLinetoAbs where+  fromJSVal v = fmap SVGPathSegLinetoAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegLinetoAbs where+  makeObject = makeObject . unSVGPathSegLinetoAbs++instance IsSVGPathSeg SVGPathSegLinetoAbs+instance IsGObject SVGPathSegLinetoAbs where+  toGObject = GObject . unSVGPathSegLinetoAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegLinetoAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegLinetoAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoAbs+castToSVGPathSegLinetoAbs = castTo gTypeSVGPathSegLinetoAbs "SVGPathSegLinetoAbs"++gTypeSVGPathSegLinetoAbs :: JSM GType+gTypeSVGPathSegLinetoAbs = GType . Object <$> jsg "SVGPathSegLinetoAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoHorizontalAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs Mozilla SVGPathSegLinetoHorizontalAbs documentation>+newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal }++instance PToJSVal SVGPathSegLinetoHorizontalAbs where+  pToJSVal = unSVGPathSegLinetoHorizontalAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegLinetoHorizontalAbs where+  pFromJSVal = SVGPathSegLinetoHorizontalAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegLinetoHorizontalAbs where+  toJSVal = return . unSVGPathSegLinetoHorizontalAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegLinetoHorizontalAbs where+  fromJSVal v = fmap SVGPathSegLinetoHorizontalAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegLinetoHorizontalAbs where+  makeObject = makeObject . unSVGPathSegLinetoHorizontalAbs++instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs+instance IsGObject SVGPathSegLinetoHorizontalAbs where+  toGObject = GObject . unSVGPathSegLinetoHorizontalAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegLinetoHorizontalAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegLinetoHorizontalAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoHorizontalAbs+castToSVGPathSegLinetoHorizontalAbs = castTo gTypeSVGPathSegLinetoHorizontalAbs "SVGPathSegLinetoHorizontalAbs"++gTypeSVGPathSegLinetoHorizontalAbs :: JSM GType+gTypeSVGPathSegLinetoHorizontalAbs = GType . Object <$> jsg "SVGPathSegLinetoHorizontalAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoHorizontalRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel Mozilla SVGPathSegLinetoHorizontalRel documentation>+newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal }++instance PToJSVal SVGPathSegLinetoHorizontalRel where+  pToJSVal = unSVGPathSegLinetoHorizontalRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegLinetoHorizontalRel where+  pFromJSVal = SVGPathSegLinetoHorizontalRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegLinetoHorizontalRel where+  toJSVal = return . unSVGPathSegLinetoHorizontalRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegLinetoHorizontalRel where+  fromJSVal v = fmap SVGPathSegLinetoHorizontalRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegLinetoHorizontalRel where+  makeObject = makeObject . unSVGPathSegLinetoHorizontalRel++instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel+instance IsGObject SVGPathSegLinetoHorizontalRel where+  toGObject = GObject . unSVGPathSegLinetoHorizontalRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegLinetoHorizontalRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegLinetoHorizontalRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoHorizontalRel+castToSVGPathSegLinetoHorizontalRel = castTo gTypeSVGPathSegLinetoHorizontalRel "SVGPathSegLinetoHorizontalRel"++gTypeSVGPathSegLinetoHorizontalRel :: JSM GType+gTypeSVGPathSegLinetoHorizontalRel = GType . Object <$> jsg "SVGPathSegLinetoHorizontalRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel Mozilla SVGPathSegLinetoRel documentation>+newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal }++instance PToJSVal SVGPathSegLinetoRel where+  pToJSVal = unSVGPathSegLinetoRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegLinetoRel where+  pFromJSVal = SVGPathSegLinetoRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegLinetoRel where+  toJSVal = return . unSVGPathSegLinetoRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegLinetoRel where+  fromJSVal v = fmap SVGPathSegLinetoRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegLinetoRel where+  makeObject = makeObject . unSVGPathSegLinetoRel++instance IsSVGPathSeg SVGPathSegLinetoRel+instance IsGObject SVGPathSegLinetoRel where+  toGObject = GObject . unSVGPathSegLinetoRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegLinetoRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegLinetoRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoRel+castToSVGPathSegLinetoRel = castTo gTypeSVGPathSegLinetoRel "SVGPathSegLinetoRel"++gTypeSVGPathSegLinetoRel :: JSM GType+gTypeSVGPathSegLinetoRel = GType . Object <$> jsg "SVGPathSegLinetoRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoVerticalAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs Mozilla SVGPathSegLinetoVerticalAbs documentation>+newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal }++instance PToJSVal SVGPathSegLinetoVerticalAbs where+  pToJSVal = unSVGPathSegLinetoVerticalAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegLinetoVerticalAbs where+  pFromJSVal = SVGPathSegLinetoVerticalAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegLinetoVerticalAbs where+  toJSVal = return . unSVGPathSegLinetoVerticalAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegLinetoVerticalAbs where+  fromJSVal v = fmap SVGPathSegLinetoVerticalAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegLinetoVerticalAbs where+  makeObject = makeObject . unSVGPathSegLinetoVerticalAbs++instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs+instance IsGObject SVGPathSegLinetoVerticalAbs where+  toGObject = GObject . unSVGPathSegLinetoVerticalAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegLinetoVerticalAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegLinetoVerticalAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoVerticalAbs+castToSVGPathSegLinetoVerticalAbs = castTo gTypeSVGPathSegLinetoVerticalAbs "SVGPathSegLinetoVerticalAbs"++gTypeSVGPathSegLinetoVerticalAbs :: JSM GType+gTypeSVGPathSegLinetoVerticalAbs = GType . Object <$> jsg "SVGPathSegLinetoVerticalAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoVerticalRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel Mozilla SVGPathSegLinetoVerticalRel documentation>+newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal }++instance PToJSVal SVGPathSegLinetoVerticalRel where+  pToJSVal = unSVGPathSegLinetoVerticalRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegLinetoVerticalRel where+  pFromJSVal = SVGPathSegLinetoVerticalRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegLinetoVerticalRel where+  toJSVal = return . unSVGPathSegLinetoVerticalRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegLinetoVerticalRel where+  fromJSVal v = fmap SVGPathSegLinetoVerticalRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegLinetoVerticalRel where+  makeObject = makeObject . unSVGPathSegLinetoVerticalRel++instance IsSVGPathSeg SVGPathSegLinetoVerticalRel+instance IsGObject SVGPathSegLinetoVerticalRel where+  toGObject = GObject . unSVGPathSegLinetoVerticalRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegLinetoVerticalRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegLinetoVerticalRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoVerticalRel+castToSVGPathSegLinetoVerticalRel = castTo gTypeSVGPathSegLinetoVerticalRel "SVGPathSegLinetoVerticalRel"++gTypeSVGPathSegLinetoVerticalRel :: JSM GType+gTypeSVGPathSegLinetoVerticalRel = GType . Object <$> jsg "SVGPathSegLinetoVerticalRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList Mozilla SVGPathSegList documentation>+newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal }++instance PToJSVal SVGPathSegList where+  pToJSVal = unSVGPathSegList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegList where+  pFromJSVal = SVGPathSegList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegList where+  toJSVal = return . unSVGPathSegList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegList where+  fromJSVal v = fmap SVGPathSegList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegList where+  makeObject = makeObject . unSVGPathSegList++instance IsGObject SVGPathSegList where+  toGObject = GObject . unSVGPathSegList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegList :: IsGObject obj => obj -> JSM SVGPathSegList+castToSVGPathSegList = castTo gTypeSVGPathSegList "SVGPathSegList"++gTypeSVGPathSegList :: JSM GType+gTypeSVGPathSegList = GType . Object <$> jsg "SVGPathSegList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegMovetoAbs".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs Mozilla SVGPathSegMovetoAbs documentation>+newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal }++instance PToJSVal SVGPathSegMovetoAbs where+  pToJSVal = unSVGPathSegMovetoAbs+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegMovetoAbs where+  pFromJSVal = SVGPathSegMovetoAbs+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegMovetoAbs where+  toJSVal = return . unSVGPathSegMovetoAbs+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegMovetoAbs where+  fromJSVal v = fmap SVGPathSegMovetoAbs <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegMovetoAbs where+  makeObject = makeObject . unSVGPathSegMovetoAbs++instance IsSVGPathSeg SVGPathSegMovetoAbs+instance IsGObject SVGPathSegMovetoAbs where+  toGObject = GObject . unSVGPathSegMovetoAbs+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegMovetoAbs . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegMovetoAbs :: IsGObject obj => obj -> JSM SVGPathSegMovetoAbs+castToSVGPathSegMovetoAbs = castTo gTypeSVGPathSegMovetoAbs "SVGPathSegMovetoAbs"++gTypeSVGPathSegMovetoAbs :: JSM GType+gTypeSVGPathSegMovetoAbs = GType . Object <$> jsg "SVGPathSegMovetoAbs"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPathSegMovetoRel".+-- Base interface functions are in:+--+--     * "JSDOM.SVGPathSeg"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel Mozilla SVGPathSegMovetoRel documentation>+newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal }++instance PToJSVal SVGPathSegMovetoRel where+  pToJSVal = unSVGPathSegMovetoRel+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPathSegMovetoRel where+  pFromJSVal = SVGPathSegMovetoRel+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPathSegMovetoRel where+  toJSVal = return . unSVGPathSegMovetoRel+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPathSegMovetoRel where+  fromJSVal v = fmap SVGPathSegMovetoRel <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPathSegMovetoRel where+  makeObject = makeObject . unSVGPathSegMovetoRel++instance IsSVGPathSeg SVGPathSegMovetoRel+instance IsGObject SVGPathSegMovetoRel where+  toGObject = GObject . unSVGPathSegMovetoRel+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPathSegMovetoRel . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPathSegMovetoRel :: IsGObject obj => obj -> JSM SVGPathSegMovetoRel+castToSVGPathSegMovetoRel = castTo gTypeSVGPathSegMovetoRel "SVGPathSegMovetoRel"++gTypeSVGPathSegMovetoRel :: JSM GType+gTypeSVGPathSegMovetoRel = GType . Object <$> jsg "SVGPathSegMovetoRel"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPatternElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement Mozilla SVGPatternElement documentation>+newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal }++instance PToJSVal SVGPatternElement where+  pToJSVal = unSVGPatternElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPatternElement where+  pFromJSVal = SVGPatternElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPatternElement where+  toJSVal = return . unSVGPatternElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPatternElement where+  fromJSVal v = fmap SVGPatternElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPatternElement where+  makeObject = makeObject . unSVGPatternElement++instance IsSVGElement SVGPatternElement+instance IsElement SVGPatternElement+instance IsNode SVGPatternElement+instance IsEventTarget SVGPatternElement+instance IsGObject SVGPatternElement where+  toGObject = GObject . unSVGPatternElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPatternElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPatternElement :: IsGObject obj => obj -> JSM SVGPatternElement+castToSVGPatternElement = castTo gTypeSVGPatternElement "SVGPatternElement"++gTypeSVGPatternElement :: JSM GType+gTypeSVGPatternElement = GType . Object <$> jsg "SVGPatternElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPoint".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint Mozilla SVGPoint documentation>+newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal }++instance PToJSVal SVGPoint where+  pToJSVal = unSVGPoint+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPoint where+  pFromJSVal = SVGPoint+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPoint where+  toJSVal = return . unSVGPoint+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPoint where+  fromJSVal v = fmap SVGPoint <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPoint where+  makeObject = makeObject . unSVGPoint++instance IsGObject SVGPoint where+  toGObject = GObject . unSVGPoint+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPoint . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPoint :: IsGObject obj => obj -> JSM SVGPoint+castToSVGPoint = castTo gTypeSVGPoint "SVGPoint"++gTypeSVGPoint :: JSM GType+gTypeSVGPoint = GType . Object <$> jsg "SVGPoint"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPointList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList Mozilla SVGPointList documentation>+newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal }++instance PToJSVal SVGPointList where+  pToJSVal = unSVGPointList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPointList where+  pFromJSVal = SVGPointList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPointList where+  toJSVal = return . unSVGPointList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPointList where+  fromJSVal v = fmap SVGPointList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPointList where+  makeObject = makeObject . unSVGPointList++instance IsGObject SVGPointList where+  toGObject = GObject . unSVGPointList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPointList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPointList :: IsGObject obj => obj -> JSM SVGPointList+castToSVGPointList = castTo gTypeSVGPointList "SVGPointList"++gTypeSVGPointList :: JSM GType+gTypeSVGPointList = GType . Object <$> jsg "SVGPointList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPolygonElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement Mozilla SVGPolygonElement documentation>+newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal }++instance PToJSVal SVGPolygonElement where+  pToJSVal = unSVGPolygonElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPolygonElement where+  pFromJSVal = SVGPolygonElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPolygonElement where+  toJSVal = return . unSVGPolygonElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPolygonElement where+  fromJSVal v = fmap SVGPolygonElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPolygonElement where+  makeObject = makeObject . unSVGPolygonElement++instance IsSVGGraphicsElement SVGPolygonElement+instance IsSVGElement SVGPolygonElement+instance IsElement SVGPolygonElement+instance IsNode SVGPolygonElement+instance IsEventTarget SVGPolygonElement+instance IsGObject SVGPolygonElement where+  toGObject = GObject . unSVGPolygonElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPolygonElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPolygonElement :: IsGObject obj => obj -> JSM SVGPolygonElement+castToSVGPolygonElement = castTo gTypeSVGPolygonElement "SVGPolygonElement"++gTypeSVGPolygonElement :: JSM GType+gTypeSVGPolygonElement = GType . Object <$> jsg "SVGPolygonElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPolylineElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement Mozilla SVGPolylineElement documentation>+newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal }++instance PToJSVal SVGPolylineElement where+  pToJSVal = unSVGPolylineElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPolylineElement where+  pFromJSVal = SVGPolylineElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPolylineElement where+  toJSVal = return . unSVGPolylineElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPolylineElement where+  fromJSVal v = fmap SVGPolylineElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPolylineElement where+  makeObject = makeObject . unSVGPolylineElement++instance IsSVGGraphicsElement SVGPolylineElement+instance IsSVGElement SVGPolylineElement+instance IsElement SVGPolylineElement+instance IsNode SVGPolylineElement+instance IsEventTarget SVGPolylineElement+instance IsGObject SVGPolylineElement where+  toGObject = GObject . unSVGPolylineElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPolylineElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPolylineElement :: IsGObject obj => obj -> JSM SVGPolylineElement+castToSVGPolylineElement = castTo gTypeSVGPolylineElement "SVGPolylineElement"++gTypeSVGPolylineElement :: JSM GType+gTypeSVGPolylineElement = GType . Object <$> jsg "SVGPolylineElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGPreserveAspectRatio".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio Mozilla SVGPreserveAspectRatio documentation>+newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal }++instance PToJSVal SVGPreserveAspectRatio where+  pToJSVal = unSVGPreserveAspectRatio+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGPreserveAspectRatio where+  pFromJSVal = SVGPreserveAspectRatio+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGPreserveAspectRatio where+  toJSVal = return . unSVGPreserveAspectRatio+  {-# INLINE toJSVal #-}++instance FromJSVal SVGPreserveAspectRatio where+  fromJSVal v = fmap SVGPreserveAspectRatio <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGPreserveAspectRatio where+  makeObject = makeObject . unSVGPreserveAspectRatio++instance IsGObject SVGPreserveAspectRatio where+  toGObject = GObject . unSVGPreserveAspectRatio+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGPreserveAspectRatio . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGPreserveAspectRatio :: IsGObject obj => obj -> JSM SVGPreserveAspectRatio+castToSVGPreserveAspectRatio = castTo gTypeSVGPreserveAspectRatio "SVGPreserveAspectRatio"++gTypeSVGPreserveAspectRatio :: JSM GType+gTypeSVGPreserveAspectRatio = GType . Object <$> jsg "SVGPreserveAspectRatio"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGRadialGradientElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGradientElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement Mozilla SVGRadialGradientElement documentation>+newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal }++instance PToJSVal SVGRadialGradientElement where+  pToJSVal = unSVGRadialGradientElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGRadialGradientElement where+  pFromJSVal = SVGRadialGradientElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGRadialGradientElement where+  toJSVal = return . unSVGRadialGradientElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGRadialGradientElement where+  fromJSVal v = fmap SVGRadialGradientElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGRadialGradientElement where+  makeObject = makeObject . unSVGRadialGradientElement++instance IsSVGGradientElement SVGRadialGradientElement+instance IsSVGElement SVGRadialGradientElement+instance IsElement SVGRadialGradientElement+instance IsNode SVGRadialGradientElement+instance IsEventTarget SVGRadialGradientElement+instance IsGObject SVGRadialGradientElement where+  toGObject = GObject . unSVGRadialGradientElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGRadialGradientElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGRadialGradientElement :: IsGObject obj => obj -> JSM SVGRadialGradientElement+castToSVGRadialGradientElement = castTo gTypeSVGRadialGradientElement "SVGRadialGradientElement"++gTypeSVGRadialGradientElement :: JSM GType+gTypeSVGRadialGradientElement = GType . Object <$> jsg "SVGRadialGradientElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGRect".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect Mozilla SVGRect documentation>+newtype SVGRect = SVGRect { unSVGRect :: JSVal }++instance PToJSVal SVGRect where+  pToJSVal = unSVGRect+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGRect where+  pFromJSVal = SVGRect+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGRect where+  toJSVal = return . unSVGRect+  {-# INLINE toJSVal #-}++instance FromJSVal SVGRect where+  fromJSVal v = fmap SVGRect <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGRect where+  makeObject = makeObject . unSVGRect++instance IsGObject SVGRect where+  toGObject = GObject . unSVGRect+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGRect . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGRect :: IsGObject obj => obj -> JSM SVGRect+castToSVGRect = castTo gTypeSVGRect "SVGRect"++gTypeSVGRect :: JSM GType+gTypeSVGRect = GType . Object <$> jsg "SVGRect"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGRectElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement Mozilla SVGRectElement documentation>+newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal }++instance PToJSVal SVGRectElement where+  pToJSVal = unSVGRectElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGRectElement where+  pFromJSVal = SVGRectElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGRectElement where+  toJSVal = return . unSVGRectElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGRectElement where+  fromJSVal v = fmap SVGRectElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGRectElement where+  makeObject = makeObject . unSVGRectElement++instance IsSVGGraphicsElement SVGRectElement+instance IsSVGElement SVGRectElement+instance IsElement SVGRectElement+instance IsNode SVGRectElement+instance IsEventTarget SVGRectElement+instance IsGObject SVGRectElement where+  toGObject = GObject . unSVGRectElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGRectElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGRectElement :: IsGObject obj => obj -> JSM SVGRectElement+castToSVGRectElement = castTo gTypeSVGRectElement "SVGRectElement"++gTypeSVGRectElement :: JSM GType+gTypeSVGRectElement = GType . Object <$> jsg "SVGRectElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGRenderingIntent".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGRenderingIntent Mozilla SVGRenderingIntent documentation>+newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal }++instance PToJSVal SVGRenderingIntent where+  pToJSVal = unSVGRenderingIntent+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGRenderingIntent where+  pFromJSVal = SVGRenderingIntent+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGRenderingIntent where+  toJSVal = return . unSVGRenderingIntent+  {-# INLINE toJSVal #-}++instance FromJSVal SVGRenderingIntent where+  fromJSVal v = fmap SVGRenderingIntent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGRenderingIntent where+  makeObject = makeObject . unSVGRenderingIntent++instance IsGObject SVGRenderingIntent where+  toGObject = GObject . unSVGRenderingIntent+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGRenderingIntent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGRenderingIntent :: IsGObject obj => obj -> JSM SVGRenderingIntent+castToSVGRenderingIntent = castTo gTypeSVGRenderingIntent "SVGRenderingIntent"++gTypeSVGRenderingIntent :: JSM GType+gTypeSVGRenderingIntent = GType . Object <$> jsg "SVGRenderingIntent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGSVGElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement Mozilla SVGSVGElement documentation>+newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal }++instance PToJSVal SVGSVGElement where+  pToJSVal = unSVGSVGElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGSVGElement where+  pFromJSVal = SVGSVGElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGSVGElement where+  toJSVal = return . unSVGSVGElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGSVGElement where+  fromJSVal v = fmap SVGSVGElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGSVGElement where+  makeObject = makeObject . unSVGSVGElement++instance IsSVGGraphicsElement SVGSVGElement+instance IsSVGElement SVGSVGElement+instance IsElement SVGSVGElement+instance IsNode SVGSVGElement+instance IsEventTarget SVGSVGElement+instance IsGObject SVGSVGElement where+  toGObject = GObject . unSVGSVGElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGSVGElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGSVGElement :: IsGObject obj => obj -> JSM SVGSVGElement+castToSVGSVGElement = castTo gTypeSVGSVGElement "SVGSVGElement"++gTypeSVGSVGElement :: JSM GType+gTypeSVGSVGElement = GType . Object <$> jsg "SVGSVGElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGScriptElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement Mozilla SVGScriptElement documentation>+newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal }++instance PToJSVal SVGScriptElement where+  pToJSVal = unSVGScriptElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGScriptElement where+  pFromJSVal = SVGScriptElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGScriptElement where+  toJSVal = return . unSVGScriptElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGScriptElement where+  fromJSVal v = fmap SVGScriptElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGScriptElement where+  makeObject = makeObject . unSVGScriptElement++instance IsSVGElement SVGScriptElement+instance IsElement SVGScriptElement+instance IsNode SVGScriptElement+instance IsEventTarget SVGScriptElement+instance IsGObject SVGScriptElement where+  toGObject = GObject . unSVGScriptElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGScriptElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGScriptElement :: IsGObject obj => obj -> JSM SVGScriptElement+castToSVGScriptElement = castTo gTypeSVGScriptElement "SVGScriptElement"++gTypeSVGScriptElement :: JSM GType+gTypeSVGScriptElement = GType . Object <$> jsg "SVGScriptElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGSetElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGAnimationElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGSetElement Mozilla SVGSetElement documentation>+newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal }++instance PToJSVal SVGSetElement where+  pToJSVal = unSVGSetElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGSetElement where+  pFromJSVal = SVGSetElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGSetElement where+  toJSVal = return . unSVGSetElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGSetElement where+  fromJSVal v = fmap SVGSetElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGSetElement where+  makeObject = makeObject . unSVGSetElement++instance IsSVGAnimationElement SVGSetElement+instance IsSVGElement SVGSetElement+instance IsElement SVGSetElement+instance IsNode SVGSetElement+instance IsEventTarget SVGSetElement+instance IsGObject SVGSetElement where+  toGObject = GObject . unSVGSetElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGSetElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGSetElement :: IsGObject obj => obj -> JSM SVGSetElement+castToSVGSetElement = castTo gTypeSVGSetElement "SVGSetElement"++gTypeSVGSetElement :: JSM GType+gTypeSVGSetElement = GType . Object <$> jsg "SVGSetElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGStopElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGStopElement Mozilla SVGStopElement documentation>+newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal }++instance PToJSVal SVGStopElement where+  pToJSVal = unSVGStopElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGStopElement where+  pFromJSVal = SVGStopElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGStopElement where+  toJSVal = return . unSVGStopElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGStopElement where+  fromJSVal v = fmap SVGStopElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGStopElement where+  makeObject = makeObject . unSVGStopElement++instance IsSVGElement SVGStopElement+instance IsElement SVGStopElement+instance IsNode SVGStopElement+instance IsEventTarget SVGStopElement+instance IsGObject SVGStopElement where+  toGObject = GObject . unSVGStopElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGStopElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGStopElement :: IsGObject obj => obj -> JSM SVGStopElement+castToSVGStopElement = castTo gTypeSVGStopElement "SVGStopElement"++gTypeSVGStopElement :: JSM GType+gTypeSVGStopElement = GType . Object <$> jsg "SVGStopElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGStringList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList Mozilla SVGStringList documentation>+newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal }++instance PToJSVal SVGStringList where+  pToJSVal = unSVGStringList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGStringList where+  pFromJSVal = SVGStringList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGStringList where+  toJSVal = return . unSVGStringList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGStringList where+  fromJSVal v = fmap SVGStringList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGStringList where+  makeObject = makeObject . unSVGStringList++instance IsGObject SVGStringList where+  toGObject = GObject . unSVGStringList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGStringList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGStringList :: IsGObject obj => obj -> JSM SVGStringList+castToSVGStringList = castTo gTypeSVGStringList "SVGStringList"++gTypeSVGStringList :: JSM GType+gTypeSVGStringList = GType . Object <$> jsg "SVGStringList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGStyleElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement Mozilla SVGStyleElement documentation>+newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal }++instance PToJSVal SVGStyleElement where+  pToJSVal = unSVGStyleElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGStyleElement where+  pFromJSVal = SVGStyleElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGStyleElement where+  toJSVal = return . unSVGStyleElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGStyleElement where+  fromJSVal v = fmap SVGStyleElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGStyleElement where+  makeObject = makeObject . unSVGStyleElement++instance IsSVGElement SVGStyleElement+instance IsElement SVGStyleElement+instance IsNode SVGStyleElement+instance IsEventTarget SVGStyleElement+instance IsGObject SVGStyleElement where+  toGObject = GObject . unSVGStyleElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGStyleElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGStyleElement :: IsGObject obj => obj -> JSM SVGStyleElement+castToSVGStyleElement = castTo gTypeSVGStyleElement "SVGStyleElement"++gTypeSVGStyleElement :: JSM GType+gTypeSVGStyleElement = GType . Object <$> jsg "SVGStyleElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGSwitchElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGSwitchElement Mozilla SVGSwitchElement documentation>+newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal }++instance PToJSVal SVGSwitchElement where+  pToJSVal = unSVGSwitchElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGSwitchElement where+  pFromJSVal = SVGSwitchElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGSwitchElement where+  toJSVal = return . unSVGSwitchElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGSwitchElement where+  fromJSVal v = fmap SVGSwitchElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGSwitchElement where+  makeObject = makeObject . unSVGSwitchElement++instance IsSVGGraphicsElement SVGSwitchElement+instance IsSVGElement SVGSwitchElement+instance IsElement SVGSwitchElement+instance IsNode SVGSwitchElement+instance IsEventTarget SVGSwitchElement+instance IsGObject SVGSwitchElement where+  toGObject = GObject . unSVGSwitchElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGSwitchElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGSwitchElement :: IsGObject obj => obj -> JSM SVGSwitchElement+castToSVGSwitchElement = castTo gTypeSVGSwitchElement "SVGSwitchElement"++gTypeSVGSwitchElement :: JSM GType+gTypeSVGSwitchElement = GType . Object <$> jsg "SVGSwitchElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGSymbolElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGSymbolElement Mozilla SVGSymbolElement documentation>+newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal }++instance PToJSVal SVGSymbolElement where+  pToJSVal = unSVGSymbolElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGSymbolElement where+  pFromJSVal = SVGSymbolElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGSymbolElement where+  toJSVal = return . unSVGSymbolElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGSymbolElement where+  fromJSVal v = fmap SVGSymbolElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGSymbolElement where+  makeObject = makeObject . unSVGSymbolElement++instance IsSVGElement SVGSymbolElement+instance IsElement SVGSymbolElement+instance IsNode SVGSymbolElement+instance IsEventTarget SVGSymbolElement+instance IsGObject SVGSymbolElement where+  toGObject = GObject . unSVGSymbolElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGSymbolElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGSymbolElement :: IsGObject obj => obj -> JSM SVGSymbolElement+castToSVGSymbolElement = castTo gTypeSVGSymbolElement "SVGSymbolElement"++gTypeSVGSymbolElement :: JSM GType+gTypeSVGSymbolElement = GType . Object <$> jsg "SVGSymbolElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTRefElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGTextPositioningElement"+--     * "JSDOM.SVGTextContentElement"+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTRefElement Mozilla SVGTRefElement documentation>+newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal }++instance PToJSVal SVGTRefElement where+  pToJSVal = unSVGTRefElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTRefElement where+  pFromJSVal = SVGTRefElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTRefElement where+  toJSVal = return . unSVGTRefElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTRefElement where+  fromJSVal v = fmap SVGTRefElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTRefElement where+  makeObject = makeObject . unSVGTRefElement++instance IsSVGTextPositioningElement SVGTRefElement+instance IsSVGTextContentElement SVGTRefElement+instance IsSVGGraphicsElement SVGTRefElement+instance IsSVGElement SVGTRefElement+instance IsElement SVGTRefElement+instance IsNode SVGTRefElement+instance IsEventTarget SVGTRefElement+instance IsGObject SVGTRefElement where+  toGObject = GObject . unSVGTRefElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTRefElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTRefElement :: IsGObject obj => obj -> JSM SVGTRefElement+castToSVGTRefElement = castTo gTypeSVGTRefElement "SVGTRefElement"++gTypeSVGTRefElement :: JSM GType+gTypeSVGTRefElement = GType . Object <$> jsg "SVGTRefElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTSpanElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGTextPositioningElement"+--     * "JSDOM.SVGTextContentElement"+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTSpanElement Mozilla SVGTSpanElement documentation>+newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal }++instance PToJSVal SVGTSpanElement where+  pToJSVal = unSVGTSpanElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTSpanElement where+  pFromJSVal = SVGTSpanElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTSpanElement where+  toJSVal = return . unSVGTSpanElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTSpanElement where+  fromJSVal v = fmap SVGTSpanElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTSpanElement where+  makeObject = makeObject . unSVGTSpanElement++instance IsSVGTextPositioningElement SVGTSpanElement+instance IsSVGTextContentElement SVGTSpanElement+instance IsSVGGraphicsElement SVGTSpanElement+instance IsSVGElement SVGTSpanElement+instance IsElement SVGTSpanElement+instance IsNode SVGTSpanElement+instance IsEventTarget SVGTSpanElement+instance IsGObject SVGTSpanElement where+  toGObject = GObject . unSVGTSpanElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTSpanElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTSpanElement :: IsGObject obj => obj -> JSM SVGTSpanElement+castToSVGTSpanElement = castTo gTypeSVGTSpanElement "SVGTSpanElement"++gTypeSVGTSpanElement :: JSM GType+gTypeSVGTSpanElement = GType . Object <$> jsg "SVGTSpanElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTests".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests Mozilla SVGTests documentation>+newtype SVGTests = SVGTests { unSVGTests :: JSVal }++instance PToJSVal SVGTests where+  pToJSVal = unSVGTests+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTests where+  pFromJSVal = SVGTests+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTests where+  toJSVal = return . unSVGTests+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTests where+  fromJSVal v = fmap SVGTests <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTests where+  makeObject = makeObject . unSVGTests++instance IsGObject SVGTests where+  toGObject = GObject . unSVGTests+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTests . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTests :: IsGObject obj => obj -> JSM SVGTests+castToSVGTests = castTo gTypeSVGTests "SVGTests"++gTypeSVGTests :: JSM GType+gTypeSVGTests = GType . Object <$> jsg "SVGTests"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTextContentElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement Mozilla SVGTextContentElement documentation>+newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal }++instance PToJSVal SVGTextContentElement where+  pToJSVal = unSVGTextContentElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTextContentElement where+  pFromJSVal = SVGTextContentElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTextContentElement where+  toJSVal = return . unSVGTextContentElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTextContentElement where+  fromJSVal v = fmap SVGTextContentElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTextContentElement where+  makeObject = makeObject . unSVGTextContentElement++class IsSVGGraphicsElement o => IsSVGTextContentElement o+toSVGTextContentElement :: IsSVGTextContentElement o => o -> SVGTextContentElement+toSVGTextContentElement = unsafeCastGObject . toGObject++instance IsSVGTextContentElement SVGTextContentElement+instance IsSVGGraphicsElement SVGTextContentElement+instance IsSVGElement SVGTextContentElement+instance IsElement SVGTextContentElement+instance IsNode SVGTextContentElement+instance IsEventTarget SVGTextContentElement+instance IsGObject SVGTextContentElement where+  toGObject = GObject . unSVGTextContentElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTextContentElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTextContentElement :: IsGObject obj => obj -> JSM SVGTextContentElement+castToSVGTextContentElement = castTo gTypeSVGTextContentElement "SVGTextContentElement"++gTypeSVGTextContentElement :: JSM GType+gTypeSVGTextContentElement = GType . Object <$> jsg "SVGTextContentElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTextElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGTextPositioningElement"+--     * "JSDOM.SVGTextContentElement"+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextElement Mozilla SVGTextElement documentation>+newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal }++instance PToJSVal SVGTextElement where+  pToJSVal = unSVGTextElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTextElement where+  pFromJSVal = SVGTextElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTextElement where+  toJSVal = return . unSVGTextElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTextElement where+  fromJSVal v = fmap SVGTextElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTextElement where+  makeObject = makeObject . unSVGTextElement++instance IsSVGTextPositioningElement SVGTextElement+instance IsSVGTextContentElement SVGTextElement+instance IsSVGGraphicsElement SVGTextElement+instance IsSVGElement SVGTextElement+instance IsElement SVGTextElement+instance IsNode SVGTextElement+instance IsEventTarget SVGTextElement+instance IsGObject SVGTextElement where+  toGObject = GObject . unSVGTextElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTextElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTextElement :: IsGObject obj => obj -> JSM SVGTextElement+castToSVGTextElement = castTo gTypeSVGTextElement "SVGTextElement"++gTypeSVGTextElement :: JSM GType+gTypeSVGTextElement = GType . Object <$> jsg "SVGTextElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTextPathElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGTextContentElement"+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement Mozilla SVGTextPathElement documentation>+newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal }++instance PToJSVal SVGTextPathElement where+  pToJSVal = unSVGTextPathElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTextPathElement where+  pFromJSVal = SVGTextPathElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTextPathElement where+  toJSVal = return . unSVGTextPathElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTextPathElement where+  fromJSVal v = fmap SVGTextPathElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTextPathElement where+  makeObject = makeObject . unSVGTextPathElement++instance IsSVGTextContentElement SVGTextPathElement+instance IsSVGGraphicsElement SVGTextPathElement+instance IsSVGElement SVGTextPathElement+instance IsElement SVGTextPathElement+instance IsNode SVGTextPathElement+instance IsEventTarget SVGTextPathElement+instance IsGObject SVGTextPathElement where+  toGObject = GObject . unSVGTextPathElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTextPathElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTextPathElement :: IsGObject obj => obj -> JSM SVGTextPathElement+castToSVGTextPathElement = castTo gTypeSVGTextPathElement "SVGTextPathElement"++gTypeSVGTextPathElement :: JSM GType+gTypeSVGTextPathElement = GType . Object <$> jsg "SVGTextPathElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTextPositioningElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGTextContentElement"+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement Mozilla SVGTextPositioningElement documentation>+newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal }++instance PToJSVal SVGTextPositioningElement where+  pToJSVal = unSVGTextPositioningElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTextPositioningElement where+  pFromJSVal = SVGTextPositioningElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTextPositioningElement where+  toJSVal = return . unSVGTextPositioningElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTextPositioningElement where+  fromJSVal v = fmap SVGTextPositioningElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTextPositioningElement where+  makeObject = makeObject . unSVGTextPositioningElement++class IsSVGTextContentElement o => IsSVGTextPositioningElement o+toSVGTextPositioningElement :: IsSVGTextPositioningElement o => o -> SVGTextPositioningElement+toSVGTextPositioningElement = unsafeCastGObject . toGObject++instance IsSVGTextPositioningElement SVGTextPositioningElement+instance IsSVGTextContentElement SVGTextPositioningElement+instance IsSVGGraphicsElement SVGTextPositioningElement+instance IsSVGElement SVGTextPositioningElement+instance IsElement SVGTextPositioningElement+instance IsNode SVGTextPositioningElement+instance IsEventTarget SVGTextPositioningElement+instance IsGObject SVGTextPositioningElement where+  toGObject = GObject . unSVGTextPositioningElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTextPositioningElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTextPositioningElement :: IsGObject obj => obj -> JSM SVGTextPositioningElement+castToSVGTextPositioningElement = castTo gTypeSVGTextPositioningElement "SVGTextPositioningElement"++gTypeSVGTextPositioningElement :: JSM GType+gTypeSVGTextPositioningElement = GType . Object <$> jsg "SVGTextPositioningElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTitleElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTitleElement Mozilla SVGTitleElement documentation>+newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal }++instance PToJSVal SVGTitleElement where+  pToJSVal = unSVGTitleElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTitleElement where+  pFromJSVal = SVGTitleElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTitleElement where+  toJSVal = return . unSVGTitleElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTitleElement where+  fromJSVal v = fmap SVGTitleElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTitleElement where+  makeObject = makeObject . unSVGTitleElement++instance IsSVGElement SVGTitleElement+instance IsElement SVGTitleElement+instance IsNode SVGTitleElement+instance IsEventTarget SVGTitleElement+instance IsGObject SVGTitleElement where+  toGObject = GObject . unSVGTitleElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTitleElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTitleElement :: IsGObject obj => obj -> JSM SVGTitleElement+castToSVGTitleElement = castTo gTypeSVGTitleElement "SVGTitleElement"++gTypeSVGTitleElement :: JSM GType+gTypeSVGTitleElement = GType . Object <$> jsg "SVGTitleElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTransform".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform Mozilla SVGTransform documentation>+newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal }++instance PToJSVal SVGTransform where+  pToJSVal = unSVGTransform+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTransform where+  pFromJSVal = SVGTransform+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTransform where+  toJSVal = return . unSVGTransform+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTransform where+  fromJSVal v = fmap SVGTransform <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTransform where+  makeObject = makeObject . unSVGTransform++instance IsGObject SVGTransform where+  toGObject = GObject . unSVGTransform+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTransform . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTransform :: IsGObject obj => obj -> JSM SVGTransform+castToSVGTransform = castTo gTypeSVGTransform "SVGTransform"++gTypeSVGTransform :: JSM GType+gTypeSVGTransform = GType . Object <$> jsg "SVGTransform"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGTransformList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList Mozilla SVGTransformList documentation>+newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal }++instance PToJSVal SVGTransformList where+  pToJSVal = unSVGTransformList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGTransformList where+  pFromJSVal = SVGTransformList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGTransformList where+  toJSVal = return . unSVGTransformList+  {-# INLINE toJSVal #-}++instance FromJSVal SVGTransformList where+  fromJSVal v = fmap SVGTransformList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGTransformList where+  makeObject = makeObject . unSVGTransformList++instance IsGObject SVGTransformList where+  toGObject = GObject . unSVGTransformList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGTransformList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGTransformList :: IsGObject obj => obj -> JSM SVGTransformList+castToSVGTransformList = castTo gTypeSVGTransformList "SVGTransformList"++gTypeSVGTransformList :: JSM GType+gTypeSVGTransformList = GType . Object <$> jsg "SVGTransformList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGURIReference".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGURIReference Mozilla SVGURIReference documentation>+newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal }++instance PToJSVal SVGURIReference where+  pToJSVal = unSVGURIReference+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGURIReference where+  pFromJSVal = SVGURIReference+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGURIReference where+  toJSVal = return . unSVGURIReference+  {-# INLINE toJSVal #-}++instance FromJSVal SVGURIReference where+  fromJSVal v = fmap SVGURIReference <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGURIReference where+  makeObject = makeObject . unSVGURIReference++instance IsGObject SVGURIReference where+  toGObject = GObject . unSVGURIReference+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGURIReference . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGURIReference :: IsGObject obj => obj -> JSM SVGURIReference+castToSVGURIReference = castTo gTypeSVGURIReference "SVGURIReference"++gTypeSVGURIReference :: JSM GType+gTypeSVGURIReference = GType . Object <$> jsg "SVGURIReference"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGUnitTypes".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGUnitTypes Mozilla SVGUnitTypes documentation>+newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal }++instance PToJSVal SVGUnitTypes where+  pToJSVal = unSVGUnitTypes+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGUnitTypes where+  pFromJSVal = SVGUnitTypes+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGUnitTypes where+  toJSVal = return . unSVGUnitTypes+  {-# INLINE toJSVal #-}++instance FromJSVal SVGUnitTypes where+  fromJSVal v = fmap SVGUnitTypes <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGUnitTypes where+  makeObject = makeObject . unSVGUnitTypes++instance IsGObject SVGUnitTypes where+  toGObject = GObject . unSVGUnitTypes+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGUnitTypes . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGUnitTypes :: IsGObject obj => obj -> JSM SVGUnitTypes+castToSVGUnitTypes = castTo gTypeSVGUnitTypes "SVGUnitTypes"++gTypeSVGUnitTypes :: JSM GType+gTypeSVGUnitTypes = GType . Object <$> jsg "SVGUnitTypes"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGUseElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGGraphicsElement"+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement Mozilla SVGUseElement documentation>+newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal }++instance PToJSVal SVGUseElement where+  pToJSVal = unSVGUseElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGUseElement where+  pFromJSVal = SVGUseElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGUseElement where+  toJSVal = return . unSVGUseElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGUseElement where+  fromJSVal v = fmap SVGUseElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGUseElement where+  makeObject = makeObject . unSVGUseElement++instance IsSVGGraphicsElement SVGUseElement+instance IsSVGElement SVGUseElement+instance IsElement SVGUseElement+instance IsNode SVGUseElement+instance IsEventTarget SVGUseElement+instance IsGObject SVGUseElement where+  toGObject = GObject . unSVGUseElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGUseElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGUseElement :: IsGObject obj => obj -> JSM SVGUseElement+castToSVGUseElement = castTo gTypeSVGUseElement "SVGUseElement"++gTypeSVGUseElement :: JSM GType+gTypeSVGUseElement = GType . Object <$> jsg "SVGUseElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGVKernElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGVKernElement Mozilla SVGVKernElement documentation>+newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal }++instance PToJSVal SVGVKernElement where+  pToJSVal = unSVGVKernElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGVKernElement where+  pFromJSVal = SVGVKernElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGVKernElement where+  toJSVal = return . unSVGVKernElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGVKernElement where+  fromJSVal v = fmap SVGVKernElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGVKernElement where+  makeObject = makeObject . unSVGVKernElement++instance IsSVGElement SVGVKernElement+instance IsElement SVGVKernElement+instance IsNode SVGVKernElement+instance IsEventTarget SVGVKernElement+instance IsGObject SVGVKernElement where+  toGObject = GObject . unSVGVKernElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGVKernElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGVKernElement :: IsGObject obj => obj -> JSM SVGVKernElement+castToSVGVKernElement = castTo gTypeSVGVKernElement "SVGVKernElement"++gTypeSVGVKernElement :: JSM GType+gTypeSVGVKernElement = GType . Object <$> jsg "SVGVKernElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGViewElement".+-- Base interface functions are in:+--+--     * "JSDOM.SVGElement"+--     * "JSDOM.Element"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewElement Mozilla SVGViewElement documentation>+newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal }++instance PToJSVal SVGViewElement where+  pToJSVal = unSVGViewElement+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGViewElement where+  pFromJSVal = SVGViewElement+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGViewElement where+  toJSVal = return . unSVGViewElement+  {-# INLINE toJSVal #-}++instance FromJSVal SVGViewElement where+  fromJSVal v = fmap SVGViewElement <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGViewElement where+  makeObject = makeObject . unSVGViewElement++instance IsSVGElement SVGViewElement+instance IsElement SVGViewElement+instance IsNode SVGViewElement+instance IsEventTarget SVGViewElement+instance IsGObject SVGViewElement where+  toGObject = GObject . unSVGViewElement+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGViewElement . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGViewElement :: IsGObject obj => obj -> JSM SVGViewElement+castToSVGViewElement = castTo gTypeSVGViewElement "SVGViewElement"++gTypeSVGViewElement :: JSM GType+gTypeSVGViewElement = GType . Object <$> jsg "SVGViewElement"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGViewSpec".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec Mozilla SVGViewSpec documentation>+newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal }++instance PToJSVal SVGViewSpec where+  pToJSVal = unSVGViewSpec+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGViewSpec where+  pFromJSVal = SVGViewSpec+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGViewSpec where+  toJSVal = return . unSVGViewSpec+  {-# INLINE toJSVal #-}++instance FromJSVal SVGViewSpec where+  fromJSVal v = fmap SVGViewSpec <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGViewSpec where+  makeObject = makeObject . unSVGViewSpec++instance IsGObject SVGViewSpec where+  toGObject = GObject . unSVGViewSpec+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGViewSpec . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGViewSpec :: IsGObject obj => obj -> JSM SVGViewSpec+castToSVGViewSpec = castTo gTypeSVGViewSpec "SVGViewSpec"++gTypeSVGViewSpec :: JSM GType+gTypeSVGViewSpec = GType . Object <$> jsg "SVGViewSpec"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGZoomAndPan".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomAndPan Mozilla SVGZoomAndPan documentation>+newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal }++instance PToJSVal SVGZoomAndPan where+  pToJSVal = unSVGZoomAndPan+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGZoomAndPan where+  pFromJSVal = SVGZoomAndPan+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGZoomAndPan where+  toJSVal = return . unSVGZoomAndPan+  {-# INLINE toJSVal #-}++instance FromJSVal SVGZoomAndPan where+  fromJSVal v = fmap SVGZoomAndPan <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGZoomAndPan where+  makeObject = makeObject . unSVGZoomAndPan++instance IsGObject SVGZoomAndPan where+  toGObject = GObject . unSVGZoomAndPan+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGZoomAndPan . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGZoomAndPan :: IsGObject obj => obj -> JSM SVGZoomAndPan+castToSVGZoomAndPan = castTo gTypeSVGZoomAndPan "SVGZoomAndPan"++gTypeSVGZoomAndPan :: JSM GType+gTypeSVGZoomAndPan = GType . Object <$> jsg "SVGZoomAndPan"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SVGZoomEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent Mozilla SVGZoomEvent documentation>+newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal }++instance PToJSVal SVGZoomEvent where+  pToJSVal = unSVGZoomEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal SVGZoomEvent where+  pFromJSVal = SVGZoomEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal SVGZoomEvent where+  toJSVal = return . unSVGZoomEvent+  {-# INLINE toJSVal #-}++instance FromJSVal SVGZoomEvent where+  fromJSVal v = fmap SVGZoomEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SVGZoomEvent where+  makeObject = makeObject . unSVGZoomEvent++instance IsUIEvent SVGZoomEvent+instance IsEvent SVGZoomEvent+instance IsGObject SVGZoomEvent where+  toGObject = GObject . unSVGZoomEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = SVGZoomEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSVGZoomEvent :: IsGObject obj => obj -> JSM SVGZoomEvent+castToSVGZoomEvent = castTo gTypeSVGZoomEvent "SVGZoomEvent"++gTypeSVGZoomEvent :: JSM GType+gTypeSVGZoomEvent = GType . Object <$> jsg "SVGZoomEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Screen".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Screen Mozilla Screen documentation>+newtype Screen = Screen { unScreen :: JSVal }++instance PToJSVal Screen where+  pToJSVal = unScreen+  {-# INLINE pToJSVal #-}++instance PFromJSVal Screen where+  pFromJSVal = Screen+  {-# INLINE pFromJSVal #-}++instance ToJSVal Screen where+  toJSVal = return . unScreen+  {-# INLINE toJSVal #-}++instance FromJSVal Screen where+  fromJSVal v = fmap Screen <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Screen where+  makeObject = makeObject . unScreen++instance IsGObject Screen where+  toGObject = GObject . unScreen+  {-# INLINE toGObject #-}+  unsafeCastGObject = Screen . unGObject+  {-# INLINE unsafeCastGObject #-}++castToScreen :: IsGObject obj => obj -> JSM Screen+castToScreen = castTo gTypeScreen "Screen"++gTypeScreen :: JSM GType+gTypeScreen = GType . Object <$> jsg "Screen"+#else+type IsScreen o = ScreenClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ScriptProcessorNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProcessorNode Mozilla ScriptProcessorNode documentation>+newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal }++instance PToJSVal ScriptProcessorNode where+  pToJSVal = unScriptProcessorNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal ScriptProcessorNode where+  pFromJSVal = ScriptProcessorNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal ScriptProcessorNode where+  toJSVal = return . unScriptProcessorNode+  {-# INLINE toJSVal #-}++instance FromJSVal ScriptProcessorNode where+  fromJSVal v = fmap ScriptProcessorNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ScriptProcessorNode where+  makeObject = makeObject . unScriptProcessorNode++instance IsAudioNode ScriptProcessorNode+instance IsEventTarget ScriptProcessorNode+instance IsGObject ScriptProcessorNode where+  toGObject = GObject . unScriptProcessorNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = ScriptProcessorNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToScriptProcessorNode :: IsGObject obj => obj -> JSM ScriptProcessorNode+castToScriptProcessorNode = castTo gTypeScriptProcessorNode "ScriptProcessorNode"++gTypeScriptProcessorNode :: JSM GType+gTypeScriptProcessorNode = GType . Object <$> jsg "ScriptProcessorNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ScriptProfile".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile Mozilla ScriptProfile documentation>+newtype ScriptProfile = ScriptProfile { unScriptProfile :: JSVal }++instance PToJSVal ScriptProfile where+  pToJSVal = unScriptProfile+  {-# INLINE pToJSVal #-}++instance PFromJSVal ScriptProfile where+  pFromJSVal = ScriptProfile+  {-# INLINE pFromJSVal #-}++instance ToJSVal ScriptProfile where+  toJSVal = return . unScriptProfile+  {-# INLINE toJSVal #-}++instance FromJSVal ScriptProfile where+  fromJSVal v = fmap ScriptProfile <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ScriptProfile where+  makeObject = makeObject . unScriptProfile++instance IsGObject ScriptProfile where+  toGObject = GObject . unScriptProfile+  {-# INLINE toGObject #-}+  unsafeCastGObject = ScriptProfile . unGObject+  {-# INLINE unsafeCastGObject #-}++castToScriptProfile :: IsGObject obj => obj -> JSM ScriptProfile+castToScriptProfile = castTo gTypeScriptProfile "ScriptProfile"++gTypeScriptProfile :: JSM GType+gTypeScriptProfile = GType . Object <$> jsg "ScriptProfile"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ScriptProfileNode".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode Mozilla ScriptProfileNode documentation>+newtype ScriptProfileNode = ScriptProfileNode { unScriptProfileNode :: JSVal }++instance PToJSVal ScriptProfileNode where+  pToJSVal = unScriptProfileNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal ScriptProfileNode where+  pFromJSVal = ScriptProfileNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal ScriptProfileNode where+  toJSVal = return . unScriptProfileNode+  {-# INLINE toJSVal #-}++instance FromJSVal ScriptProfileNode where+  fromJSVal v = fmap ScriptProfileNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ScriptProfileNode where+  makeObject = makeObject . unScriptProfileNode++instance IsGObject ScriptProfileNode where+  toGObject = GObject . unScriptProfileNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = ScriptProfileNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToScriptProfileNode :: IsGObject obj => obj -> JSM ScriptProfileNode+castToScriptProfileNode = castTo gTypeScriptProfileNode "ScriptProfileNode"++gTypeScriptProfileNode :: JSM GType+gTypeScriptProfileNode = GType . Object <$> jsg "ScriptProfileNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SecurityPolicy".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy Mozilla SecurityPolicy documentation>+newtype SecurityPolicy = SecurityPolicy { unSecurityPolicy :: JSVal }++instance PToJSVal SecurityPolicy where+  pToJSVal = unSecurityPolicy+  {-# INLINE pToJSVal #-}++instance PFromJSVal SecurityPolicy where+  pFromJSVal = SecurityPolicy+  {-# INLINE pFromJSVal #-}++instance ToJSVal SecurityPolicy where+  toJSVal = return . unSecurityPolicy+  {-# INLINE toJSVal #-}++instance FromJSVal SecurityPolicy where+  fromJSVal v = fmap SecurityPolicy <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SecurityPolicy where+  makeObject = makeObject . unSecurityPolicy++instance IsGObject SecurityPolicy where+  toGObject = GObject . unSecurityPolicy+  {-# INLINE toGObject #-}+  unsafeCastGObject = SecurityPolicy . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSecurityPolicy :: IsGObject obj => obj -> JSM SecurityPolicy+castToSecurityPolicy = castTo gTypeSecurityPolicy "SecurityPolicy"++gTypeSecurityPolicy :: JSM GType+gTypeSecurityPolicy = GType . Object <$> jsg "SecurityPolicy"+#else+#ifndef USE_OLD_WEBKIT+type IsSecurityPolicy o = SecurityPolicyClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SecurityPolicyViolationEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent Mozilla SecurityPolicyViolationEvent documentation>+newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal }++instance PToJSVal SecurityPolicyViolationEvent where+  pToJSVal = unSecurityPolicyViolationEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal SecurityPolicyViolationEvent where+  pFromJSVal = SecurityPolicyViolationEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal SecurityPolicyViolationEvent where+  toJSVal = return . unSecurityPolicyViolationEvent+  {-# INLINE toJSVal #-}++instance FromJSVal SecurityPolicyViolationEvent where+  fromJSVal v = fmap SecurityPolicyViolationEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SecurityPolicyViolationEvent where+  makeObject = makeObject . unSecurityPolicyViolationEvent++instance IsEvent SecurityPolicyViolationEvent+instance IsGObject SecurityPolicyViolationEvent where+  toGObject = GObject . unSecurityPolicyViolationEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = SecurityPolicyViolationEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSecurityPolicyViolationEvent :: IsGObject obj => obj -> JSM SecurityPolicyViolationEvent+castToSecurityPolicyViolationEvent = castTo gTypeSecurityPolicyViolationEvent "SecurityPolicyViolationEvent"++gTypeSecurityPolicyViolationEvent :: JSM GType+gTypeSecurityPolicyViolationEvent = GType . Object <$> jsg "SecurityPolicyViolationEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Selection".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Selection Mozilla Selection documentation>+newtype Selection = Selection { unSelection :: JSVal }++instance PToJSVal Selection where+  pToJSVal = unSelection+  {-# INLINE pToJSVal #-}++instance PFromJSVal Selection where+  pFromJSVal = Selection+  {-# INLINE pFromJSVal #-}++instance ToJSVal Selection where+  toJSVal = return . unSelection+  {-# INLINE toJSVal #-}++instance FromJSVal Selection where+  fromJSVal v = fmap Selection <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Selection where+  makeObject = makeObject . unSelection++instance IsGObject Selection where+  toGObject = GObject . unSelection+  {-# INLINE toGObject #-}+  unsafeCastGObject = Selection . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSelection :: IsGObject obj => obj -> JSM Selection+castToSelection = castTo gTypeSelection "Selection"++gTypeSelection :: JSM GType+gTypeSelection = GType . Object <$> jsg "Selection"+#else+type IsSelection o = SelectionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SourceBuffer".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer Mozilla SourceBuffer documentation>+newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal }++instance PToJSVal SourceBuffer where+  pToJSVal = unSourceBuffer+  {-# INLINE pToJSVal #-}++instance PFromJSVal SourceBuffer where+  pFromJSVal = SourceBuffer+  {-# INLINE pFromJSVal #-}++instance ToJSVal SourceBuffer where+  toJSVal = return . unSourceBuffer+  {-# INLINE toJSVal #-}++instance FromJSVal SourceBuffer where+  fromJSVal v = fmap SourceBuffer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SourceBuffer where+  makeObject = makeObject . unSourceBuffer++instance IsEventTarget SourceBuffer+instance IsGObject SourceBuffer where+  toGObject = GObject . unSourceBuffer+  {-# INLINE toGObject #-}+  unsafeCastGObject = SourceBuffer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSourceBuffer :: IsGObject obj => obj -> JSM SourceBuffer+castToSourceBuffer = castTo gTypeSourceBuffer "SourceBuffer"++gTypeSourceBuffer :: JSM GType+gTypeSourceBuffer = GType . Object <$> jsg "SourceBuffer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SourceBufferList".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SourceBufferList Mozilla SourceBufferList documentation>+newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal }++instance PToJSVal SourceBufferList where+  pToJSVal = unSourceBufferList+  {-# INLINE pToJSVal #-}++instance PFromJSVal SourceBufferList where+  pFromJSVal = SourceBufferList+  {-# INLINE pFromJSVal #-}++instance ToJSVal SourceBufferList where+  toJSVal = return . unSourceBufferList+  {-# INLINE toJSVal #-}++instance FromJSVal SourceBufferList where+  fromJSVal v = fmap SourceBufferList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SourceBufferList where+  makeObject = makeObject . unSourceBufferList++instance IsEventTarget SourceBufferList+instance IsGObject SourceBufferList where+  toGObject = GObject . unSourceBufferList+  {-# INLINE toGObject #-}+  unsafeCastGObject = SourceBufferList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSourceBufferList :: IsGObject obj => obj -> JSM SourceBufferList+castToSourceBufferList = castTo gTypeSourceBufferList "SourceBufferList"++gTypeSourceBufferList :: JSM GType+gTypeSourceBufferList = GType . Object <$> jsg "SourceBufferList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SourceInfo".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo Mozilla SourceInfo documentation>+newtype SourceInfo = SourceInfo { unSourceInfo :: JSVal }++instance PToJSVal SourceInfo where+  pToJSVal = unSourceInfo+  {-# INLINE pToJSVal #-}++instance PFromJSVal SourceInfo where+  pFromJSVal = SourceInfo+  {-# INLINE pFromJSVal #-}++instance ToJSVal SourceInfo where+  toJSVal = return . unSourceInfo+  {-# INLINE toJSVal #-}++instance FromJSVal SourceInfo where+  fromJSVal v = fmap SourceInfo <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SourceInfo where+  makeObject = makeObject . unSourceInfo++instance IsGObject SourceInfo where+  toGObject = GObject . unSourceInfo+  {-# INLINE toGObject #-}+  unsafeCastGObject = SourceInfo . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSourceInfo :: IsGObject obj => obj -> JSM SourceInfo+castToSourceInfo = castTo gTypeSourceInfo "SourceInfo"++gTypeSourceInfo :: JSM GType+gTypeSourceInfo = GType . Object <$> jsg "SourceInfo"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SpeechSynthesis".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis Mozilla SpeechSynthesis documentation>+newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal }++instance PToJSVal SpeechSynthesis where+  pToJSVal = unSpeechSynthesis+  {-# INLINE pToJSVal #-}++instance PFromJSVal SpeechSynthesis where+  pFromJSVal = SpeechSynthesis+  {-# INLINE pFromJSVal #-}++instance ToJSVal SpeechSynthesis where+  toJSVal = return . unSpeechSynthesis+  {-# INLINE toJSVal #-}++instance FromJSVal SpeechSynthesis where+  fromJSVal v = fmap SpeechSynthesis <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SpeechSynthesis where+  makeObject = makeObject . unSpeechSynthesis++instance IsGObject SpeechSynthesis where+  toGObject = GObject . unSpeechSynthesis+  {-# INLINE toGObject #-}+  unsafeCastGObject = SpeechSynthesis . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSpeechSynthesis :: IsGObject obj => obj -> JSM SpeechSynthesis+castToSpeechSynthesis = castTo gTypeSpeechSynthesis "SpeechSynthesis"++gTypeSpeechSynthesis :: JSM GType+gTypeSpeechSynthesis = GType . Object <$> jsg "SpeechSynthesis"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SpeechSynthesisEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent Mozilla SpeechSynthesisEvent documentation>+newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal }++instance PToJSVal SpeechSynthesisEvent where+  pToJSVal = unSpeechSynthesisEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal SpeechSynthesisEvent where+  pFromJSVal = SpeechSynthesisEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal SpeechSynthesisEvent where+  toJSVal = return . unSpeechSynthesisEvent+  {-# INLINE toJSVal #-}++instance FromJSVal SpeechSynthesisEvent where+  fromJSVal v = fmap SpeechSynthesisEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SpeechSynthesisEvent where+  makeObject = makeObject . unSpeechSynthesisEvent++instance IsEvent SpeechSynthesisEvent+instance IsGObject SpeechSynthesisEvent where+  toGObject = GObject . unSpeechSynthesisEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = SpeechSynthesisEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSpeechSynthesisEvent :: IsGObject obj => obj -> JSM SpeechSynthesisEvent+castToSpeechSynthesisEvent = castTo gTypeSpeechSynthesisEvent "SpeechSynthesisEvent"++gTypeSpeechSynthesisEvent :: JSM GType+gTypeSpeechSynthesisEvent = GType . Object <$> jsg "SpeechSynthesisEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SpeechSynthesisUtterance".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance Mozilla SpeechSynthesisUtterance documentation>+newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal }++instance PToJSVal SpeechSynthesisUtterance where+  pToJSVal = unSpeechSynthesisUtterance+  {-# INLINE pToJSVal #-}++instance PFromJSVal SpeechSynthesisUtterance where+  pFromJSVal = SpeechSynthesisUtterance+  {-# INLINE pFromJSVal #-}++instance ToJSVal SpeechSynthesisUtterance where+  toJSVal = return . unSpeechSynthesisUtterance+  {-# INLINE toJSVal #-}++instance FromJSVal SpeechSynthesisUtterance where+  fromJSVal v = fmap SpeechSynthesisUtterance <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SpeechSynthesisUtterance where+  makeObject = makeObject . unSpeechSynthesisUtterance++instance IsEventTarget SpeechSynthesisUtterance+instance IsGObject SpeechSynthesisUtterance where+  toGObject = GObject . unSpeechSynthesisUtterance+  {-# INLINE toGObject #-}+  unsafeCastGObject = SpeechSynthesisUtterance . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSpeechSynthesisUtterance :: IsGObject obj => obj -> JSM SpeechSynthesisUtterance+castToSpeechSynthesisUtterance = castTo gTypeSpeechSynthesisUtterance "SpeechSynthesisUtterance"++gTypeSpeechSynthesisUtterance :: JSM GType+gTypeSpeechSynthesisUtterance = GType . Object <$> jsg "SpeechSynthesisUtterance"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SpeechSynthesisVoice".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice Mozilla SpeechSynthesisVoice documentation>+newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal }++instance PToJSVal SpeechSynthesisVoice where+  pToJSVal = unSpeechSynthesisVoice+  {-# INLINE pToJSVal #-}++instance PFromJSVal SpeechSynthesisVoice where+  pFromJSVal = SpeechSynthesisVoice+  {-# INLINE pFromJSVal #-}++instance ToJSVal SpeechSynthesisVoice where+  toJSVal = return . unSpeechSynthesisVoice+  {-# INLINE toJSVal #-}++instance FromJSVal SpeechSynthesisVoice where+  fromJSVal v = fmap SpeechSynthesisVoice <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SpeechSynthesisVoice where+  makeObject = makeObject . unSpeechSynthesisVoice++instance IsGObject SpeechSynthesisVoice where+  toGObject = GObject . unSpeechSynthesisVoice+  {-# INLINE toGObject #-}+  unsafeCastGObject = SpeechSynthesisVoice . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSpeechSynthesisVoice :: IsGObject obj => obj -> JSM SpeechSynthesisVoice+castToSpeechSynthesisVoice = castTo gTypeSpeechSynthesisVoice "SpeechSynthesisVoice"++gTypeSpeechSynthesisVoice :: JSM GType+gTypeSpeechSynthesisVoice = GType . Object <$> jsg "SpeechSynthesisVoice"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Storage".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Storage Mozilla Storage documentation>+newtype Storage = Storage { unStorage :: JSVal }++instance PToJSVal Storage where+  pToJSVal = unStorage+  {-# INLINE pToJSVal #-}++instance PFromJSVal Storage where+  pFromJSVal = Storage+  {-# INLINE pFromJSVal #-}++instance ToJSVal Storage where+  toJSVal = return . unStorage+  {-# INLINE toJSVal #-}++instance FromJSVal Storage where+  fromJSVal v = fmap Storage <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Storage where+  makeObject = makeObject . unStorage++instance IsGObject Storage where+  toGObject = GObject . unStorage+  {-# INLINE toGObject #-}+  unsafeCastGObject = Storage . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStorage :: IsGObject obj => obj -> JSM Storage+castToStorage = castTo gTypeStorage "Storage"++gTypeStorage :: JSM GType+gTypeStorage = GType . Object <$> jsg "Storage"+#else+type IsStorage o = StorageClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.StorageEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent Mozilla StorageEvent documentation>+newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal }++instance PToJSVal StorageEvent where+  pToJSVal = unStorageEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal StorageEvent where+  pFromJSVal = StorageEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal StorageEvent where+  toJSVal = return . unStorageEvent+  {-# INLINE toJSVal #-}++instance FromJSVal StorageEvent where+  fromJSVal v = fmap StorageEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject StorageEvent where+  makeObject = makeObject . unStorageEvent++instance IsEvent StorageEvent+instance IsGObject StorageEvent where+  toGObject = GObject . unStorageEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = StorageEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStorageEvent :: IsGObject obj => obj -> JSM StorageEvent+castToStorageEvent = castTo gTypeStorageEvent "StorageEvent"++gTypeStorageEvent :: JSM GType+gTypeStorageEvent = GType . Object <$> jsg "StorageEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.StorageInfo".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/StorageInfo Mozilla StorageInfo documentation>+newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal }++instance PToJSVal StorageInfo where+  pToJSVal = unStorageInfo+  {-# INLINE pToJSVal #-}++instance PFromJSVal StorageInfo where+  pFromJSVal = StorageInfo+  {-# INLINE pFromJSVal #-}++instance ToJSVal StorageInfo where+  toJSVal = return . unStorageInfo+  {-# INLINE toJSVal #-}++instance FromJSVal StorageInfo where+  fromJSVal v = fmap StorageInfo <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject StorageInfo where+  makeObject = makeObject . unStorageInfo++instance IsGObject StorageInfo where+  toGObject = GObject . unStorageInfo+  {-# INLINE toGObject #-}+  unsafeCastGObject = StorageInfo . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStorageInfo :: IsGObject obj => obj -> JSM StorageInfo+castToStorageInfo = castTo gTypeStorageInfo "StorageInfo"++gTypeStorageInfo :: JSM GType+gTypeStorageInfo = GType . Object <$> jsg "StorageInfo"+#else+#ifndef USE_OLD_WEBKIT+type IsStorageInfo o = StorageInfoClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.StorageQuota".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuota Mozilla StorageQuota documentation>+newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal }++instance PToJSVal StorageQuota where+  pToJSVal = unStorageQuota+  {-# INLINE pToJSVal #-}++instance PFromJSVal StorageQuota where+  pFromJSVal = StorageQuota+  {-# INLINE pFromJSVal #-}++instance ToJSVal StorageQuota where+  toJSVal = return . unStorageQuota+  {-# INLINE toJSVal #-}++instance FromJSVal StorageQuota where+  fromJSVal v = fmap StorageQuota <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject StorageQuota where+  makeObject = makeObject . unStorageQuota++instance IsGObject StorageQuota where+  toGObject = GObject . unStorageQuota+  {-# INLINE toGObject #-}+  unsafeCastGObject = StorageQuota . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStorageQuota :: IsGObject obj => obj -> JSM StorageQuota+castToStorageQuota = castTo gTypeStorageQuota "StorageQuota"++gTypeStorageQuota :: JSM GType+gTypeStorageQuota = GType . Object <$> jsg "StorageQuota"+#else+#ifndef USE_OLD_WEBKIT+type IsStorageQuota o = StorageQuotaClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.StyleMedia".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/StyleMedia Mozilla StyleMedia documentation>+newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal }++instance PToJSVal StyleMedia where+  pToJSVal = unStyleMedia+  {-# INLINE pToJSVal #-}++instance PFromJSVal StyleMedia where+  pFromJSVal = StyleMedia+  {-# INLINE pFromJSVal #-}++instance ToJSVal StyleMedia where+  toJSVal = return . unStyleMedia+  {-# INLINE toJSVal #-}++instance FromJSVal StyleMedia where+  fromJSVal v = fmap StyleMedia <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject StyleMedia where+  makeObject = makeObject . unStyleMedia++instance IsGObject StyleMedia where+  toGObject = GObject . unStyleMedia+  {-# INLINE toGObject #-}+  unsafeCastGObject = StyleMedia . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStyleMedia :: IsGObject obj => obj -> JSM StyleMedia+castToStyleMedia = castTo gTypeStyleMedia "StyleMedia"++gTypeStyleMedia :: JSM GType+gTypeStyleMedia = GType . Object <$> jsg "StyleMedia"+#else+type IsStyleMedia o = StyleMediaClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.StyleSheet".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet Mozilla StyleSheet documentation>+newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal }++instance PToJSVal StyleSheet where+  pToJSVal = unStyleSheet+  {-# INLINE pToJSVal #-}++instance PFromJSVal StyleSheet where+  pFromJSVal = StyleSheet+  {-# INLINE pFromJSVal #-}++instance ToJSVal StyleSheet where+  toJSVal = return . unStyleSheet+  {-# INLINE toJSVal #-}++instance FromJSVal StyleSheet where+  fromJSVal v = fmap StyleSheet <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject StyleSheet where+  makeObject = makeObject . unStyleSheet++class IsGObject o => IsStyleSheet o+toStyleSheet :: IsStyleSheet o => o -> StyleSheet+toStyleSheet = unsafeCastGObject . toGObject++instance IsStyleSheet StyleSheet+instance IsGObject StyleSheet where+  toGObject = GObject . unStyleSheet+  {-# INLINE toGObject #-}+  unsafeCastGObject = StyleSheet . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStyleSheet :: IsGObject obj => obj -> JSM StyleSheet+castToStyleSheet = castTo gTypeStyleSheet "StyleSheet"++gTypeStyleSheet :: JSM GType+gTypeStyleSheet = GType . Object <$> jsg "StyleSheet"+#else+type IsStyleSheet o = StyleSheetClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.StyleSheetList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList Mozilla StyleSheetList documentation>+newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal }++instance PToJSVal StyleSheetList where+  pToJSVal = unStyleSheetList+  {-# INLINE pToJSVal #-}++instance PFromJSVal StyleSheetList where+  pFromJSVal = StyleSheetList+  {-# INLINE pFromJSVal #-}++instance ToJSVal StyleSheetList where+  toJSVal = return . unStyleSheetList+  {-# INLINE toJSVal #-}++instance FromJSVal StyleSheetList where+  fromJSVal v = fmap StyleSheetList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject StyleSheetList where+  makeObject = makeObject . unStyleSheetList++instance IsGObject StyleSheetList where+  toGObject = GObject . unStyleSheetList+  {-# INLINE toGObject #-}+  unsafeCastGObject = StyleSheetList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToStyleSheetList :: IsGObject obj => obj -> JSM StyleSheetList+castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList"++gTypeStyleSheetList :: JSM GType+gTypeStyleSheetList = GType . Object <$> jsg "StyleSheetList"+#else+type IsStyleSheetList o = StyleSheetListClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.SubtleCrypto".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto Mozilla WebKitSubtleCrypto documentation>+newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal }++instance PToJSVal SubtleCrypto where+  pToJSVal = unSubtleCrypto+  {-# INLINE pToJSVal #-}++instance PFromJSVal SubtleCrypto where+  pFromJSVal = SubtleCrypto+  {-# INLINE pFromJSVal #-}++instance ToJSVal SubtleCrypto where+  toJSVal = return . unSubtleCrypto+  {-# INLINE toJSVal #-}++instance FromJSVal SubtleCrypto where+  fromJSVal v = fmap SubtleCrypto <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject SubtleCrypto where+  makeObject = makeObject . unSubtleCrypto++instance IsGObject SubtleCrypto where+  toGObject = GObject . unSubtleCrypto+  {-# INLINE toGObject #-}+  unsafeCastGObject = SubtleCrypto . unGObject+  {-# INLINE unsafeCastGObject #-}++castToSubtleCrypto :: IsGObject obj => obj -> JSM SubtleCrypto+castToSubtleCrypto = castTo gTypeSubtleCrypto "SubtleCrypto"++gTypeSubtleCrypto :: JSM GType+gTypeSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Text".+-- Base interface functions are in:+--+--     * "JSDOM.CharacterData"+--     * "JSDOM.Node"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Text Mozilla Text documentation>+newtype Text = Text { unText :: JSVal }++instance PToJSVal Text where+  pToJSVal = unText+  {-# INLINE pToJSVal #-}++instance PFromJSVal Text where+  pFromJSVal = Text+  {-# INLINE pFromJSVal #-}++instance ToJSVal Text where+  toJSVal = return . unText+  {-# INLINE toJSVal #-}++instance FromJSVal Text where+  fromJSVal v = fmap Text <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Text where+  makeObject = makeObject . unText++class IsCharacterData o => IsText o+toText :: IsText o => o -> Text+toText = unsafeCastGObject . toGObject++instance IsText Text+instance IsCharacterData Text+instance IsNode Text+instance IsEventTarget Text+instance IsGObject Text where+  toGObject = GObject . unText+  {-# INLINE toGObject #-}+  unsafeCastGObject = Text . unGObject+  {-# INLINE unsafeCastGObject #-}++castToText :: IsGObject obj => obj -> JSM Text+castToText = castTo gTypeText "Text"++gTypeText :: JSM GType+gTypeText = GType . Object <$> jsg "Text"+#else+type IsText o = TextClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TextEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TextEvent Mozilla TextEvent documentation>+newtype TextEvent = TextEvent { unTextEvent :: JSVal }++instance PToJSVal TextEvent where+  pToJSVal = unTextEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal TextEvent where+  pFromJSVal = TextEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal TextEvent where+  toJSVal = return . unTextEvent+  {-# INLINE toJSVal #-}++instance FromJSVal TextEvent where+  fromJSVal v = fmap TextEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TextEvent where+  makeObject = makeObject . unTextEvent++instance IsUIEvent TextEvent+instance IsEvent TextEvent+instance IsGObject TextEvent where+  toGObject = GObject . unTextEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = TextEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTextEvent :: IsGObject obj => obj -> JSM TextEvent+castToTextEvent = castTo gTypeTextEvent "TextEvent"++gTypeTextEvent :: JSM GType+gTypeTextEvent = GType . Object <$> jsg "TextEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TextMetrics".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TextMetrics Mozilla TextMetrics documentation>+newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal }++instance PToJSVal TextMetrics where+  pToJSVal = unTextMetrics+  {-# INLINE pToJSVal #-}++instance PFromJSVal TextMetrics where+  pFromJSVal = TextMetrics+  {-# INLINE pFromJSVal #-}++instance ToJSVal TextMetrics where+  toJSVal = return . unTextMetrics+  {-# INLINE toJSVal #-}++instance FromJSVal TextMetrics where+  fromJSVal v = fmap TextMetrics <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TextMetrics where+  makeObject = makeObject . unTextMetrics++instance IsGObject TextMetrics where+  toGObject = GObject . unTextMetrics+  {-# INLINE toGObject #-}+  unsafeCastGObject = TextMetrics . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTextMetrics :: IsGObject obj => obj -> JSM TextMetrics+castToTextMetrics = castTo gTypeTextMetrics "TextMetrics"++gTypeTextMetrics :: JSM GType+gTypeTextMetrics = GType . Object <$> jsg "TextMetrics"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TextTrack".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack Mozilla TextTrack documentation>+newtype TextTrack = TextTrack { unTextTrack :: JSVal }++instance PToJSVal TextTrack where+  pToJSVal = unTextTrack+  {-# INLINE pToJSVal #-}++instance PFromJSVal TextTrack where+  pFromJSVal = TextTrack+  {-# INLINE pFromJSVal #-}++instance ToJSVal TextTrack where+  toJSVal = return . unTextTrack+  {-# INLINE toJSVal #-}++instance FromJSVal TextTrack where+  fromJSVal v = fmap TextTrack <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TextTrack where+  makeObject = makeObject . unTextTrack++instance IsEventTarget TextTrack+instance IsGObject TextTrack where+  toGObject = GObject . unTextTrack+  {-# INLINE toGObject #-}+  unsafeCastGObject = TextTrack . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTextTrack :: IsGObject obj => obj -> JSM TextTrack+castToTextTrack = castTo gTypeTextTrack "TextTrack"++gTypeTextTrack :: JSM GType+gTypeTextTrack = GType . Object <$> jsg "TextTrack"+#else+#ifndef USE_OLD_WEBKIT+type IsTextTrack o = TextTrackClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TextTrackCue".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue Mozilla TextTrackCue documentation>+newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal }++instance PToJSVal TextTrackCue where+  pToJSVal = unTextTrackCue+  {-# INLINE pToJSVal #-}++instance PFromJSVal TextTrackCue where+  pFromJSVal = TextTrackCue+  {-# INLINE pFromJSVal #-}++instance ToJSVal TextTrackCue where+  toJSVal = return . unTextTrackCue+  {-# INLINE toJSVal #-}++instance FromJSVal TextTrackCue where+  fromJSVal v = fmap TextTrackCue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TextTrackCue where+  makeObject = makeObject . unTextTrackCue++class IsEventTarget o => IsTextTrackCue o+toTextTrackCue :: IsTextTrackCue o => o -> TextTrackCue+toTextTrackCue = unsafeCastGObject . toGObject++instance IsTextTrackCue TextTrackCue+instance IsEventTarget TextTrackCue+instance IsGObject TextTrackCue where+  toGObject = GObject . unTextTrackCue+  {-# INLINE toGObject #-}+  unsafeCastGObject = TextTrackCue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTextTrackCue :: IsGObject obj => obj -> JSM TextTrackCue+castToTextTrackCue = castTo gTypeTextTrackCue "TextTrackCue"++gTypeTextTrackCue :: JSM GType+gTypeTextTrackCue = GType . Object <$> jsg "TextTrackCue"+#else+#ifndef USE_OLD_WEBKIT+type IsTextTrackCue o = TextTrackCueClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TextTrackCueList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList Mozilla TextTrackCueList documentation>+newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal }++instance PToJSVal TextTrackCueList where+  pToJSVal = unTextTrackCueList+  {-# INLINE pToJSVal #-}++instance PFromJSVal TextTrackCueList where+  pFromJSVal = TextTrackCueList+  {-# INLINE pFromJSVal #-}++instance ToJSVal TextTrackCueList where+  toJSVal = return . unTextTrackCueList+  {-# INLINE toJSVal #-}++instance FromJSVal TextTrackCueList where+  fromJSVal v = fmap TextTrackCueList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TextTrackCueList where+  makeObject = makeObject . unTextTrackCueList++instance IsGObject TextTrackCueList where+  toGObject = GObject . unTextTrackCueList+  {-# INLINE toGObject #-}+  unsafeCastGObject = TextTrackCueList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTextTrackCueList :: IsGObject obj => obj -> JSM TextTrackCueList+castToTextTrackCueList = castTo gTypeTextTrackCueList "TextTrackCueList"++gTypeTextTrackCueList :: JSM GType+gTypeTextTrackCueList = GType . Object <$> jsg "TextTrackCueList"+#else+#ifndef USE_OLD_WEBKIT+type IsTextTrackCueList o = TextTrackCueListClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TextTrackList".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList Mozilla TextTrackList documentation>+newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal }++instance PToJSVal TextTrackList where+  pToJSVal = unTextTrackList+  {-# INLINE pToJSVal #-}++instance PFromJSVal TextTrackList where+  pFromJSVal = TextTrackList+  {-# INLINE pFromJSVal #-}++instance ToJSVal TextTrackList where+  toJSVal = return . unTextTrackList+  {-# INLINE toJSVal #-}++instance FromJSVal TextTrackList where+  fromJSVal v = fmap TextTrackList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TextTrackList where+  makeObject = makeObject . unTextTrackList++instance IsEventTarget TextTrackList+instance IsGObject TextTrackList where+  toGObject = GObject . unTextTrackList+  {-# INLINE toGObject #-}+  unsafeCastGObject = TextTrackList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTextTrackList :: IsGObject obj => obj -> JSM TextTrackList+castToTextTrackList = castTo gTypeTextTrackList "TextTrackList"++gTypeTextTrackList :: JSM GType+gTypeTextTrackList = GType . Object <$> jsg "TextTrackList"+#else+#ifndef USE_OLD_WEBKIT+type IsTextTrackList o = TextTrackListClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TimeRanges".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges Mozilla TimeRanges documentation>+newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal }++instance PToJSVal TimeRanges where+  pToJSVal = unTimeRanges+  {-# INLINE pToJSVal #-}++instance PFromJSVal TimeRanges where+  pFromJSVal = TimeRanges+  {-# INLINE pFromJSVal #-}++instance ToJSVal TimeRanges where+  toJSVal = return . unTimeRanges+  {-# INLINE toJSVal #-}++instance FromJSVal TimeRanges where+  fromJSVal v = fmap TimeRanges <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TimeRanges where+  makeObject = makeObject . unTimeRanges++instance IsGObject TimeRanges where+  toGObject = GObject . unTimeRanges+  {-# INLINE toGObject #-}+  unsafeCastGObject = TimeRanges . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTimeRanges :: IsGObject obj => obj -> JSM TimeRanges+castToTimeRanges = castTo gTypeTimeRanges "TimeRanges"++gTypeTimeRanges :: JSM GType+gTypeTimeRanges = GType . Object <$> jsg "TimeRanges"+#else+type IsTimeRanges o = TimeRangesClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Touch".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Touch Mozilla Touch documentation>+newtype Touch = Touch { unTouch :: JSVal }++instance PToJSVal Touch where+  pToJSVal = unTouch+  {-# INLINE pToJSVal #-}++instance PFromJSVal Touch where+  pFromJSVal = Touch+  {-# INLINE pFromJSVal #-}++instance ToJSVal Touch where+  toJSVal = return . unTouch+  {-# INLINE toJSVal #-}++instance FromJSVal Touch where+  fromJSVal v = fmap Touch <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Touch where+  makeObject = makeObject . unTouch++instance IsGObject Touch where+  toGObject = GObject . unTouch+  {-# INLINE toGObject #-}+  unsafeCastGObject = Touch . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTouch :: IsGObject obj => obj -> JSM Touch+castToTouch = castTo gTypeTouch "Touch"++gTypeTouch :: JSM GType+gTypeTouch = GType . Object <$> jsg "Touch"+#else+#ifndef USE_OLD_WEBKIT+type IsTouch o = TouchClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TouchEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent Mozilla TouchEvent documentation>+newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal }++instance PToJSVal TouchEvent where+  pToJSVal = unTouchEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal TouchEvent where+  pFromJSVal = TouchEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal TouchEvent where+  toJSVal = return . unTouchEvent+  {-# INLINE toJSVal #-}++instance FromJSVal TouchEvent where+  fromJSVal v = fmap TouchEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TouchEvent where+  makeObject = makeObject . unTouchEvent++instance IsUIEvent TouchEvent+instance IsEvent TouchEvent+instance IsGObject TouchEvent where+  toGObject = GObject . unTouchEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = TouchEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTouchEvent :: IsGObject obj => obj -> JSM TouchEvent+castToTouchEvent = castTo gTypeTouchEvent "TouchEvent"++gTypeTouchEvent :: JSM GType+gTypeTouchEvent = GType . Object <$> jsg "TouchEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TouchList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TouchList Mozilla TouchList documentation>+newtype TouchList = TouchList { unTouchList :: JSVal }++instance PToJSVal TouchList where+  pToJSVal = unTouchList+  {-# INLINE pToJSVal #-}++instance PFromJSVal TouchList where+  pFromJSVal = TouchList+  {-# INLINE pFromJSVal #-}++instance ToJSVal TouchList where+  toJSVal = return . unTouchList+  {-# INLINE toJSVal #-}++instance FromJSVal TouchList where+  fromJSVal v = fmap TouchList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TouchList where+  makeObject = makeObject . unTouchList++instance IsGObject TouchList where+  toGObject = GObject . unTouchList+  {-# INLINE toGObject #-}+  unsafeCastGObject = TouchList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTouchList :: IsGObject obj => obj -> JSM TouchList+castToTouchList = castTo gTypeTouchList "TouchList"++gTypeTouchList :: JSM GType+gTypeTouchList = GType . Object <$> jsg "TouchList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TrackEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TrackEvent Mozilla TrackEvent documentation>+newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal }++instance PToJSVal TrackEvent where+  pToJSVal = unTrackEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal TrackEvent where+  pFromJSVal = TrackEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal TrackEvent where+  toJSVal = return . unTrackEvent+  {-# INLINE toJSVal #-}++instance FromJSVal TrackEvent where+  fromJSVal v = fmap TrackEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TrackEvent where+  makeObject = makeObject . unTrackEvent++instance IsEvent TrackEvent+instance IsGObject TrackEvent where+  toGObject = GObject . unTrackEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = TrackEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTrackEvent :: IsGObject obj => obj -> JSM TrackEvent+castToTrackEvent = castTo gTypeTrackEvent "TrackEvent"++gTypeTrackEvent :: JSM GType+gTypeTrackEvent = GType . Object <$> jsg "TrackEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TransitionEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent Mozilla TransitionEvent documentation>+newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal }++instance PToJSVal TransitionEvent where+  pToJSVal = unTransitionEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal TransitionEvent where+  pFromJSVal = TransitionEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal TransitionEvent where+  toJSVal = return . unTransitionEvent+  {-# INLINE toJSVal #-}++instance FromJSVal TransitionEvent where+  fromJSVal v = fmap TransitionEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TransitionEvent where+  makeObject = makeObject . unTransitionEvent++instance IsEvent TransitionEvent+instance IsGObject TransitionEvent where+  toGObject = GObject . unTransitionEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = TransitionEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTransitionEvent :: IsGObject obj => obj -> JSM TransitionEvent+castToTransitionEvent = castTo gTypeTransitionEvent "TransitionEvent"++gTypeTransitionEvent :: JSM GType+gTypeTransitionEvent = GType . Object <$> jsg "TransitionEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TreeWalker".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker Mozilla TreeWalker documentation>+newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal }++instance PToJSVal TreeWalker where+  pToJSVal = unTreeWalker+  {-# INLINE pToJSVal #-}++instance PFromJSVal TreeWalker where+  pFromJSVal = TreeWalker+  {-# INLINE pFromJSVal #-}++instance ToJSVal TreeWalker where+  toJSVal = return . unTreeWalker+  {-# INLINE toJSVal #-}++instance FromJSVal TreeWalker where+  fromJSVal v = fmap TreeWalker <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TreeWalker where+  makeObject = makeObject . unTreeWalker++instance IsGObject TreeWalker where+  toGObject = GObject . unTreeWalker+  {-# INLINE toGObject #-}+  unsafeCastGObject = TreeWalker . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTreeWalker :: IsGObject obj => obj -> JSM TreeWalker+castToTreeWalker = castTo gTypeTreeWalker "TreeWalker"++gTypeTreeWalker :: JSM GType+gTypeTreeWalker = GType . Object <$> jsg "TreeWalker"+#else+type IsTreeWalker o = TreeWalkerClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.TypeConversions".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions Mozilla TypeConversions documentation>+newtype TypeConversions = TypeConversions { unTypeConversions :: JSVal }++instance PToJSVal TypeConversions where+  pToJSVal = unTypeConversions+  {-# INLINE pToJSVal #-}++instance PFromJSVal TypeConversions where+  pFromJSVal = TypeConversions+  {-# INLINE pFromJSVal #-}++instance ToJSVal TypeConversions where+  toJSVal = return . unTypeConversions+  {-# INLINE toJSVal #-}++instance FromJSVal TypeConversions where+  fromJSVal v = fmap TypeConversions <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject TypeConversions where+  makeObject = makeObject . unTypeConversions++instance IsGObject TypeConversions where+  toGObject = GObject . unTypeConversions+  {-# INLINE toGObject #-}+  unsafeCastGObject = TypeConversions . unGObject+  {-# INLINE unsafeCastGObject #-}++castToTypeConversions :: IsGObject obj => obj -> JSM TypeConversions+castToTypeConversions = castTo gTypeTypeConversions "TypeConversions"++gTypeTypeConversions :: JSM GType+gTypeTypeConversions = GType . Object <$> jsg "TypeConversions"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.UIEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent Mozilla UIEvent documentation>+newtype UIEvent = UIEvent { unUIEvent :: JSVal }++instance PToJSVal UIEvent where+  pToJSVal = unUIEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal UIEvent where+  pFromJSVal = UIEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal UIEvent where+  toJSVal = return . unUIEvent+  {-# INLINE toJSVal #-}++instance FromJSVal UIEvent where+  fromJSVal v = fmap UIEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject UIEvent where+  makeObject = makeObject . unUIEvent++class IsEvent o => IsUIEvent o+toUIEvent :: IsUIEvent o => o -> UIEvent+toUIEvent = unsafeCastGObject . toGObject++instance IsUIEvent UIEvent+instance IsEvent UIEvent+instance IsGObject UIEvent where+  toGObject = GObject . unUIEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = UIEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToUIEvent :: IsGObject obj => obj -> JSM UIEvent+castToUIEvent = castTo gTypeUIEvent "UIEvent"++gTypeUIEvent :: JSM GType+gTypeUIEvent = GType . Object <$> jsg "UIEvent"+#else+type IsUIEvent o = UIEventClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.UIRequestEvent".+-- Base interface functions are in:+--+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/UIRequestEvent Mozilla UIRequestEvent documentation>+newtype UIRequestEvent = UIRequestEvent { unUIRequestEvent :: JSVal }++instance PToJSVal UIRequestEvent where+  pToJSVal = unUIRequestEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal UIRequestEvent where+  pFromJSVal = UIRequestEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal UIRequestEvent where+  toJSVal = return . unUIRequestEvent+  {-# INLINE toJSVal #-}++instance FromJSVal UIRequestEvent where+  fromJSVal v = fmap UIRequestEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject UIRequestEvent where+  makeObject = makeObject . unUIRequestEvent++instance IsUIEvent UIRequestEvent+instance IsEvent UIRequestEvent+instance IsGObject UIRequestEvent where+  toGObject = GObject . unUIRequestEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = UIRequestEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToUIRequestEvent :: IsGObject obj => obj -> JSM UIRequestEvent+castToUIRequestEvent = castTo gTypeUIRequestEvent "UIRequestEvent"++gTypeUIRequestEvent :: JSM GType+gTypeUIRequestEvent = GType . Object <$> jsg "UIRequestEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.URL".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation>+newtype URL = URL { unURL :: JSVal }++instance PToJSVal URL where+  pToJSVal = unURL+  {-# INLINE pToJSVal #-}++instance PFromJSVal URL where+  pFromJSVal = URL+  {-# INLINE pFromJSVal #-}++instance ToJSVal URL where+  toJSVal = return . unURL+  {-# INLINE toJSVal #-}++instance FromJSVal URL where+  fromJSVal v = fmap URL <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject URL where+  makeObject = makeObject . unURL++instance IsGObject URL where+  toGObject = GObject . unURL+  {-# INLINE toGObject #-}+  unsafeCastGObject = URL . unGObject+  {-# INLINE unsafeCastGObject #-}++castToURL :: IsGObject obj => obj -> JSM URL+castToURL = castTo gTypeURL "URL"++gTypeURL :: JSM GType+gTypeURL = GType . Object <$> jsg "URL"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.URLUtils".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils Mozilla URLUtils documentation>+newtype URLUtils = URLUtils { unURLUtils :: JSVal }++instance PToJSVal URLUtils where+  pToJSVal = unURLUtils+  {-# INLINE pToJSVal #-}++instance PFromJSVal URLUtils where+  pFromJSVal = URLUtils+  {-# INLINE pFromJSVal #-}++instance ToJSVal URLUtils where+  toJSVal = return . unURLUtils+  {-# INLINE toJSVal #-}++instance FromJSVal URLUtils where+  fromJSVal v = fmap URLUtils <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject URLUtils where+  makeObject = makeObject . unURLUtils++instance IsGObject URLUtils where+  toGObject = GObject . unURLUtils+  {-# INLINE toGObject #-}+  unsafeCastGObject = URLUtils . unGObject+  {-# INLINE unsafeCastGObject #-}++castToURLUtils :: IsGObject obj => obj -> JSM URLUtils+castToURLUtils = castTo gTypeURLUtils "URLUtils"++gTypeURLUtils :: JSM GType+gTypeURLUtils = GType . Object <$> jsg "URLUtils"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.UserMessageHandler".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/UserMessageHandler Mozilla UserMessageHandler documentation>+newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal }++instance PToJSVal UserMessageHandler where+  pToJSVal = unUserMessageHandler+  {-# INLINE pToJSVal #-}++instance PFromJSVal UserMessageHandler where+  pFromJSVal = UserMessageHandler+  {-# INLINE pFromJSVal #-}++instance ToJSVal UserMessageHandler where+  toJSVal = return . unUserMessageHandler+  {-# INLINE toJSVal #-}++instance FromJSVal UserMessageHandler where+  fromJSVal v = fmap UserMessageHandler <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject UserMessageHandler where+  makeObject = makeObject . unUserMessageHandler++instance IsGObject UserMessageHandler where+  toGObject = GObject . unUserMessageHandler+  {-# INLINE toGObject #-}+  unsafeCastGObject = UserMessageHandler . unGObject+  {-# INLINE unsafeCastGObject #-}++castToUserMessageHandler :: IsGObject obj => obj -> JSM UserMessageHandler+castToUserMessageHandler = castTo gTypeUserMessageHandler "UserMessageHandler"++gTypeUserMessageHandler :: JSM GType+gTypeUserMessageHandler = GType . Object <$> jsg "UserMessageHandler"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.UserMessageHandlersNamespace".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/UserMessageHandlersNamespace Mozilla UserMessageHandlersNamespace documentation>+newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal }++instance PToJSVal UserMessageHandlersNamespace where+  pToJSVal = unUserMessageHandlersNamespace+  {-# INLINE pToJSVal #-}++instance PFromJSVal UserMessageHandlersNamespace where+  pFromJSVal = UserMessageHandlersNamespace+  {-# INLINE pFromJSVal #-}++instance ToJSVal UserMessageHandlersNamespace where+  toJSVal = return . unUserMessageHandlersNamespace+  {-# INLINE toJSVal #-}++instance FromJSVal UserMessageHandlersNamespace where+  fromJSVal v = fmap UserMessageHandlersNamespace <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject UserMessageHandlersNamespace where+  makeObject = makeObject . unUserMessageHandlersNamespace++instance IsGObject UserMessageHandlersNamespace where+  toGObject = GObject . unUserMessageHandlersNamespace+  {-# INLINE toGObject #-}+  unsafeCastGObject = UserMessageHandlersNamespace . unGObject+  {-# INLINE unsafeCastGObject #-}++castToUserMessageHandlersNamespace :: IsGObject obj => obj -> JSM UserMessageHandlersNamespace+castToUserMessageHandlersNamespace = castTo gTypeUserMessageHandlersNamespace "UserMessageHandlersNamespace"++gTypeUserMessageHandlersNamespace :: JSM GType+gTypeUserMessageHandlersNamespace = GType . Object <$> jsg "UserMessageHandlersNamespace"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VTTCue".+-- Base interface functions are in:+--+--     * "JSDOM.TextTrackCue"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue Mozilla VTTCue documentation>+newtype VTTCue = VTTCue { unVTTCue :: JSVal }++instance PToJSVal VTTCue where+  pToJSVal = unVTTCue+  {-# INLINE pToJSVal #-}++instance PFromJSVal VTTCue where+  pFromJSVal = VTTCue+  {-# INLINE pFromJSVal #-}++instance ToJSVal VTTCue where+  toJSVal = return . unVTTCue+  {-# INLINE toJSVal #-}++instance FromJSVal VTTCue where+  fromJSVal v = fmap VTTCue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VTTCue where+  makeObject = makeObject . unVTTCue++instance IsTextTrackCue VTTCue+instance IsEventTarget VTTCue+instance IsGObject VTTCue where+  toGObject = GObject . unVTTCue+  {-# INLINE toGObject #-}+  unsafeCastGObject = VTTCue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVTTCue :: IsGObject obj => obj -> JSM VTTCue+castToVTTCue = castTo gTypeVTTCue "VTTCue"++gTypeVTTCue :: JSM GType+gTypeVTTCue = GType . Object <$> jsg "VTTCue"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VTTRegion".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion Mozilla VTTRegion documentation>+newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal }++instance PToJSVal VTTRegion where+  pToJSVal = unVTTRegion+  {-# INLINE pToJSVal #-}++instance PFromJSVal VTTRegion where+  pFromJSVal = VTTRegion+  {-# INLINE pFromJSVal #-}++instance ToJSVal VTTRegion where+  toJSVal = return . unVTTRegion+  {-# INLINE toJSVal #-}++instance FromJSVal VTTRegion where+  fromJSVal v = fmap VTTRegion <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VTTRegion where+  makeObject = makeObject . unVTTRegion++instance IsGObject VTTRegion where+  toGObject = GObject . unVTTRegion+  {-# INLINE toGObject #-}+  unsafeCastGObject = VTTRegion . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVTTRegion :: IsGObject obj => obj -> JSM VTTRegion+castToVTTRegion = castTo gTypeVTTRegion "VTTRegion"++gTypeVTTRegion :: JSM GType+gTypeVTTRegion = GType . Object <$> jsg "VTTRegion"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VTTRegionList".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList Mozilla VTTRegionList documentation>+newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal }++instance PToJSVal VTTRegionList where+  pToJSVal = unVTTRegionList+  {-# INLINE pToJSVal #-}++instance PFromJSVal VTTRegionList where+  pFromJSVal = VTTRegionList+  {-# INLINE pFromJSVal #-}++instance ToJSVal VTTRegionList where+  toJSVal = return . unVTTRegionList+  {-# INLINE toJSVal #-}++instance FromJSVal VTTRegionList where+  fromJSVal v = fmap VTTRegionList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VTTRegionList where+  makeObject = makeObject . unVTTRegionList++instance IsGObject VTTRegionList where+  toGObject = GObject . unVTTRegionList+  {-# INLINE toGObject #-}+  unsafeCastGObject = VTTRegionList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVTTRegionList :: IsGObject obj => obj -> JSM VTTRegionList+castToVTTRegionList = castTo gTypeVTTRegionList "VTTRegionList"++gTypeVTTRegionList :: JSM GType+gTypeVTTRegionList = GType . Object <$> jsg "VTTRegionList"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.ValidityState".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState Mozilla ValidityState documentation>+newtype ValidityState = ValidityState { unValidityState :: JSVal }++instance PToJSVal ValidityState where+  pToJSVal = unValidityState+  {-# INLINE pToJSVal #-}++instance PFromJSVal ValidityState where+  pFromJSVal = ValidityState+  {-# INLINE pFromJSVal #-}++instance ToJSVal ValidityState where+  toJSVal = return . unValidityState+  {-# INLINE toJSVal #-}++instance FromJSVal ValidityState where+  fromJSVal v = fmap ValidityState <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject ValidityState where+  makeObject = makeObject . unValidityState++instance IsGObject ValidityState where+  toGObject = GObject . unValidityState+  {-# INLINE toGObject #-}+  unsafeCastGObject = ValidityState . unGObject+  {-# INLINE unsafeCastGObject #-}++castToValidityState :: IsGObject obj => obj -> JSM ValidityState+castToValidityState = castTo gTypeValidityState "ValidityState"++gTypeValidityState :: JSM GType+gTypeValidityState = GType . Object <$> jsg "ValidityState"+#else+type IsValidityState o = ValidityStateClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VideoPlaybackQuality".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality Mozilla VideoPlaybackQuality documentation>+newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal }++instance PToJSVal VideoPlaybackQuality where+  pToJSVal = unVideoPlaybackQuality+  {-# INLINE pToJSVal #-}++instance PFromJSVal VideoPlaybackQuality where+  pFromJSVal = VideoPlaybackQuality+  {-# INLINE pFromJSVal #-}++instance ToJSVal VideoPlaybackQuality where+  toJSVal = return . unVideoPlaybackQuality+  {-# INLINE toJSVal #-}++instance FromJSVal VideoPlaybackQuality where+  fromJSVal v = fmap VideoPlaybackQuality <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VideoPlaybackQuality where+  makeObject = makeObject . unVideoPlaybackQuality++instance IsGObject VideoPlaybackQuality where+  toGObject = GObject . unVideoPlaybackQuality+  {-# INLINE toGObject #-}+  unsafeCastGObject = VideoPlaybackQuality . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVideoPlaybackQuality :: IsGObject obj => obj -> JSM VideoPlaybackQuality+castToVideoPlaybackQuality = castTo gTypeVideoPlaybackQuality "VideoPlaybackQuality"++gTypeVideoPlaybackQuality :: JSM GType+gTypeVideoPlaybackQuality = GType . Object <$> jsg "VideoPlaybackQuality"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VideoStreamTrack".+-- Base interface functions are in:+--+--     * "JSDOM.MediaStreamTrack"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VideoStreamTrack Mozilla VideoStreamTrack documentation>+newtype VideoStreamTrack = VideoStreamTrack { unVideoStreamTrack :: JSVal }++instance PToJSVal VideoStreamTrack where+  pToJSVal = unVideoStreamTrack+  {-# INLINE pToJSVal #-}++instance PFromJSVal VideoStreamTrack where+  pFromJSVal = VideoStreamTrack+  {-# INLINE pFromJSVal #-}++instance ToJSVal VideoStreamTrack where+  toJSVal = return . unVideoStreamTrack+  {-# INLINE toJSVal #-}++instance FromJSVal VideoStreamTrack where+  fromJSVal v = fmap VideoStreamTrack <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VideoStreamTrack where+  makeObject = makeObject . unVideoStreamTrack++instance IsMediaStreamTrack VideoStreamTrack+instance IsEventTarget VideoStreamTrack+instance IsGObject VideoStreamTrack where+  toGObject = GObject . unVideoStreamTrack+  {-# INLINE toGObject #-}+  unsafeCastGObject = VideoStreamTrack . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVideoStreamTrack :: IsGObject obj => obj -> JSM VideoStreamTrack+castToVideoStreamTrack = castTo gTypeVideoStreamTrack "VideoStreamTrack"++gTypeVideoStreamTrack :: JSM GType+gTypeVideoStreamTrack = GType . Object <$> jsg "VideoStreamTrack"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VideoTrack".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack Mozilla VideoTrack documentation>+newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal }++instance PToJSVal VideoTrack where+  pToJSVal = unVideoTrack+  {-# INLINE pToJSVal #-}++instance PFromJSVal VideoTrack where+  pFromJSVal = VideoTrack+  {-# INLINE pFromJSVal #-}++instance ToJSVal VideoTrack where+  toJSVal = return . unVideoTrack+  {-# INLINE toJSVal #-}++instance FromJSVal VideoTrack where+  fromJSVal v = fmap VideoTrack <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VideoTrack where+  makeObject = makeObject . unVideoTrack++instance IsGObject VideoTrack where+  toGObject = GObject . unVideoTrack+  {-# INLINE toGObject #-}+  unsafeCastGObject = VideoTrack . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVideoTrack :: IsGObject obj => obj -> JSM VideoTrack+castToVideoTrack = castTo gTypeVideoTrack "VideoTrack"++gTypeVideoTrack :: JSM GType+gTypeVideoTrack = GType . Object <$> jsg "VideoTrack"+#else+#ifndef USE_OLD_WEBKIT+type IsVideoTrack o = VideoTrackClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.VideoTrackList".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList Mozilla VideoTrackList documentation>+newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal }++instance PToJSVal VideoTrackList where+  pToJSVal = unVideoTrackList+  {-# INLINE pToJSVal #-}++instance PFromJSVal VideoTrackList where+  pFromJSVal = VideoTrackList+  {-# INLINE pFromJSVal #-}++instance ToJSVal VideoTrackList where+  toJSVal = return . unVideoTrackList+  {-# INLINE toJSVal #-}++instance FromJSVal VideoTrackList where+  fromJSVal v = fmap VideoTrackList <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject VideoTrackList where+  makeObject = makeObject . unVideoTrackList++instance IsEventTarget VideoTrackList+instance IsGObject VideoTrackList where+  toGObject = GObject . unVideoTrackList+  {-# INLINE toGObject #-}+  unsafeCastGObject = VideoTrackList . unGObject+  {-# INLINE unsafeCastGObject #-}++castToVideoTrackList :: IsGObject obj => obj -> JSM VideoTrackList+castToVideoTrackList = castTo gTypeVideoTrackList "VideoTrackList"++gTypeVideoTrackList :: JSM GType+gTypeVideoTrackList = GType . Object <$> jsg "VideoTrackList"+#else+#ifndef USE_OLD_WEBKIT+type IsVideoTrackList o = VideoTrackListClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WaveShaperNode".+-- Base interface functions are in:+--+--     * "JSDOM.AudioNode"+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode Mozilla WaveShaperNode documentation>+newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal }++instance PToJSVal WaveShaperNode where+  pToJSVal = unWaveShaperNode+  {-# INLINE pToJSVal #-}++instance PFromJSVal WaveShaperNode where+  pFromJSVal = WaveShaperNode+  {-# INLINE pFromJSVal #-}++instance ToJSVal WaveShaperNode where+  toJSVal = return . unWaveShaperNode+  {-# INLINE toJSVal #-}++instance FromJSVal WaveShaperNode where+  fromJSVal v = fmap WaveShaperNode <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WaveShaperNode where+  makeObject = makeObject . unWaveShaperNode++instance IsAudioNode WaveShaperNode+instance IsEventTarget WaveShaperNode+instance IsGObject WaveShaperNode where+  toGObject = GObject . unWaveShaperNode+  {-# INLINE toGObject #-}+  unsafeCastGObject = WaveShaperNode . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWaveShaperNode :: IsGObject obj => obj -> JSM WaveShaperNode+castToWaveShaperNode = castTo gTypeWaveShaperNode "WaveShaperNode"++gTypeWaveShaperNode :: JSM GType+gTypeWaveShaperNode = GType . Object <$> jsg "WaveShaperNode"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGL2RenderingContext".+-- Base interface functions are in:+--+--     * "JSDOM.WebGLRenderingContextBase"+--     * "JSDOM.CanvasRenderingContext"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext Mozilla WebGL2RenderingContext documentation>+newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal }++instance PToJSVal WebGL2RenderingContext where+  pToJSVal = unWebGL2RenderingContext+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGL2RenderingContext where+  pFromJSVal = WebGL2RenderingContext+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGL2RenderingContext where+  toJSVal = return . unWebGL2RenderingContext+  {-# INLINE toJSVal #-}++instance FromJSVal WebGL2RenderingContext where+  fromJSVal v = fmap WebGL2RenderingContext <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGL2RenderingContext where+  makeObject = makeObject . unWebGL2RenderingContext++instance IsWebGLRenderingContextBase WebGL2RenderingContext+instance IsCanvasRenderingContext WebGL2RenderingContext+instance IsGObject WebGL2RenderingContext where+  toGObject = GObject . unWebGL2RenderingContext+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGL2RenderingContext . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGL2RenderingContext :: IsGObject obj => obj -> JSM WebGL2RenderingContext+castToWebGL2RenderingContext = castTo gTypeWebGL2RenderingContext "WebGL2RenderingContext"++gTypeWebGL2RenderingContext :: JSM GType+gTypeWebGL2RenderingContext = GType . Object <$> jsg "WebGL2RenderingContext"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLActiveInfo".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo Mozilla WebGLActiveInfo documentation>+newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal }++instance PToJSVal WebGLActiveInfo where+  pToJSVal = unWebGLActiveInfo+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLActiveInfo where+  pFromJSVal = WebGLActiveInfo+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLActiveInfo where+  toJSVal = return . unWebGLActiveInfo+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLActiveInfo where+  fromJSVal v = fmap WebGLActiveInfo <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLActiveInfo where+  makeObject = makeObject . unWebGLActiveInfo++instance IsGObject WebGLActiveInfo where+  toGObject = GObject . unWebGLActiveInfo+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLActiveInfo . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLActiveInfo :: IsGObject obj => obj -> JSM WebGLActiveInfo+castToWebGLActiveInfo = castTo gTypeWebGLActiveInfo "WebGLActiveInfo"++gTypeWebGLActiveInfo :: JSM GType+gTypeWebGLActiveInfo = GType . Object <$> jsg "WebGLActiveInfo"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLBuffer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLBuffer Mozilla WebGLBuffer documentation>+newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal }++instance PToJSVal WebGLBuffer where+  pToJSVal = unWebGLBuffer+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLBuffer where+  pFromJSVal = WebGLBuffer+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLBuffer where+  toJSVal = return . unWebGLBuffer+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLBuffer where+  fromJSVal v = fmap WebGLBuffer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLBuffer where+  makeObject = makeObject . unWebGLBuffer++instance IsGObject WebGLBuffer where+  toGObject = GObject . unWebGLBuffer+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLBuffer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLBuffer :: IsGObject obj => obj -> JSM WebGLBuffer+castToWebGLBuffer = castTo gTypeWebGLBuffer "WebGLBuffer"++gTypeWebGLBuffer :: JSM GType+gTypeWebGLBuffer = GType . Object <$> jsg "WebGLBuffer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLCompressedTextureATC".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLCompressedTextureATC Mozilla WebGLCompressedTextureATC documentation>+newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal }++instance PToJSVal WebGLCompressedTextureATC where+  pToJSVal = unWebGLCompressedTextureATC+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLCompressedTextureATC where+  pFromJSVal = WebGLCompressedTextureATC+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLCompressedTextureATC where+  toJSVal = return . unWebGLCompressedTextureATC+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLCompressedTextureATC where+  fromJSVal v = fmap WebGLCompressedTextureATC <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLCompressedTextureATC where+  makeObject = makeObject . unWebGLCompressedTextureATC++instance IsGObject WebGLCompressedTextureATC where+  toGObject = GObject . unWebGLCompressedTextureATC+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLCompressedTextureATC . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLCompressedTextureATC :: IsGObject obj => obj -> JSM WebGLCompressedTextureATC+castToWebGLCompressedTextureATC = castTo gTypeWebGLCompressedTextureATC "WebGLCompressedTextureATC"++gTypeWebGLCompressedTextureATC :: JSM GType+gTypeWebGLCompressedTextureATC = GType . Object <$> jsg "WebGLCompressedTextureATC"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLCompressedTexturePVRTC".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLCompressedTexturePVRTC Mozilla WebGLCompressedTexturePVRTC documentation>+newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal }++instance PToJSVal WebGLCompressedTexturePVRTC where+  pToJSVal = unWebGLCompressedTexturePVRTC+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLCompressedTexturePVRTC where+  pFromJSVal = WebGLCompressedTexturePVRTC+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLCompressedTexturePVRTC where+  toJSVal = return . unWebGLCompressedTexturePVRTC+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLCompressedTexturePVRTC where+  fromJSVal v = fmap WebGLCompressedTexturePVRTC <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLCompressedTexturePVRTC where+  makeObject = makeObject . unWebGLCompressedTexturePVRTC++instance IsGObject WebGLCompressedTexturePVRTC where+  toGObject = GObject . unWebGLCompressedTexturePVRTC+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLCompressedTexturePVRTC . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLCompressedTexturePVRTC :: IsGObject obj => obj -> JSM WebGLCompressedTexturePVRTC+castToWebGLCompressedTexturePVRTC = castTo gTypeWebGLCompressedTexturePVRTC "WebGLCompressedTexturePVRTC"++gTypeWebGLCompressedTexturePVRTC :: JSM GType+gTypeWebGLCompressedTexturePVRTC = GType . Object <$> jsg "WebGLCompressedTexturePVRTC"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLCompressedTextureS3TC".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLCompressedTextureS3TC Mozilla WebGLCompressedTextureS3TC documentation>+newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal }++instance PToJSVal WebGLCompressedTextureS3TC where+  pToJSVal = unWebGLCompressedTextureS3TC+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLCompressedTextureS3TC where+  pFromJSVal = WebGLCompressedTextureS3TC+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLCompressedTextureS3TC where+  toJSVal = return . unWebGLCompressedTextureS3TC+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLCompressedTextureS3TC where+  fromJSVal v = fmap WebGLCompressedTextureS3TC <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLCompressedTextureS3TC where+  makeObject = makeObject . unWebGLCompressedTextureS3TC++instance IsGObject WebGLCompressedTextureS3TC where+  toGObject = GObject . unWebGLCompressedTextureS3TC+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLCompressedTextureS3TC . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLCompressedTextureS3TC :: IsGObject obj => obj -> JSM WebGLCompressedTextureS3TC+castToWebGLCompressedTextureS3TC = castTo gTypeWebGLCompressedTextureS3TC "WebGLCompressedTextureS3TC"++gTypeWebGLCompressedTextureS3TC :: JSM GType+gTypeWebGLCompressedTextureS3TC = GType . Object <$> jsg "WebGLCompressedTextureS3TC"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLContextAttributes".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes Mozilla WebGLContextAttributes documentation>+newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal }++instance PToJSVal WebGLContextAttributes where+  pToJSVal = unWebGLContextAttributes+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLContextAttributes where+  pFromJSVal = WebGLContextAttributes+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLContextAttributes where+  toJSVal = return . unWebGLContextAttributes+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLContextAttributes where+  fromJSVal v = fmap WebGLContextAttributes <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLContextAttributes where+  makeObject = makeObject . unWebGLContextAttributes++instance IsGObject WebGLContextAttributes where+  toGObject = GObject . unWebGLContextAttributes+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLContextAttributes . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLContextAttributes :: IsGObject obj => obj -> JSM WebGLContextAttributes+castToWebGLContextAttributes = castTo gTypeWebGLContextAttributes "WebGLContextAttributes"++gTypeWebGLContextAttributes :: JSM GType+gTypeWebGLContextAttributes = GType . Object <$> jsg "WebGLContextAttributes"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLContextEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextEvent Mozilla WebGLContextEvent documentation>+newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal }++instance PToJSVal WebGLContextEvent where+  pToJSVal = unWebGLContextEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLContextEvent where+  pFromJSVal = WebGLContextEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLContextEvent where+  toJSVal = return . unWebGLContextEvent+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLContextEvent where+  fromJSVal v = fmap WebGLContextEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLContextEvent where+  makeObject = makeObject . unWebGLContextEvent++instance IsEvent WebGLContextEvent+instance IsGObject WebGLContextEvent where+  toGObject = GObject . unWebGLContextEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLContextEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLContextEvent :: IsGObject obj => obj -> JSM WebGLContextEvent+castToWebGLContextEvent = castTo gTypeWebGLContextEvent "WebGLContextEvent"++gTypeWebGLContextEvent :: JSM GType+gTypeWebGLContextEvent = GType . Object <$> jsg "WebGLContextEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLDebugRendererInfo".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDebugRendererInfo Mozilla WebGLDebugRendererInfo documentation>+newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal }++instance PToJSVal WebGLDebugRendererInfo where+  pToJSVal = unWebGLDebugRendererInfo+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLDebugRendererInfo where+  pFromJSVal = WebGLDebugRendererInfo+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLDebugRendererInfo where+  toJSVal = return . unWebGLDebugRendererInfo+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLDebugRendererInfo where+  fromJSVal v = fmap WebGLDebugRendererInfo <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLDebugRendererInfo where+  makeObject = makeObject . unWebGLDebugRendererInfo++instance IsGObject WebGLDebugRendererInfo where+  toGObject = GObject . unWebGLDebugRendererInfo+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLDebugRendererInfo . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLDebugRendererInfo :: IsGObject obj => obj -> JSM WebGLDebugRendererInfo+castToWebGLDebugRendererInfo = castTo gTypeWebGLDebugRendererInfo "WebGLDebugRendererInfo"++gTypeWebGLDebugRendererInfo :: JSM GType+gTypeWebGLDebugRendererInfo = GType . Object <$> jsg "WebGLDebugRendererInfo"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLDebugShaders".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDebugShaders Mozilla WebGLDebugShaders documentation>+newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal }++instance PToJSVal WebGLDebugShaders where+  pToJSVal = unWebGLDebugShaders+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLDebugShaders where+  pFromJSVal = WebGLDebugShaders+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLDebugShaders where+  toJSVal = return . unWebGLDebugShaders+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLDebugShaders where+  fromJSVal v = fmap WebGLDebugShaders <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLDebugShaders where+  makeObject = makeObject . unWebGLDebugShaders++instance IsGObject WebGLDebugShaders where+  toGObject = GObject . unWebGLDebugShaders+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLDebugShaders . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLDebugShaders :: IsGObject obj => obj -> JSM WebGLDebugShaders+castToWebGLDebugShaders = castTo gTypeWebGLDebugShaders "WebGLDebugShaders"++gTypeWebGLDebugShaders :: JSM GType+gTypeWebGLDebugShaders = GType . Object <$> jsg "WebGLDebugShaders"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLDepthTexture".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDepthTexture Mozilla WebGLDepthTexture documentation>+newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal }++instance PToJSVal WebGLDepthTexture where+  pToJSVal = unWebGLDepthTexture+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLDepthTexture where+  pFromJSVal = WebGLDepthTexture+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLDepthTexture where+  toJSVal = return . unWebGLDepthTexture+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLDepthTexture where+  fromJSVal v = fmap WebGLDepthTexture <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLDepthTexture where+  makeObject = makeObject . unWebGLDepthTexture++instance IsGObject WebGLDepthTexture where+  toGObject = GObject . unWebGLDepthTexture+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLDepthTexture . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLDepthTexture :: IsGObject obj => obj -> JSM WebGLDepthTexture+castToWebGLDepthTexture = castTo gTypeWebGLDepthTexture "WebGLDepthTexture"++gTypeWebGLDepthTexture :: JSM GType+gTypeWebGLDepthTexture = GType . Object <$> jsg "WebGLDepthTexture"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLDrawBuffers".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDrawBuffers Mozilla WebGLDrawBuffers documentation>+newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal }++instance PToJSVal WebGLDrawBuffers where+  pToJSVal = unWebGLDrawBuffers+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLDrawBuffers where+  pFromJSVal = WebGLDrawBuffers+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLDrawBuffers where+  toJSVal = return . unWebGLDrawBuffers+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLDrawBuffers where+  fromJSVal v = fmap WebGLDrawBuffers <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLDrawBuffers where+  makeObject = makeObject . unWebGLDrawBuffers++instance IsGObject WebGLDrawBuffers where+  toGObject = GObject . unWebGLDrawBuffers+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLDrawBuffers . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLDrawBuffers :: IsGObject obj => obj -> JSM WebGLDrawBuffers+castToWebGLDrawBuffers = castTo gTypeWebGLDrawBuffers "WebGLDrawBuffers"++gTypeWebGLDrawBuffers :: JSM GType+gTypeWebGLDrawBuffers = GType . Object <$> jsg "WebGLDrawBuffers"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLFramebuffer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLFramebuffer Mozilla WebGLFramebuffer documentation>+newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal }++instance PToJSVal WebGLFramebuffer where+  pToJSVal = unWebGLFramebuffer+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLFramebuffer where+  pFromJSVal = WebGLFramebuffer+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLFramebuffer where+  toJSVal = return . unWebGLFramebuffer+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLFramebuffer where+  fromJSVal v = fmap WebGLFramebuffer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLFramebuffer where+  makeObject = makeObject . unWebGLFramebuffer++instance IsGObject WebGLFramebuffer where+  toGObject = GObject . unWebGLFramebuffer+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLFramebuffer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLFramebuffer :: IsGObject obj => obj -> JSM WebGLFramebuffer+castToWebGLFramebuffer = castTo gTypeWebGLFramebuffer "WebGLFramebuffer"++gTypeWebGLFramebuffer :: JSM GType+gTypeWebGLFramebuffer = GType . Object <$> jsg "WebGLFramebuffer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLLoseContext".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLLoseContext Mozilla WebGLLoseContext documentation>+newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal }++instance PToJSVal WebGLLoseContext where+  pToJSVal = unWebGLLoseContext+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLLoseContext where+  pFromJSVal = WebGLLoseContext+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLLoseContext where+  toJSVal = return . unWebGLLoseContext+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLLoseContext where+  fromJSVal v = fmap WebGLLoseContext <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLLoseContext where+  makeObject = makeObject . unWebGLLoseContext++instance IsGObject WebGLLoseContext where+  toGObject = GObject . unWebGLLoseContext+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLLoseContext . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLLoseContext :: IsGObject obj => obj -> JSM WebGLLoseContext+castToWebGLLoseContext = castTo gTypeWebGLLoseContext "WebGLLoseContext"++gTypeWebGLLoseContext :: JSM GType+gTypeWebGLLoseContext = GType . Object <$> jsg "WebGLLoseContext"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLProgram".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLProgram Mozilla WebGLProgram documentation>+newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal }++instance PToJSVal WebGLProgram where+  pToJSVal = unWebGLProgram+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLProgram where+  pFromJSVal = WebGLProgram+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLProgram where+  toJSVal = return . unWebGLProgram+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLProgram where+  fromJSVal v = fmap WebGLProgram <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLProgram where+  makeObject = makeObject . unWebGLProgram++instance IsGObject WebGLProgram where+  toGObject = GObject . unWebGLProgram+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLProgram . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLProgram :: IsGObject obj => obj -> JSM WebGLProgram+castToWebGLProgram = castTo gTypeWebGLProgram "WebGLProgram"++gTypeWebGLProgram :: JSM GType+gTypeWebGLProgram = GType . Object <$> jsg "WebGLProgram"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLQuery".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLQuery Mozilla WebGLQuery documentation>+newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal }++instance PToJSVal WebGLQuery where+  pToJSVal = unWebGLQuery+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLQuery where+  pFromJSVal = WebGLQuery+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLQuery where+  toJSVal = return . unWebGLQuery+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLQuery where+  fromJSVal v = fmap WebGLQuery <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLQuery where+  makeObject = makeObject . unWebGLQuery++instance IsGObject WebGLQuery where+  toGObject = GObject . unWebGLQuery+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLQuery . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLQuery :: IsGObject obj => obj -> JSM WebGLQuery+castToWebGLQuery = castTo gTypeWebGLQuery "WebGLQuery"++gTypeWebGLQuery :: JSM GType+gTypeWebGLQuery = GType . Object <$> jsg "WebGLQuery"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLRenderbuffer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderbuffer Mozilla WebGLRenderbuffer documentation>+newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal }++instance PToJSVal WebGLRenderbuffer where+  pToJSVal = unWebGLRenderbuffer+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLRenderbuffer where+  pFromJSVal = WebGLRenderbuffer+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLRenderbuffer where+  toJSVal = return . unWebGLRenderbuffer+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLRenderbuffer where+  fromJSVal v = fmap WebGLRenderbuffer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLRenderbuffer where+  makeObject = makeObject . unWebGLRenderbuffer++instance IsGObject WebGLRenderbuffer where+  toGObject = GObject . unWebGLRenderbuffer+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLRenderbuffer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLRenderbuffer :: IsGObject obj => obj -> JSM WebGLRenderbuffer+castToWebGLRenderbuffer = castTo gTypeWebGLRenderbuffer "WebGLRenderbuffer"++gTypeWebGLRenderbuffer :: JSM GType+gTypeWebGLRenderbuffer = GType . Object <$> jsg "WebGLRenderbuffer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLRenderingContext".+-- Base interface functions are in:+--+--     * "JSDOM.WebGLRenderingContextBase"+--     * "JSDOM.CanvasRenderingContext"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContext Mozilla WebGLRenderingContext documentation>+newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal }++instance PToJSVal WebGLRenderingContext where+  pToJSVal = unWebGLRenderingContext+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLRenderingContext where+  pFromJSVal = WebGLRenderingContext+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLRenderingContext where+  toJSVal = return . unWebGLRenderingContext+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLRenderingContext where+  fromJSVal v = fmap WebGLRenderingContext <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLRenderingContext where+  makeObject = makeObject . unWebGLRenderingContext++instance IsWebGLRenderingContextBase WebGLRenderingContext+instance IsCanvasRenderingContext WebGLRenderingContext+instance IsGObject WebGLRenderingContext where+  toGObject = GObject . unWebGLRenderingContext+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLRenderingContext . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLRenderingContext :: IsGObject obj => obj -> JSM WebGLRenderingContext+castToWebGLRenderingContext = castTo gTypeWebGLRenderingContext "WebGLRenderingContext"++gTypeWebGLRenderingContext :: JSM GType+gTypeWebGLRenderingContext = GType . Object <$> jsg "WebGLRenderingContext"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLRenderingContextBase".+-- Base interface functions are in:+--+--     * "JSDOM.CanvasRenderingContext"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase Mozilla WebGLRenderingContextBase documentation>+newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal }++instance PToJSVal WebGLRenderingContextBase where+  pToJSVal = unWebGLRenderingContextBase+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLRenderingContextBase where+  pFromJSVal = WebGLRenderingContextBase+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLRenderingContextBase where+  toJSVal = return . unWebGLRenderingContextBase+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLRenderingContextBase where+  fromJSVal v = fmap WebGLRenderingContextBase <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLRenderingContextBase where+  makeObject = makeObject . unWebGLRenderingContextBase++class IsCanvasRenderingContext o => IsWebGLRenderingContextBase o+toWebGLRenderingContextBase :: IsWebGLRenderingContextBase o => o -> WebGLRenderingContextBase+toWebGLRenderingContextBase = unsafeCastGObject . toGObject++instance IsWebGLRenderingContextBase WebGLRenderingContextBase+instance IsCanvasRenderingContext WebGLRenderingContextBase+instance IsGObject WebGLRenderingContextBase where+  toGObject = GObject . unWebGLRenderingContextBase+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLRenderingContextBase . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLRenderingContextBase :: IsGObject obj => obj -> JSM WebGLRenderingContextBase+castToWebGLRenderingContextBase = castTo gTypeWebGLRenderingContextBase "WebGLRenderingContextBase"++gTypeWebGLRenderingContextBase :: JSM GType+gTypeWebGLRenderingContextBase = GType . Object <$> jsg "WebGLRenderingContextBase"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLSampler".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLSampler Mozilla WebGLSampler documentation>+newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal }++instance PToJSVal WebGLSampler where+  pToJSVal = unWebGLSampler+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLSampler where+  pFromJSVal = WebGLSampler+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLSampler where+  toJSVal = return . unWebGLSampler+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLSampler where+  fromJSVal v = fmap WebGLSampler <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLSampler where+  makeObject = makeObject . unWebGLSampler++instance IsGObject WebGLSampler where+  toGObject = GObject . unWebGLSampler+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLSampler . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLSampler :: IsGObject obj => obj -> JSM WebGLSampler+castToWebGLSampler = castTo gTypeWebGLSampler "WebGLSampler"++gTypeWebGLSampler :: JSM GType+gTypeWebGLSampler = GType . Object <$> jsg "WebGLSampler"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLShader".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShader Mozilla WebGLShader documentation>+newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal }++instance PToJSVal WebGLShader where+  pToJSVal = unWebGLShader+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLShader where+  pFromJSVal = WebGLShader+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLShader where+  toJSVal = return . unWebGLShader+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLShader where+  fromJSVal v = fmap WebGLShader <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLShader where+  makeObject = makeObject . unWebGLShader++instance IsGObject WebGLShader where+  toGObject = GObject . unWebGLShader+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLShader . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLShader :: IsGObject obj => obj -> JSM WebGLShader+castToWebGLShader = castTo gTypeWebGLShader "WebGLShader"++gTypeWebGLShader :: JSM GType+gTypeWebGLShader = GType . Object <$> jsg "WebGLShader"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLShaderPrecisionFormat".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat Mozilla WebGLShaderPrecisionFormat documentation>+newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal }++instance PToJSVal WebGLShaderPrecisionFormat where+  pToJSVal = unWebGLShaderPrecisionFormat+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLShaderPrecisionFormat where+  pFromJSVal = WebGLShaderPrecisionFormat+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLShaderPrecisionFormat where+  toJSVal = return . unWebGLShaderPrecisionFormat+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLShaderPrecisionFormat where+  fromJSVal v = fmap WebGLShaderPrecisionFormat <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLShaderPrecisionFormat where+  makeObject = makeObject . unWebGLShaderPrecisionFormat++instance IsGObject WebGLShaderPrecisionFormat where+  toGObject = GObject . unWebGLShaderPrecisionFormat+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLShaderPrecisionFormat . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLShaderPrecisionFormat :: IsGObject obj => obj -> JSM WebGLShaderPrecisionFormat+castToWebGLShaderPrecisionFormat = castTo gTypeWebGLShaderPrecisionFormat "WebGLShaderPrecisionFormat"++gTypeWebGLShaderPrecisionFormat :: JSM GType+gTypeWebGLShaderPrecisionFormat = GType . Object <$> jsg "WebGLShaderPrecisionFormat"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLSync".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLSync Mozilla WebGLSync documentation>+newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal }++instance PToJSVal WebGLSync where+  pToJSVal = unWebGLSync+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLSync where+  pFromJSVal = WebGLSync+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLSync where+  toJSVal = return . unWebGLSync+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLSync where+  fromJSVal v = fmap WebGLSync <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLSync where+  makeObject = makeObject . unWebGLSync++instance IsGObject WebGLSync where+  toGObject = GObject . unWebGLSync+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLSync . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLSync :: IsGObject obj => obj -> JSM WebGLSync+castToWebGLSync = castTo gTypeWebGLSync "WebGLSync"++gTypeWebGLSync :: JSM GType+gTypeWebGLSync = GType . Object <$> jsg "WebGLSync"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLTexture".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLTexture Mozilla WebGLTexture documentation>+newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal }++instance PToJSVal WebGLTexture where+  pToJSVal = unWebGLTexture+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLTexture where+  pFromJSVal = WebGLTexture+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLTexture where+  toJSVal = return . unWebGLTexture+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLTexture where+  fromJSVal v = fmap WebGLTexture <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLTexture where+  makeObject = makeObject . unWebGLTexture++instance IsGObject WebGLTexture where+  toGObject = GObject . unWebGLTexture+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLTexture . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLTexture :: IsGObject obj => obj -> JSM WebGLTexture+castToWebGLTexture = castTo gTypeWebGLTexture "WebGLTexture"++gTypeWebGLTexture :: JSM GType+gTypeWebGLTexture = GType . Object <$> jsg "WebGLTexture"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLTransformFeedback".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLTransformFeedback Mozilla WebGLTransformFeedback documentation>+newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal }++instance PToJSVal WebGLTransformFeedback where+  pToJSVal = unWebGLTransformFeedback+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLTransformFeedback where+  pFromJSVal = WebGLTransformFeedback+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLTransformFeedback where+  toJSVal = return . unWebGLTransformFeedback+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLTransformFeedback where+  fromJSVal v = fmap WebGLTransformFeedback <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLTransformFeedback where+  makeObject = makeObject . unWebGLTransformFeedback++instance IsGObject WebGLTransformFeedback where+  toGObject = GObject . unWebGLTransformFeedback+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLTransformFeedback . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLTransformFeedback :: IsGObject obj => obj -> JSM WebGLTransformFeedback+castToWebGLTransformFeedback = castTo gTypeWebGLTransformFeedback "WebGLTransformFeedback"++gTypeWebGLTransformFeedback :: JSM GType+gTypeWebGLTransformFeedback = GType . Object <$> jsg "WebGLTransformFeedback"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLUniformLocation".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLUniformLocation Mozilla WebGLUniformLocation documentation>+newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal }++instance PToJSVal WebGLUniformLocation where+  pToJSVal = unWebGLUniformLocation+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLUniformLocation where+  pFromJSVal = WebGLUniformLocation+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLUniformLocation where+  toJSVal = return . unWebGLUniformLocation+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLUniformLocation where+  fromJSVal v = fmap WebGLUniformLocation <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLUniformLocation where+  makeObject = makeObject . unWebGLUniformLocation++instance IsGObject WebGLUniformLocation where+  toGObject = GObject . unWebGLUniformLocation+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLUniformLocation . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLUniformLocation :: IsGObject obj => obj -> JSM WebGLUniformLocation+castToWebGLUniformLocation = castTo gTypeWebGLUniformLocation "WebGLUniformLocation"++gTypeWebGLUniformLocation :: JSM GType+gTypeWebGLUniformLocation = GType . Object <$> jsg "WebGLUniformLocation"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLVertexArrayObject".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLVertexArrayObject Mozilla WebGLVertexArrayObject documentation>+newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal }++instance PToJSVal WebGLVertexArrayObject where+  pToJSVal = unWebGLVertexArrayObject+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLVertexArrayObject where+  pFromJSVal = WebGLVertexArrayObject+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLVertexArrayObject where+  toJSVal = return . unWebGLVertexArrayObject+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLVertexArrayObject where+  fromJSVal v = fmap WebGLVertexArrayObject <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLVertexArrayObject where+  makeObject = makeObject . unWebGLVertexArrayObject++instance IsGObject WebGLVertexArrayObject where+  toGObject = GObject . unWebGLVertexArrayObject+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLVertexArrayObject . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLVertexArrayObject :: IsGObject obj => obj -> JSM WebGLVertexArrayObject+castToWebGLVertexArrayObject = castTo gTypeWebGLVertexArrayObject "WebGLVertexArrayObject"++gTypeWebGLVertexArrayObject :: JSM GType+gTypeWebGLVertexArrayObject = GType . Object <$> jsg "WebGLVertexArrayObject"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebGLVertexArrayObjectOES".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebGLVertexArrayObjectOES Mozilla WebGLVertexArrayObjectOES documentation>+newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal }++instance PToJSVal WebGLVertexArrayObjectOES where+  pToJSVal = unWebGLVertexArrayObjectOES+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebGLVertexArrayObjectOES where+  pFromJSVal = WebGLVertexArrayObjectOES+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebGLVertexArrayObjectOES where+  toJSVal = return . unWebGLVertexArrayObjectOES+  {-# INLINE toJSVal #-}++instance FromJSVal WebGLVertexArrayObjectOES where+  fromJSVal v = fmap WebGLVertexArrayObjectOES <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebGLVertexArrayObjectOES where+  makeObject = makeObject . unWebGLVertexArrayObjectOES++instance IsGObject WebGLVertexArrayObjectOES where+  toGObject = GObject . unWebGLVertexArrayObjectOES+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebGLVertexArrayObjectOES . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebGLVertexArrayObjectOES :: IsGObject obj => obj -> JSM WebGLVertexArrayObjectOES+castToWebGLVertexArrayObjectOES = castTo gTypeWebGLVertexArrayObjectOES "WebGLVertexArrayObjectOES"++gTypeWebGLVertexArrayObjectOES :: JSM GType+gTypeWebGLVertexArrayObjectOES = GType . Object <$> jsg "WebGLVertexArrayObjectOES"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitAnimationEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitAnimationEvent Mozilla WebKitAnimationEvent documentation>+newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal }++instance PToJSVal WebKitAnimationEvent where+  pToJSVal = unWebKitAnimationEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitAnimationEvent where+  pFromJSVal = WebKitAnimationEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitAnimationEvent where+  toJSVal = return . unWebKitAnimationEvent+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitAnimationEvent where+  fromJSVal v = fmap WebKitAnimationEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitAnimationEvent where+  makeObject = makeObject . unWebKitAnimationEvent++instance IsEvent WebKitAnimationEvent+instance IsGObject WebKitAnimationEvent where+  toGObject = GObject . unWebKitAnimationEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitAnimationEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitAnimationEvent :: IsGObject obj => obj -> JSM WebKitAnimationEvent+castToWebKitAnimationEvent = castTo gTypeWebKitAnimationEvent "WebKitAnimationEvent"++gTypeWebKitAnimationEvent :: JSM GType+gTypeWebKitAnimationEvent = GType . Object <$> jsg "WebKitAnimationEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitCSSFilterValue".+-- Base interface functions are in:+--+--     * "JSDOM.CSSValueList"+--     * "JSDOM.CSSValue"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSFilterValue Mozilla WebKitCSSFilterValue documentation>+newtype WebKitCSSFilterValue = WebKitCSSFilterValue { unWebKitCSSFilterValue :: JSVal }++instance PToJSVal WebKitCSSFilterValue where+  pToJSVal = unWebKitCSSFilterValue+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitCSSFilterValue where+  pFromJSVal = WebKitCSSFilterValue+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitCSSFilterValue where+  toJSVal = return . unWebKitCSSFilterValue+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitCSSFilterValue where+  fromJSVal v = fmap WebKitCSSFilterValue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitCSSFilterValue where+  makeObject = makeObject . unWebKitCSSFilterValue++instance IsCSSValueList WebKitCSSFilterValue+instance IsCSSValue WebKitCSSFilterValue+instance IsGObject WebKitCSSFilterValue where+  toGObject = GObject . unWebKitCSSFilterValue+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitCSSFilterValue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitCSSFilterValue :: IsGObject obj => obj -> JSM WebKitCSSFilterValue+castToWebKitCSSFilterValue = castTo gTypeWebKitCSSFilterValue "WebKitCSSFilterValue"++gTypeWebKitCSSFilterValue :: JSM GType+gTypeWebKitCSSFilterValue = GType . Object <$> jsg "WebKitCSSFilterValue"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitCSSMatrix".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix Mozilla WebKitCSSMatrix documentation>+newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal }++instance PToJSVal WebKitCSSMatrix where+  pToJSVal = unWebKitCSSMatrix+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitCSSMatrix where+  pFromJSVal = WebKitCSSMatrix+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitCSSMatrix where+  toJSVal = return . unWebKitCSSMatrix+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitCSSMatrix where+  fromJSVal v = fmap WebKitCSSMatrix <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitCSSMatrix where+  makeObject = makeObject . unWebKitCSSMatrix++instance IsGObject WebKitCSSMatrix where+  toGObject = GObject . unWebKitCSSMatrix+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitCSSMatrix . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitCSSMatrix :: IsGObject obj => obj -> JSM WebKitCSSMatrix+castToWebKitCSSMatrix = castTo gTypeWebKitCSSMatrix "WebKitCSSMatrix"++gTypeWebKitCSSMatrix :: JSM GType+gTypeWebKitCSSMatrix = GType . Object <$> jsg "WebKitCSSMatrix"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitCSSRegionRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSRegionRule Mozilla WebKitCSSRegionRule documentation>+newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal }++instance PToJSVal WebKitCSSRegionRule where+  pToJSVal = unWebKitCSSRegionRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitCSSRegionRule where+  pFromJSVal = WebKitCSSRegionRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitCSSRegionRule where+  toJSVal = return . unWebKitCSSRegionRule+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitCSSRegionRule where+  fromJSVal v = fmap WebKitCSSRegionRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitCSSRegionRule where+  makeObject = makeObject . unWebKitCSSRegionRule++instance IsCSSRule WebKitCSSRegionRule+instance IsGObject WebKitCSSRegionRule where+  toGObject = GObject . unWebKitCSSRegionRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitCSSRegionRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitCSSRegionRule :: IsGObject obj => obj -> JSM WebKitCSSRegionRule+castToWebKitCSSRegionRule = castTo gTypeWebKitCSSRegionRule "WebKitCSSRegionRule"++gTypeWebKitCSSRegionRule :: JSM GType+gTypeWebKitCSSRegionRule = GType . Object <$> jsg "WebKitCSSRegionRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitCSSTransformValue".+-- Base interface functions are in:+--+--     * "JSDOM.CSSValueList"+--     * "JSDOM.CSSValue"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSTransformValue Mozilla WebKitCSSTransformValue documentation>+newtype WebKitCSSTransformValue = WebKitCSSTransformValue { unWebKitCSSTransformValue :: JSVal }++instance PToJSVal WebKitCSSTransformValue where+  pToJSVal = unWebKitCSSTransformValue+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitCSSTransformValue where+  pFromJSVal = WebKitCSSTransformValue+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitCSSTransformValue where+  toJSVal = return . unWebKitCSSTransformValue+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitCSSTransformValue where+  fromJSVal v = fmap WebKitCSSTransformValue <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitCSSTransformValue where+  makeObject = makeObject . unWebKitCSSTransformValue++instance IsCSSValueList WebKitCSSTransformValue+instance IsCSSValue WebKitCSSTransformValue+instance IsGObject WebKitCSSTransformValue where+  toGObject = GObject . unWebKitCSSTransformValue+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitCSSTransformValue . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitCSSTransformValue :: IsGObject obj => obj -> JSM WebKitCSSTransformValue+castToWebKitCSSTransformValue = castTo gTypeWebKitCSSTransformValue "WebKitCSSTransformValue"++gTypeWebKitCSSTransformValue :: JSM GType+gTypeWebKitCSSTransformValue = GType . Object <$> jsg "WebKitCSSTransformValue"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitCSSViewportRule".+-- Base interface functions are in:+--+--     * "JSDOM.CSSRule"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSViewportRule Mozilla WebKitCSSViewportRule documentation>+newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal }++instance PToJSVal WebKitCSSViewportRule where+  pToJSVal = unWebKitCSSViewportRule+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitCSSViewportRule where+  pFromJSVal = WebKitCSSViewportRule+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitCSSViewportRule where+  toJSVal = return . unWebKitCSSViewportRule+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitCSSViewportRule where+  fromJSVal v = fmap WebKitCSSViewportRule <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitCSSViewportRule where+  makeObject = makeObject . unWebKitCSSViewportRule++instance IsCSSRule WebKitCSSViewportRule+instance IsGObject WebKitCSSViewportRule where+  toGObject = GObject . unWebKitCSSViewportRule+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitCSSViewportRule . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitCSSViewportRule :: IsGObject obj => obj -> JSM WebKitCSSViewportRule+castToWebKitCSSViewportRule = castTo gTypeWebKitCSSViewportRule "WebKitCSSViewportRule"++gTypeWebKitCSSViewportRule :: JSM GType+gTypeWebKitCSSViewportRule = GType . Object <$> jsg "WebKitCSSViewportRule"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitNamedFlow".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow Mozilla WebKitNamedFlow documentation>+newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal }++instance PToJSVal WebKitNamedFlow where+  pToJSVal = unWebKitNamedFlow+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitNamedFlow where+  pFromJSVal = WebKitNamedFlow+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitNamedFlow where+  toJSVal = return . unWebKitNamedFlow+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitNamedFlow where+  fromJSVal v = fmap WebKitNamedFlow <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitNamedFlow where+  makeObject = makeObject . unWebKitNamedFlow++instance IsEventTarget WebKitNamedFlow+instance IsGObject WebKitNamedFlow where+  toGObject = GObject . unWebKitNamedFlow+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitNamedFlow . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitNamedFlow :: IsGObject obj => obj -> JSM WebKitNamedFlow+castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow"++gTypeWebKitNamedFlow :: JSM GType+gTypeWebKitNamedFlow = GType . Object <$> jsg "WebKitNamedFlow"+#else+type IsWebKitNamedFlow o = WebKitNamedFlowClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitNamespace".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamespace Mozilla WebKitNamespace documentation>+newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal }++instance PToJSVal WebKitNamespace where+  pToJSVal = unWebKitNamespace+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitNamespace where+  pFromJSVal = WebKitNamespace+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitNamespace where+  toJSVal = return . unWebKitNamespace+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitNamespace where+  fromJSVal v = fmap WebKitNamespace <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitNamespace where+  makeObject = makeObject . unWebKitNamespace++instance IsGObject WebKitNamespace where+  toGObject = GObject . unWebKitNamespace+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitNamespace . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitNamespace :: IsGObject obj => obj -> JSM WebKitNamespace+castToWebKitNamespace = castTo gTypeWebKitNamespace "WebKitNamespace"++gTypeWebKitNamespace :: JSM GType+gTypeWebKitNamespace = GType . Object <$> jsg "WebKitNamespace"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitPlaybackTargetAvailabilityEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPlaybackTargetAvailabilityEvent Mozilla WebKitPlaybackTargetAvailabilityEvent documentation>+newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal }++instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where+  pToJSVal = unWebKitPlaybackTargetAvailabilityEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where+  pFromJSVal = WebKitPlaybackTargetAvailabilityEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where+  toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where+  fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitPlaybackTargetAvailabilityEvent where+  makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEvent++instance IsEvent WebKitPlaybackTargetAvailabilityEvent+instance IsGObject WebKitPlaybackTargetAvailabilityEvent where+  toGObject = GObject . unWebKitPlaybackTargetAvailabilityEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitPlaybackTargetAvailabilityEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitPlaybackTargetAvailabilityEvent :: IsGObject obj => obj -> JSM WebKitPlaybackTargetAvailabilityEvent+castToWebKitPlaybackTargetAvailabilityEvent = castTo gTypeWebKitPlaybackTargetAvailabilityEvent "WebKitPlaybackTargetAvailabilityEvent"++gTypeWebKitPlaybackTargetAvailabilityEvent :: JSM GType+gTypeWebKitPlaybackTargetAvailabilityEvent = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitPoint".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint Mozilla WebKitPoint documentation>+newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal }++instance PToJSVal WebKitPoint where+  pToJSVal = unWebKitPoint+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitPoint where+  pFromJSVal = WebKitPoint+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitPoint where+  toJSVal = return . unWebKitPoint+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitPoint where+  fromJSVal v = fmap WebKitPoint <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitPoint where+  makeObject = makeObject . unWebKitPoint++instance IsGObject WebKitPoint where+  toGObject = GObject . unWebKitPoint+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitPoint . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitPoint :: IsGObject obj => obj -> JSM WebKitPoint+castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint"++gTypeWebKitPoint :: JSM GType+gTypeWebKitPoint = GType . Object <$> jsg "WebKitPoint"+#else+type IsWebKitPoint o = WebKitPointClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebKitTransitionEvent".+-- Base interface functions are in:+--+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent Mozilla WebKitTransitionEvent documentation>+newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal }++instance PToJSVal WebKitTransitionEvent where+  pToJSVal = unWebKitTransitionEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebKitTransitionEvent where+  pFromJSVal = WebKitTransitionEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebKitTransitionEvent where+  toJSVal = return . unWebKitTransitionEvent+  {-# INLINE toJSVal #-}++instance FromJSVal WebKitTransitionEvent where+  fromJSVal v = fmap WebKitTransitionEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebKitTransitionEvent where+  makeObject = makeObject . unWebKitTransitionEvent++instance IsEvent WebKitTransitionEvent+instance IsGObject WebKitTransitionEvent where+  toGObject = GObject . unWebKitTransitionEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebKitTransitionEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebKitTransitionEvent :: IsGObject obj => obj -> JSM WebKitTransitionEvent+castToWebKitTransitionEvent = castTo gTypeWebKitTransitionEvent "WebKitTransitionEvent"++gTypeWebKitTransitionEvent :: JSM GType+gTypeWebKitTransitionEvent = GType . Object <$> jsg "WebKitTransitionEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WebSocket".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket Mozilla WebSocket documentation>+newtype WebSocket = WebSocket { unWebSocket :: JSVal }++instance PToJSVal WebSocket where+  pToJSVal = unWebSocket+  {-# INLINE pToJSVal #-}++instance PFromJSVal WebSocket where+  pFromJSVal = WebSocket+  {-# INLINE pFromJSVal #-}++instance ToJSVal WebSocket where+  toJSVal = return . unWebSocket+  {-# INLINE toJSVal #-}++instance FromJSVal WebSocket where+  fromJSVal v = fmap WebSocket <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WebSocket where+  makeObject = makeObject . unWebSocket++instance IsEventTarget WebSocket+instance IsGObject WebSocket where+  toGObject = GObject . unWebSocket+  {-# INLINE toGObject #-}+  unsafeCastGObject = WebSocket . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWebSocket :: IsGObject obj => obj -> JSM WebSocket+castToWebSocket = castTo gTypeWebSocket "WebSocket"++gTypeWebSocket :: JSM GType+gTypeWebSocket = GType . Object <$> jsg "WebSocket"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WheelEvent".+-- Base interface functions are in:+--+--     * "JSDOM.MouseEvent"+--     * "JSDOM.UIEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent Mozilla WheelEvent documentation>+newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal }++instance PToJSVal WheelEvent where+  pToJSVal = unWheelEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal WheelEvent where+  pFromJSVal = WheelEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal WheelEvent where+  toJSVal = return . unWheelEvent+  {-# INLINE toJSVal #-}++instance FromJSVal WheelEvent where+  fromJSVal v = fmap WheelEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WheelEvent where+  makeObject = makeObject . unWheelEvent++instance IsMouseEvent WheelEvent+instance IsUIEvent WheelEvent+instance IsEvent WheelEvent+instance IsGObject WheelEvent where+  toGObject = GObject . unWheelEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = WheelEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWheelEvent :: IsGObject obj => obj -> JSM WheelEvent+castToWheelEvent = castTo gTypeWheelEvent "WheelEvent"++gTypeWheelEvent :: JSM GType+gTypeWheelEvent = GType . Object <$> jsg "WheelEvent"+#else+#ifndef USE_OLD_WEBKIT+type IsWheelEvent o = WheelEventClass o+#endif+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Window".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Window Mozilla Window documentation>+newtype Window = Window { unWindow :: JSVal }++instance PToJSVal Window where+  pToJSVal = unWindow+  {-# INLINE pToJSVal #-}++instance PFromJSVal Window where+  pFromJSVal = Window+  {-# INLINE pFromJSVal #-}++instance ToJSVal Window where+  toJSVal = return . unWindow+  {-# INLINE toJSVal #-}++instance FromJSVal Window where+  fromJSVal v = fmap Window <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Window where+  makeObject = makeObject . unWindow++instance IsEventTarget Window+instance IsGObject Window where+  toGObject = GObject . unWindow+  {-# INLINE toGObject #-}+  unsafeCastGObject = Window . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWindow :: IsGObject obj => obj -> JSM Window+castToWindow = castTo gTypeWindow "Window"++gTypeWindow :: JSM GType+gTypeWindow = GType . Object <$> jsg "Window"+#else+type IsWindow o = WindowClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WindowBase64".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WindowBase64 Mozilla WindowBase64 documentation>+newtype WindowBase64 = WindowBase64 { unWindowBase64 :: JSVal }++instance PToJSVal WindowBase64 where+  pToJSVal = unWindowBase64+  {-# INLINE pToJSVal #-}++instance PFromJSVal WindowBase64 where+  pFromJSVal = WindowBase64+  {-# INLINE pFromJSVal #-}++instance ToJSVal WindowBase64 where+  toJSVal = return . unWindowBase64+  {-# INLINE toJSVal #-}++instance FromJSVal WindowBase64 where+  fromJSVal v = fmap WindowBase64 <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WindowBase64 where+  makeObject = makeObject . unWindowBase64++instance IsGObject WindowBase64 where+  toGObject = GObject . unWindowBase64+  {-# INLINE toGObject #-}+  unsafeCastGObject = WindowBase64 . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWindowBase64 :: IsGObject obj => obj -> JSM WindowBase64+castToWindowBase64 = castTo gTypeWindowBase64 "WindowBase64"++gTypeWindowBase64 :: JSM GType+gTypeWindowBase64 = GType . Object <$> jsg "WindowBase64"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WindowTimers".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers Mozilla WindowTimers documentation>+newtype WindowTimers = WindowTimers { unWindowTimers :: JSVal }++instance PToJSVal WindowTimers where+  pToJSVal = unWindowTimers+  {-# INLINE pToJSVal #-}++instance PFromJSVal WindowTimers where+  pFromJSVal = WindowTimers+  {-# INLINE pFromJSVal #-}++instance ToJSVal WindowTimers where+  toJSVal = return . unWindowTimers+  {-# INLINE toJSVal #-}++instance FromJSVal WindowTimers where+  fromJSVal v = fmap WindowTimers <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WindowTimers where+  makeObject = makeObject . unWindowTimers++instance IsGObject WindowTimers where+  toGObject = GObject . unWindowTimers+  {-# INLINE toGObject #-}+  unsafeCastGObject = WindowTimers . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWindowTimers :: IsGObject obj => obj -> JSM WindowTimers+castToWindowTimers = castTo gTypeWindowTimers "WindowTimers"++gTypeWindowTimers :: JSM GType+gTypeWindowTimers = GType . Object <$> jsg "WindowTimers"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.Worker".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/Worker Mozilla Worker documentation>+newtype Worker = Worker { unWorker :: JSVal }++instance PToJSVal Worker where+  pToJSVal = unWorker+  {-# INLINE pToJSVal #-}++instance PFromJSVal Worker where+  pFromJSVal = Worker+  {-# INLINE pFromJSVal #-}++instance ToJSVal Worker where+  toJSVal = return . unWorker+  {-# INLINE toJSVal #-}++instance FromJSVal Worker where+  fromJSVal v = fmap Worker <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject Worker where+  makeObject = makeObject . unWorker++instance IsEventTarget Worker+instance IsGObject Worker where+  toGObject = GObject . unWorker+  {-# INLINE toGObject #-}+  unsafeCastGObject = Worker . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWorker :: IsGObject obj => obj -> JSM Worker+castToWorker = castTo gTypeWorker "Worker"++gTypeWorker :: JSM GType+gTypeWorker = GType . Object <$> jsg "Worker"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WorkerGlobalScope".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope Mozilla WorkerGlobalScope documentation>+newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal }++instance PToJSVal WorkerGlobalScope where+  pToJSVal = unWorkerGlobalScope+  {-# INLINE pToJSVal #-}++instance PFromJSVal WorkerGlobalScope where+  pFromJSVal = WorkerGlobalScope+  {-# INLINE pFromJSVal #-}++instance ToJSVal WorkerGlobalScope where+  toJSVal = return . unWorkerGlobalScope+  {-# INLINE toJSVal #-}++instance FromJSVal WorkerGlobalScope where+  fromJSVal v = fmap WorkerGlobalScope <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WorkerGlobalScope where+  makeObject = makeObject . unWorkerGlobalScope++class IsEventTarget o => IsWorkerGlobalScope o+toWorkerGlobalScope :: IsWorkerGlobalScope o => o -> WorkerGlobalScope+toWorkerGlobalScope = unsafeCastGObject . toGObject++instance IsWorkerGlobalScope WorkerGlobalScope+instance IsEventTarget WorkerGlobalScope+instance IsGObject WorkerGlobalScope where+  toGObject = GObject . unWorkerGlobalScope+  {-# INLINE toGObject #-}+  unsafeCastGObject = WorkerGlobalScope . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWorkerGlobalScope :: IsGObject obj => obj -> JSM WorkerGlobalScope+castToWorkerGlobalScope = castTo gTypeWorkerGlobalScope "WorkerGlobalScope"++gTypeWorkerGlobalScope :: JSM GType+gTypeWorkerGlobalScope = GType . Object <$> jsg "WorkerGlobalScope"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WorkerLocation".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation Mozilla WorkerLocation documentation>+newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal }++instance PToJSVal WorkerLocation where+  pToJSVal = unWorkerLocation+  {-# INLINE pToJSVal #-}++instance PFromJSVal WorkerLocation where+  pFromJSVal = WorkerLocation+  {-# INLINE pFromJSVal #-}++instance ToJSVal WorkerLocation where+  toJSVal = return . unWorkerLocation+  {-# INLINE toJSVal #-}++instance FromJSVal WorkerLocation where+  fromJSVal v = fmap WorkerLocation <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WorkerLocation where+  makeObject = makeObject . unWorkerLocation++instance IsGObject WorkerLocation where+  toGObject = GObject . unWorkerLocation+  {-# INLINE toGObject #-}+  unsafeCastGObject = WorkerLocation . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWorkerLocation :: IsGObject obj => obj -> JSM WorkerLocation+castToWorkerLocation = castTo gTypeWorkerLocation "WorkerLocation"++gTypeWorkerLocation :: JSM GType+gTypeWorkerLocation = GType . Object <$> jsg "WorkerLocation"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.WorkerNavigator".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator Mozilla WorkerNavigator documentation>+newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal }++instance PToJSVal WorkerNavigator where+  pToJSVal = unWorkerNavigator+  {-# INLINE pToJSVal #-}++instance PFromJSVal WorkerNavigator where+  pFromJSVal = WorkerNavigator+  {-# INLINE pFromJSVal #-}++instance ToJSVal WorkerNavigator where+  toJSVal = return . unWorkerNavigator+  {-# INLINE toJSVal #-}++instance FromJSVal WorkerNavigator where+  fromJSVal v = fmap WorkerNavigator <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject WorkerNavigator where+  makeObject = makeObject . unWorkerNavigator++instance IsGObject WorkerNavigator where+  toGObject = GObject . unWorkerNavigator+  {-# INLINE toGObject #-}+  unsafeCastGObject = WorkerNavigator . unGObject+  {-# INLINE unsafeCastGObject #-}++castToWorkerNavigator :: IsGObject obj => obj -> JSM WorkerNavigator+castToWorkerNavigator = castTo gTypeWorkerNavigator "WorkerNavigator"++gTypeWorkerNavigator :: JSM GType+gTypeWorkerNavigator = GType . Object <$> jsg "WorkerNavigator"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XMLHttpRequest".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest Mozilla XMLHttpRequest documentation>+newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal }++instance PToJSVal XMLHttpRequest where+  pToJSVal = unXMLHttpRequest+  {-# INLINE pToJSVal #-}++instance PFromJSVal XMLHttpRequest where+  pFromJSVal = XMLHttpRequest+  {-# INLINE pFromJSVal #-}++instance ToJSVal XMLHttpRequest where+  toJSVal = return . unXMLHttpRequest+  {-# INLINE toJSVal #-}++instance FromJSVal XMLHttpRequest where+  fromJSVal v = fmap XMLHttpRequest <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XMLHttpRequest where+  makeObject = makeObject . unXMLHttpRequest++instance IsEventTarget XMLHttpRequest+instance IsGObject XMLHttpRequest where+  toGObject = GObject . unXMLHttpRequest+  {-# INLINE toGObject #-}+  unsafeCastGObject = XMLHttpRequest . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXMLHttpRequest :: IsGObject obj => obj -> JSM XMLHttpRequest+castToXMLHttpRequest = castTo gTypeXMLHttpRequest "XMLHttpRequest"++gTypeXMLHttpRequest :: JSM GType+gTypeXMLHttpRequest = GType . Object <$> jsg "XMLHttpRequest"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XMLHttpRequestProgressEvent".+-- Base interface functions are in:+--+--     * "JSDOM.ProgressEvent"+--     * "JSDOM.Event"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestProgressEvent Mozilla XMLHttpRequestProgressEvent documentation>+newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal }++instance PToJSVal XMLHttpRequestProgressEvent where+  pToJSVal = unXMLHttpRequestProgressEvent+  {-# INLINE pToJSVal #-}++instance PFromJSVal XMLHttpRequestProgressEvent where+  pFromJSVal = XMLHttpRequestProgressEvent+  {-# INLINE pFromJSVal #-}++instance ToJSVal XMLHttpRequestProgressEvent where+  toJSVal = return . unXMLHttpRequestProgressEvent+  {-# INLINE toJSVal #-}++instance FromJSVal XMLHttpRequestProgressEvent where+  fromJSVal v = fmap XMLHttpRequestProgressEvent <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XMLHttpRequestProgressEvent where+  makeObject = makeObject . unXMLHttpRequestProgressEvent++instance IsProgressEvent XMLHttpRequestProgressEvent+instance IsEvent XMLHttpRequestProgressEvent+instance IsGObject XMLHttpRequestProgressEvent where+  toGObject = GObject . unXMLHttpRequestProgressEvent+  {-# INLINE toGObject #-}+  unsafeCastGObject = XMLHttpRequestProgressEvent . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXMLHttpRequestProgressEvent :: IsGObject obj => obj -> JSM XMLHttpRequestProgressEvent+castToXMLHttpRequestProgressEvent = castTo gTypeXMLHttpRequestProgressEvent "XMLHttpRequestProgressEvent"++gTypeXMLHttpRequestProgressEvent :: JSM GType+gTypeXMLHttpRequestProgressEvent = GType . Object <$> jsg "XMLHttpRequestProgressEvent"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XMLHttpRequestUpload".+-- Base interface functions are in:+--+--     * "JSDOM.EventTarget"+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload Mozilla XMLHttpRequestUpload documentation>+newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal }++instance PToJSVal XMLHttpRequestUpload where+  pToJSVal = unXMLHttpRequestUpload+  {-# INLINE pToJSVal #-}++instance PFromJSVal XMLHttpRequestUpload where+  pFromJSVal = XMLHttpRequestUpload+  {-# INLINE pFromJSVal #-}++instance ToJSVal XMLHttpRequestUpload where+  toJSVal = return . unXMLHttpRequestUpload+  {-# INLINE toJSVal #-}++instance FromJSVal XMLHttpRequestUpload where+  fromJSVal v = fmap XMLHttpRequestUpload <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XMLHttpRequestUpload where+  makeObject = makeObject . unXMLHttpRequestUpload++instance IsEventTarget XMLHttpRequestUpload+instance IsGObject XMLHttpRequestUpload where+  toGObject = GObject . unXMLHttpRequestUpload+  {-# INLINE toGObject #-}+  unsafeCastGObject = XMLHttpRequestUpload . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXMLHttpRequestUpload :: IsGObject obj => obj -> JSM XMLHttpRequestUpload+castToXMLHttpRequestUpload = castTo gTypeXMLHttpRequestUpload "XMLHttpRequestUpload"++gTypeXMLHttpRequestUpload :: JSM GType+gTypeXMLHttpRequestUpload = GType . Object <$> jsg "XMLHttpRequestUpload"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XMLSerializer".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XMLSerializer Mozilla XMLSerializer documentation>+newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal }++instance PToJSVal XMLSerializer where+  pToJSVal = unXMLSerializer+  {-# INLINE pToJSVal #-}++instance PFromJSVal XMLSerializer where+  pFromJSVal = XMLSerializer+  {-# INLINE pFromJSVal #-}++instance ToJSVal XMLSerializer where+  toJSVal = return . unXMLSerializer+  {-# INLINE toJSVal #-}++instance FromJSVal XMLSerializer where+  fromJSVal v = fmap XMLSerializer <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XMLSerializer where+  makeObject = makeObject . unXMLSerializer++instance IsGObject XMLSerializer where+  toGObject = GObject . unXMLSerializer+  {-# INLINE toGObject #-}+  unsafeCastGObject = XMLSerializer . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXMLSerializer :: IsGObject obj => obj -> JSM XMLSerializer+castToXMLSerializer = castTo gTypeXMLSerializer "XMLSerializer"++gTypeXMLSerializer :: JSM GType+gTypeXMLSerializer = GType . Object <$> jsg "XMLSerializer"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XPathEvaluator".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator Mozilla XPathEvaluator documentation>+newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal }++instance PToJSVal XPathEvaluator where+  pToJSVal = unXPathEvaluator+  {-# INLINE pToJSVal #-}++instance PFromJSVal XPathEvaluator where+  pFromJSVal = XPathEvaluator+  {-# INLINE pFromJSVal #-}++instance ToJSVal XPathEvaluator where+  toJSVal = return . unXPathEvaluator+  {-# INLINE toJSVal #-}++instance FromJSVal XPathEvaluator where+  fromJSVal v = fmap XPathEvaluator <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XPathEvaluator where+  makeObject = makeObject . unXPathEvaluator++instance IsGObject XPathEvaluator where+  toGObject = GObject . unXPathEvaluator+  {-# INLINE toGObject #-}+  unsafeCastGObject = XPathEvaluator . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXPathEvaluator :: IsGObject obj => obj -> JSM XPathEvaluator+castToXPathEvaluator = castTo gTypeXPathEvaluator "XPathEvaluator"++gTypeXPathEvaluator :: JSM GType+gTypeXPathEvaluator = GType . Object <$> jsg "XPathEvaluator"+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XPathExpression".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XPathExpression Mozilla XPathExpression documentation>+newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal }++instance PToJSVal XPathExpression where+  pToJSVal = unXPathExpression+  {-# INLINE pToJSVal #-}++instance PFromJSVal XPathExpression where+  pFromJSVal = XPathExpression+  {-# INLINE pFromJSVal #-}++instance ToJSVal XPathExpression where+  toJSVal = return . unXPathExpression+  {-# INLINE toJSVal #-}++instance FromJSVal XPathExpression where+  fromJSVal v = fmap XPathExpression <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XPathExpression where+  makeObject = makeObject . unXPathExpression++instance IsGObject XPathExpression where+  toGObject = GObject . unXPathExpression+  {-# INLINE toGObject #-}+  unsafeCastGObject = XPathExpression . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXPathExpression :: IsGObject obj => obj -> JSM XPathExpression+castToXPathExpression = castTo gTypeXPathExpression "XPathExpression"++gTypeXPathExpression :: JSM GType+gTypeXPathExpression = GType . Object <$> jsg "XPathExpression"+#else+type IsXPathExpression o = XPathExpressionClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XPathNSResolver".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XPathNSResolver Mozilla XPathNSResolver documentation>+newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal }++instance PToJSVal XPathNSResolver where+  pToJSVal = unXPathNSResolver+  {-# INLINE pToJSVal #-}++instance PFromJSVal XPathNSResolver where+  pFromJSVal = XPathNSResolver+  {-# INLINE pFromJSVal #-}++instance ToJSVal XPathNSResolver where+  toJSVal = return . unXPathNSResolver+  {-# INLINE toJSVal #-}++instance FromJSVal XPathNSResolver where+  fromJSVal v = fmap XPathNSResolver <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XPathNSResolver where+  makeObject = makeObject . unXPathNSResolver++instance IsGObject XPathNSResolver where+  toGObject = GObject . unXPathNSResolver+  {-# INLINE toGObject #-}+  unsafeCastGObject = XPathNSResolver . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXPathNSResolver :: IsGObject obj => obj -> JSM XPathNSResolver+castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver"++gTypeXPathNSResolver :: JSM GType+gTypeXPathNSResolver = GType . Object <$> jsg "XPathNSResolver"+#else+type IsXPathNSResolver o = XPathNSResolverClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XPathResult".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult Mozilla XPathResult documentation>+newtype XPathResult = XPathResult { unXPathResult :: JSVal }++instance PToJSVal XPathResult where+  pToJSVal = unXPathResult+  {-# INLINE pToJSVal #-}++instance PFromJSVal XPathResult where+  pFromJSVal = XPathResult+  {-# INLINE pFromJSVal #-}++instance ToJSVal XPathResult where+  toJSVal = return . unXPathResult+  {-# INLINE toJSVal #-}++instance FromJSVal XPathResult where+  fromJSVal v = fmap XPathResult <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XPathResult where+  makeObject = makeObject . unXPathResult++instance IsGObject XPathResult where+  toGObject = GObject . unXPathResult+  {-# INLINE toGObject #-}+  unsafeCastGObject = XPathResult . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXPathResult :: IsGObject obj => obj -> JSM XPathResult+castToXPathResult = castTo gTypeXPathResult "XPathResult"++gTypeXPathResult :: JSM GType+gTypeXPathResult = GType . Object <$> jsg "XPathResult"+#else+type IsXPathResult o = XPathResultClass o+#endif+++#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)+-- | Functions for this inteface are in "JSDOM.XSLTProcessor".+--+-- <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor Mozilla XSLTProcessor documentation>+newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal }++instance PToJSVal XSLTProcessor where+  pToJSVal = unXSLTProcessor+  {-# INLINE pToJSVal #-}++instance PFromJSVal XSLTProcessor where+  pFromJSVal = XSLTProcessor+  {-# INLINE pFromJSVal #-}++instance ToJSVal XSLTProcessor where+  toJSVal = return . unXSLTProcessor+  {-# INLINE toJSVal #-}++instance FromJSVal XSLTProcessor where+  fromJSVal v = fmap XSLTProcessor <$> maybeNullOrUndefined v+  {-# INLINE fromJSVal #-}++instance MakeObject XSLTProcessor where+  makeObject = makeObject . unXSLTProcessor++instance IsGObject XSLTProcessor where+  toGObject = GObject . unXSLTProcessor+  {-# INLINE toGObject #-}+  unsafeCastGObject = XSLTProcessor . unGObject+  {-# INLINE unsafeCastGObject #-}++castToXSLTProcessor :: IsGObject obj => obj -> JSM XSLTProcessor+castToXSLTProcessor = castTo gTypeXSLTProcessor "XSLTProcessor"++gTypeXSLTProcessor :: JSM GType+gTypeXSLTProcessor = GType . Object <$> jsg "XSLTProcessor"+#endif++
− src/Language/Javascript/JSaddle/DOM.hs 
@@ -1,124 +0,0 @@-{-# LANGUAGE CPP, OverloadedStrings, PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM (-  currentWindow-, currentDocument-, WebView-, runWebGUI-, enableInspector-) where--import qualified Data.Text as T-import Data.Monoid ((<>))-#ifdef ghcjs_HOST_OS-import GHCJS.Types (JSVal(..))-import GHCJS.Nullable (Nullable(..), nullableToMaybe)-import Control.Applicative ((<$>))-#else-import GI.WebKit.Objects.WebView-       (getWebViewSettings, onWebViewLoadFinished, setWebViewSettings,-        webViewSetSettings, webViewGetSettings, webViewLoadUri, webViewNew,-        webViewGetDomDocument, webViewGetInspector, WebView(..))-import GI.Gtk-       (widgetShowAll, mainQuit,-        WindowPosition(..), containerAdd, scrolledWindowNew,-        windowSetPosition, windowSetDefaultSize, windowNew)-import qualified GI.Gtk.Functions as Gtk (init, main)-import GI.WebKit.Objects.WebSettings-       (setWebSettingsMonospaceFontFamily,-        setWebSettingsEnableDeveloperExtras, setWebSettingsUserAgent,-        getWebSettingsUserAgent)-import GI.Gtk.Objects.Widget (onWidgetDestroy)-import GI.WebKit.Objects.WebInspector-       (onWebInspectorShowWindow, onWebInspectorInspectWebView)-import GI.Gtk.Enums (WindowType(..))-import GI.GLib.Functions (timeoutAdd)-import GI.GLib.Constants (pattern PRIORITY_LOW)-import GI.Gtk.Objects.Adjustment (noAdjustment)-import Control.Monad.IO.Class (liftIO)-#endif--import Language.Javascript.JSaddle.DOM.Generated.Window (getNavigator, getDocument)-import Language.Javascript.JSaddle.DOM.Generated.Navigator (getUserAgent)-import Foreign (ForeignPtr, nullPtr, Ptr)-import Control.Monad (unless, forever, liftM)-import Control.Concurrent-       (yield, threadDelay, takeMVar, newEmptyMVar)-import System.Environment (getArgs)-import Data.List (isSuffixOf)-import Language.Javascript.JSaddle (runJSaddle, JSM, jsg)-import Language.Javascript.JSaddle.DOM.Types-       (FromJSVal(..), MonadDOM(..), MonadDOM, Document(..), Window(..))-import Control.Monad.IO.Class (MonadIO)--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "$r = window"-  ghcjs_currentWindow :: IO JSVal--data WebView = WebView-#endif--currentWindow :: MonadDOM m => m (Maybe Window)-currentWindow = liftDOM $ jsg ("window" :: String) >>= fromJSVal--currentDocument :: MonadDOM m => m (Maybe Document)-currentDocument = liftDOM $ jsg ("document" :: String) >>= fromJSVal--runWebGUI :: (WebView -> JSM ()) -> IO ()-runWebGUI = runWebGUI' "GHCJS"--runWebGUI' :: T.Text -> (WebView -> JSM ()) -> IO ()-runWebGUI' userAgentKey main = do-#ifdef ghcjs_HOST_OS-  window <- Window <$> ghcjs_currentWindow-  runJSaddle window $ main WebView-#else-  Gtk.init Nothing-  window <- windowNew WindowTypeToplevel-  timeoutAdd PRIORITY_LOW 10 (yield >> return True)-  windowSetDefaultSize window 900 600-  windowSetPosition window WindowPositionCenter-  scrollWin <- scrolledWindowNew noAdjustment noAdjustment-  webView <- webViewNew-  settings <- getWebViewSettings webView-  userAgent <- getWebSettingsUserAgent settings-  setWebSettingsUserAgent settings $ userAgent <> " " <> userAgentKey-  setWebViewSettings webView settings-  window `containerAdd` scrollWin-  scrollWin `containerAdd` webView-  onWidgetDestroy window $ liftIO mainQuit-  widgetShowAll window-  onWebViewLoadFinished webView $ \frame ->-    runJSaddle webView $ main webView-  args <- getArgs-  case args of-    uri:_ -> webViewLoadUri webView (T.pack uri)-    []    -> runJSaddle webView $ main webView-  Gtk.main-#endif--enableInspector :: MonadIO m => WebView -> m ()-#ifdef ghcjs_HOST_OS-enableInspector _ = return ()-#else-enableInspector webView = liftIO $ do-  settings <- getWebViewSettings webView-  setWebSettingsEnableDeveloperExtras settings True-  setWebViewSettings webView settings-  inspector <- webViewGetInspector webView-  window <- windowNew WindowTypeToplevel-  windowSetDefaultSize window 900 300-  scrollWin <- scrolledWindowNew noAdjustment noAdjustment-  onWebInspectorInspectWebView inspector $ \view -> do-    inspectorView <- webViewNew-    settings <- getWebViewSettings inspectorView-    setWebSettingsMonospaceFontFamily settings "Consolas"-    setWebViewSettings inspectorView settings-    scrollWin `containerAdd` inspectorView-    window `containerAdd` scrollWin-    widgetShowAll window-    return inspectorView-  onWebInspectorShowWindow inspector $ do-    widgetShowAll window-    return True-  return ()-#endif
− src/Language/Javascript/JSaddle/DOM/Custom/AudioContext.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Custom.AudioContext (-    module Generated-  , DecodeAudioError(..)-  , decodeAudioData-) where--import Prelude ()-import Prelude.Compat-import Data.Typeable (Typeable)-import Control.Exception (Exception(..), throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle.DOM.Types--import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)-import Language.Javascript.JSaddle.DOM.Generated.AudioBufferCallback-       (newAudioBufferCallback)-import Language.Javascript.JSaddle.DOM.Generated.AudioContext as Generated hiding (decodeAudioData)-import qualified Language.Javascript.JSaddle.DOM.Generated.AudioContext-       as Generated (decodeAudioData)--data DecodeAudioError = DecodeAudioError deriving (Show, Eq, Typeable)--instance Exception DecodeAudioError---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>-decodeAudioData :: (MonadDOM m, IsAudioContext self, IsArrayBuffer audioData) =>-                   self -> audioData -> m AudioBuffer-decodeAudioData self audioData = do-    result <- liftIO newEmptyMVar-    success <- newAudioBufferCallback $ \buffer -> liftIO $ putMVar result buffer-    error <- newAudioBufferCallback . const . liftIO $ putMVar result Nothing-    Generated.decodeAudioData self (Just audioData) (Just success) (Just error)-    liftIO $ takeMVar result >>= maybe (throwIO DecodeAudioError) return
− src/Language/Javascript/JSaddle/DOM/Custom/DOMError.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Custom.DOMError (-    module Generated-  , DOMErrorException(..)-  , throwDOMErrorException-) where--import Prelude ()-import Prelude.Compat-import Data.Typeable (Typeable)-import Control.Exception (Exception, throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle.DOM.Types (MonadDOM)-import Language.Javascript.JSaddle.DOM.Generated.DOMError as Generated--data DOMErrorException = DOMErrorException { domErrorName :: String } deriving (Show, Eq, Typeable)--instance Exception DOMErrorException--throwDOMErrorException :: MonadDOM m => DOMError -> m a-throwDOMErrorException error = do-    domErrorName <- getName error-    liftIO $ throwIO DOMErrorException{..}
− src/Language/Javascript/JSaddle/DOM/Custom/Database.hs 
@@ -1,78 +0,0 @@-{-# LANGUAGE FlexibleContexts #-}-module Language.Javascript.JSaddle.DOM.Custom.Database (-    module Generated-  , changeVersion'-  , changeVersion-  , transaction'-  , transaction-  , readTransaction'-  , readTransaction-) where--import Data.Maybe (fromJust, maybe)--import Control.Monad.IO.Class (MonadIO(..))-import Control.Exception (Exception, bracket)--import Language.Javascript.JSaddle (JSM, postGUIAsyncJS)-import Language.Javascript.JSaddle.DOM.Types-       (MonadDOM, SQLTransaction, SQLError,-        SQLTransactionCallback(..), ToJSString(..), Callback(..), withCallback,-        SQLTransactionErrorCallback(..), VoidCallback(..))--import Language.Javascript.JSaddle.DOM.Custom.SQLError (throwSQLException)-import Language.Javascript.JSaddle.DOM.Generated.SQLTransactionCallback (newSQLTransactionCallbackSync)-import Language.Javascript.JSaddle.DOM.Generated.Database as Generated hiding (changeVersion, transaction, readTransaction)-import qualified Language.Javascript.JSaddle.DOM.Generated.Database as Generated (changeVersion, transaction, readTransaction)-import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)-import Language.Javascript.JSaddle.DOM.Generated.SQLTransactionErrorCallback-       (newSQLTransactionErrorCallback)-import Language.Javascript.JSaddle.DOM.Generated.VoidCallback-       (newVoidCallback)-import Data.Coerce (Coercible, coerce)-import Control.Monad.Trans.Reader (ReaderT(..), ask)--withSQLTransactionCallback :: MonadDOM m => (SQLTransaction -> JSM ()) -> (SQLTransactionCallback -> JSM a) -> m a-withSQLTransactionCallback callback = withCallback (newSQLTransactionCallbackSync (callback . fromJust))--withSQLErrorCallbacks :: MonadDOM m => (Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> JSM ()) -> m (Maybe SQLError)-withSQLErrorCallbacks f = do-    result <- liftIO newEmptyMVar-    withCallback (newSQLTransactionErrorCallback (liftIO . putMVar result)) $ \error ->-        withCallback (newVoidCallback $ liftIO $ putMVar result Nothing) $ \success -> do-            postGUIAsyncJS $ f (Just error) (Just success)-            liftIO $ takeMVar result---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>-changeVersion' :: (MonadDOM m, ToJSString oldVersion, ToJSString newVersion) =>-                  Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> JSM ()) -> m (Maybe SQLError)-changeVersion' self oldVersion newVersion Nothing = withSQLErrorCallbacks $ Generated.changeVersion self oldVersion newVersion Nothing-changeVersion' self oldVersion newVersion (Just callback) =-    withSQLTransactionCallback callback $ \transaction ->-        withSQLErrorCallbacks $ \e s ->-            Generated.changeVersion self oldVersion newVersion (Just transaction) e s--changeVersion :: (MonadDOM m, ToJSString oldVersion, ToJSString newVersion) =>-                 Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> JSM ()) -> m ()-changeVersion self oldVersion newVersion callback =-    changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>-transaction' :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m (Maybe SQLError)-transaction' self callback =-    withSQLTransactionCallback callback $ \transaction ->-        withSQLErrorCallbacks $ \e s ->-            Generated.transaction self (Just transaction) e s--transaction :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m ()-transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>-readTransaction' :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m (Maybe SQLError)-readTransaction' self callback =-    withSQLTransactionCallback callback $ \transaction ->-        withSQLErrorCallbacks $ \e s ->-            Generated.readTransaction self (Just transaction) e s--readTransaction :: (MonadDOM m) => Database -> (SQLTransaction -> JSM ()) -> m ()-readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
− src/Language/Javascript/JSaddle/DOM/Custom/Geolocation.hs 
@@ -1,39 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.Geolocation (-    module Generated-  , getCurrentPosition'-  , getCurrentPosition-) where--import Data.Maybe (fromJust)--import Control.Monad.IO.Class (MonadIO(..))-import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)--import Language.Javascript.JSaddle (postGUIAsyncJS)-import Language.Javascript.JSaddle.DOM.Types--import Language.Javascript.JSaddle.DOM.Custom.PositionError (throwPositionException)--import Language.Javascript.JSaddle.DOM.Generated.PositionCallback-       (newPositionCallback)-import Language.Javascript.JSaddle.DOM.Generated.PositionErrorCallback-       (newPositionErrorCallback)--import Language.Javascript.JSaddle.DOM.Generated.Geolocation as Generated hiding (getCurrentPosition)-import qualified-       Language.Javascript.JSaddle.DOM.Generated.Geolocation as Generated-       (getCurrentPosition)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation>-getCurrentPosition' :: MonadDOM m => Geolocation -> Maybe PositionOptions -> m (Either PositionError Geoposition)-getCurrentPosition' self options = do-    result <- liftIO newEmptyMVar-    withCallback (newPositionCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->-        withCallback (newPositionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do-            postGUIAsyncJS $ Generated.getCurrentPosition self (Just success) (Just error) options-            liftIO $ takeMVar result---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation>-getCurrentPosition :: MonadDOM m => Geolocation -> Maybe PositionOptions -> m Geoposition-getCurrentPosition self options =-    getCurrentPosition' self options >>= either throwPositionException return
− src/Language/Javascript/JSaddle/DOM/Custom/MediaStreamTrack.hs 
@@ -1,29 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.MediaStreamTrack (-    module Generated-  , getSources-) where--import Control.Monad.IO.Class (MonadIO(..))-import Control.Concurrent.MVar (newEmptyMVar, takeMVar, putMVar)--import Language.Javascript.JSaddle (postGUIAsyncJS)-import Language.Javascript.JSaddle.DOM.Types-       (withCallback, Callback(..), SourceInfo(..), MonadDOM, MediaStreamTrackSourcesCallback(..))--import Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackSourcesCallback-       (newMediaStreamTrackSourcesCallback)--import Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrack as Generated hiding (getSources)-import qualified-       Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrack-       as Generated (getSources)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSources Mozilla MediaStreamTrack.getSources documentation>-getSources :: (MonadDOM m, IsMediaStreamTrack self) => self -> m [Maybe SourceInfo]-getSources self = do-    result <- liftIO newEmptyMVar-    withCallback (newMediaStreamTrackSourcesCallback (liftIO . putMVar result)) $ \callback -> do-        postGUIAsyncJS $ Generated.getSources self (Just callback)-        liftIO $ takeMVar result--
− src/Language/Javascript/JSaddle/DOM/Custom/Navigator.hs 
@@ -1,38 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.Navigator (-    module Generated-  , getUserMedia-) where--import Data.Maybe (fromJust)--import Control.Monad.IO.Class (MonadIO(..))-import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)--import Language.Javascript.JSaddle (postGUIAsyncJS)-import Language.Javascript.JSaddle.DOM.Types-       (withCallback, Callback(..), MediaStream(..), NavigatorUserMediaError(..),-        Dictionary(..), MonadDOM, NavigatorUserMediaSuccessCallback(..),-        NavigatorUserMediaErrorCallback(..))--import Language.Javascript.JSaddle.DOM.Custom.NavigatorUserMediaError (throwUserMediaException)--import Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaSuccessCallback-       (newNavigatorUserMediaSuccessCallback)-import Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaErrorCallback-       (newNavigatorUserMediaErrorCallback)--import Language.Javascript.JSaddle.DOM.Generated.Navigator as Generated hiding (getUserMedia)-import qualified Language.Javascript.JSaddle.DOM.Generated.Navigator-       as Generated (webkitGetUserMedia)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitGetUserMedia Mozilla Navigator.webkitGetUserMedia documentation>-getUserMedia' :: MonadDOM m => Navigator -> Maybe Dictionary -> m (Either NavigatorUserMediaError MediaStream)-getUserMedia' self options = do-    result <- liftIO newEmptyMVar-    withCallback (newNavigatorUserMediaSuccessCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->-        withCallback (newNavigatorUserMediaErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do-            postGUIAsyncJS $ Generated.webkitGetUserMedia self options (Just success) (Just error)-            liftIO $ takeMVar result--getUserMedia :: MonadDOM m => Navigator -> Maybe Dictionary -> m MediaStream-getUserMedia self options = getUserMedia' self options >>= either throwUserMediaException return
− src/Language/Javascript/JSaddle/DOM/Custom/NavigatorUserMediaError.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Custom.NavigatorUserMediaError (-    module Generated-  , UserMediaException(..)-  , throwUserMediaException-) where--import Data.Typeable (Typeable)-import Control.Exception (Exception, throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle.DOM.Types (MonadDOM)--import Language.Javascript.JSaddle.DOM.Custom.DOMError (getName)-import Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaError as Generated--data UserMediaException = UserMediaException {-        userMediaErrorName           :: String,-        userMediaErrorConstraintName :: String } deriving (Show, Eq, Typeable)--instance Exception UserMediaException--throwUserMediaException :: MonadDOM m => NavigatorUserMediaError -> m a-throwUserMediaException error = do-    userMediaErrorName           <- getName           error-    userMediaErrorConstraintName <- getConstraintName error-    liftIO $ throwIO (UserMediaException{..})---
− src/Language/Javascript/JSaddle/DOM/Custom/PositionError.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Custom.PositionError (-    module Generated-  , PositionErrorCode(..)-  , PositionException(..)-  , throwPositionException-) where--import Prelude ()-import Prelude.Compat-import Data.Typeable (Typeable)-import Control.Exception (Exception, throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle.DOM.Types (MonadDOM)--import Language.Javascript.JSaddle.DOM.Generated.PositionError as Generated--data PositionErrorCode = PositionPermissionDenied | PositionUnavailable | PositionTimeout deriving (Show, Eq, Enum)-data PositionException = PositionException {-        positionErrorCode    :: PositionErrorCode,-        positionErrorMessage :: String } deriving (Show, Eq, Typeable)--instance Exception PositionException--throwPositionException :: MonadDOM m => PositionError -> m a-throwPositionException error = do-    positionErrorCode    <- (toEnum . subtract 1 . fromIntegral) <$> getCode error-    positionErrorMessage <- getMessage error-    liftIO $ throwIO (PositionException{..})-
− src/Language/Javascript/JSaddle/DOM/Custom/RTCPeerConnection.hs 
@@ -1,116 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.RTCPeerConnection (-    module Generated-  , createOffer'-  , createOffer-  , createAnswer'-  , createAnswer-  , setLocalDescription'-  , setLocalDescription-  , setRemoteDescription'-  , setRemoteDescription-) where--import Data.Maybe (fromJust)--import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle (postGUIAsyncJS)-import Language.Javascript.JSaddle.DOM.Types-       (RTCStatsResponse(..), IsMediaStreamTrack, RTCIceCandidate(..),-        withCallback, Callback(..), RTCSessionDescription(..), DOMError(..),-        Dictionary(..), RTCPeerConnection(..), MonadDOM,-        RTCSessionDescriptionCallback(..),-        RTCPeerConnectionErrorCallback(..),-        RTCStatsCallback(..), VoidCallback(..))--import Language.Javascript.JSaddle.DOM.Custom.DOMError (throwDOMErrorException)--import Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescriptionCallback-       (newRTCSessionDescriptionCallback)-import Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnectionErrorCallback-       (newRTCPeerConnectionErrorCallback)-import Language.Javascript.JSaddle.DOM.Generated.VoidCallback-       (newVoidCallback)-import Language.Javascript.JSaddle.DOM.Generated.RTCStatsCallback-       (newRTCStatsCallback)--import Language.Javascript.JSaddle.DOM.Generated.Geolocation as Generated hiding (getCurrentPosition)-import qualified-       Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnection-       as Generated-       (getStats, addIceCandidate, setRemoteDescription,-        setLocalDescription, createAnswer, createOffer)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#createOffer Mozilla webkitRTCPeerConnection.createOffer documentation>-createOffer' :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m (Either DOMError RTCSessionDescription)-createOffer' self offerOptions = do-    result <- liftIO newEmptyMVar-    withCallback (newRTCSessionDescriptionCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->-        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do-            postGUIAsyncJS $ Generated.createOffer self (Just success) (Just error) offerOptions-            liftIO $ takeMVar result--createOffer :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m RTCSessionDescription-createOffer self offerOptions = createOffer' self offerOptions >>= either throwDOMErrorException return---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation>-createAnswer' :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m (Either DOMError RTCSessionDescription)-createAnswer' self answerOptions = do-    result <- liftIO newEmptyMVar-    withCallback (newRTCSessionDescriptionCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->-        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do-            postGUIAsyncJS $ Generated.createAnswer self (Just success) (Just error) answerOptions-            liftIO $ takeMVar result--createAnswer :: MonadDOM m => RTCPeerConnection -> Maybe Dictionary -> m RTCSessionDescription-createAnswer self answerOptions = createAnswer' self answerOptions >>= either throwDOMErrorException return---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation>-setLocalDescription' :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m (Maybe DOMError)-setLocalDescription' self description = do-    result <- liftIO newEmptyMVar-    withCallback (newVoidCallback (liftIO $ putMVar result Nothing)) $ \success ->-        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result)) $ \error -> do-            postGUIAsyncJS $ Generated.setLocalDescription self (Just description) (Just success) (Just error)-            liftIO $ takeMVar result--setLocalDescription :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m ()-setLocalDescription self description = setLocalDescription' self description >>= maybe (return ()) throwDOMErrorException---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation>-setRemoteDescription' :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m (Maybe DOMError)-setRemoteDescription' self description = do-    result <- liftIO newEmptyMVar-    withCallback (newVoidCallback (liftIO $ putMVar result Nothing)) $ \success ->-        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result)) $ \error -> do-            postGUIAsyncJS $ Generated.setRemoteDescription self (Just description) (Just success) (Just error)-            liftIO $ takeMVar result--setRemoteDescription :: MonadDOM m => RTCPeerConnection -> RTCSessionDescription -> m ()-setRemoteDescription self description = setRemoteDescription' self description >>= maybe (return ()) throwDOMErrorException---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation>-addIceCandidate' :: MonadDOM m => RTCPeerConnection -> RTCIceCandidate -> m (Maybe DOMError)-addIceCandidate' self candidate = do-    result <- liftIO newEmptyMVar-    withCallback (newVoidCallback (liftIO $ putMVar result Nothing)) $ \success ->-        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result)) $ \error -> do-            postGUIAsyncJS $ Generated.addIceCandidate self (Just candidate) (Just success) (Just error)-            liftIO $ takeMVar result--addIceCandidate :: MonadDOM m => RTCPeerConnection -> RTCIceCandidate -> m ()-addIceCandidate self candidate = addIceCandidate' self candidate >>= maybe (return ()) throwDOMErrorException---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnection#getStats Mozilla webkitRTCPeerConnection.getStats documentation>-getStats' :: (MonadDOM m, IsMediaStreamTrack selector) => RTCPeerConnection -> Maybe selector -> m (Either DOMError RTCStatsResponse)-getStats' self selector = do-    result <- liftIO newEmptyMVar-    withCallback (newRTCStatsCallback (liftIO . putMVar result . Right . fromJust)) $ \success ->-        withCallback (newRTCPeerConnectionErrorCallback (liftIO . putMVar result . Left . fromJust)) $ \error -> do-            postGUIAsyncJS $ Generated.getStats self (Just success) (Just error) selector-            liftIO $ takeMVar result--getStats :: (MonadDOM m, IsMediaStreamTrack selector) => RTCPeerConnection -> Maybe selector -> m RTCStatsResponse-getStats self selector = getStats' self selector >>= either throwDOMErrorException return-
− src/Language/Javascript/JSaddle/DOM/Custom/RTCPeerConnectionError.hs 
@@ -1,6 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.RTCPeerConnectionError (--) where---
− src/Language/Javascript/JSaddle/DOM/Custom/SQLError.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Custom.SQLError (-    module Generated-  , SQLErrorCode(..)-  , SQLException(..)-  , throwSQLException-) where--import Prelude ()-import Prelude.Compat-import Data.Typeable (Typeable)-import Control.Exception (Exception, throwIO)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle.DOM.Types (MonadDOM(..))--import Language.Javascript.JSaddle.DOM.Generated.SQLError as Generated--data SQLErrorCode = SQLErrorUnknown-                  | SQLErrorDatabase-                  | SQLErrorVersion-                  | SQLErrorTooLarge-                  | SQLErrorQuota-                  | SQLErrorSyntax-                  | SQLErrorConstraint-                  | SQLErrorTimeout-                  deriving (Show, Eq, Enum, Typeable)-data SQLException = SQLException { sqlErrorCode :: SQLErrorCode, sqlErrorMessage :: String } deriving (Show, Eq, Typeable)--instance Exception SQLException--throwSQLException :: MonadDOM m => SQLError -> m a-throwSQLException error = do-    sqlErrorCode <- (toEnum . subtract 1 . fromIntegral) <$> getCode error-    sqlErrorMessage <- getMessage error-    liftIO $ throwIO (SQLException{..})-
− src/Language/Javascript/JSaddle/DOM/Custom/SQLTransaction.hs 
@@ -1,47 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.SQLTransaction (-    module Generated-  , executeSql'-  , executeSql-  , executeSql_-) where--import Data.Maybe (fromJust)--import Control.Monad (void)-import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle (postGUIAsyncJS)-import Language.Javascript.JSaddle.DOM.Types-       (withCallback, Callback(..), SQLResultSet(..), SQLError(..), IsObjectArray,-        MonadDOM, ToJSString, SQLStatementCallback(..),-        SQLStatementErrorCallback(..))--import Language.Javascript.JSaddle.DOM.Custom.SQLError (throwSQLException)--import Language.Javascript.JSaddle.DOM.Generated.SQLStatementCallback-       (newSQLStatementCallback)-import Language.Javascript.JSaddle.DOM.Generated.SQLStatementErrorCallback-       (newSQLStatementErrorCallback)--import Language.Javascript.JSaddle.DOM.Generated.SQLTransaction as Generated hiding (executeSql)-import qualified-       Language.Javascript.JSaddle.DOM.Generated.SQLTransaction-       as Generated (executeSql)--executeSql' :: (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>-              SQLTransaction -> sqlStatement -> Maybe arguments -> m (Either SQLError SQLResultSet)-executeSql' self sqlStatement arguments = do-    result <- liftIO newEmptyMVar-    withCallback (newSQLStatementCallback (\tx rs -> liftIO . putMVar result . Right $ fromJust rs)) $ \success ->-        withCallback (newSQLStatementErrorCallback (\tx e -> liftIO . putMVar result . Left $ fromJust e)) $ \error -> do-            postGUIAsyncJS $ Generated.executeSql self sqlStatement arguments (Just success) (Just error)-            liftIO $ takeMVar result--executeSql :: (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>-              SQLTransaction -> sqlStatement -> Maybe arguments -> m SQLResultSet-executeSql self sqlStatement arguments = executeSql' self sqlStatement arguments >>= either throwSQLException return--executeSql_ :: (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>-              SQLTransaction -> sqlStatement -> Maybe arguments -> m ()-executeSql_ self sqlStatement arguments = void $ executeSql self sqlStatement arguments
− src/Language/Javascript/JSaddle/DOM/Custom/Window.hs 
@@ -1,29 +0,0 @@-module Language.Javascript.JSaddle.DOM.Custom.Window (-    module Generated-  , openDatabase-) where--import Prelude ()-import Prelude.Compat-import Control.Monad.IO.Class (MonadIO(..))--import Language.Javascript.JSaddle.DOM.Types-       (withCallback, Callback(..), MonadDOM, ToJSString, Database, DatabaseCallback(..))--import Language.Javascript.JSaddle.Monad (postGUISyncJS)-import Language.Javascript.JSaddle.DOM.Generated.Window as Generated hiding (openDatabase)-import qualified Language.Javascript.JSaddle.DOM.Generated.Window-       as Generated (openDatabase)-import Control.Concurrent.MVar (takeMVar, putMVar, newEmptyMVar)-import Language.Javascript.JSaddle.DOM.Generated.DatabaseCallback-       (newDatabaseCallback)-import Data.Maybe (fromJust)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.openDatabase Mozilla Window.openDatabase documentation>-openDatabase :: (MonadDOM m, ToJSString name, ToJSString version, ToJSString displayName) =>-                Window -> name -> version -> displayName -> Word -> m Database-openDatabase self name version displayName estimatedSize = do-    result <- liftIO newEmptyMVar-    withCallback (newDatabaseCallback (liftIO . putMVar result)) $ \creationCallback ->-        postGUISyncJS $ Generated.openDatabase self name version displayName estimatedSize (Just creationCallback)-            >>= maybe (fromJust <$> liftIO (takeMVar result)) return
− src/Language/Javascript/JSaddle/DOM/Custom/XMLHttpRequest.hs 
@@ -1,79 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Custom.XMLHttpRequest (-    module Generated-  , XHRError(..)-  , send-  , sendString-  , sendArrayBuffer-  , sendBlob-  , sendDocument-  , sendFormData-) where--import Prelude ()-import Prelude.Compat-import Data.Typeable (Typeable)-import Control.Concurrent.MVar (takeMVar, newEmptyMVar, putMVar)-import Control.Monad.IO.Class (MonadIO(..))-import Control.Exception (Exception(..), throwIO)-import Control.Lens.Operators ((^.))--import Language.Javascript.JSaddle-       (valToText, valToStr, JSM, js0, js1, postGUIAsyncJS, bracket,-        ToJSString, ToJSVal(..), JSVal)-import Language.Javascript.JSaddle.DOM.Types-       (MonadDOM(..), FormData(..), IsDocument, IsBlob, IsArrayBufferView)-import Language.Javascript.JSaddle.DOM.EventM (on)--import Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequest as Generated hiding (send)-import Control.Monad (void)-import qualified Data.Text as T (unpack)--data XHRError = XHRError-              | XHRAborted-              deriving (Show, Eq, Typeable)--instance Exception XHRError--throwXHRError :: MonadDOM m => Maybe XHRError -> m ()-throwXHRError = maybe (return ()) (liftIO . throwIO)--withEvent :: JSM (JSM ()) -> JSM a -> JSM a-withEvent aquire = bracket aquire id . const--send' :: (MonadDOM m) => XMLHttpRequest -> Maybe JSVal -> m (Maybe XHRError)-send' self mbVal = do-    result <- liftIO newEmptyMVar-    liftDOM $-        withEvent (on self Generated.error . liftIO $ putMVar result (Just XHRError)) $-            withEvent (on self abortEvent . liftIO $ putMVar result (Just XHRAborted)) $-                withEvent (on self load . liftIO $ putMVar result Nothing) $ do-                    postGUIAsyncJS . void $-                        case mbVal of-                            Nothing  -> self ^. js0 "send"-                            Just val -> self ^. js1 "send" val-                    liftIO $ takeMVar result---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>-send :: (MonadDOM m) => XMLHttpRequest -> m ()-send self = send' self Nothing >>= throwXHRError---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>-sendString :: (MonadDOM m, ToJSString str) => XMLHttpRequest -> str -> m ()-sendString self str = liftDOM $ toJSVal str >>= send' self . Just >>= throwXHRError---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>-sendArrayBuffer :: (MonadDOM m, IsArrayBufferView view) => XMLHttpRequest -> view -> m ()-sendArrayBuffer self view = liftDOM $ toJSVal view >>= send' self . Just >>= throwXHRError---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>-sendBlob :: (MonadDOM m, IsBlob blob) => XMLHttpRequest -> blob -> m ()-sendBlob self blob = liftDOM $ toJSVal blob >>= send' self . Just >>= throwXHRError---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>-sendDocument :: (MonadDOM m, IsDocument doc) => XMLHttpRequest -> doc -> m ()-sendDocument self doc = liftDOM $ toJSVal doc >>= send' self . Just >>= throwXHRError---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest#send() Mozilla XMLHttpRequest.send documentation>-sendFormData :: (MonadDOM m) => XMLHttpRequest -> FormData -> m ()-sendFormData self formData = liftDOM $ toJSVal formData >>= send' self . Just >>= throwXHRError
− src/Language/Javascript/JSaddle/DOM/Enums.hs 
@@ -1,4 +0,0 @@-module Language.Javascript.JSaddle.DOM.Enums (-  module Language.Javascript.JSaddle.DOM.Generated.Enums-  ) where-import Language.Javascript.JSaddle.DOM.Generated.Enums
− src/Language/Javascript/JSaddle/DOM/EventM.hs 
@@ -1,296 +0,0 @@-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE ConstraintKinds #-}-module Language.Javascript.JSaddle.DOM.EventM-(-  EventM(..)-, SaferEventListener(..)-, EventName-, newListener-, newListenerSync-, newListenerAsync-, addListener-, removeListener-, releaseListener-, on-, event-, eventTarget-, target-, eventCurrentTarget-, eventPhase-, bubbles-, cancelable-, timeStamp-, stopPropagation-, preventDefault-, defaultPrevented-, stopImmediatePropagation-, srcElement-, getCancelBubble-, cancelBubble-, getReturnValue-, returnValue-, uiView-, uiDetail-, uiKeyCode-, uiCharCode-, uiLayerX-, uiLayerY-, uiLayerXY-, uiPageX-, uiPageY-, uiPageXY-, uiWhich-, mouseScreenX-, mouseScreenY-, mouseScreenXY-, mouseClientX-, mouseClientY-, mouseClientXY-, mouseMovementX-, mouseMovementY-, mouseMovementXY-, mouseCtrlKey-, mouseShiftKey-, mouseAltKey-, mouseMetaKey-, mouseButton-, mouseRelatedTarget-, mouseOffsetX-, mouseOffsetY-, mouseOffsetXY-, mouseX-, mouseY-, mouseXY-, mouseFromElement-, mouseToElement-)-where-import           Control.Applicative ((<$>))-import           Control.Monad.Trans.Class (MonadTrans(..))-import           Control.Monad.Trans.Reader (ReaderT, ask, runReaderT)-import           Control.Monad.IO.Class (MonadIO(..))-import           Language.Javascript.JSaddle.DOM.Types-import qualified Language.Javascript.JSaddle.DOM.Generated.Event as Event-import qualified Language.Javascript.JSaddle.DOM.Generated.UIEvent as UIEvent-import qualified Language.Javascript.JSaddle.DOM.Generated.MouseEvent as MouseEvent-import           Language.Javascript.JSaddle.DOM.Generated.EventTarget-import           Language.Javascript.JSaddle.DOM.EventTargetClosures-import           Data.Word (Word)-import           Language.Javascript.JSaddle (JSM)--type EventM t e = ReaderT e JSM--instance MonadDOM (ReaderT e JSM) where-    liftDOM = lift--newListener :: (IsEvent e) => EventM t e () -> JSM (SaferEventListener t e)-newListener f = eventListenerNew (runReaderT f)--newListenerSync :: (IsEvent e) => EventM t e () -> JSM (SaferEventListener t e)-newListenerSync f = eventListenerNewSync (runReaderT f)--newListenerAsync :: (IsEvent e) => EventM t e () -> JSM (SaferEventListener t e)-newListenerAsync f = eventListenerNewAsync (runReaderT f)--addListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> JSM ()-addListener target (EventName eventName) l useCapture = do-    raw <- EventListener <$> toJSVal l-    addEventListener target eventName (Just raw) useCapture--removeListener :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> SaferEventListener t e -> Bool -> JSM ()-removeListener target (EventName eventName) l useCapture = do-    raw <- EventListener <$> toJSVal l-    removeEventListener target eventName (Just raw) useCapture--releaseListener :: (IsEventTarget t, IsEvent e) => SaferEventListener t e -> JSM ()-releaseListener = eventListenerRelease--on :: (IsEventTarget t, IsEvent e) => t -> EventName t e -> EventM t e () -> JSM (JSM ())-on target eventName callback = do-    l <- newListener callback-    addListener target eventName l False-    return $ do-        removeListener target eventName l False-        releaseListener l--event :: EventM t e e-event = ask--eventTarget :: IsEvent e => EventM t e (Maybe EventTarget)-eventTarget = event >>= (lift . Event.getTarget)--target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t)-target = fmap (unsafeCastGObject . toGObject) <$> eventTarget--eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget)-eventCurrentTarget = event >>= (lift . Event.getCurrentTarget)--eventPhase :: IsEvent e => EventM t e Word-eventPhase = event >>= (lift . Event.getEventPhase)--bubbles :: IsEvent e => EventM t e Bool-bubbles = event >>= (lift . Event.getBubbles)--cancelable :: IsEvent e => EventM t e Bool-cancelable = event >>= (lift . Event.getCancelable)--timeStamp :: IsEvent e => EventM t e Word-timeStamp = event >>= (lift . Event.getTimeStamp)--stopPropagation :: IsEvent e => EventM t e ()-stopPropagation = event >>= (lift . Event.stopPropagation)--preventDefault :: IsEvent e => EventM t e ()-preventDefault = event >>= (lift . Event.preventDefault)--defaultPrevented :: IsEvent e => EventM t e Bool-defaultPrevented = event >>= (lift . Event.getDefaultPrevented)--stopImmediatePropagation :: IsEvent e => EventM t e ()-stopImmediatePropagation = event >>= (lift . Event.stopImmediatePropagation)--srcElement :: IsEvent e => EventM t e (Maybe EventTarget)-srcElement = event >>= (lift . Event.getSrcElement)--getCancelBubble :: IsEvent e => EventM t e Bool-getCancelBubble = event >>= (lift . Event.getCancelBubble)--cancelBubble :: IsEvent e => Bool -> EventM t e ()-cancelBubble f = event >>= (lift . flip Event.setCancelBubble f)--getReturnValue :: IsEvent e => EventM t e Bool-getReturnValue = event >>= (lift . Event.getReturnValue)--returnValue :: IsEvent e => Bool -> EventM t e ()-returnValue f = event >>= (lift . flip Event.setReturnValue f)--uiView :: IsUIEvent e => EventM t e (Maybe Window)-uiView = event >>= (lift . UIEvent.getView)--uiDetail :: IsUIEvent e => EventM t e Int-uiDetail = event >>= (lift . UIEvent.getDetail)--uiKeyCode :: IsUIEvent e => EventM t e Int-uiKeyCode = event >>= (lift . UIEvent.getKeyCode)--uiCharCode :: IsUIEvent e => EventM t e Int-uiCharCode = event >>= (lift . UIEvent.getCharCode)--uiLayerX :: IsUIEvent e => EventM t e Int-uiLayerX = event >>= (lift . UIEvent.getLayerX)--uiLayerY :: IsUIEvent e => EventM t e Int-uiLayerY = event >>= (lift . UIEvent.getLayerY)--uiLayerXY :: IsUIEvent e => EventM t e (Int, Int)-uiLayerXY = do-    e <- event-    x <- lift $ UIEvent.getLayerX e-    y <- lift $ UIEvent.getLayerY e-    return (x, y)--uiPageX :: IsUIEvent e => EventM t e Int-uiPageX = event >>= (lift . UIEvent.getPageX)--uiPageY :: IsUIEvent e => EventM t e Int-uiPageY = event >>= (lift . UIEvent.getPageY)--uiPageXY :: IsUIEvent e => EventM t e (Int, Int)-uiPageXY = do-    e <- event-    x <- lift $ UIEvent.getPageX e-    y <- lift $ UIEvent.getPageY e-    return (x, y)--uiWhich :: IsUIEvent e => EventM t e Int-uiWhich = event >>= (lift . UIEvent.getWhich)--mouseScreenX :: IsMouseEvent e => EventM t e Int-mouseScreenX = event >>= (lift . MouseEvent.getScreenX)--mouseScreenY :: IsMouseEvent e => EventM t e Int-mouseScreenY = event >>= (lift . MouseEvent.getScreenY)--mouseScreenXY :: IsMouseEvent e => EventM t e (Int, Int)-mouseScreenXY = do-    e <- event-    x <- lift $ MouseEvent.getScreenX e-    y <- lift $ MouseEvent.getScreenY e-    return (x, y)--mouseClientX :: IsMouseEvent e => EventM t e Int-mouseClientX = event >>= (lift . MouseEvent.getClientX)--mouseClientY :: IsMouseEvent e => EventM t e Int-mouseClientY = event >>= (lift . MouseEvent.getClientY)--mouseClientXY :: IsMouseEvent e => EventM t e (Int, Int)-mouseClientXY = do-    e <- event-    x <- lift $ MouseEvent.getClientX e-    y <- lift $ MouseEvent.getClientY e-    return (x, y)--mouseMovementX :: IsMouseEvent e => EventM t e Int-mouseMovementX = event >>= (lift . MouseEvent.getMovementX)--mouseMovementY :: IsMouseEvent e => EventM t e Int-mouseMovementY = event >>= (lift . MouseEvent.getMovementY)--mouseMovementXY :: IsMouseEvent e => EventM t e (Int, Int)-mouseMovementXY = do-    e <- event-    x <- lift $ MouseEvent.getMovementX e-    y <- lift $ MouseEvent.getMovementY e-    return (x, y)--mouseCtrlKey :: IsMouseEvent e => EventM t e Bool-mouseCtrlKey = event >>= (lift . MouseEvent.getCtrlKey)--mouseShiftKey :: IsMouseEvent e => EventM t e Bool-mouseShiftKey = event >>= (lift . MouseEvent.getShiftKey)--mouseAltKey :: IsMouseEvent e => EventM t e Bool-mouseAltKey = event >>= (lift . MouseEvent.getAltKey)--mouseMetaKey :: IsMouseEvent e => EventM t e Bool-mouseMetaKey = event >>= (lift . MouseEvent.getMetaKey)--mouseButton :: IsMouseEvent e => EventM t e Word-mouseButton = event >>= (lift . MouseEvent.getButton)--mouseRelatedTarget :: IsMouseEvent e => EventM t e (Maybe EventTarget)-mouseRelatedTarget = event >>= (lift . MouseEvent.getRelatedTarget)--mouseOffsetX :: IsMouseEvent e => EventM t e Int-mouseOffsetX = event >>= (lift . MouseEvent.getOffsetX)--mouseOffsetY :: IsMouseEvent e => EventM t e Int-mouseOffsetY = event >>= (lift . MouseEvent.getOffsetY)--mouseOffsetXY :: IsMouseEvent e => EventM t e (Int, Int)-mouseOffsetXY = do-    e <- event-    x <- lift $ MouseEvent.getOffsetX e-    y <- lift $ MouseEvent.getOffsetY e-    return (x, y)--mouseX :: IsMouseEvent e => EventM t e Int-mouseX = event >>= (lift . MouseEvent.getX)--mouseY :: IsMouseEvent e => EventM t e Int-mouseY = event >>= (lift . MouseEvent.getY)--mouseXY :: IsMouseEvent e => EventM t e (Int, Int)-mouseXY = do-    e <- event-    x <- lift $ MouseEvent.getX e-    y <- lift $ MouseEvent.getY e-    return (x, y)--mouseFromElement :: IsMouseEvent e => EventM t e (Maybe Node)-mouseFromElement = event >>= (lift . MouseEvent.getFromElement)--mouseToElement :: IsMouseEvent e => EventM t e (Maybe Node)-mouseToElement = event >>= (lift . MouseEvent.getToElement)-
− src/Language/Javascript/JSaddle/DOM/EventTargetClosures.hs 
@@ -1,33 +0,0 @@-module Language.Javascript.JSaddle.DOM.EventTargetClosures-       (EventName(..), SaferEventListener(..), unsafeEventName, eventListenerNew, eventListenerNewSync, eventListenerNewAsync, eventListenerRelease) where--import Control.Applicative ((<$>))-import Language.Javascript.JSaddle.DOM.Types-import Language.Javascript.JSaddle (JSUndefined, function, JSM, Function(..), freeFunction)-import Control.Monad.IO.Class (MonadIO(..))--newtype EventName t e = EventName DOMString-newtype SaferEventListener t e = SaferEventListener Function--instance ToJSVal (SaferEventListener t e) where-    toJSVal (SaferEventListener l) = toJSVal l-    {-# INLINE toJSVal #-}----instance FromJSVal (SaferEventListener t e) where---    fromJSVal l = fmap SaferEventListener <$> fromJSVal l---    {-# INLINE fromJSVal #-}--unsafeEventName :: DOMString -> EventName t e-unsafeEventName = EventName--eventListenerNew :: (IsEvent e) => (e -> JSM ()) -> JSM (SaferEventListener t e)-eventListenerNew callback = SaferEventListener <$> function "listener" (\_ _ [e] -> fromJSValUnchecked e >>= callback)--eventListenerNewSync :: (IsEvent e) => (e -> JSM ()) -> JSM (SaferEventListener t e)-eventListenerNewSync callback = SaferEventListener <$> function "listener" (\_ _ [e] -> fromJSValUnchecked e >>= callback)--eventListenerNewAsync :: (IsEvent e) => (e -> JSM ()) -> JSM (SaferEventListener t e)-eventListenerNewAsync callback = SaferEventListener <$> function "listener" (\_ _ [e] -> fromJSValUnchecked e >>= callback)--eventListenerRelease :: SaferEventListener t e -> JSM ()-eventListenerRelease (SaferEventListener f) = freeFunction f
− src/Language/Javascript/JSaddle/DOM/Generated/ANGLEInstancedArrays.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ANGLEInstancedArrays-       (drawArraysInstancedANGLE, drawElementsInstancedANGLE,-        vertexAttribDivisorANGLE,-        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLEInstancedArrays,-        castToANGLEInstancedArrays, gTypeANGLEInstancedArrays)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation> -drawArraysInstancedANGLE ::-                         (MonadDOM m) =>-                           ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m ()-drawArraysInstancedANGLE self mode first count primcount-  = liftDOM-      (void-         (self ^. jsf "drawArraysInstancedANGLE"-            [toJSVal mode, toJSVal first, toJSVal count, toJSVal primcount]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> -drawElementsInstancedANGLE ::-                           (MonadDOM m) =>-                             ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m ()-drawElementsInstancedANGLE self mode count type' offset primcount-  = liftDOM-      (void-         (self ^. jsf "drawElementsInstancedANGLE"-            [toJSVal mode, toJSVal count, toJSVal type', toJSVal offset,-             toJSVal primcount]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation> -vertexAttribDivisorANGLE ::-                         (MonadDOM m) => ANGLEInstancedArrays -> Word -> Word -> m ()-vertexAttribDivisorANGLE self index divisor-  = liftDOM-      (void-         (self ^. jsf "vertexAttribDivisorANGLE"-            [toJSVal index, toJSVal divisor]))-pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
− src/Language/Javascript/JSaddle/DOM/Generated/AbstractView.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AbstractView-       (getDocument, getStyleMedia, AbstractView, castToAbstractView,-        gTypeAbstractView)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> -getDocument :: (MonadDOM m) => AbstractView -> m (Maybe Document)-getDocument self = liftDOM ((self ^. js "document") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> -getStyleMedia ::-              (MonadDOM m) => AbstractView -> m (Maybe StyleMedia)-getStyleMedia self-  = liftDOM ((self ^. js "styleMedia") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/AbstractWorker.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AbstractWorker-       (error, AbstractWorker, castToAbstractWorker, gTypeAbstractWorker)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker.onerror Mozilla AbstractWorker.onerror documentation> -error :: EventName AbstractWorker UIEvent-error = unsafeEventName (toJSString "error")
− src/Language/Javascript/JSaddle/DOM/Generated/AllAudioCapabilities.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AllAudioCapabilities-       (getSourceId, getVolume, AllAudioCapabilities,-        castToAllAudioCapabilities, gTypeAllAudioCapabilities)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.sourceId Mozilla AllAudioCapabilities.sourceId documentation> -getSourceId ::-            (MonadDOM m, FromJSString result) =>-              AllAudioCapabilities -> m [result]-getSourceId self-  = liftDOM ((self ^. js "sourceId") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> -getVolume ::-          (MonadDOM m) => AllAudioCapabilities -> m (Maybe CapabilityRange)-getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/AllVideoCapabilities.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AllVideoCapabilities-       (getSourceType, getSourceId, getWidth, getHeight, getFrameRate,-        getAspectRatio, getFacingMode, AllVideoCapabilities,-        castToAllVideoCapabilities, gTypeAllVideoCapabilities)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceType Mozilla AllVideoCapabilities.sourceType documentation> -getSourceType ::-              (MonadDOM m, FromJSString result) =>-                AllVideoCapabilities -> m [result]-getSourceType self-  = liftDOM ((self ^. js "sourceType") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceId Mozilla AllVideoCapabilities.sourceId documentation> -getSourceId ::-            (MonadDOM m, FromJSString result) =>-              AllVideoCapabilities -> m [result]-getSourceId self-  = liftDOM ((self ^. js "sourceId") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> -getWidth ::-         (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> -getHeight ::-          (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> -getFrameRate ::-             (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)-getFrameRate self-  = liftDOM ((self ^. js "frameRate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> -getAspectRatio ::-               (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange)-getAspectRatio self-  = liftDOM ((self ^. js "aspectRatio") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.facingMode Mozilla AllVideoCapabilities.facingMode documentation> -getFacingMode ::-              (MonadDOM m, FromJSString result) =>-                AllVideoCapabilities -> m [result]-getFacingMode self-  = liftDOM ((self ^. js "facingMode") >>= fromJSArrayUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/AnalyserNode.hs 
@@ -1,91 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AnalyserNode-       (getFloatFrequencyData, getByteFrequencyData,-        getByteTimeDomainData, setFftSize, getFftSize,-        getFrequencyBinCount, setMinDecibels, getMinDecibels,-        setMaxDecibels, getMaxDecibels, setSmoothingTimeConstant,-        getSmoothingTimeConstant, AnalyserNode, castToAnalyserNode,-        gTypeAnalyserNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation> -getFloatFrequencyData ::-                      (MonadDOM m, IsFloat32Array array) =>-                        AnalyserNode -> Maybe array -> m ()-getFloatFrequencyData self array-  = liftDOM-      (void (self ^. jsf "getFloatFrequencyData" [toJSVal array]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation> -getByteFrequencyData ::-                     (MonadDOM m, IsUint8Array array) =>-                       AnalyserNode -> Maybe array -> m ()-getByteFrequencyData self array-  = liftDOM-      (void (self ^. jsf "getByteFrequencyData" [toJSVal array]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation> -getByteTimeDomainData ::-                      (MonadDOM m, IsUint8Array array) =>-                        AnalyserNode -> Maybe array -> m ()-getByteTimeDomainData self array-  = liftDOM-      (void (self ^. jsf "getByteTimeDomainData" [toJSVal array]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> -setFftSize :: (MonadDOM m) => AnalyserNode -> Word -> m ()-setFftSize self val = liftDOM (self ^. jss "fftSize" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation> -getFftSize :: (MonadDOM m) => AnalyserNode -> m Word-getFftSize self-  = liftDOM (round <$> ((self ^. js "fftSize") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.frequencyBinCount Mozilla AnalyserNode.frequencyBinCount documentation> -getFrequencyBinCount :: (MonadDOM m) => AnalyserNode -> m Word-getFrequencyBinCount self-  = liftDOM-      (round <$> ((self ^. js "frequencyBinCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> -setMinDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()-setMinDecibels self val-  = liftDOM (self ^. jss "minDecibels" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation> -getMinDecibels :: (MonadDOM m) => AnalyserNode -> m Double-getMinDecibels self-  = liftDOM ((self ^. js "minDecibels") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> -setMaxDecibels :: (MonadDOM m) => AnalyserNode -> Double -> m ()-setMaxDecibels self val-  = liftDOM (self ^. jss "maxDecibels" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation> -getMaxDecibels :: (MonadDOM m) => AnalyserNode -> m Double-getMaxDecibels self-  = liftDOM ((self ^. js "maxDecibels") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> -setSmoothingTimeConstant ::-                         (MonadDOM m) => AnalyserNode -> Double -> m ()-setSmoothingTimeConstant self val-  = liftDOM (self ^. jss "smoothingTimeConstant" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation> -getSmoothingTimeConstant ::-                         (MonadDOM m) => AnalyserNode -> m Double-getSmoothingTimeConstant self-  = liftDOM ((self ^. js "smoothingTimeConstant") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/AnimationEvent.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AnimationEvent-       (getAnimationName, getElapsedTime, AnimationEvent,-        castToAnimationEvent, gTypeAnimationEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.animationName Mozilla AnimationEvent.animationName documentation> -getAnimationName ::-                 (MonadDOM m, FromJSString result) => AnimationEvent -> m result-getAnimationName self-  = liftDOM ((self ^. js "animationName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.elapsedTime Mozilla AnimationEvent.elapsedTime documentation> -getElapsedTime :: (MonadDOM m) => AnimationEvent -> m Double-getElapsedTime self-  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/ApplicationCache.hs 
@@ -1,74 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ApplicationCache-       (update, swapCache, abort, pattern UNCACHED, pattern IDLE,-        pattern CHECKING, pattern DOWNLOADING, pattern UPDATEREADY,-        pattern OBSOLETE, getStatus, checking, error, noUpdate,-        downloading, progress, updateReady, cached, obsolete,-        ApplicationCache, castToApplicationCache, gTypeApplicationCache)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation> -update :: (MonadDOM m) => ApplicationCache -> m ()-update self = liftDOM (void (self ^. js "update"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation> -swapCache :: (MonadDOM m) => ApplicationCache -> m ()-swapCache self = liftDOM (void (self ^. js "swapCache"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation> -abort :: (MonadDOM m) => ApplicationCache -> m ()-abort self = liftDOM (void (self ^. js "abort"))-pattern UNCACHED = 0-pattern IDLE = 1-pattern CHECKING = 2-pattern DOWNLOADING = 3-pattern UPDATEREADY = 4-pattern OBSOLETE = 5---- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation> -getStatus :: (MonadDOM m) => ApplicationCache -> m Word-getStatus self-  = liftDOM (round <$> ((self ^. js "status") >>= valToNumber))---- | <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 = unsafeEventName (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 = unsafeEventName (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/Language/Javascript/JSaddle/DOM/Generated/Attr.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Attr-       (getName, getSpecified, setValue, getValue, getOwnerElement,-        getIsId, Attr, castToAttr, gTypeAttr)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)-getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation> -getSpecified :: (MonadDOM m) => Attr -> m Bool-getSpecified self-  = liftDOM ((self ^. js "specified") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) => Attr -> Maybe val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)-getValue self-  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> -getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element)-getOwnerElement self-  = liftDOM ((self ^. js "ownerElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.isId Mozilla Attr.isId documentation> -getIsId :: (MonadDOM m) => Attr -> m Bool-getIsId self = liftDOM ((self ^. js "isId") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/AudioBuffer.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioBuffer-       (getChannelData, getLength, getDuration, getSampleRate, setGain,-        getGain, getNumberOfChannels, AudioBuffer, castToAudioBuffer,-        gTypeAudioBuffer)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> -getChannelData ::-               (MonadDOM m) => AudioBuffer -> Word -> m (Maybe Float32Array)-getChannelData self channelIndex-  = liftDOM-      ((self ^. jsf "getChannelData" [toJSVal channelIndex]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.length Mozilla AudioBuffer.length documentation> -getLength :: (MonadDOM m) => AudioBuffer -> m Int-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.duration Mozilla AudioBuffer.duration documentation> -getDuration :: (MonadDOM m) => AudioBuffer -> m Float-getDuration self-  = liftDOM-      (realToFrac <$> ((self ^. js "duration") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.sampleRate Mozilla AudioBuffer.sampleRate documentation> -getSampleRate :: (MonadDOM m) => AudioBuffer -> m Float-getSampleRate self-  = liftDOM-      (realToFrac <$> ((self ^. js "sampleRate") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> -setGain :: (MonadDOM m) => AudioBuffer -> Float -> m ()-setGain self val = liftDOM (self ^. jss "gain" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation> -getGain :: (MonadDOM m) => AudioBuffer -> m Float-getGain self-  = liftDOM (realToFrac <$> ((self ^. js "gain") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation> -getNumberOfChannels :: (MonadDOM m) => AudioBuffer -> m Word-getNumberOfChannels self-  = liftDOM-      (round <$> ((self ^. js "numberOfChannels") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/AudioBufferCallback.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioBufferCallback-       (newAudioBufferCallback, newAudioBufferCallbackSync,-        newAudioBufferCallbackAsync, AudioBufferCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallback ::-                       (MonadDOM m) =>-                         (Maybe AudioBuffer -> JSM ()) -> m AudioBufferCallback-newAudioBufferCallback callback-  = liftDOM-      (AudioBufferCallback . Callback <$>-         function ""-           (\ _ _ [audioBuffer] ->-              fromJSVal audioBuffer >>= \ audioBuffer' -> callback audioBuffer'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallbackSync ::-                           (MonadDOM m) =>-                             (Maybe AudioBuffer -> JSM ()) -> m AudioBufferCallback-newAudioBufferCallbackSync callback-  = liftDOM-      (AudioBufferCallback . Callback <$>-         function ""-           (\ _ _ [audioBuffer] ->-              fromJSVal audioBuffer >>= \ audioBuffer' -> callback audioBuffer'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation> -newAudioBufferCallbackAsync ::-                            (MonadDOM m) =>-                              (Maybe AudioBuffer -> JSM ()) -> m AudioBufferCallback-newAudioBufferCallbackAsync callback-  = liftDOM-      (AudioBufferCallback . Callback <$>-         function ""-           (\ _ _ [audioBuffer] ->-              fromJSVal audioBuffer >>= \ audioBuffer' -> callback audioBuffer'))
− src/Language/Javascript/JSaddle/DOM/Generated/AudioBufferSourceNode.hs 
@@ -1,126 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioBufferSourceNode-       (start, stop, noteOn, noteGrainOn, noteOff,-        pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,-        pattern PLAYING_STATE, pattern FINISHED_STATE, setBuffer,-        getBuffer, getPlaybackState, getGain, getPlaybackRate, setLoop,-        getLoop, setLoopStart, getLoopStart, setLoopEnd, getLoopEnd,-        setLooping, getLooping, ended, AudioBufferSourceNode,-        castToAudioBufferSourceNode, gTypeAudioBufferSourceNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation> -start ::-      (MonadDOM m) =>-        AudioBufferSourceNode -> Double -> Double -> Double -> m ()-start self when grainOffset grainDuration-  = liftDOM-      (void-         (self ^. jsf "start"-            [toJSVal when, toJSVal grainOffset, toJSVal grainDuration]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.stop Mozilla AudioBufferSourceNode.stop documentation> -stop :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()-stop self when = liftDOM (void (self ^. jsf "stop" [toJSVal when]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOn Mozilla AudioBufferSourceNode.noteOn documentation> -noteOn :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()-noteOn self when-  = liftDOM (void (self ^. jsf "noteOn" [toJSVal when]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteGrainOn Mozilla AudioBufferSourceNode.noteGrainOn documentation> -noteGrainOn ::-            (MonadDOM m) =>-              AudioBufferSourceNode -> Double -> Double -> Double -> m ()-noteGrainOn self when grainOffset grainDuration-  = liftDOM-      (void-         (self ^. jsf "noteGrainOn"-            [toJSVal when, toJSVal grainOffset, toJSVal grainDuration]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOff Mozilla AudioBufferSourceNode.noteOff documentation> -noteOff :: (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()-noteOff self when-  = liftDOM (void (self ^. jsf "noteOff" [toJSVal when]))-pattern UNSCHEDULED_STATE = 0-pattern SCHEDULED_STATE = 1-pattern PLAYING_STATE = 2-pattern FINISHED_STATE = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -setBuffer ::-          (MonadDOM m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m ()-setBuffer self val = liftDOM (self ^. jss "buffer" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> -getBuffer ::-          (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)-getBuffer self = liftDOM ((self ^. js "buffer") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackState Mozilla AudioBufferSourceNode.playbackState documentation> -getPlaybackState :: (MonadDOM m) => AudioBufferSourceNode -> m Word-getPlaybackState self-  = liftDOM-      (round <$> ((self ^. js "playbackState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> -getGain ::-        (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioParam)-getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> -getPlaybackRate ::-                (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioParam)-getPlaybackRate self-  = liftDOM ((self ^. js "playbackRate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> -setLoop :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m ()-setLoop self val = liftDOM (self ^. jss "loop" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation> -getLoop :: (MonadDOM m) => AudioBufferSourceNode -> m Bool-getLoop self = liftDOM ((self ^. js "loop") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> -setLoopStart ::-             (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()-setLoopStart self val-  = liftDOM (self ^. jss "loopStart" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation> -getLoopStart :: (MonadDOM m) => AudioBufferSourceNode -> m Double-getLoopStart self-  = liftDOM ((self ^. js "loopStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> -setLoopEnd ::-           (MonadDOM m) => AudioBufferSourceNode -> Double -> m ()-setLoopEnd self val = liftDOM (self ^. jss "loopEnd" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation> -getLoopEnd :: (MonadDOM m) => AudioBufferSourceNode -> m Double-getLoopEnd self = liftDOM ((self ^. js "loopEnd") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation> -setLooping :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m ()-setLooping self val = liftDOM (self ^. jss "looping" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation> -getLooping :: (MonadDOM m) => AudioBufferSourceNode -> m Bool-getLooping self = liftDOM ((self ^. js "looping") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation> -ended :: EventName AudioBufferSourceNode Event-ended = unsafeEventName (toJSString "ended")
− src/Language/Javascript/JSaddle/DOM/Generated/AudioContext.hs 
@@ -1,296 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioContext-       (newAudioContext, createBuffer, createBufferFromArrayBuffer,-        decodeAudioData, createBufferSource, createMediaElementSource,-        createMediaStreamSource, createMediaStreamDestination, createGain,-        createDelay, createBiquadFilter, createWaveShaper, createPanner,-        createConvolver, createDynamicsCompressor, createAnalyser,-        createScriptProcessor, createOscillator, createPeriodicWave,-        createChannelSplitter, createChannelMerger, startRendering,-        createGainNode, createDelayNode, createJavaScriptNode,-        getDestination, getCurrentTime, getSampleRate, getListener,-        getActiveSourceCount, complete, AudioContext, castToAudioContext,-        gTypeAudioContext, IsAudioContext, toAudioContext)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation> -newAudioContext :: (MonadDOM m) => m AudioContext-newAudioContext-  = liftDOM (AudioContext <$> new (jsg "AudioContext") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBuffer ::-             (MonadDOM m, IsAudioContext self) =>-               self -> Word -> Word -> Float -> m (Maybe AudioBuffer)-createBuffer self numberOfChannels numberOfFrames sampleRate-  = liftDOM-      (((toAudioContext self) ^. jsf "createBuffer"-          [toJSVal numberOfChannels, toJSVal numberOfFrames,-           toJSVal sampleRate])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> -createBufferFromArrayBuffer ::-                            (MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) =>-                              self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer)-createBufferFromArrayBuffer self buffer mixToMono-  = liftDOM-      (((toAudioContext self) ^. jsf "createBuffer"-          [toJSVal buffer, toJSVal mixToMono])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation> -decodeAudioData ::-                (MonadDOM m, IsAudioContext self, IsArrayBuffer audioData) =>-                  self ->-                    Maybe audioData ->-                      Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m ()-decodeAudioData self audioData successCallback errorCallback-  = liftDOM-      (void-         ((toAudioContext self) ^. jsf "decodeAudioData"-            [toJSVal audioData, toJSVal successCallback,-             toJSVal errorCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> -createBufferSource ::-                   (MonadDOM m, IsAudioContext self) =>-                     self -> m (Maybe AudioBufferSourceNode)-createBufferSource self-  = liftDOM-      (((toAudioContext self) ^. js "createBufferSource") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> -createMediaElementSource ::-                         (MonadDOM m, IsAudioContext self,-                          IsHTMLMediaElement mediaElement) =>-                           self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode)-createMediaElementSource self mediaElement-  = liftDOM-      (((toAudioContext self) ^. jsf "createMediaElementSource"-          [toJSVal mediaElement])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> -createMediaStreamSource ::-                        (MonadDOM m, IsAudioContext self) =>-                          self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode)-createMediaStreamSource self mediaStream-  = liftDOM-      (((toAudioContext self) ^. jsf "createMediaStreamSource"-          [toJSVal mediaStream])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> -createMediaStreamDestination ::-                             (MonadDOM m, IsAudioContext self) =>-                               self -> m (Maybe MediaStreamAudioDestinationNode)-createMediaStreamDestination self-  = liftDOM-      (((toAudioContext self) ^. js "createMediaStreamDestination") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> -createGain ::-           (MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode)-createGain self-  = liftDOM-      (((toAudioContext self) ^. js "createGain") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> -createDelay ::-            (MonadDOM m, IsAudioContext self) =>-              self -> Double -> m (Maybe DelayNode)-createDelay self maxDelayTime-  = liftDOM-      (((toAudioContext self) ^. jsf "createDelay"-          [toJSVal maxDelayTime])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> -createBiquadFilter ::-                   (MonadDOM m, IsAudioContext self) =>-                     self -> m (Maybe BiquadFilterNode)-createBiquadFilter self-  = liftDOM-      (((toAudioContext self) ^. js "createBiquadFilter") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> -createWaveShaper ::-                 (MonadDOM m, IsAudioContext self) =>-                   self -> m (Maybe WaveShaperNode)-createWaveShaper self-  = liftDOM-      (((toAudioContext self) ^. js "createWaveShaper") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> -createPanner ::-             (MonadDOM m, IsAudioContext self) => self -> m (Maybe PannerNode)-createPanner self-  = liftDOM-      (((toAudioContext self) ^. js "createPanner") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> -createConvolver ::-                (MonadDOM m, IsAudioContext self) =>-                  self -> m (Maybe ConvolverNode)-createConvolver self-  = liftDOM-      (((toAudioContext self) ^. js "createConvolver") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> -createDynamicsCompressor ::-                         (MonadDOM m, IsAudioContext self) =>-                           self -> m (Maybe DynamicsCompressorNode)-createDynamicsCompressor self-  = liftDOM-      (((toAudioContext self) ^. js "createDynamicsCompressor") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> -createAnalyser ::-               (MonadDOM m, IsAudioContext self) => self -> m (Maybe AnalyserNode)-createAnalyser self-  = liftDOM-      (((toAudioContext self) ^. js "createAnalyser") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> -createScriptProcessor ::-                      (MonadDOM m, IsAudioContext self) =>-                        self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)-createScriptProcessor self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftDOM-      (((toAudioContext self) ^. jsf "createScriptProcessor"-          [toJSVal bufferSize, toJSVal numberOfInputChannels,-           toJSVal numberOfOutputChannels])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> -createOscillator ::-                 (MonadDOM m, IsAudioContext self) =>-                   self -> m (Maybe OscillatorNode)-createOscillator self-  = liftDOM-      (((toAudioContext self) ^. js "createOscillator") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> -createPeriodicWave ::-                   (MonadDOM m, IsAudioContext self, IsFloat32Array real,-                    IsFloat32Array imag) =>-                     self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave)-createPeriodicWave self real imag-  = liftDOM-      (((toAudioContext self) ^. jsf "createPeriodicWave"-          [toJSVal real, toJSVal imag])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> -createChannelSplitter ::-                      (MonadDOM m, IsAudioContext self) =>-                        self -> Word -> m (Maybe ChannelSplitterNode)-createChannelSplitter self numberOfOutputs-  = liftDOM-      (((toAudioContext self) ^. jsf "createChannelSplitter"-          [toJSVal numberOfOutputs])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> -createChannelMerger ::-                    (MonadDOM m, IsAudioContext self) =>-                      self -> Word -> m (Maybe ChannelMergerNode)-createChannelMerger self numberOfInputs-  = liftDOM-      (((toAudioContext self) ^. jsf "createChannelMerger"-          [toJSVal numberOfInputs])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.startRendering Mozilla AudioContext.startRendering documentation> -startRendering :: (MonadDOM m, IsAudioContext self) => self -> m ()-startRendering self-  = liftDOM (void ((toAudioContext self) ^. js "startRendering"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> -createGainNode ::-               (MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode)-createGainNode self-  = liftDOM-      (((toAudioContext self) ^. js "createGainNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> -createDelayNode ::-                (MonadDOM m, IsAudioContext self) =>-                  self -> Double -> m (Maybe DelayNode)-createDelayNode self maxDelayTime-  = liftDOM-      (((toAudioContext self) ^. jsf "createDelayNode"-          [toJSVal maxDelayTime])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> -createJavaScriptNode ::-                     (MonadDOM m, IsAudioContext self) =>-                       self -> Word -> Word -> Word -> m (Maybe ScriptProcessorNode)-createJavaScriptNode self bufferSize numberOfInputChannels-  numberOfOutputChannels-  = liftDOM-      (((toAudioContext self) ^. jsf "createJavaScriptNode"-          [toJSVal bufferSize, toJSVal numberOfInputChannels,-           toJSVal numberOfOutputChannels])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> -getDestination ::-               (MonadDOM m, IsAudioContext self) =>-                 self -> m (Maybe AudioDestinationNode)-getDestination self-  = liftDOM-      (((toAudioContext self) ^. js "destination") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.currentTime Mozilla AudioContext.currentTime documentation> -getCurrentTime ::-               (MonadDOM m, IsAudioContext self) => self -> m Double-getCurrentTime self-  = liftDOM-      (((toAudioContext self) ^. js "currentTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.sampleRate Mozilla AudioContext.sampleRate documentation> -getSampleRate ::-              (MonadDOM m, IsAudioContext self) => self -> m Float-getSampleRate self-  = liftDOM-      (realToFrac <$>-         (((toAudioContext self) ^. js "sampleRate") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> -getListener ::-            (MonadDOM m, IsAudioContext self) =>-              self -> m (Maybe AudioListener)-getListener self-  = liftDOM (((toAudioContext self) ^. js "listener") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.activeSourceCount Mozilla AudioContext.activeSourceCount documentation> -getActiveSourceCount ::-                     (MonadDOM m, IsAudioContext self) => self -> m Word-getActiveSourceCount self-  = liftDOM-      (round <$>-         (((toAudioContext self) ^. js "activeSourceCount") >>=-            valToNumber))---- | <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")
− src/Language/Javascript/JSaddle/DOM/Generated/AudioDestinationNode.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioDestinationNode-       (getMaxChannelCount, AudioDestinationNode,-        castToAudioDestinationNode, gTypeAudioDestinationNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation> -getMaxChannelCount ::-                   (MonadDOM m) => AudioDestinationNode -> m Word-getMaxChannelCount self-  = liftDOM-      (round <$> ((self ^. js "maxChannelCount") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/AudioListener.hs 
@@ -1,67 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioListener-       (setPosition, setOrientation, setVelocity, setDopplerFactor,-        getDopplerFactor, setSpeedOfSound, getSpeedOfSound, AudioListener,-        castToAudioListener, gTypeAudioListener)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setPosition Mozilla AudioListener.setPosition documentation> -setPosition ::-            (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m ()-setPosition self x y z-  = liftDOM-      (void-         (self ^. jsf "setPosition" [toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setOrientation Mozilla AudioListener.setOrientation documentation> -setOrientation ::-               (MonadDOM m) =>-                 AudioListener ->-                   Float -> Float -> Float -> Float -> Float -> Float -> m ()-setOrientation self x y z xUp yUp zUp-  = liftDOM-      (void-         (self ^. jsf "setOrientation"-            [toJSVal x, toJSVal y, toJSVal z, toJSVal xUp, toJSVal yUp,-             toJSVal zUp]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setVelocity Mozilla AudioListener.setVelocity documentation> -setVelocity ::-            (MonadDOM m) => AudioListener -> Float -> Float -> Float -> m ()-setVelocity self x y z-  = liftDOM-      (void-         (self ^. jsf "setVelocity" [toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> -setDopplerFactor :: (MonadDOM m) => AudioListener -> Float -> m ()-setDopplerFactor self val-  = liftDOM (self ^. jss "dopplerFactor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation> -getDopplerFactor :: (MonadDOM m) => AudioListener -> m Float-getDopplerFactor self-  = liftDOM-      (realToFrac <$> ((self ^. js "dopplerFactor") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> -setSpeedOfSound :: (MonadDOM m) => AudioListener -> Float -> m ()-setSpeedOfSound self val-  = liftDOM (self ^. jss "speedOfSound" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation> -getSpeedOfSound :: (MonadDOM m) => AudioListener -> m Float-getSpeedOfSound self-  = liftDOM-      (realToFrac <$> ((self ^. js "speedOfSound") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/AudioNode.hs 
@@ -1,115 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioNode-       (connect, connectParam, disconnect, getContext, getNumberOfInputs,-        getNumberOfOutputs, setChannelCount, getChannelCount,-        setChannelCountMode, getChannelCountMode, setChannelInterpretation,-        getChannelInterpretation, AudioNode, castToAudioNode,-        gTypeAudioNode, IsAudioNode, toAudioNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> -connect ::-        (MonadDOM m, IsAudioNode self, IsAudioNode destination) =>-          self -> Maybe destination -> Word -> Word -> m ()-connect self destination output input-  = liftDOM-      (void-         ((toAudioNode self) ^. jsf "connect"-            [toJSVal destination, toJSVal output, toJSVal input]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation> -connectParam ::-             (MonadDOM m, IsAudioNode self) =>-               self -> Maybe AudioParam -> Word -> m ()-connectParam self destination output-  = liftDOM-      (void-         ((toAudioNode self) ^. jsf "connect"-            [toJSVal destination, toJSVal output]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.disconnect Mozilla AudioNode.disconnect documentation> -disconnect ::-           (MonadDOM m, IsAudioNode self) => self -> Word -> m ()-disconnect self output-  = liftDOM-      (void ((toAudioNode self) ^. jsf "disconnect" [toJSVal output]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> -getContext ::-           (MonadDOM m, IsAudioNode self) => self -> m (Maybe AudioContext)-getContext self-  = liftDOM (((toAudioNode self) ^. js "context") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfInputs Mozilla AudioNode.numberOfInputs documentation> -getNumberOfInputs ::-                  (MonadDOM m, IsAudioNode self) => self -> m Word-getNumberOfInputs self-  = liftDOM-      (round <$>-         (((toAudioNode self) ^. js "numberOfInputs") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfOutputs Mozilla AudioNode.numberOfOutputs documentation> -getNumberOfOutputs ::-                   (MonadDOM m, IsAudioNode self) => self -> m Word-getNumberOfOutputs self-  = liftDOM-      (round <$>-         (((toAudioNode self) ^. js "numberOfOutputs") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> -setChannelCount ::-                (MonadDOM m, IsAudioNode self) => self -> Word -> m ()-setChannelCount self val-  = liftDOM ((toAudioNode self) ^. jss "channelCount" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation> -getChannelCount :: (MonadDOM m, IsAudioNode self) => self -> m Word-getChannelCount self-  = liftDOM-      (round <$>-         (((toAudioNode self) ^. js "channelCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> -setChannelCountMode ::-                    (MonadDOM m, IsAudioNode self, ToJSString val) =>-                      self -> val -> m ()-setChannelCountMode self val-  = liftDOM-      ((toAudioNode self) ^. jss "channelCountMode" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation> -getChannelCountMode ::-                    (MonadDOM m, IsAudioNode self, FromJSString result) =>-                      self -> m result-getChannelCountMode self-  = liftDOM-      (((toAudioNode self) ^. js "channelCountMode") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> -setChannelInterpretation ::-                         (MonadDOM m, IsAudioNode self, ToJSString val) =>-                           self -> val -> m ()-setChannelInterpretation self val-  = liftDOM-      ((toAudioNode self) ^. jss "channelInterpretation" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation> -getChannelInterpretation ::-                         (MonadDOM m, IsAudioNode self, FromJSString result) =>-                           self -> m result-getChannelInterpretation self-  = liftDOM-      (((toAudioNode self) ^. js "channelInterpretation") >>=-         fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/AudioParam.hs 
@@ -1,116 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioParam-       (setValueAtTime, linearRampToValueAtTime,-        exponentialRampToValueAtTime, setTargetAtTime, setValueCurveAtTime,-        cancelScheduledValues, setTargetValueAtTime, setValue, getValue,-        getMinValue, getMaxValue, getDefaultValue, getName, getUnits,-        AudioParam, castToAudioParam, gTypeAudioParam)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation> -setValueAtTime ::-               (MonadDOM m) => AudioParam -> Float -> Float -> m ()-setValueAtTime self value time-  = liftDOM-      (void (self ^. jsf "setValueAtTime" [toJSVal value, toJSVal time]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.linearRampToValueAtTime Mozilla AudioParam.linearRampToValueAtTime documentation> -linearRampToValueAtTime ::-                        (MonadDOM m) => AudioParam -> Float -> Float -> m ()-linearRampToValueAtTime self value time-  = liftDOM-      (void-         (self ^. jsf "linearRampToValueAtTime"-            [toJSVal value, toJSVal time]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.exponentialRampToValueAtTime Mozilla AudioParam.exponentialRampToValueAtTime documentation> -exponentialRampToValueAtTime ::-                             (MonadDOM m) => AudioParam -> Float -> Float -> m ()-exponentialRampToValueAtTime self value time-  = liftDOM-      (void-         (self ^. jsf "exponentialRampToValueAtTime"-            [toJSVal value, toJSVal time]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetAtTime Mozilla AudioParam.setTargetAtTime documentation> -setTargetAtTime ::-                (MonadDOM m) => AudioParam -> Float -> Float -> Float -> m ()-setTargetAtTime self target time timeConstant-  = liftDOM-      (void-         (self ^. jsf "setTargetAtTime"-            [toJSVal target, toJSVal time, toJSVal timeConstant]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation> -setValueCurveAtTime ::-                    (MonadDOM m, IsFloat32Array values) =>-                      AudioParam -> Maybe values -> Float -> Float -> m ()-setValueCurveAtTime self values time duration-  = liftDOM-      (void-         (self ^. jsf "setValueCurveAtTime"-            [toJSVal values, toJSVal time, toJSVal duration]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.cancelScheduledValues Mozilla AudioParam.cancelScheduledValues documentation> -cancelScheduledValues ::-                      (MonadDOM m) => AudioParam -> Float -> m ()-cancelScheduledValues self startTime-  = liftDOM-      (void (self ^. jsf "cancelScheduledValues" [toJSVal startTime]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetValueAtTime Mozilla AudioParam.setTargetValueAtTime documentation> -setTargetValueAtTime ::-                     (MonadDOM m) => AudioParam -> Float -> Float -> Float -> m ()-setTargetValueAtTime self targetValue time timeConstant-  = liftDOM-      (void-         (self ^. jsf "setTargetValueAtTime"-            [toJSVal targetValue, toJSVal time, toJSVal timeConstant]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> -setValue :: (MonadDOM m) => AudioParam -> Float -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation> -getValue :: (MonadDOM m) => AudioParam -> m Float-getValue self-  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.minValue Mozilla AudioParam.minValue documentation> -getMinValue :: (MonadDOM m) => AudioParam -> m Float-getMinValue self-  = liftDOM-      (realToFrac <$> ((self ^. js "minValue") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.maxValue Mozilla AudioParam.maxValue documentation> -getMaxValue :: (MonadDOM m) => AudioParam -> m Float-getMaxValue self-  = liftDOM-      (realToFrac <$> ((self ^. js "maxValue") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation> -getDefaultValue :: (MonadDOM m) => AudioParam -> m Float-getDefaultValue self-  = liftDOM-      (realToFrac <$> ((self ^. js "defaultValue") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.name Mozilla AudioParam.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => AudioParam -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.units Mozilla AudioParam.units documentation> -getUnits :: (MonadDOM m) => AudioParam -> m Word-getUnits self-  = liftDOM (round <$> ((self ^. js "units") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/AudioProcessingEvent.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioProcessingEvent-       (getPlaybackTime, getInputBuffer, getOutputBuffer,-        AudioProcessingEvent, castToAudioProcessingEvent,-        gTypeAudioProcessingEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.playbackTime Mozilla AudioProcessingEvent.playbackTime documentation> -getPlaybackTime :: (MonadDOM m) => AudioProcessingEvent -> m Double-getPlaybackTime self-  = liftDOM ((self ^. js "playbackTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> -getInputBuffer ::-               (MonadDOM m) => AudioProcessingEvent -> m (Maybe AudioBuffer)-getInputBuffer self-  = liftDOM ((self ^. js "inputBuffer") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> -getOutputBuffer ::-                (MonadDOM m) => AudioProcessingEvent -> m (Maybe AudioBuffer)-getOutputBuffer self-  = liftDOM ((self ^. js "outputBuffer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/AudioStreamTrack.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioStreamTrack-       (newAudioStreamTrack, AudioStreamTrack, castToAudioStreamTrack,-        gTypeAudioStreamTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioStreamTrack Mozilla AudioStreamTrack documentation> -newAudioStreamTrack ::-                    (MonadDOM m, IsDictionary audioConstraints) =>-                      Maybe audioConstraints -> m AudioStreamTrack-newAudioStreamTrack audioConstraints-  = liftDOM-      (AudioStreamTrack <$>-         new (jsg "AudioStreamTrack") [toJSVal audioConstraints])
− src/Language/Javascript/JSaddle/DOM/Generated/AudioTrack.hs 
@@ -1,64 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioTrack-       (getId, setKind, getKind, getLabel, setLanguage, getLanguage,-        setEnabled, getEnabled, getSourceBuffer, AudioTrack,-        castToAudioTrack, gTypeAudioTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation> -getId ::-      (MonadDOM m, FromJSString result) => AudioTrack -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> -setKind ::-        (MonadDOM m, ToJSString val) => AudioTrack -> val -> m ()-setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation> -getKind ::-        (MonadDOM m, FromJSString result) => AudioTrack -> m result-getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.label Mozilla AudioTrack.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => AudioTrack -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> -setLanguage ::-            (MonadDOM m, ToJSString val) => AudioTrack -> val -> m ()-setLanguage self val-  = liftDOM (self ^. jss "language" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation> -getLanguage ::-            (MonadDOM m, FromJSString result) => AudioTrack -> m result-getLanguage self-  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> -setEnabled :: (MonadDOM m) => AudioTrack -> Bool -> m ()-setEnabled self val = liftDOM (self ^. jss "enabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation> -getEnabled :: (MonadDOM m) => AudioTrack -> m Bool-getEnabled self = liftDOM ((self ^. js "enabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> -getSourceBuffer ::-                (MonadDOM m) => AudioTrack -> m (Maybe SourceBuffer)-getSourceBuffer self-  = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/AudioTrackList.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AudioTrackList-       (item, getTrackById, getLength, change, addTrack, removeTrack,-        AudioTrackList, castToAudioTrackList, gTypeAudioTrackList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> -item ::-     (MonadDOM m) => AudioTrackList -> Word -> m (Maybe AudioTrack)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> -getTrackById ::-             (MonadDOM m, ToJSString id) =>-               AudioTrackList -> id -> m (Maybe AudioTrack)-getTrackById self id-  = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.length Mozilla AudioTrackList.length documentation> -getLength :: (MonadDOM m) => AudioTrackList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onchange Mozilla AudioTrackList.onchange documentation> -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-addTrack = unsafeEventName (toJSString "addtrack")---- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onremovetrack Mozilla AudioTrackList.onremovetrack documentation> -removeTrack :: EventName AudioTrackList Event-removeTrack = unsafeEventName (toJSString "removetrack")
− src/Language/Javascript/JSaddle/DOM/Generated/AutocompleteErrorEvent.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.AutocompleteErrorEvent-       (getReason, AutocompleteErrorEvent, castToAutocompleteErrorEvent,-        gTypeAutocompleteErrorEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation> -getReason ::-          (MonadDOM m, FromJSString result) =>-            AutocompleteErrorEvent -> m result-getReason self-  = liftDOM ((self ^. js "reason") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/BarProp.hs 
@@ -1,18 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.BarProp-       (getVisible, BarProp, castToBarProp, gTypeBarProp) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation> -getVisible :: (MonadDOM m) => BarProp -> m Bool-getVisible self = liftDOM ((self ^. js "visible") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/BatteryManager.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.BatteryManager-       (getCharging, getChargingTime, getDischargingTime, getLevel,-        chargingChange, chargingTimeChange, dischargingTimeChange,-        levelChange, BatteryManager, castToBatteryManager,-        gTypeBatteryManager)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.charging Mozilla BatteryManager.charging documentation> -getCharging :: (MonadDOM m) => BatteryManager -> m Bool-getCharging self = liftDOM ((self ^. js "charging") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.chargingTime Mozilla BatteryManager.chargingTime documentation> -getChargingTime :: (MonadDOM m) => BatteryManager -> m Double-getChargingTime self-  = liftDOM ((self ^. js "chargingTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.dischargingTime Mozilla BatteryManager.dischargingTime documentation> -getDischargingTime :: (MonadDOM m) => BatteryManager -> m Double-getDischargingTime self-  = liftDOM ((self ^. js "dischargingTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.level Mozilla BatteryManager.level documentation> -getLevel :: (MonadDOM m) => BatteryManager -> m Double-getLevel self = liftDOM ((self ^. js "level") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onchargingchange Mozilla BatteryManager.onchargingchange documentation> -chargingChange :: EventName BatteryManager Event-chargingChange = unsafeEventName (toJSString "chargingchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onchargingtimechange Mozilla BatteryManager.onchargingtimechange documentation> -chargingTimeChange :: EventName BatteryManager Event-chargingTimeChange-  = unsafeEventName (toJSString "chargingtimechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.ondischargingtimechange Mozilla BatteryManager.ondischargingtimechange documentation> -dischargingTimeChange :: EventName BatteryManager Event-dischargingTimeChange-  = unsafeEventName (toJSString "dischargingtimechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onlevelchange Mozilla BatteryManager.onlevelchange documentation> -levelChange :: EventName BatteryManager Event-levelChange = unsafeEventName (toJSString "levelchange")
− src/Language/Javascript/JSaddle/DOM/Generated/BeforeLoadEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.BeforeLoadEvent-       (getUrl, BeforeLoadEvent, castToBeforeLoadEvent,-        gTypeBeforeLoadEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation> -getUrl ::-       (MonadDOM m, FromJSString result) => BeforeLoadEvent -> m result-getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/BeforeUnloadEvent.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.BeforeUnloadEvent-       (setReturnValue, getReturnValue, BeforeUnloadEvent,-        castToBeforeUnloadEvent, gTypeBeforeUnloadEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> -setReturnValue ::-               (MonadDOM m, ToJSString val) => BeforeUnloadEvent -> val -> m ()-setReturnValue self val-  = liftDOM (self ^. jss "returnValue" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation> -getReturnValue ::-               (MonadDOM m, FromJSString result) => BeforeUnloadEvent -> m result-getReturnValue self-  = liftDOM ((self ^. js "returnValue") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/BiquadFilterNode.hs 
@@ -1,69 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.BiquadFilterNode-       (getFrequencyResponse, pattern LOWPASS, pattern HIGHPASS,-        pattern BANDPASS, pattern LOWSHELF, pattern HIGHSHELF,-        pattern PEAKING, pattern NOTCH, pattern ALLPASS, setType, getType,-        getFrequency, getDetune, getQ, getGain, BiquadFilterNode,-        castToBiquadFilterNode, gTypeBiquadFilterNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation> -getFrequencyResponse ::-                     (MonadDOM m, IsFloat32Array frequencyHz,-                      IsFloat32Array magResponse, IsFloat32Array phaseResponse) =>-                       BiquadFilterNode ->-                         Maybe frequencyHz ->-                           Maybe magResponse -> Maybe phaseResponse -> m ()-getFrequencyResponse self frequencyHz magResponse phaseResponse-  = liftDOM-      (void-         (self ^. jsf "getFrequencyResponse"-            [toJSVal frequencyHz, toJSVal magResponse, toJSVal phaseResponse]))-pattern LOWPASS = 0-pattern HIGHPASS = 1-pattern BANDPASS = 2-pattern LOWSHELF = 3-pattern HIGHSHELF = 4-pattern PEAKING = 5-pattern NOTCH = 6-pattern ALLPASS = 7---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => BiquadFilterNode -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => BiquadFilterNode -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> -getFrequency ::-             (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)-getFrequency self-  = liftDOM ((self ^. js "frequency") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> -getDetune ::-          (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)-getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> -getQ :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)-getQ self = liftDOM ((self ^. js "Q") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> -getGain :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam)-getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Blob.hs 
@@ -1,51 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Blob-       (newBlob, newBlob', slice, getSize, getType, Blob, castToBlob,-        gTypeBlob, IsBlob, toBlob)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> -newBlob :: (MonadDOM m) => m Blob-newBlob = liftDOM (Blob <$> new (jsg "Blob") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation> -newBlob' ::-         (MonadDOM m, IsBlobPropertyBag options) =>-           [JSVal] -> Maybe options -> m Blob-newBlob' blobParts options-  = liftDOM-      (Blob <$>-         new (jsg "Blob") [toJSVal (array blobParts), toJSVal options])---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> -slice ::-      (MonadDOM m, IsBlob self, ToJSString contentType) =>-        self -> Int64 -> Int64 -> Maybe contentType -> m (Maybe Blob)-slice self start end contentType-  = liftDOM-      (((toBlob self) ^. jsf "slice"-          [toJSVal start, toJSVal end, toJSVal contentType])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.size Mozilla Blob.size documentation> -getSize :: (MonadDOM m, IsBlob self) => self -> m Word64-getSize self-  = liftDOM-      (round <$> (((toBlob self) ^. js "size") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.type Mozilla Blob.type documentation> -getType ::-        (MonadDOM m, IsBlob self, FromJSString result) => self -> m result-getType self-  = liftDOM (((toBlob self) ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/CSS.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSS-       (supports2, supports, CSS, castToCSS, gTypeCSS) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -supports2 ::-          (MonadDOM m, ToJSString property, ToJSString value) =>-            CSS -> property -> value -> m Bool-supports2 self property value-  = liftDOM-      ((self ^. jsf "supports" [toJSVal property, toJSVal value]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> -supports ::-         (MonadDOM m, ToJSString conditionText) =>-           CSS -> conditionText -> m Bool-supports self conditionText-  = liftDOM-      ((self ^. jsf "supports" [toJSVal conditionText]) >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSCharsetRule.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSCharsetRule-       (setEncoding, getEncoding, CSSCharsetRule, castToCSSCharsetRule,-        gTypeCSSCharsetRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> -setEncoding ::-            (MonadDOM m, ToJSString val) => CSSCharsetRule -> Maybe val -> m ()-setEncoding self val-  = liftDOM (self ^. jss "encoding" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> -getEncoding ::-            (MonadDOM m, FromJSString result) =>-              CSSCharsetRule -> m (Maybe result)-getEncoding self-  = liftDOM ((self ^. js "encoding") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSFontFaceLoadEvent.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSFontFaceLoadEvent-       (getFontface, getError, CSSFontFaceLoadEvent,-        castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> -getFontface ::-            (MonadDOM m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule)-getFontface self = liftDOM ((self ^. js "fontface") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> -getError ::-         (MonadDOM m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)-getError self = liftDOM ((self ^. js "error") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSFontFaceRule.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSFontFaceRule-       (getStyle, CSSFontFaceRule, castToCSSFontFaceRule,-        gTypeCSSFontFaceRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> -getStyle ::-         (MonadDOM m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration)-getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSImportRule.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSImportRule-       (getHref, getMedia, getStyleSheet, CSSImportRule,-        castToCSSImportRule, gTypeCSSImportRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) =>-          CSSImportRule -> m (Maybe result)-getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> -getMedia :: (MonadDOM m) => CSSImportRule -> m (Maybe MediaList)-getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> -getStyleSheet ::-              (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet)-getStyleSheet self-  = liftDOM ((self ^. js "styleSheet") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSKeyframeRule.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSKeyframeRule-       (setKeyText, getKeyText, getStyle, CSSKeyframeRule,-        castToCSSKeyframeRule, gTypeCSSKeyframeRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> -setKeyText ::-           (MonadDOM m, ToJSString val) => CSSKeyframeRule -> val -> m ()-setKeyText self val = liftDOM (self ^. jss "keyText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation> -getKeyText ::-           (MonadDOM m, FromJSString result) => CSSKeyframeRule -> m result-getKeyText self-  = liftDOM ((self ^. js "keyText") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> -getStyle ::-         (MonadDOM m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration)-getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSKeyframesRule.hs 
@@ -1,66 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSKeyframesRule-       (insertRule, appendRule, deleteRule, findRule, _get, setName,-        getName, getCssRules, CSSKeyframesRule, castToCSSKeyframesRule,-        gTypeCSSKeyframesRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation> -insertRule ::-           (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()-insertRule self rule-  = liftDOM (void (self ^. jsf "insertRule" [toJSVal rule]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.appendRule Mozilla CSSKeyframesRule.appendRule documentation> -appendRule ::-           (MonadDOM m, ToJSString rule) => CSSKeyframesRule -> rule -> m ()-appendRule self rule-  = liftDOM (void (self ^. jsf "appendRule" [toJSVal rule]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation> -deleteRule ::-           (MonadDOM m, ToJSString key) => CSSKeyframesRule -> key -> m ()-deleteRule self key-  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal key]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> -findRule ::-         (MonadDOM m, ToJSString key) =>-           CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule)-findRule self key-  = liftDOM ((self ^. jsf "findRule" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> -_get ::-     (MonadDOM m) =>-       CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule)-_get self index-  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -setName ::-        (MonadDOM m, ToJSString val) =>-          CSSKeyframesRule -> Maybe val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> -getName ::-        (MonadDOM m, FromJSString result) =>-          CSSKeyframesRule -> m (Maybe result)-getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> -getCssRules ::-            (MonadDOM m) => CSSKeyframesRule -> m (Maybe CSSRuleList)-getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSMediaRule.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSMediaRule-       (insertRule, deleteRule, getMedia, getCssRules, CSSMediaRule,-        castToCSSMediaRule, gTypeCSSMediaRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> -insertRule ::-           (MonadDOM m, ToJSString rule) =>-             CSSMediaRule -> rule -> Word -> m Word-insertRule self rule index-  = liftDOM-      (round <$>-         ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation> -deleteRule :: (MonadDOM m) => CSSMediaRule -> Word -> m ()-deleteRule self index-  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> -getMedia :: (MonadDOM m) => CSSMediaRule -> m (Maybe MediaList)-getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> -getCssRules ::-            (MonadDOM m) => CSSMediaRule -> m (Maybe CSSRuleList)-getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSPageRule.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSPageRule-       (setSelectorText, getSelectorText, getStyle, CSSPageRule,-        castToCSSPageRule, gTypeCSSPageRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -setSelectorText ::-                (MonadDOM m, ToJSString val) => CSSPageRule -> Maybe val -> m ()-setSelectorText self val-  = liftDOM (self ^. jss "selectorText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> -getSelectorText ::-                (MonadDOM m, FromJSString result) =>-                  CSSPageRule -> m (Maybe result)-getSelectorText self-  = liftDOM ((self ^. js "selectorText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> -getStyle ::-         (MonadDOM m) => CSSPageRule -> m (Maybe CSSStyleDeclaration)-getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSPrimitiveValue.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSPrimitiveValue-       (setFloatValue, getFloatValue, setStringValue, getStringValue,-        getCounterValue, getRectValue, getRGBColorValue,-        pattern CSS_UNKNOWN, pattern CSS_NUMBER, pattern CSS_PERCENTAGE,-        pattern CSS_EMS, pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM,-        pattern CSS_MM, pattern CSS_IN, pattern CSS_PT, pattern CSS_PC,-        pattern CSS_DEG, pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS,-        pattern CSS_S, pattern CSS_HZ, pattern CSS_KHZ,-        pattern CSS_DIMENSION, pattern CSS_STRING, pattern CSS_URI,-        pattern CSS_IDENT, pattern CSS_ATTR, pattern CSS_COUNTER,-        pattern CSS_RECT, pattern CSS_RGBCOLOR, pattern CSS_VW,-        pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,-        getPrimitiveType, CSSPrimitiveValue, castToCSSPrimitiveValue,-        gTypeCSSPrimitiveValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation> -setFloatValue ::-              (MonadDOM m) => CSSPrimitiveValue -> Word -> Float -> m ()-setFloatValue self unitType floatValue-  = liftDOM-      (void-         (self ^. jsf "setFloatValue"-            [toJSVal unitType, toJSVal floatValue]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> -getFloatValue ::-              (MonadDOM m) => CSSPrimitiveValue -> Word -> m Float-getFloatValue self unitType-  = liftDOM-      (realToFrac <$>-         ((self ^. jsf "getFloatValue" [toJSVal unitType]) >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation> -setStringValue ::-               (MonadDOM m, ToJSString stringValue) =>-                 CSSPrimitiveValue -> Word -> stringValue -> m ()-setStringValue self stringType stringValue-  = liftDOM-      (void-         (self ^. jsf "setStringValue"-            [toJSVal stringType, toJSVal stringValue]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> -getStringValue ::-               (MonadDOM m, FromJSString result) => CSSPrimitiveValue -> m result-getStringValue self-  = liftDOM ((self ^. js "getStringValue") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> -getCounterValue ::-                (MonadDOM m) => CSSPrimitiveValue -> m (Maybe Counter)-getCounterValue self-  = liftDOM ((self ^. js "getCounterValue") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> -getRectValue :: (MonadDOM m) => CSSPrimitiveValue -> m (Maybe Rect)-getRectValue self-  = liftDOM ((self ^. js "getRectValue") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> -getRGBColorValue ::-                 (MonadDOM m) => CSSPrimitiveValue -> m (Maybe RGBColor)-getRGBColorValue self-  = liftDOM ((self ^. js "getRGBColorValue") >>= fromJSVal)-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---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation> -getPrimitiveType :: (MonadDOM m) => CSSPrimitiveValue -> m Word-getPrimitiveType self-  = liftDOM-      (round <$> ((self ^. js "primitiveType") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/CSSRule.hs 
@@ -1,70 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.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 SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE,-        pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE,-        pattern WEBKIT_KEYFRAME_RULE, getType, setCssText, getCssText,-        getParentStyleSheet, getParentRule, CSSRule, castToCSSRule,-        gTypeCSSRule, IsCSSRule, toCSSRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.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 SUPPORTS_RULE = 12-pattern WEBKIT_VIEWPORT_RULE = 15-pattern WEBKIT_REGION_RULE = 16-pattern WEBKIT_KEYFRAMES_RULE = 7-pattern WEBKIT_KEYFRAME_RULE = 8---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation> -getType :: (MonadDOM m, IsCSSRule self) => self -> m Word-getType self-  = liftDOM-      (round <$> (((toCSSRule self) ^. js "type") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -setCssText ::-           (MonadDOM m, IsCSSRule self, ToJSString val) =>-             self -> Maybe val -> m ()-setCssText self val-  = liftDOM ((toCSSRule self) ^. jss "cssText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> -getCssText ::-           (MonadDOM m, IsCSSRule self, FromJSString result) =>-             self -> m (Maybe result)-getCssText self-  = liftDOM-      (((toCSSRule self) ^. js "cssText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> -getParentStyleSheet ::-                    (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet)-getParentStyleSheet self-  = liftDOM-      (((toCSSRule self) ^. js "parentStyleSheet") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> -getParentRule ::-              (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSRule)-getParentRule self-  = liftDOM (((toCSSRule self) ^. js "parentRule") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSRuleList.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSRuleList-       (item, getLength, CSSRuleList, castToCSSRuleList, gTypeCSSRuleList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> -item :: (MonadDOM m) => CSSRuleList -> Word -> m (Maybe CSSRule)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.length Mozilla CSSRuleList.length documentation> -getLength :: (MonadDOM m) => CSSRuleList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/CSSStyleDeclaration.hs 
@@ -1,117 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSStyleDeclaration-       (getPropertyValue, getPropertyCSSValue, removeProperty,-        getPropertyPriority, setProperty, item, getPropertyShorthand,-        isPropertyImplicit, setCssText, getCssText, getLength,-        getParentRule, CSSStyleDeclaration, castToCSSStyleDeclaration,-        gTypeCSSStyleDeclaration)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> -getPropertyValue ::-                 (MonadDOM m, ToJSString propertyName, FromJSString result) =>-                   CSSStyleDeclaration -> propertyName -> m (Maybe result)-getPropertyValue self propertyName-  = liftDOM-      ((self ^. jsf "getPropertyValue" [toJSVal propertyName]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> -getPropertyCSSValue ::-                    (MonadDOM m, ToJSString propertyName) =>-                      CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue)-getPropertyCSSValue self propertyName-  = liftDOM-      ((self ^. jsf "getPropertyCSSValue" [toJSVal propertyName]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> -removeProperty ::-               (MonadDOM m, ToJSString propertyName, FromJSString result) =>-                 CSSStyleDeclaration -> propertyName -> m (Maybe result)-removeProperty self propertyName-  = liftDOM-      ((self ^. jsf "removeProperty" [toJSVal propertyName]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> -getPropertyPriority ::-                    (MonadDOM m, ToJSString propertyName, FromJSString result) =>-                      CSSStyleDeclaration -> propertyName -> m (Maybe result)-getPropertyPriority self propertyName-  = liftDOM-      ((self ^. jsf "getPropertyPriority" [toJSVal propertyName]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation> -setProperty ::-            (MonadDOM m, ToJSString propertyName, ToJSString value,-             ToJSString priority) =>-              CSSStyleDeclaration ->-                propertyName -> Maybe value -> priority -> m ()-setProperty self propertyName value priority-  = liftDOM-      (void-         (self ^. jsf "setProperty"-            [toJSVal propertyName, toJSVal value, toJSVal priority]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> -item ::-     (MonadDOM m, FromJSString result) =>-       CSSStyleDeclaration -> Word -> m result-item self index-  = liftDOM-      ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> -getPropertyShorthand ::-                     (MonadDOM m, ToJSString propertyName, FromJSString result) =>-                       CSSStyleDeclaration -> propertyName -> m (Maybe result)-getPropertyShorthand self propertyName-  = liftDOM-      ((self ^. jsf "getPropertyShorthand" [toJSVal propertyName]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> -isPropertyImplicit ::-                   (MonadDOM m, ToJSString propertyName) =>-                     CSSStyleDeclaration -> propertyName -> m Bool-isPropertyImplicit self propertyName-  = liftDOM-      ((self ^. jsf "isPropertyImplicit" [toJSVal propertyName]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -setCssText ::-           (MonadDOM m, ToJSString val) =>-             CSSStyleDeclaration -> Maybe val -> m ()-setCssText self val = liftDOM (self ^. jss "cssText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> -getCssText ::-           (MonadDOM m, FromJSString result) =>-             CSSStyleDeclaration -> m (Maybe result)-getCssText self-  = liftDOM ((self ^. js "cssText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.length Mozilla CSSStyleDeclaration.length documentation> -getLength :: (MonadDOM m) => CSSStyleDeclaration -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> -getParentRule ::-              (MonadDOM m) => CSSStyleDeclaration -> m (Maybe CSSRule)-getParentRule self-  = liftDOM ((self ^. js "parentRule") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSStyleRule.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSStyleRule-       (setSelectorText, getSelectorText, getStyle, CSSStyleRule,-        castToCSSStyleRule, gTypeCSSStyleRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -setSelectorText ::-                (MonadDOM m, ToJSString val) => CSSStyleRule -> Maybe val -> m ()-setSelectorText self val-  = liftDOM (self ^. jss "selectorText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> -getSelectorText ::-                (MonadDOM m, FromJSString result) =>-                  CSSStyleRule -> m (Maybe result)-getSelectorText self-  = liftDOM ((self ^. js "selectorText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> -getStyle ::-         (MonadDOM m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration)-getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSStyleSheet.hs 
@@ -1,62 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSStyleSheet-       (insertRule, deleteRule, addRule, removeRule, getOwnerRule,-        getCssRules, getRules, CSSStyleSheet, castToCSSStyleSheet,-        gTypeCSSStyleSheet)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> -insertRule ::-           (MonadDOM m, ToJSString rule) =>-             CSSStyleSheet -> rule -> Word -> m Word-insertRule self rule index-  = liftDOM-      (round <$>-         ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.deleteRule Mozilla CSSStyleSheet.deleteRule documentation> -deleteRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m ()-deleteRule self index-  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> -addRule ::-        (MonadDOM m, ToJSString selector, ToJSString style) =>-          CSSStyleSheet -> selector -> style -> Word -> m Int-addRule self selector style index-  = liftDOM-      (round <$>-         ((self ^. jsf "addRule"-             [toJSVal selector, toJSVal style, toJSVal index])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.removeRule Mozilla CSSStyleSheet.removeRule documentation> -removeRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m ()-removeRule self index-  = liftDOM (void (self ^. jsf "removeRule" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> -getOwnerRule :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRule)-getOwnerRule self-  = liftDOM ((self ^. js "ownerRule") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> -getCssRules ::-            (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRuleList)-getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> -getRules :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRuleList)-getRules self = liftDOM ((self ^. js "rules") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSSupportsRule.hs 
@@ -1,42 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSSupportsRule-       (insertRule, deleteRule, getCssRules, getConditionText,-        CSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> -insertRule ::-           (MonadDOM m, ToJSString rule) =>-             CSSSupportsRule -> rule -> Word -> m Word-insertRule self rule index-  = liftDOM-      (round <$>-         ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation> -deleteRule :: (MonadDOM m) => CSSSupportsRule -> Word -> m ()-deleteRule self index-  = liftDOM (void (self ^. jsf "deleteRule" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> -getCssRules ::-            (MonadDOM m) => CSSSupportsRule -> m (Maybe CSSRuleList)-getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation> -getConditionText ::-                 (MonadDOM m, FromJSString result) => CSSSupportsRule -> m result-getConditionText self-  = liftDOM ((self ^. js "conditionText") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/CSSValue.hs 
@@ -1,44 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSValue-       (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE,-        pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, setCssText, getCssText,-        getCssValueType, CSSValue, castToCSSValue, gTypeCSSValue,-        IsCSSValue, toCSSValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern CSS_INHERIT = 0-pattern CSS_PRIMITIVE_VALUE = 1-pattern CSS_VALUE_LIST = 2-pattern CSS_CUSTOM = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -setCssText ::-           (MonadDOM m, IsCSSValue self, ToJSString val) =>-             self -> Maybe val -> m ()-setCssText self val-  = liftDOM ((toCSSValue self) ^. jss "cssText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> -getCssText ::-           (MonadDOM m, IsCSSValue self, FromJSString result) =>-             self -> m (Maybe result)-getCssText self-  = liftDOM-      (((toCSSValue self) ^. js "cssText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation> -getCssValueType :: (MonadDOM m, IsCSSValue self) => self -> m Word-getCssValueType self-  = liftDOM-      (round <$>-         (((toCSSValue self) ^. js "cssValueType") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/CSSValueList.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CSSValueList-       (item, getLength, CSSValueList, castToCSSValueList,-        gTypeCSSValueList, IsCSSValueList, toCSSValueList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> -item ::-     (MonadDOM m, IsCSSValueList self) =>-       self -> Word -> m (Maybe CSSValue)-item self index-  = liftDOM-      (((toCSSValueList self) ^. jsf "item" [toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation> -getLength :: (MonadDOM m, IsCSSValueList self) => self -> m Word-getLength self-  = liftDOM-      (round <$>-         (((toCSSValueList self) ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/CanvasGradient.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CanvasGradient-       (addColorStop, CanvasGradient, castToCanvasGradient,-        gTypeCanvasGradient)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation> -addColorStop ::-             (MonadDOM m, ToJSString color) =>-               CanvasGradient -> Float -> color -> m ()-addColorStop self offset color-  = liftDOM-      (void (self ^. jsf "addColorStop" [toJSVal offset, toJSVal color]))
− src/Language/Javascript/JSaddle/DOM/Generated/CanvasRenderingContext.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CanvasRenderingContext-       (getCanvas, CanvasRenderingContext, castToCanvasRenderingContext,-        gTypeCanvasRenderingContext, IsCanvasRenderingContext,-        toCanvasRenderingContext)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> -getCanvas ::-          (MonadDOM m, IsCanvasRenderingContext self) =>-            self -> m (Maybe HTMLCanvasElement)-getCanvas self-  = liftDOM-      (((toCanvasRenderingContext self) ^. js "canvas") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CanvasRenderingContext2D.hs 
@@ -1,1059 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CanvasRenderingContext2D-       (save, restore, scale, rotate, translate, transform, setTransform,-        createLinearGradient, createRadialGradient, setLineDash,-        getLineDash, clearRect, fillRect, beginPath, closePath, moveTo,-        lineTo, quadraticCurveTo, bezierCurveTo, arcTo, rect, arc,-        fillPath, strokePath, clipPath, fill, stroke, clip,-        isPointInPathPath, isPointInStrokePath, isPointInPath,-        isPointInStroke, measureText, setAlpha, setCompositeOperation,-        setLineWidthFunction, setLineCapFunction, setLineJoinFunction,-        setMiterLimitFunction, clearShadow, fillText, strokeText,-        setStrokeColor, setStrokeColorGray, setStrokeColorRGB,-        setStrokeColorCYMK, setFillColor, setFillColorGray,-        setFillColorRGB, setFillColorCYMK, strokeRect, drawImage,-        drawImageScaled, drawImagePart, drawImageFromCanvas,-        drawImageFromCanvasScaled, drawImageFromCanvasPart,-        drawImageFromVideo, drawImageFromVideoScaled,-        drawImageFromVideoPart, drawImageFromRect, setShadow,-        setShadowGray, setShadowRGB, setShadowCYMK, putImageData,-        putImageDataDirty, webkitPutImageDataHD, webkitPutImageDataHDDirty,-        createPatternFromCanvas, createPattern, createImageData,-        createImageDataSize, getImageData, webkitGetImageDataHD,-        drawFocusIfNeeded, drawFocusIfNeededPath, setGlobalAlpha,-        getGlobalAlpha, setGlobalCompositeOperation,-        getGlobalCompositeOperation, setLineWidth, getLineWidth,-        setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit,-        getMiterLimit, setShadowOffsetX, getShadowOffsetX,-        setShadowOffsetY, getShadowOffsetY, setShadowBlur, getShadowBlur,-        setShadowColor, getShadowColor, setLineDashOffset,-        getLineDashOffset, setWebkitLineDash, getWebkitLineDash,-        setWebkitLineDashOffset, getWebkitLineDashOffset, setFont, getFont,-        setTextAlign, getTextAlign, setTextBaseline, getTextBaseline,-        setDirection, getDirection, setStrokeStyle, getStrokeStyle,-        setFillStyle, getFillStyle, getWebkitBackingStorePixelRatio,-        setWebkitImageSmoothingEnabled, getWebkitImageSmoothingEnabled,-        CanvasRenderingContext2D, castToCanvasRenderingContext2D,-        gTypeCanvasRenderingContext2D)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation> -save :: (MonadDOM m) => CanvasRenderingContext2D -> m ()-save self = liftDOM (void (self ^. js "save"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation> -restore :: (MonadDOM m) => CanvasRenderingContext2D -> m ()-restore self = liftDOM (void (self ^. js "restore"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation> -scale ::-      (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()-scale self sx sy-  = liftDOM (void (self ^. jsf "scale" [toJSVal sx, toJSVal sy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation> -rotate :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-rotate self angle-  = liftDOM (void (self ^. jsf "rotate" [toJSVal angle]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation> -translate ::-          (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()-translate self tx ty-  = liftDOM (void (self ^. jsf "translate" [toJSVal tx, toJSVal ty]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> -transform ::-          (MonadDOM m) =>-            CanvasRenderingContext2D ->-              Float -> Float -> Float -> Float -> Float -> Float -> m ()-transform self m11 m12 m21 m22 dx dy-  = liftDOM-      (void-         (self ^. jsf "transform"-            [toJSVal m11, toJSVal m12, toJSVal m21, toJSVal m22, toJSVal dx,-             toJSVal dy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> -setTransform ::-             (MonadDOM m) =>-               CanvasRenderingContext2D ->-                 Float -> Float -> Float -> Float -> Float -> Float -> m ()-setTransform self m11 m12 m21 m22 dx dy-  = liftDOM-      (void-         (self ^. jsf "setTransform"-            [toJSVal m11, toJSVal m12, toJSVal m21, toJSVal m22, toJSVal dx,-             toJSVal dy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> -createLinearGradient ::-                     (MonadDOM m) =>-                       CanvasRenderingContext2D ->-                         Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)-createLinearGradient self x0 y0 x1 y1-  = liftDOM-      ((self ^. jsf "createLinearGradient"-          [toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> -createRadialGradient ::-                     (MonadDOM m) =>-                       CanvasRenderingContext2D ->-                         Float ->-                           Float ->-                             Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)-createRadialGradient self x0 y0 r0 x1 y1 r1-  = liftDOM-      ((self ^. jsf "createRadialGradient"-          [toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1,-           toJSVal r1])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation> -setLineDash ::-            (MonadDOM m) => CanvasRenderingContext2D -> [Float] -> m ()-setLineDash self dash-  = liftDOM (void (self ^. jsf "setLineDash" [toJSVal (array dash)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> -getLineDash ::-            (MonadDOM m) => CanvasRenderingContext2D -> m [Float]-getLineDash self-  = liftDOM ((self ^. js "getLineDash") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> -clearRect ::-          (MonadDOM m) =>-            CanvasRenderingContext2D ->-              Float -> Float -> Float -> Float -> m ()-clearRect self x y width height-  = liftDOM-      (void-         (self ^. jsf "clearRect"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> -fillRect ::-         (MonadDOM m) =>-           CanvasRenderingContext2D ->-             Float -> Float -> Float -> Float -> m ()-fillRect self x y width height-  = liftDOM-      (void-         (self ^. jsf "fillRect"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation> -beginPath :: (MonadDOM m) => CanvasRenderingContext2D -> m ()-beginPath self = liftDOM (void (self ^. js "beginPath"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.closePath Mozilla CanvasRenderingContext2D.closePath documentation> -closePath :: (MonadDOM m) => CanvasRenderingContext2D -> m ()-closePath self = liftDOM (void (self ^. js "closePath"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.moveTo Mozilla CanvasRenderingContext2D.moveTo documentation> -moveTo ::-       (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()-moveTo self x y-  = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineTo Mozilla CanvasRenderingContext2D.lineTo documentation> -lineTo ::-       (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()-lineTo self x y-  = liftDOM (void (self ^. jsf "lineTo" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.quadraticCurveTo Mozilla CanvasRenderingContext2D.quadraticCurveTo documentation> -quadraticCurveTo ::-                 (MonadDOM m) =>-                   CanvasRenderingContext2D ->-                     Float -> Float -> Float -> Float -> m ()-quadraticCurveTo self cpx cpy x y-  = liftDOM-      (void-         (self ^. jsf "quadraticCurveTo"-            [toJSVal cpx, toJSVal cpy, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.bezierCurveTo Mozilla CanvasRenderingContext2D.bezierCurveTo documentation> -bezierCurveTo ::-              (MonadDOM m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> Float -> Float -> Float -> Float -> m ()-bezierCurveTo self cp1x cp1y cp2x cp2y x y-  = liftDOM-      (void-         (self ^. jsf "bezierCurveTo"-            [toJSVal cp1x, toJSVal cp1y, toJSVal cp2x, toJSVal cp2y, toJSVal x,-             toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arcTo Mozilla CanvasRenderingContext2D.arcTo documentation> -arcTo ::-      (MonadDOM m) =>-        CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> Float -> m ()-arcTo self x1 y1 x2 y2 radius-  = liftDOM-      (void-         (self ^. jsf "arcTo"-            [toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2, toJSVal radius]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rect Mozilla CanvasRenderingContext2D.rect documentation> -rect ::-     (MonadDOM m) =>-       CanvasRenderingContext2D ->-         Float -> Float -> Float -> Float -> m ()-rect self x y width height-  = liftDOM-      (void-         (self ^. jsf "rect"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arc Mozilla CanvasRenderingContext2D.arc documentation> -arc ::-    (MonadDOM m) =>-      CanvasRenderingContext2D ->-        Float -> Float -> Float -> Float -> Float -> Bool -> m ()-arc self x y radius startAngle endAngle anticlockwise-  = liftDOM-      (void-         (self ^. jsf "arc"-            [toJSVal x, toJSVal y, toJSVal radius, toJSVal startAngle,-             toJSVal endAngle, toJSVal anticlockwise]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> -fillPath ::-         (MonadDOM m) =>-           CanvasRenderingContext2D ->-             Maybe Path2D -> CanvasWindingRule -> m ()-fillPath self path winding-  = liftDOM-      (void (self ^. jsf "fill" [toJSVal path, toJSVal winding]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> -strokePath ::-           (MonadDOM m) => CanvasRenderingContext2D -> Maybe Path2D -> m ()-strokePath self path-  = liftDOM (void (self ^. jsf "stroke" [toJSVal path]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> -clipPath ::-         (MonadDOM m) =>-           CanvasRenderingContext2D ->-             Maybe Path2D -> CanvasWindingRule -> m ()-clipPath self path winding-  = liftDOM-      (void (self ^. jsf "clip" [toJSVal path, toJSVal winding]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation> -fill ::-     (MonadDOM m) =>-       CanvasRenderingContext2D -> CanvasWindingRule -> m ()-fill self winding-  = liftDOM (void (self ^. jsf "fill" [toJSVal winding]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation> -stroke :: (MonadDOM m) => CanvasRenderingContext2D -> m ()-stroke self = liftDOM (void (self ^. js "stroke"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation> -clip ::-     (MonadDOM m) =>-       CanvasRenderingContext2D -> CanvasWindingRule -> m ()-clip self winding-  = liftDOM (void (self ^. jsf "clip" [toJSVal winding]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPathPath ::-                  (MonadDOM m) =>-                    CanvasRenderingContext2D ->-                      Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool-isPointInPathPath self path x y winding-  = liftDOM-      ((self ^. jsf "isPointInPath"-          [toJSVal path, toJSVal x, toJSVal y, toJSVal winding])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStrokePath ::-                    (MonadDOM m) =>-                      CanvasRenderingContext2D ->-                        Maybe Path2D -> Float -> Float -> m Bool-isPointInStrokePath self path x y-  = liftDOM-      ((self ^. jsf "isPointInStroke"-          [toJSVal path, toJSVal x, toJSVal y])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> -isPointInPath ::-              (MonadDOM m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> CanvasWindingRule -> m Bool-isPointInPath self x y winding-  = liftDOM-      ((self ^. jsf "isPointInPath"-          [toJSVal x, toJSVal y, toJSVal winding])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> -isPointInStroke ::-                (MonadDOM m) =>-                  CanvasRenderingContext2D -> Float -> Float -> m Bool-isPointInStroke self x y-  = liftDOM-      ((self ^. jsf "isPointInStroke" [toJSVal x, toJSVal y]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> -measureText ::-            (MonadDOM m, ToJSString text) =>-              CanvasRenderingContext2D -> text -> m (Maybe TextMetrics)-measureText self text-  = liftDOM-      ((self ^. jsf "measureText" [toJSVal text]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation> -setAlpha ::-         (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setAlpha self alpha-  = liftDOM (void (self ^. jsf "setAlpha" [toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation> -setCompositeOperation ::-                      (MonadDOM m, ToJSString compositeOperation) =>-                        CanvasRenderingContext2D -> compositeOperation -> m ()-setCompositeOperation self compositeOperation-  = liftDOM-      (void-         (self ^. jsf "setCompositeOperation" [toJSVal compositeOperation]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation> -setLineWidthFunction ::-                     (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setLineWidthFunction self width-  = liftDOM (void (self ^. jsf "setLineWidth" [toJSVal width]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation> -setLineCapFunction ::-                   (MonadDOM m, ToJSString cap) =>-                     CanvasRenderingContext2D -> cap -> m ()-setLineCapFunction self cap-  = liftDOM (void (self ^. jsf "setLineCap" [toJSVal cap]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation> -setLineJoinFunction ::-                    (MonadDOM m, ToJSString join) =>-                      CanvasRenderingContext2D -> join -> m ()-setLineJoinFunction self join-  = liftDOM (void (self ^. jsf "setLineJoin" [toJSVal join]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation> -setMiterLimitFunction ::-                      (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setMiterLimitFunction self limit-  = liftDOM (void (self ^. jsf "setMiterLimit" [toJSVal limit]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation> -clearShadow :: (MonadDOM m) => CanvasRenderingContext2D -> m ()-clearShadow self = liftDOM (void (self ^. js "clearShadow"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> -fillText ::-         (MonadDOM m, ToJSString text) =>-           CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()-fillText self text x y maxWidth-  = liftDOM-      (void-         (self ^. jsf "fillText"-            [toJSVal text, toJSVal x, toJSVal y, toJSVal maxWidth]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> -strokeText ::-           (MonadDOM m, ToJSString text) =>-             CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()-strokeText self text x y maxWidth-  = liftDOM-      (void-         (self ^. jsf "strokeText"-            [toJSVal text, toJSVal x, toJSVal y, toJSVal maxWidth]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColor ::-               (MonadDOM m, ToJSString color) =>-                 CanvasRenderingContext2D -> color -> Float -> m ()-setStrokeColor self color alpha-  = liftDOM-      (void-         (self ^. jsf "setStrokeColor" [toJSVal color, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorGray ::-                   (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()-setStrokeColorGray self grayLevel alpha-  = liftDOM-      (void-         (self ^. jsf "setStrokeColor" [toJSVal grayLevel, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorRGB ::-                  (MonadDOM m) =>-                    CanvasRenderingContext2D ->-                      Float -> Float -> Float -> Float -> m ()-setStrokeColorRGB self r g b a-  = liftDOM-      (void-         (self ^. jsf "setStrokeColor"-            [toJSVal r, toJSVal g, toJSVal b, toJSVal a]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> -setStrokeColorCYMK ::-                   (MonadDOM m) =>-                     CanvasRenderingContext2D ->-                       Float -> Float -> Float -> Float -> Float -> m ()-setStrokeColorCYMK self c m y k a-  = liftDOM-      (void-         (self ^. jsf "setStrokeColor"-            [toJSVal c, toJSVal m, toJSVal y, toJSVal k, toJSVal a]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColor ::-             (MonadDOM m, ToJSString color) =>-               CanvasRenderingContext2D -> color -> Float -> m ()-setFillColor self color alpha-  = liftDOM-      (void (self ^. jsf "setFillColor" [toJSVal color, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorGray ::-                 (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()-setFillColorGray self grayLevel alpha-  = liftDOM-      (void-         (self ^. jsf "setFillColor" [toJSVal grayLevel, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorRGB ::-                (MonadDOM m) =>-                  CanvasRenderingContext2D ->-                    Float -> Float -> Float -> Float -> m ()-setFillColorRGB self r g b a-  = liftDOM-      (void-         (self ^. jsf "setFillColor"-            [toJSVal r, toJSVal g, toJSVal b, toJSVal a]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> -setFillColorCYMK ::-                 (MonadDOM m) =>-                   CanvasRenderingContext2D ->-                     Float -> Float -> Float -> Float -> Float -> m ()-setFillColorCYMK self c m y k a-  = liftDOM-      (void-         (self ^. jsf "setFillColor"-            [toJSVal c, toJSVal m, toJSVal y, toJSVal k, toJSVal a]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> -strokeRect ::-           (MonadDOM m) =>-             CanvasRenderingContext2D ->-               Float -> Float -> Float -> Float -> m ()-strokeRect self x y width height-  = liftDOM-      (void-         (self ^. jsf "strokeRect"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImage ::-          (MonadDOM m) =>-            CanvasRenderingContext2D ->-              Maybe HTMLImageElement -> Float -> Float -> m ()-drawImage self image x y-  = liftDOM-      (void-         (self ^. jsf "drawImage" [toJSVal image, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageScaled ::-                (MonadDOM m) =>-                  CanvasRenderingContext2D ->-                    Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m ()-drawImageScaled self image x y width height-  = liftDOM-      (void-         (self ^. jsf "drawImage"-            [toJSVal image, toJSVal x, toJSVal y, toJSVal width,-             toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImagePart ::-              (MonadDOM m) =>-                CanvasRenderingContext2D ->-                  Maybe HTMLImageElement ->-                    Float ->-                      Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-drawImagePart self image sx sy sw sh dx dy dw dh-  = liftDOM-      (void-         (self ^. jsf "drawImage"-            [toJSVal image, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,-             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageFromCanvas ::-                    (MonadDOM m) =>-                      CanvasRenderingContext2D ->-                        Maybe HTMLCanvasElement -> Float -> Float -> m ()-drawImageFromCanvas self canvas x y-  = liftDOM-      (void-         (self ^. jsf "drawImage" [toJSVal canvas, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageFromCanvasScaled ::-                          (MonadDOM m) =>-                            CanvasRenderingContext2D ->-                              Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m ()-drawImageFromCanvasScaled self canvas x y width height-  = liftDOM-      (void-         (self ^. jsf "drawImage"-            [toJSVal canvas, toJSVal x, toJSVal y, toJSVal width,-             toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageFromCanvasPart ::-                        (MonadDOM m) =>-                          CanvasRenderingContext2D ->-                            Maybe HTMLCanvasElement ->-                              Float ->-                                Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh-  = liftDOM-      (void-         (self ^. jsf "drawImage"-            [toJSVal canvas, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,-             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageFromVideo ::-                   (MonadDOM m) =>-                     CanvasRenderingContext2D ->-                       Maybe HTMLVideoElement -> Float -> Float -> m ()-drawImageFromVideo self video x y-  = liftDOM-      (void-         (self ^. jsf "drawImage" [toJSVal video, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageFromVideoScaled ::-                         (MonadDOM m) =>-                           CanvasRenderingContext2D ->-                             Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m ()-drawImageFromVideoScaled self video x y width height-  = liftDOM-      (void-         (self ^. jsf "drawImage"-            [toJSVal video, toJSVal x, toJSVal y, toJSVal width,-             toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> -drawImageFromVideoPart ::-                       (MonadDOM m) =>-                         CanvasRenderingContext2D ->-                           Maybe HTMLVideoElement ->-                             Float ->-                               Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-drawImageFromVideoPart self video sx sy sw sh dx dy dw dh-  = liftDOM-      (void-         (self ^. jsf "drawImage"-            [toJSVal video, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,-             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImageFromRect Mozilla CanvasRenderingContext2D.drawImageFromRect documentation> -drawImageFromRect ::-                  (MonadDOM m, ToJSString compositeOperation) =>-                    CanvasRenderingContext2D ->-                      Maybe HTMLImageElement ->-                        Float ->-                          Float ->-                            Float ->-                              Float ->-                                Float -> Float -> Float -> Float -> compositeOperation -> m ()-drawImageFromRect self image sx sy sw sh dx dy dw dh-  compositeOperation-  = liftDOM-      (void-         (self ^. jsf "drawImageFromRect"-            [toJSVal image, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,-             toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh,-             toJSVal compositeOperation]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadow ::-          (MonadDOM m, ToJSString color) =>-            CanvasRenderingContext2D ->-              Float -> Float -> Float -> color -> Float -> m ()-setShadow self width height blur color alpha-  = liftDOM-      (void-         (self ^. jsf "setShadow"-            [toJSVal width, toJSVal height, toJSVal blur, toJSVal color,-             toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowGray ::-              (MonadDOM m) =>-                CanvasRenderingContext2D ->-                  Float -> Float -> Float -> Float -> Float -> m ()-setShadowGray self width height blur grayLevel alpha-  = liftDOM-      (void-         (self ^. jsf "setShadow"-            [toJSVal width, toJSVal height, toJSVal blur, toJSVal grayLevel,-             toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowRGB ::-             (MonadDOM m) =>-               CanvasRenderingContext2D ->-                 Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-setShadowRGB self width height blur r g b a-  = liftDOM-      (void-         (self ^. jsf "setShadow"-            [toJSVal width, toJSVal height, toJSVal blur, toJSVal r, toJSVal g,-             toJSVal b, toJSVal a]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> -setShadowCYMK ::-              (MonadDOM m) =>-                CanvasRenderingContext2D ->-                  Float ->-                    Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()-setShadowCYMK self width height blur c m y k a-  = liftDOM-      (void-         (self ^. jsf "setShadow"-            [toJSVal width, toJSVal height, toJSVal blur, toJSVal c, toJSVal m,-             toJSVal y, toJSVal k, toJSVal a]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> -putImageData ::-             (MonadDOM m) =>-               CanvasRenderingContext2D ->-                 Maybe ImageData -> Float -> Float -> m ()-putImageData self imagedata dx dy-  = liftDOM-      (void-         (self ^. jsf "putImageData"-            [toJSVal imagedata, toJSVal dx, toJSVal dy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> -putImageDataDirty ::-                  (MonadDOM m) =>-                    CanvasRenderingContext2D ->-                      Maybe ImageData ->-                        Float -> Float -> Float -> Float -> Float -> Float -> m ()-putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth-  dirtyHeight-  = liftDOM-      (void-         (self ^. jsf "putImageData"-            [toJSVal imagedata, toJSVal dx, toJSVal dy, toJSVal dirtyX,-             toJSVal dirtyY, toJSVal dirtyWidth, toJSVal dirtyHeight]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> -webkitPutImageDataHD ::-                     (MonadDOM m) =>-                       CanvasRenderingContext2D ->-                         Maybe ImageData -> Float -> Float -> m ()-webkitPutImageDataHD self imagedata dx dy-  = liftDOM-      (void-         (self ^. jsf "webkitPutImageDataHD"-            [toJSVal imagedata, toJSVal dx, toJSVal dy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> -webkitPutImageDataHDDirty ::-                          (MonadDOM m) =>-                            CanvasRenderingContext2D ->-                              Maybe ImageData ->-                                Float -> Float -> Float -> Float -> Float -> Float -> m ()-webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY-  dirtyWidth dirtyHeight-  = liftDOM-      (void-         (self ^. jsf "webkitPutImageDataHD"-            [toJSVal imagedata, toJSVal dx, toJSVal dy, toJSVal dirtyX,-             toJSVal dirtyY, toJSVal dirtyWidth, toJSVal dirtyHeight]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPatternFromCanvas ::-                        (MonadDOM m, ToJSString repetitionType) =>-                          CanvasRenderingContext2D ->-                            Maybe HTMLCanvasElement ->-                              Maybe repetitionType -> m (Maybe CanvasPattern)-createPatternFromCanvas self canvas repetitionType-  = liftDOM-      ((self ^. jsf "createPattern"-          [toJSVal canvas, toJSVal repetitionType])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> -createPattern ::-              (MonadDOM m, ToJSString repetitionType) =>-                CanvasRenderingContext2D ->-                  Maybe HTMLImageElement ->-                    Maybe repetitionType -> m (Maybe CanvasPattern)-createPattern self image repetitionType-  = liftDOM-      ((self ^. jsf "createPattern"-          [toJSVal image, toJSVal repetitionType])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageData ::-                (MonadDOM m) =>-                  CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData)-createImageData self imagedata-  = liftDOM-      ((self ^. jsf "createImageData" [toJSVal imagedata]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> -createImageDataSize ::-                    (MonadDOM m) =>-                      CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData)-createImageDataSize self sw sh-  = liftDOM-      ((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> -getImageData ::-             (MonadDOM m) =>-               CanvasRenderingContext2D ->-                 Float -> Float -> Float -> Float -> m (Maybe ImageData)-getImageData self sx sy sw sh-  = liftDOM-      ((self ^. jsf "getImageData"-          [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> -webkitGetImageDataHD ::-                     (MonadDOM m) =>-                       CanvasRenderingContext2D ->-                         Float -> Float -> Float -> Float -> m (Maybe ImageData)-webkitGetImageDataHD self sx sy sw sh-  = liftDOM-      ((self ^. jsf "webkitGetImageDataHD"-          [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> -drawFocusIfNeeded ::-                  (MonadDOM m, IsElement element) =>-                    CanvasRenderingContext2D -> Maybe element -> m ()-drawFocusIfNeeded self element-  = liftDOM-      (void (self ^. jsf "drawFocusIfNeeded" [toJSVal element]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation> -drawFocusIfNeededPath ::-                      (MonadDOM m, IsElement element) =>-                        CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m ()-drawFocusIfNeededPath self path element-  = liftDOM-      (void-         (self ^. jsf "drawFocusIfNeeded" [toJSVal path, toJSVal element]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> -setGlobalAlpha ::-               (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setGlobalAlpha self val-  = liftDOM (self ^. jss "globalAlpha" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation> -getGlobalAlpha ::-               (MonadDOM m) => CanvasRenderingContext2D -> m Float-getGlobalAlpha self-  = liftDOM-      (realToFrac <$> ((self ^. js "globalAlpha") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -setGlobalCompositeOperation ::-                            (MonadDOM m, ToJSString val) =>-                              CanvasRenderingContext2D -> Maybe val -> m ()-setGlobalCompositeOperation self val-  = liftDOM (self ^. jss "globalCompositeOperation" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> -getGlobalCompositeOperation ::-                            (MonadDOM m, FromJSString result) =>-                              CanvasRenderingContext2D -> m (Maybe result)-getGlobalCompositeOperation self-  = liftDOM-      ((self ^. js "globalCompositeOperation") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> -setLineWidth ::-             (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setLineWidth self val-  = liftDOM (self ^. jss "lineWidth" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation> -getLineWidth :: (MonadDOM m) => CanvasRenderingContext2D -> m Float-getLineWidth self-  = liftDOM-      (realToFrac <$> ((self ^. js "lineWidth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -setLineCap ::-           (MonadDOM m, ToJSString val) =>-             CanvasRenderingContext2D -> Maybe val -> m ()-setLineCap self val = liftDOM (self ^. jss "lineCap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> -getLineCap ::-           (MonadDOM m, FromJSString result) =>-             CanvasRenderingContext2D -> m (Maybe result)-getLineCap self-  = liftDOM ((self ^. js "lineCap") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -setLineJoin ::-            (MonadDOM m, ToJSString val) =>-              CanvasRenderingContext2D -> Maybe val -> m ()-setLineJoin self val-  = liftDOM (self ^. jss "lineJoin" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> -getLineJoin ::-            (MonadDOM m, FromJSString result) =>-              CanvasRenderingContext2D -> m (Maybe result)-getLineJoin self-  = liftDOM ((self ^. js "lineJoin") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> -setMiterLimit ::-              (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setMiterLimit self val-  = liftDOM (self ^. jss "miterLimit" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation> -getMiterLimit ::-              (MonadDOM m) => CanvasRenderingContext2D -> m Float-getMiterLimit self-  = liftDOM-      (realToFrac <$> ((self ^. js "miterLimit") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> -setShadowOffsetX ::-                 (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetX self val-  = liftDOM (self ^. jss "shadowOffsetX" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation> -getShadowOffsetX ::-                 (MonadDOM m) => CanvasRenderingContext2D -> m Float-getShadowOffsetX self-  = liftDOM-      (realToFrac <$> ((self ^. js "shadowOffsetX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> -setShadowOffsetY ::-                 (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetY self val-  = liftDOM (self ^. jss "shadowOffsetY" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation> -getShadowOffsetY ::-                 (MonadDOM m) => CanvasRenderingContext2D -> m Float-getShadowOffsetY self-  = liftDOM-      (realToFrac <$> ((self ^. js "shadowOffsetY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> -setShadowBlur ::-              (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setShadowBlur self val-  = liftDOM (self ^. jss "shadowBlur" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation> -getShadowBlur ::-              (MonadDOM m) => CanvasRenderingContext2D -> m Float-getShadowBlur self-  = liftDOM-      (realToFrac <$> ((self ^. js "shadowBlur") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -setShadowColor ::-               (MonadDOM m, ToJSString val) =>-                 CanvasRenderingContext2D -> Maybe val -> m ()-setShadowColor self val-  = liftDOM (self ^. jss "shadowColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> -getShadowColor ::-               (MonadDOM m, FromJSString result) =>-                 CanvasRenderingContext2D -> m (Maybe result)-getShadowColor self-  = liftDOM ((self ^. js "shadowColor") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> -setLineDashOffset ::-                  (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setLineDashOffset self val-  = liftDOM (self ^. jss "lineDashOffset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation> -getLineDashOffset ::-                  (MonadDOM m) => CanvasRenderingContext2D -> m Float-getLineDashOffset self-  = liftDOM-      (realToFrac <$> ((self ^. js "lineDashOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -setWebkitLineDash ::-                  (MonadDOM m, IsArray val) =>-                    CanvasRenderingContext2D -> Maybe val -> m ()-setWebkitLineDash self val-  = liftDOM (self ^. jss "webkitLineDash" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> -getWebkitLineDash ::-                  (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe Array)-getWebkitLineDash self-  = liftDOM ((self ^. js "webkitLineDash") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> -setWebkitLineDashOffset ::-                        (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()-setWebkitLineDashOffset self val-  = liftDOM (self ^. jss "webkitLineDashOffset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation> -getWebkitLineDashOffset ::-                        (MonadDOM m) => CanvasRenderingContext2D -> m Float-getWebkitLineDashOffset self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "webkitLineDashOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> -setFont ::-        (MonadDOM m, ToJSString val) =>-          CanvasRenderingContext2D -> val -> m ()-setFont self val = liftDOM (self ^. jss "font" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation> -getFont ::-        (MonadDOM m, FromJSString result) =>-          CanvasRenderingContext2D -> m result-getFont self = liftDOM ((self ^. js "font") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> -setTextAlign ::-             (MonadDOM m, ToJSString val) =>-               CanvasRenderingContext2D -> val -> m ()-setTextAlign self val-  = liftDOM (self ^. jss "textAlign" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation> -getTextAlign ::-             (MonadDOM m, FromJSString result) =>-               CanvasRenderingContext2D -> m result-getTextAlign self-  = liftDOM ((self ^. js "textAlign") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> -setTextBaseline ::-                (MonadDOM m, ToJSString val) =>-                  CanvasRenderingContext2D -> val -> m ()-setTextBaseline self val-  = liftDOM (self ^. jss "textBaseline" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation> -getTextBaseline ::-                (MonadDOM m, FromJSString result) =>-                  CanvasRenderingContext2D -> m result-getTextBaseline self-  = liftDOM ((self ^. js "textBaseline") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> -setDirection ::-             (MonadDOM m, ToJSString val) =>-               CanvasRenderingContext2D -> val -> m ()-setDirection self val-  = liftDOM (self ^. jss "direction" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation> -getDirection ::-             (MonadDOM m, FromJSString result) =>-               CanvasRenderingContext2D -> m result-getDirection self-  = liftDOM ((self ^. js "direction") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -setStrokeStyle ::-               (MonadDOM m, IsCanvasStyle val) =>-                 CanvasRenderingContext2D -> Maybe val -> m ()-setStrokeStyle self val-  = liftDOM (self ^. jss "strokeStyle" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> -getStrokeStyle ::-               (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)-getStrokeStyle self-  = liftDOM ((self ^. js "strokeStyle") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -setFillStyle ::-             (MonadDOM m, IsCanvasStyle val) =>-               CanvasRenderingContext2D -> Maybe val -> m ()-setFillStyle self val-  = liftDOM (self ^. jss "fillStyle" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> -getFillStyle ::-             (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)-getFillStyle self-  = liftDOM ((self ^. js "fillStyle") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation> -getWebkitBackingStorePixelRatio ::-                                (MonadDOM m) => CanvasRenderingContext2D -> m Float-getWebkitBackingStorePixelRatio self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "webkitBackingStorePixelRatio") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> -setWebkitImageSmoothingEnabled ::-                               (MonadDOM m) => CanvasRenderingContext2D -> Bool -> m ()-setWebkitImageSmoothingEnabled self val-  = liftDOM (self ^. jss "webkitImageSmoothingEnabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation> -getWebkitImageSmoothingEnabled ::-                               (MonadDOM m) => CanvasRenderingContext2D -> m Bool-getWebkitImageSmoothingEnabled self-  = liftDOM-      ((self ^. js "webkitImageSmoothingEnabled") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/CapabilityRange.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CapabilityRange-       (getMax, getMin, getSupported, CapabilityRange,-        castToCapabilityRange, gTypeCapabilityRange)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.max Mozilla CapabilityRange.max documentation> -getMax :: (MonadDOM m) => CapabilityRange -> m JSVal-getMax self = liftDOM ((self ^. js "max") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.min Mozilla CapabilityRange.min documentation> -getMin :: (MonadDOM m) => CapabilityRange -> m JSVal-getMin self = liftDOM ((self ^. js "min") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.supported Mozilla CapabilityRange.supported documentation> -getSupported :: (MonadDOM m) => CapabilityRange -> m Bool-getSupported self-  = liftDOM ((self ^. js "supported") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/CharacterData.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CharacterData-       (substringData, appendData, insertData, deleteData, replaceData,-        setData, getData, getLength, CharacterData, castToCharacterData,-        gTypeCharacterData, IsCharacterData, toCharacterData)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> -substringData ::-              (MonadDOM m, IsCharacterData self, FromJSString result) =>-                self -> Word -> Word -> m (Maybe result)-substringData self offset length-  = liftDOM-      (((toCharacterData self) ^. jsf "substringData"-          [toJSVal offset, toJSVal length])-         >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation> -appendData ::-           (MonadDOM m, IsCharacterData self, ToJSString data') =>-             self -> data' -> m ()-appendData self data'-  = liftDOM-      (void ((toCharacterData self) ^. jsf "appendData" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.insertData Mozilla CharacterData.insertData documentation> -insertData ::-           (MonadDOM m, IsCharacterData self, ToJSString data') =>-             self -> Word -> data' -> m ()-insertData self offset data'-  = liftDOM-      (void-         ((toCharacterData self) ^. jsf "insertData"-            [toJSVal offset, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.deleteData Mozilla CharacterData.deleteData documentation> -deleteData ::-           (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m ()-deleteData self offset length-  = liftDOM-      (void-         ((toCharacterData self) ^. jsf "deleteData"-            [toJSVal offset, toJSVal length]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.replaceData Mozilla CharacterData.replaceData documentation> -replaceData ::-            (MonadDOM m, IsCharacterData self, ToJSString data') =>-              self -> Word -> Word -> data' -> m ()-replaceData self offset length data'-  = liftDOM-      (void-         ((toCharacterData self) ^. jsf "replaceData"-            [toJSVal offset, toJSVal length, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> -setData ::-        (MonadDOM m, IsCharacterData self, ToJSString val) =>-          self -> Maybe val -> m ()-setData self val-  = liftDOM ((toCharacterData self) ^. jss "data" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> -getData ::-        (MonadDOM m, IsCharacterData self, FromJSString result) =>-          self -> m (Maybe result)-getData self-  = liftDOM-      (((toCharacterData self) ^. js "data") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.length Mozilla CharacterData.length documentation> -getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word-getLength self-  = liftDOM-      (round <$>-         (((toCharacterData self) ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/ChildNode.hs 
@@ -1,18 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ChildNode-       (remove, ChildNode, castToChildNode, gTypeChildNode) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.remove Mozilla ChildNode.remove documentation> -remove :: (MonadDOM m) => ChildNode -> m ()-remove self = liftDOM (void (self ^. js "remove"))
− src/Language/Javascript/JSaddle/DOM/Generated/ClientRect.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ClientRect-       (getTop, getRight, getBottom, getLeft, getWidth, getHeight,-        ClientRect, castToClientRect, gTypeClientRect)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.top Mozilla ClientRect.top documentation> -getTop :: (MonadDOM m) => ClientRect -> m Float-getTop self-  = liftDOM (realToFrac <$> ((self ^. js "top") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.right Mozilla ClientRect.right documentation> -getRight :: (MonadDOM m) => ClientRect -> m Float-getRight self-  = liftDOM (realToFrac <$> ((self ^. js "right") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.bottom Mozilla ClientRect.bottom documentation> -getBottom :: (MonadDOM m) => ClientRect -> m Float-getBottom self-  = liftDOM (realToFrac <$> ((self ^. js "bottom") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.left Mozilla ClientRect.left documentation> -getLeft :: (MonadDOM m) => ClientRect -> m Float-getLeft self-  = liftDOM (realToFrac <$> ((self ^. js "left") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.width Mozilla ClientRect.width documentation> -getWidth :: (MonadDOM m) => ClientRect -> m Float-getWidth self-  = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.height Mozilla ClientRect.height documentation> -getHeight :: (MonadDOM m) => ClientRect -> m Float-getHeight self-  = liftDOM (realToFrac <$> ((self ^. js "height") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/ClientRectList.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ClientRectList-       (item, getLength, ClientRectList, castToClientRectList,-        gTypeClientRectList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> -item ::-     (MonadDOM m) => ClientRectList -> Word -> m (Maybe ClientRect)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.length Mozilla ClientRectList.length documentation> -getLength :: (MonadDOM m) => ClientRectList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/CloseEvent.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CloseEvent-       (getWasClean, getCode, getReason, CloseEvent, castToCloseEvent,-        gTypeCloseEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.wasClean Mozilla CloseEvent.wasClean documentation> -getWasClean :: (MonadDOM m) => CloseEvent -> m Bool-getWasClean self = liftDOM ((self ^. js "wasClean") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.code Mozilla CloseEvent.code documentation> -getCode :: (MonadDOM m) => CloseEvent -> m Word-getCode self-  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.reason Mozilla CloseEvent.reason documentation> -getReason ::-          (MonadDOM m, FromJSString result) => CloseEvent -> m result-getReason self-  = liftDOM ((self ^. js "reason") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/CommandLineAPIHost.hs 
@@ -1,68 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CommandLineAPIHost-       (clearConsoleMessages, copyText, inspect, inspectedObject,-        getEventListeners, databaseId, storageId, CommandLineAPIHost,-        castToCommandLineAPIHost, gTypeCommandLineAPIHost)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation> -clearConsoleMessages :: (MonadDOM m) => CommandLineAPIHost -> m ()-clearConsoleMessages self-  = liftDOM (void (self ^. js "clearConsoleMessages"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation> -copyText ::-         (MonadDOM m, ToJSString text) => CommandLineAPIHost -> text -> m ()-copyText self text-  = liftDOM (void (self ^. jsf "copyText" [toJSVal text]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation> -inspect ::-        (MonadDOM m) => CommandLineAPIHost -> JSVal -> JSVal -> m ()-inspect self objectId hints-  = liftDOM-      (void (self ^. jsf "inspect" [toJSVal objectId, toJSVal hints]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> -inspectedObject ::-                (MonadDOM m) => CommandLineAPIHost -> Int -> m JSVal-inspectedObject self num-  = liftDOM-      ((self ^. jsf "inspectedObject" [toJSVal num]) >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> -getEventListeners ::-                  (MonadDOM m, IsNode node) =>-                    CommandLineAPIHost -> Maybe node -> m (Maybe Array)-getEventListeners self node-  = liftDOM-      ((self ^. jsf "getEventListeners" [toJSVal node]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> -databaseId ::-           (MonadDOM m, FromJSString result) =>-             CommandLineAPIHost -> JSVal -> m result-databaseId self database-  = liftDOM-      ((self ^. jsf "databaseId" [toJSVal database]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> -storageId ::-          (MonadDOM m, FromJSString result) =>-            CommandLineAPIHost -> JSVal -> m result-storageId self storage-  = liftDOM-      ((self ^. jsf "storageId" [toJSVal storage]) >>=-         fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/Comment.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Comment-       (newComment, Comment, castToComment, gTypeComment) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation> -newComment :: (MonadDOM m, ToJSString data') => data' -> m Comment-newComment data'-  = liftDOM (Comment <$> new (jsg "Comment") [toJSVal data'])
− src/Language/Javascript/JSaddle/DOM/Generated/CompositionEvent.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CompositionEvent-       (initCompositionEvent, getData, CompositionEvent,-        castToCompositionEvent, gTypeCompositionEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.initCompositionEvent Mozilla CompositionEvent.initCompositionEvent documentation> -initCompositionEvent ::-                     (MonadDOM m, ToJSString typeArg, ToJSString dataArg) =>-                       CompositionEvent ->-                         typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m ()-initCompositionEvent self typeArg canBubbleArg cancelableArg-  viewArg dataArg-  = liftDOM-      (void-         (self ^. jsf "initCompositionEvent"-            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,-             toJSVal viewArg, toJSVal dataArg]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.data Mozilla CompositionEvent.data documentation> -getData ::-        (MonadDOM m, FromJSString result) => CompositionEvent -> m result-getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/ConvolverNode.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ConvolverNode-       (setBuffer, getBuffer, setNormalize, getNormalize, ConvolverNode,-        castToConvolverNode, gTypeConvolverNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -setBuffer ::-          (MonadDOM m) => ConvolverNode -> Maybe AudioBuffer -> m ()-setBuffer self val = liftDOM (self ^. jss "buffer" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> -getBuffer :: (MonadDOM m) => ConvolverNode -> m (Maybe AudioBuffer)-getBuffer self = liftDOM ((self ^. js "buffer") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> -setNormalize :: (MonadDOM m) => ConvolverNode -> Bool -> m ()-setNormalize self val-  = liftDOM (self ^. jss "normalize" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation> -getNormalize :: (MonadDOM m) => ConvolverNode -> m Bool-getNormalize self-  = liftDOM ((self ^. js "normalize") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/Coordinates.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Coordinates-       (getLatitude, getLongitude, getAltitude, getAccuracy,-        getAltitudeAccuracy, getHeading, getSpeed, Coordinates,-        castToCoordinates, gTypeCoordinates)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation> -getLatitude :: (MonadDOM m) => Coordinates -> m Double-getLatitude self-  = liftDOM ((self ^. js "latitude") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation> -getLongitude :: (MonadDOM m) => Coordinates -> m Double-getLongitude self-  = liftDOM ((self ^. js "longitude") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> -getAltitude :: (MonadDOM m) => Coordinates -> m (Maybe Double)-getAltitude self = liftDOM ((self ^. js "altitude") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation> -getAccuracy :: (MonadDOM m) => Coordinates -> m Double-getAccuracy self-  = liftDOM ((self ^. js "accuracy") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> -getAltitudeAccuracy ::-                    (MonadDOM m) => Coordinates -> m (Maybe Double)-getAltitudeAccuracy self-  = liftDOM ((self ^. js "altitudeAccuracy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> -getHeading :: (MonadDOM m) => Coordinates -> m (Maybe Double)-getHeading self = liftDOM ((self ^. js "heading") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> -getSpeed :: (MonadDOM m) => Coordinates -> m (Maybe Double)-getSpeed self = liftDOM ((self ^. js "speed") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Counter.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Counter-       (getIdentifier, getListStyle, getSeparator, Counter, castToCounter,-        gTypeCounter)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation> -getIdentifier ::-              (MonadDOM m, FromJSString result) => Counter -> m result-getIdentifier self-  = liftDOM ((self ^. js "identifier") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation> -getListStyle ::-             (MonadDOM m, FromJSString result) => Counter -> m result-getListStyle self-  = liftDOM ((self ^. js "listStyle") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation> -getSeparator ::-             (MonadDOM m, FromJSString result) => Counter -> m result-getSeparator self-  = liftDOM ((self ^. js "separator") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/Crypto.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Crypto-       (getRandomValues, getWebkitSubtle, Crypto, castToCrypto,-        gTypeCrypto)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> -getRandomValues ::-                (MonadDOM m, IsArrayBufferView array) =>-                  Crypto -> Maybe array -> m (Maybe ArrayBufferView)-getRandomValues self array-  = liftDOM-      ((self ^. jsf "getRandomValues" [toJSVal array]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> -getWebkitSubtle :: (MonadDOM m) => Crypto -> m (Maybe SubtleCrypto)-getWebkitSubtle self-  = liftDOM ((self ^. js "webkitSubtle") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CryptoKey.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CryptoKey-       (getType, getExtractable, getAlgorithm, getUsages, CryptoKey,-        castToCryptoKey, gTypeCryptoKey)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation> -getType :: (MonadDOM m) => CryptoKey -> m KeyType-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.extractable Mozilla CryptoKey.extractable documentation> -getExtractable :: (MonadDOM m) => CryptoKey -> m Bool-getExtractable self-  = liftDOM ((self ^. js "extractable") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> -getAlgorithm :: (MonadDOM m) => CryptoKey -> m (Maybe Algorithm)-getAlgorithm self-  = liftDOM ((self ^. js "algorithm") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.usages Mozilla CryptoKey.usages documentation> -getUsages :: (MonadDOM m) => CryptoKey -> m [KeyUsage]-getUsages self-  = liftDOM ((self ^. js "usages") >>= fromJSArrayUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/CryptoKeyPair.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CryptoKeyPair-       (getPublicKey, getPrivateKey, CryptoKeyPair, castToCryptoKeyPair,-        gTypeCryptoKeyPair)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> -getPublicKey ::-             (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)-getPublicKey self-  = liftDOM ((self ^. js "publicKey") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> -getPrivateKey ::-              (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey)-getPrivateKey self-  = liftDOM ((self ^. js "privateKey") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/CustomEvent.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.CustomEvent-       (initCustomEvent, getDetail, CustomEvent, castToCustomEvent,-        gTypeCustomEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.initCustomEvent Mozilla CustomEvent.initCustomEvent documentation> -initCustomEvent ::-                (MonadDOM m, ToJSString typeArg) =>-                  CustomEvent -> typeArg -> Bool -> Bool -> JSVal -> m ()-initCustomEvent self typeArg canBubbleArg cancelableArg detailArg-  = liftDOM-      (void-         (self ^. jsf "initCustomEvent"-            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,-             toJSVal detailArg]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> -getDetail :: (MonadDOM m) => CustomEvent -> m JSVal-getDetail self = liftDOM ((self ^. js "detail") >>= toJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/DOMError.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMError-       (getName, DOMError, castToDOMError, gTypeDOMError, IsDOMError,-        toDOMError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation> -getName ::-        (MonadDOM m, IsDOMError self, FromJSString result) =>-          self -> m result-getName self-  = liftDOM (((toDOMError self) ^. js "name") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/DOMImplementation.hs 
@@ -1,68 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMImplementation-       (hasFeature, createDocumentType, createDocument,-        createCSSStyleSheet, createHTMLDocument, DOMImplementation,-        castToDOMImplementation, gTypeDOMImplementation)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> -hasFeature ::-           (MonadDOM m, ToJSString feature, ToJSString version) =>-             DOMImplementation -> feature -> Maybe version -> m Bool-hasFeature self feature version-  = liftDOM-      ((self ^. jsf "hasFeature" [toJSVal feature, toJSVal version]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> -createDocumentType ::-                   (MonadDOM m, ToJSString qualifiedName, ToJSString publicId,-                    ToJSString systemId) =>-                     DOMImplementation ->-                       Maybe qualifiedName ->-                         Maybe publicId -> Maybe systemId -> m (Maybe DocumentType)-createDocumentType self qualifiedName publicId systemId-  = liftDOM-      ((self ^. jsf "createDocumentType"-          [toJSVal qualifiedName, toJSVal publicId, toJSVal systemId])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> -createDocument ::-               (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) =>-                 DOMImplementation ->-                   Maybe namespaceURI ->-                     Maybe qualifiedName -> Maybe DocumentType -> m (Maybe Document)-createDocument self namespaceURI qualifiedName doctype-  = liftDOM-      ((self ^. jsf "createDocument"-          [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> -createCSSStyleSheet ::-                    (MonadDOM m, ToJSString title, ToJSString media) =>-                      DOMImplementation -> title -> media -> m (Maybe CSSStyleSheet)-createCSSStyleSheet self title media-  = liftDOM-      ((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> -createHTMLDocument ::-                   (MonadDOM m, ToJSString title) =>-                     DOMImplementation -> title -> m (Maybe HTMLDocument)-createHTMLDocument self title-  = liftDOM-      ((self ^. jsf "createHTMLDocument" [toJSVal title]) >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/DOMNamedFlowCollection.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMNamedFlowCollection-       (item, namedItem, getLength, DOMNamedFlowCollection,-        castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> -item ::-     (MonadDOM m) =>-       DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation> -getLength :: (MonadDOM m) => DOMNamedFlowCollection -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/DOMParser.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMParser-       (newDOMParser, parseFromString, DOMParser, castToDOMParser,-        gTypeDOMParser)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation> -newDOMParser :: (MonadDOM m) => m DOMParser-newDOMParser = liftDOM (DOMParser <$> new (jsg "DOMParser") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> -parseFromString ::-                (MonadDOM m, ToJSString str, ToJSString contentType) =>-                  DOMParser -> str -> contentType -> m (Maybe Document)-parseFromString self str contentType-  = liftDOM-      ((self ^. jsf "parseFromString" [toJSVal str, toJSVal contentType])-         >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/DOMSettableTokenList.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMSettableTokenList-       (_get, setValue, getValue, DOMSettableTokenList,-        castToDOMSettableTokenList, gTypeDOMSettableTokenList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> -_get ::-     (MonadDOM m, FromJSString result) =>-       DOMSettableTokenList -> Word -> m (Maybe result)-_get self index-  = liftDOM-      ((self ^. jsf "_get" [toJSVal index]) >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) => DOMSettableTokenList -> val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) =>-           DOMSettableTokenList -> m result-getValue self-  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/DOMStringList.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMStringList-       (item, contains, getLength, DOMStringList, castToDOMStringList,-        gTypeDOMStringList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> -item ::-     (MonadDOM m, FromJSString result) =>-       DOMStringList -> Word -> m (Maybe result)-item self index-  = liftDOM-      ((self ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> -contains ::-         (MonadDOM m, ToJSString string) =>-           DOMStringList -> string -> m Bool-contains self string-  = liftDOM ((self ^. jsf "contains" [toJSVal string]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.length Mozilla DOMStringList.length documentation> -getLength :: (MonadDOM m) => DOMStringList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/DOMTokenList.hs 
@@ -1,80 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DOMTokenList-       (item, contains, add, remove, toggle, toString, getLength,-        DOMTokenList, castToDOMTokenList, gTypeDOMTokenList,-        IsDOMTokenList, toDOMTokenList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> -item ::-     (MonadDOM m, IsDOMTokenList self, FromJSString result) =>-       self -> Word -> m (Maybe result)-item self index-  = liftDOM-      (((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> -contains ::-         (MonadDOM m, IsDOMTokenList self, ToJSString token) =>-           self -> token -> m Bool-contains self token-  = liftDOM-      (((toDOMTokenList self) ^. jsf "contains" [toJSVal token]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation> -add ::-    (MonadDOM m, IsDOMTokenList self, ToJSString tokens,-     ToJSVal tokens) =>-      self -> [tokens] -> m ()-add self tokens-  = liftDOM-      (void-         ((toDOMTokenList self) ^. jsf "add" [toJSVal (array tokens)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation> -remove ::-       (MonadDOM m, IsDOMTokenList self, ToJSString tokens,-        ToJSVal tokens) =>-         self -> [tokens] -> m ()-remove self tokens-  = liftDOM-      (void-         ((toDOMTokenList self) ^. jsf "remove" [toJSVal (array tokens)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> -toggle ::-       (MonadDOM m, IsDOMTokenList self, ToJSString token) =>-         self -> token -> Bool -> m Bool-toggle self token force-  = liftDOM-      (((toDOMTokenList self) ^. jsf "toggle"-          [toJSVal token, toJSVal force])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toString Mozilla DOMTokenList.toString documentation> -toString ::-         (MonadDOM m, IsDOMTokenList self, FromJSString result) =>-           self -> m result-toString self-  = liftDOM-      (((toDOMTokenList self) ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.length Mozilla DOMTokenList.length documentation> -getLength :: (MonadDOM m, IsDOMTokenList self) => self -> m Word-getLength self-  = liftDOM-      (round <$>-         (((toDOMTokenList self) ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/DataCue.hs 
@@ -1,51 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DataCue-       (newDataCue, newDataCue', setData, getData, setValue, getValue,-        getType, DataCue, castToDataCue, gTypeDataCue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -newDataCue :: (MonadDOM m) => m DataCue-newDataCue = liftDOM (DataCue <$> new (jsg "DataCue") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation> -newDataCue' ::-            (MonadDOM m, ToJSString type') =>-              Double -> Double -> JSVal -> type' -> m DataCue-newDataCue' startTime endTime value type'-  = liftDOM-      (DataCue <$>-         new (jsg "DataCue")-           [toJSVal startTime, toJSVal endTime, toJSVal value, toJSVal type'])---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -setData ::-        (MonadDOM m, IsArrayBuffer val) => DataCue -> Maybe val -> m ()-setData self val = liftDOM (self ^. jss "data" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> -getData :: (MonadDOM m) => DataCue -> m (Maybe ArrayBuffer)-getData self = liftDOM ((self ^. js "data") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -setValue :: (MonadDOM m) => DataCue -> JSVal -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -getValue :: (MonadDOM m) => DataCue -> m JSVal-getValue self = liftDOM ((self ^. js "value") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.type Mozilla WebKitDataCue.type documentation> -getType :: (MonadDOM m, FromJSString result) => DataCue -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/DataTransfer.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DataTransfer-       (clearData, getData, setData, setDragImage, setDropEffect,-        getDropEffect, setEffectAllowed, getEffectAllowed, getTypes,-        getFiles, getItems, DataTransfer, castToDataTransfer,-        gTypeDataTransfer)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation> -clearData ::-          (MonadDOM m, ToJSString type') => DataTransfer -> type' -> m ()-clearData self type'-  = liftDOM (void (self ^. jsf "clearData" [toJSVal type']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> -getData ::-        (MonadDOM m, ToJSString type', FromJSString result) =>-          DataTransfer -> type' -> m result-getData self type'-  = liftDOM-      ((self ^. jsf "getData" [toJSVal type']) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setData Mozilla DataTransfer.setData documentation> -setData ::-        (MonadDOM m, ToJSString type', ToJSString data') =>-          DataTransfer -> type' -> data' -> m ()-setData self type' data'-  = liftDOM-      (void (self ^. jsf "setData" [toJSVal type', toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation> -setDragImage ::-             (MonadDOM m, IsElement image) =>-               DataTransfer -> Maybe image -> Int -> Int -> m ()-setDragImage self image x y-  = liftDOM-      (void-         (self ^. jsf "setDragImage" [toJSVal image, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> -setDropEffect ::-              (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()-setDropEffect self val-  = liftDOM (self ^. jss "dropEffect" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation> -getDropEffect ::-              (MonadDOM m, FromJSString result) => DataTransfer -> m result-getDropEffect self-  = liftDOM ((self ^. js "dropEffect") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> -setEffectAllowed ::-                 (MonadDOM m, ToJSString val) => DataTransfer -> val -> m ()-setEffectAllowed self val-  = liftDOM (self ^. jss "effectAllowed" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation> -getEffectAllowed ::-                 (MonadDOM m, FromJSString result) => DataTransfer -> m result-getEffectAllowed self-  = liftDOM ((self ^. js "effectAllowed") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> -getTypes :: (MonadDOM m) => DataTransfer -> m (Maybe Array)-getTypes self = liftDOM ((self ^. js "types") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> -getFiles :: (MonadDOM m) => DataTransfer -> m (Maybe FileList)-getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> -getItems ::-         (MonadDOM m) => DataTransfer -> m (Maybe DataTransferItemList)-getItems self = liftDOM ((self ^. js "items") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/DataTransferItem.hs 
@@ -1,37 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DataTransferItem-       (getAsString, getAsFile, getKind, getType, DataTransferItem,-        castToDataTransferItem, gTypeDataTransferItem)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation> -getAsString ::-            (MonadDOM m, ToJSString callback) =>-              DataTransferItem -> Maybe (StringCallback callback) -> m ()-getAsString self callback-  = liftDOM (void (self ^. jsf "getAsString" [toJSVal callback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> -getAsFile :: (MonadDOM m) => DataTransferItem -> m (Maybe Blob)-getAsFile self = liftDOM ((self ^. js "getAsFile") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.kind Mozilla DataTransferItem.kind documentation> -getKind ::-        (MonadDOM m, FromJSString result) => DataTransferItem -> m result-getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.type Mozilla DataTransferItem.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => DataTransferItem -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/DataTransferItemList.hs 
@@ -1,45 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DataTransferItemList-       (item, clear, addFile, add, getLength, DataTransferItemList,-        castToDataTransferItemList, gTypeDataTransferItemList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> -item ::-     (MonadDOM m) =>-       DataTransferItemList -> Word -> m (Maybe DataTransferItem)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.clear Mozilla DataTransferItemList.clear documentation> -clear :: (MonadDOM m) => DataTransferItemList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> -addFile ::-        (MonadDOM m) => DataTransferItemList -> Maybe File -> m ()-addFile self file-  = liftDOM (void (self ^. jsf "add" [toJSVal file]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation> -add ::-    (MonadDOM m, ToJSString data', ToJSString type') =>-      DataTransferItemList -> data' -> type' -> m ()-add self data' type'-  = liftDOM (void (self ^. jsf "add" [toJSVal data', toJSVal type']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.length Mozilla DataTransferItemList.length documentation> -getLength :: (MonadDOM m) => DataTransferItemList -> m Int-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Database.hs 
@@ -1,64 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Database-       (changeVersion, transaction, readTransaction, getVersion, Database,-        castToDatabase, gTypeDatabase)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> -changeVersion ::-              (MonadDOM m, ToJSString oldVersion, ToJSString newVersion) =>-                Database ->-                  oldVersion ->-                    newVersion ->-                      Maybe SQLTransactionCallback ->-                        Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-changeVersion self oldVersion newVersion callback errorCallback-  successCallback-  = liftDOM-      (void-         (self ^. jsf "changeVersion"-            [toJSVal oldVersion, toJSVal newVersion, toJSVal callback,-             toJSVal errorCallback, toJSVal successCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation> -transaction ::-            (MonadDOM m) =>-              Database ->-                Maybe SQLTransactionCallback ->-                  Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-transaction self callback errorCallback successCallback-  = liftDOM-      (void-         (self ^. jsf "transaction"-            [toJSVal callback, toJSVal errorCallback,-             toJSVal successCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation> -readTransaction ::-                (MonadDOM m) =>-                  Database ->-                    Maybe SQLTransactionCallback ->-                      Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m ()-readTransaction self callback errorCallback successCallback-  = liftDOM-      (void-         (self ^. jsf "readTransaction"-            [toJSVal callback, toJSVal errorCallback,-             toJSVal successCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation> -getVersion ::-           (MonadDOM m, FromJSString result) => Database -> m result-getVersion self-  = liftDOM ((self ^. js "version") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/DatabaseCallback.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DatabaseCallback-       (newDatabaseCallback, newDatabaseCallbackSync,-        newDatabaseCallbackAsync, DatabaseCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallback ::-                    (MonadDOM m) => (Maybe Database -> JSM ()) -> m DatabaseCallback-newDatabaseCallback callback-  = liftDOM-      (DatabaseCallback . Callback <$>-         function ""-           (\ _ _ [database] ->-              fromJSVal database >>= \ database' -> callback database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallbackSync ::-                        (MonadDOM m) => (Maybe Database -> JSM ()) -> m DatabaseCallback-newDatabaseCallbackSync callback-  = liftDOM-      (DatabaseCallback . Callback <$>-         function ""-           (\ _ _ [database] ->-              fromJSVal database >>= \ database' -> callback database'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation> -newDatabaseCallbackAsync ::-                         (MonadDOM m) => (Maybe Database -> JSM ()) -> m DatabaseCallback-newDatabaseCallbackAsync callback-  = liftDOM-      (DatabaseCallback . Callback <$>-         function ""-           (\ _ _ [database] ->-              fromJSVal database >>= \ database' -> callback database'))
− src/Language/Javascript/JSaddle/DOM/Generated/DedicatedWorkerGlobalScope.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DedicatedWorkerGlobalScope-       (postMessage, message, DedicatedWorkerGlobalScope,-        castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation> -postMessage ::-            (MonadDOM m, IsArray messagePorts) =>-              DedicatedWorkerGlobalScope -> JSVal -> Maybe messagePorts -> m ()-postMessage self message messagePorts-  = liftDOM-      (void-         (self ^. jsf "postMessage"-            [toJSVal message, toJSVal messagePorts]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.onmessage Mozilla DedicatedWorkerGlobalScope.onmessage documentation> -message :: EventName DedicatedWorkerGlobalScope MessageEvent-message = unsafeEventName (toJSString "message")
− src/Language/Javascript/JSaddle/DOM/Generated/DelayNode.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DelayNode-       (getDelayTime, DelayNode, castToDelayNode, gTypeDelayNode) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> -getDelayTime :: (MonadDOM m) => DelayNode -> m (Maybe AudioParam)-getDelayTime self-  = liftDOM ((self ^. js "delayTime") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/DeviceMotionEvent.hs 
@@ -1,62 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DeviceMotionEvent-       (initDeviceMotionEvent, getAcceleration,-        getAccelerationIncludingGravity, getRotationRate, getInterval,-        DeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation> -initDeviceMotionEvent ::-                      (MonadDOM m, ToJSString type', IsAcceleration acceleration,-                       IsAcceleration accelerationIncludingGravity,-                       IsRotationRate rotationRate) =>-                        DeviceMotionEvent ->-                          type' ->-                            Bool ->-                              Bool ->-                                Maybe acceleration ->-                                  Maybe accelerationIncludingGravity ->-                                    Maybe rotationRate -> Double -> m ()-initDeviceMotionEvent self type' bubbles cancelable acceleration-  accelerationIncludingGravity rotationRate interval-  = liftDOM-      (void-         (self ^. jsf "initDeviceMotionEvent"-            [toJSVal type', toJSVal bubbles, toJSVal cancelable,-             toJSVal acceleration, toJSVal accelerationIncludingGravity,-             toJSVal rotationRate, toJSVal interval]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> -getAcceleration ::-                (MonadDOM m) => DeviceMotionEvent -> m (Maybe Acceleration)-getAcceleration self-  = liftDOM ((self ^. js "acceleration") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> -getAccelerationIncludingGravity ::-                                (MonadDOM m) => DeviceMotionEvent -> m (Maybe Acceleration)-getAccelerationIncludingGravity self-  = liftDOM-      ((self ^. js "accelerationIncludingGravity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> -getRotationRate ::-                (MonadDOM m) => DeviceMotionEvent -> m (Maybe RotationRate)-getRotationRate self-  = liftDOM ((self ^. js "rotationRate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation> -getInterval :: (MonadDOM m) => DeviceMotionEvent -> m Double-getInterval self-  = liftDOM ((self ^. js "interval") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/DeviceOrientationEvent.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DeviceOrientationEvent-       (initDeviceOrientationEvent, getAlpha, getBeta, getGamma,-        getAbsolute, DeviceOrientationEvent, castToDeviceOrientationEvent,-        gTypeDeviceOrientationEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.initDeviceOrientationEvent Mozilla DeviceOrientationEvent.initDeviceOrientationEvent documentation> -initDeviceOrientationEvent ::-                           (MonadDOM m, ToJSString type') =>-                             DeviceOrientationEvent ->-                               type' -> Bool -> Bool -> Double -> Double -> Double -> Bool -> m ()-initDeviceOrientationEvent self type' bubbles cancelable alpha beta-  gamma absolute-  = liftDOM-      (void-         (self ^. jsf "initDeviceOrientationEvent"-            [toJSVal type', toJSVal bubbles, toJSVal cancelable, toJSVal alpha,-             toJSVal beta, toJSVal gamma, toJSVal absolute]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation> -getAlpha :: (MonadDOM m) => DeviceOrientationEvent -> m Double-getAlpha self = liftDOM ((self ^. js "alpha") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation> -getBeta :: (MonadDOM m) => DeviceOrientationEvent -> m Double-getBeta self = liftDOM ((self ^. js "beta") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation> -getGamma :: (MonadDOM m) => DeviceOrientationEvent -> m Double-getGamma self = liftDOM ((self ^. js "gamma") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation> -getAbsolute :: (MonadDOM m) => DeviceOrientationEvent -> m Bool-getAbsolute self = liftDOM ((self ^. js "absolute") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/DeviceProximityEvent.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DeviceProximityEvent-       (getValue, getMin, getMax, DeviceProximityEvent,-        castToDeviceProximityEvent, gTypeDeviceProximityEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation> -getValue :: (MonadDOM m) => DeviceProximityEvent -> m Double-getValue self = liftDOM ((self ^. js "value") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation> -getMin :: (MonadDOM m) => DeviceProximityEvent -> m Double-getMin self = liftDOM ((self ^. js "min") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation> -getMax :: (MonadDOM m) => DeviceProximityEvent -> m Double-getMax self = liftDOM ((self ^. js "max") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/Document.hs 
@@ -1,1169 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Document-       (newDocument, createElement, createDocumentFragment,-        createTextNode, createComment, createCDATASection,-        createProcessingInstruction, createAttribute,-        createEntityReference, getElementsByTagName, importNode,-        createElementNS, createAttributeNS, getElementsByTagNameNS,-        getElementById, adoptNode, createEvent, createRange,-        createNodeIterator, createTreeWalker, getOverrideStyle,-        createExpression, createNSResolver, evaluate, execCommand,-        queryCommandEnabled, queryCommandIndeterm, queryCommandState,-        queryCommandSupported, queryCommandValue, getElementsByName,-        elementFromPoint, caretRangeFromPoint, getSelection,-        getCSSCanvasContext, getElementsByClassName, hasFocus,-        querySelector, querySelectorAll, webkitCancelFullScreen,-        webkitExitFullscreen, exitPointerLock, webkitGetNamedFlows,-        createTouch, createTouchList, getDoctype, getImplementation,-        getDocumentElement, getInputEncoding, getXmlEncoding,-        setXmlVersion, getXmlVersion, setXmlStandalone, getXmlStandalone,-        getDocumentURI, getDefaultView, getStyleSheets, getContentType,-        setTitle, getTitle, getReferrer, setDomain, getDomain, getURL,-        setCookie, getCookie, setBody, getBody, getHead, getImages,-        getApplets, getLinks, getForms, getAnchors, getLastModified,-        setLocation, getLocation, setCharset, getCharset,-        getDefaultCharset, getReadyState, getCharacterSet,-        getPreferredStylesheetSet, setSelectedStylesheetSet,-        getSelectedStylesheetSet, getActiveElement, getCompatMode,-        getWebkitIsFullScreen, getWebkitFullScreenKeyboardInputAllowed,-        getWebkitCurrentFullScreenElement, getWebkitFullscreenEnabled,-        getWebkitFullscreenElement, getPointerLockElement, getFonts, abort,-        blur, change, click, contextMenu, dblClick, drag, dragEnd,-        dragEnter, dragLeave, dragOver, dragStart, drop, error, focus,-        input, invalid, keyDown, keyPress, keyUp, load, mouseDown,-        mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp,-        mouseWheel, readyStateChange, scroll, select, submit, wheel,-        beforeCut, cut, beforeCopy, copy, beforePaste, paste, reset,-        search, selectStart, selectionchange, touchStart, touchMove,-        touchEnd, touchCancel, webKitFullscreenChange,-        webKitFullscreenError, pointerlockchange, pointerlockerror,-        securitypolicyviolation, webKitWillRevealBottom,-        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,-        getVisibilityState, getHidden, getSecurityPolicy, getCurrentScript,-        getOrigin, Document, castToDocument, gTypeDocument, IsDocument,-        toDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> -newDocument :: (MonadDOM m) => m Document-newDocument = liftDOM (Document <$> new (jsg "Document") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElement ::-              (MonadDOM m, IsDocument self, ToJSString tagName) =>-                self -> Maybe tagName -> m (Maybe Element)-createElement self tagName-  = liftDOM-      (((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment ::-                       (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentFragment)-createDocumentFragment self-  = liftDOM-      (((toDocument self) ^. js "createDocumentFragment") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode ::-               (MonadDOM m, IsDocument self, ToJSString data') =>-                 self -> data' -> m (Maybe Text)-createTextNode self data'-  = liftDOM-      (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment ::-              (MonadDOM m, IsDocument self, ToJSString data') =>-                self -> data' -> m (Maybe Comment)-createComment self data'-  = liftDOM-      (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection ::-                   (MonadDOM m, IsDocument self, ToJSString data') =>-                     self -> data' -> m (Maybe CDATASection)-createCDATASection self data'-  = liftDOM-      (((toDocument self) ^. jsf "createCDATASection" [toJSVal data'])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction ::-                            (MonadDOM m, IsDocument self, ToJSString target,-                             ToJSString data') =>-                              self -> target -> data' -> m (Maybe ProcessingInstruction)-createProcessingInstruction self target data'-  = liftDOM-      (((toDocument self) ^. jsf "createProcessingInstruction"-          [toJSVal target, toJSVal data'])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttribute ::-                (MonadDOM m, IsDocument self, ToJSString name) =>-                  self -> name -> m (Maybe Attr)-createAttribute self name-  = liftDOM-      (((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> -createEntityReference ::-                      (MonadDOM m, IsDocument self, ToJSString name) =>-                        self -> name -> m (Maybe EntityReference)-createEntityReference self name-  = liftDOM-      (((toDocument self) ^. jsf "createEntityReference" [toJSVal name])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagName ::-                     (MonadDOM m, IsDocument self, ToJSString tagname) =>-                       self -> tagname -> m (Maybe NodeList)-getElementsByTagName self tagname-  = liftDOM-      (((toDocument self) ^. jsf "getElementsByTagName"-          [toJSVal tagname])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNode ::-           (MonadDOM m, IsDocument self, IsNode importedNode) =>-             self -> Maybe importedNode -> Bool -> m (Maybe Node)-importNode self importedNode deep-  = liftDOM-      (((toDocument self) ^. jsf "importNode"-          [toJSVal importedNode, toJSVal deep])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNS ::-                (MonadDOM m, IsDocument self, ToJSString namespaceURI,-                 ToJSString qualifiedName) =>-                  self ->-                    Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)-createElementNS self namespaceURI qualifiedName-  = liftDOM-      (((toDocument self) ^. jsf "createElementNS"-          [toJSVal namespaceURI, toJSVal qualifiedName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNS ::-                  (MonadDOM m, IsDocument self, ToJSString namespaceURI,-                   ToJSString qualifiedName) =>-                    self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)-createAttributeNS self namespaceURI qualifiedName-  = liftDOM-      (((toDocument self) ^. jsf "createAttributeNS"-          [toJSVal namespaceURI, toJSVal qualifiedName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::-                       (MonadDOM m, IsDocument self, ToJSString namespaceURI,-                        ToJSString localName) =>-                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)-getElementsByTagNameNS self namespaceURI localName-  = liftDOM-      (((toDocument self) ^. jsf "getElementsByTagNameNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> -getElementById ::-               (MonadDOM m, IsDocument self, ToJSString elementId) =>-                 self -> elementId -> m (Maybe Element)-getElementById self elementId-  = liftDOM-      (((toDocument self) ^. jsf "getElementById" [toJSVal elementId])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNode ::-          (MonadDOM m, IsDocument self, IsNode source) =>-            self -> Maybe source -> m (Maybe Node)-adoptNode self source-  = liftDOM-      (((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEvent ::-            (MonadDOM m, IsDocument self, ToJSString eventType) =>-              self -> eventType -> m (Maybe Event)-createEvent self eventType-  = liftDOM-      (((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange ::-            (MonadDOM m, IsDocument self) => self -> m (Maybe Range)-createRange self-  = liftDOM (((toDocument self) ^. js "createRange") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIterator ::-                   (MonadDOM m, IsDocument self, IsNode root) =>-                     self ->-                       Maybe root ->-                         Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)-createNodeIterator self root whatToShow filter-  expandEntityReferences-  = liftDOM-      (((toDocument self) ^. jsf "createNodeIterator"-          [toJSVal root, toJSVal whatToShow, toJSVal filter,-           toJSVal expandEntityReferences])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalker ::-                 (MonadDOM m, IsDocument self, IsNode root) =>-                   self ->-                     Maybe root ->-                       Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)-createTreeWalker self root whatToShow filter expandEntityReferences-  = liftDOM-      (((toDocument self) ^. jsf "createTreeWalker"-          [toJSVal root, toJSVal whatToShow, toJSVal filter,-           toJSVal expandEntityReferences])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyle ::-                 (MonadDOM m, IsDocument self, IsElement element,-                  ToJSString pseudoElement) =>-                   self ->-                     Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)-getOverrideStyle self element pseudoElement-  = liftDOM-      (((toDocument self) ^. jsf "getOverrideStyle"-          [toJSVal element, toJSVal pseudoElement])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpression ::-                 (MonadDOM m, IsDocument self, ToJSString expression) =>-                   self ->-                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)-createExpression self expression resolver-  = liftDOM-      (((toDocument self) ^. jsf "createExpression"-          [toJSVal expression, toJSVal resolver])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver ::-                 (MonadDOM m, IsDocument self, IsNode nodeResolver) =>-                   self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)-createNSResolver self nodeResolver-  = liftDOM-      (((toDocument self) ^. jsf "createNSResolver"-          [toJSVal nodeResolver])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluate ::-         (MonadDOM m, IsDocument self, ToJSString expression,-          IsNode contextNode) =>-           self ->-             expression ->-               Maybe contextNode ->-                 Maybe XPathNSResolver ->-                   Word -> Maybe XPathResult -> m (Maybe XPathResult)-evaluate self expression contextNode resolver type' inResult-  = liftDOM-      (((toDocument self) ^. jsf "evaluate"-          [toJSVal expression, toJSVal contextNode, toJSVal resolver,-           toJSVal type', toJSVal inResult])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> -execCommand ::-            (MonadDOM m, IsDocument self, ToJSString command,-             ToJSString value) =>-              self -> command -> Bool -> Maybe value -> m Bool-execCommand self command userInterface value-  = liftDOM-      (((toDocument self) ^. jsf "execCommand"-          [toJSVal command, toJSVal userInterface, toJSVal value])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> -queryCommandEnabled ::-                    (MonadDOM m, IsDocument self, ToJSString command) =>-                      self -> command -> m Bool-queryCommandEnabled self command-  = liftDOM-      (((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> -queryCommandIndeterm ::-                     (MonadDOM m, IsDocument self, ToJSString command) =>-                       self -> command -> m Bool-queryCommandIndeterm self command-  = liftDOM-      (((toDocument self) ^. jsf "queryCommandIndeterm"-          [toJSVal command])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> -queryCommandState ::-                  (MonadDOM m, IsDocument self, ToJSString command) =>-                    self -> command -> m Bool-queryCommandState self command-  = liftDOM-      (((toDocument self) ^. jsf "queryCommandState" [toJSVal command])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> -queryCommandSupported ::-                      (MonadDOM m, IsDocument self, ToJSString command) =>-                        self -> command -> m Bool-queryCommandSupported self command-  = liftDOM-      (((toDocument self) ^. jsf "queryCommandSupported"-          [toJSVal command])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -queryCommandValue ::-                  (MonadDOM m, IsDocument self, ToJSString command,-                   FromJSString result) =>-                    self -> command -> m result-queryCommandValue self command-  = liftDOM-      (((toDocument self) ^. jsf "queryCommandValue" [toJSVal command])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName ::-                  (MonadDOM m, IsDocument self, ToJSString elementName) =>-                    self -> elementName -> m (Maybe NodeList)-getElementsByName self elementName-  = liftDOM-      (((toDocument self) ^. jsf "getElementsByName"-          [toJSVal elementName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> -elementFromPoint ::-                 (MonadDOM m, IsDocument self) =>-                   self -> Int -> Int -> m (Maybe Element)-elementFromPoint self x y-  = liftDOM-      (((toDocument self) ^. jsf "elementFromPoint"-          [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint ::-                    (MonadDOM m, IsDocument self) =>-                      self -> Int -> Int -> m (Maybe Range)-caretRangeFromPoint self x y-  = liftDOM-      (((toDocument self) ^. jsf "caretRangeFromPoint"-          [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection ::-             (MonadDOM m, IsDocument self) => self -> m (Maybe Selection)-getSelection self-  = liftDOM (((toDocument self) ^. js "getSelection") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext ::-                    (MonadDOM m, IsDocument self, ToJSString contextId,-                     ToJSString name) =>-                      self ->-                        contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)-getCSSCanvasContext self contextId name width height-  = liftDOM-      (((toDocument self) ^. jsf "getCSSCanvasContext"-          [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassName ::-                       (MonadDOM m, IsDocument self, ToJSString tagname) =>-                         self -> tagname -> m (Maybe NodeList)-getElementsByClassName self tagname-  = liftDOM-      (((toDocument self) ^. jsf "getElementsByClassName"-          [toJSVal tagname])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool-hasFocus self-  = liftDOM (((toDocument self) ^. js "hasFocus") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> -querySelector ::-              (MonadDOM m, IsDocument self, ToJSString selectors) =>-                self -> selectors -> m (Maybe Element)-querySelector self selectors-  = liftDOM-      (((toDocument self) ^. jsf "querySelector" [toJSVal selectors]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> -querySelectorAll ::-                 (MonadDOM m, IsDocument self, ToJSString selectors) =>-                   self -> selectors -> m (Maybe NodeList)-querySelectorAll self selectors-  = liftDOM-      (((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> -webkitCancelFullScreen ::-                       (MonadDOM m, IsDocument self) => self -> m ()-webkitCancelFullScreen self-  = liftDOM (void ((toDocument self) ^. js "webkitCancelFullScreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> -webkitExitFullscreen ::-                     (MonadDOM m, IsDocument self) => self -> m ()-webkitExitFullscreen self-  = liftDOM (void ((toDocument self) ^. js "webkitExitFullscreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> -exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m ()-exitPointerLock self-  = liftDOM (void ((toDocument self) ^. js "exitPointerLock"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows ::-                    (MonadDOM m, IsDocument self) =>-                      self -> m (Maybe DOMNamedFlowCollection)-webkitGetNamedFlows self-  = liftDOM-      (((toDocument self) ^. js "webkitGetNamedFlows") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouch ::-            (MonadDOM m, IsDocument self, IsEventTarget target) =>-              self ->-                Maybe Window ->-                  Maybe target ->-                    Int ->-                      Int ->-                        Int ->-                          Int -> Int -> Int -> Int -> Float -> Float -> m (Maybe Touch)-createTouch self window target identifier pageX pageY screenX-  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce-  = liftDOM-      (((toDocument self) ^. jsf "createTouch"-          [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX,-           toJSVal pageY, toJSVal screenX, toJSVal screenY,-           toJSVal webkitRadiusX, toJSVal webkitRadiusY,-           toJSVal webkitRotationAngle, toJSVal webkitForce])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList ::-                (MonadDOM m, IsDocument self) => self -> m (Maybe TouchList)-createTouchList self-  = liftDOM-      (((toDocument self) ^. js "createTouchList") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctype ::-           (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType)-getDoctype self-  = liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> -getImplementation ::-                  (MonadDOM m, IsDocument self) =>-                    self -> m (Maybe DOMImplementation)-getImplementation self-  = liftDOM-      (((toDocument self) ^. js "implementation") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElement ::-                   (MonadDOM m, IsDocument self) => self -> m (Maybe Element)-getDocumentElement self-  = liftDOM-      (((toDocument self) ^. js "documentElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> -getInputEncoding ::-                 (MonadDOM m, IsDocument self, FromJSString result) =>-                   self -> m (Maybe result)-getInputEncoding self-  = liftDOM-      (((toDocument self) ^. js "inputEncoding") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncoding ::-               (MonadDOM m, IsDocument self, FromJSString result) =>-                 self -> m (Maybe result)-getXmlEncoding self-  = liftDOM-      (((toDocument self) ^. js "xmlEncoding") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -setXmlVersion ::-              (MonadDOM m, IsDocument self, ToJSString val) =>-                self -> Maybe val -> m ()-setXmlVersion self val-  = liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersion ::-              (MonadDOM m, IsDocument self, FromJSString result) =>-                self -> m (Maybe result)-getXmlVersion self-  = liftDOM-      (((toDocument self) ^. js "xmlVersion") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -setXmlStandalone ::-                 (MonadDOM m, IsDocument self) => self -> Bool -> m ()-setXmlStandalone self val-  = liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool-getXmlStandalone self-  = liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> -getDocumentURI ::-               (MonadDOM m, IsDocument self, FromJSString result) =>-                 self -> m (Maybe result)-getDocumentURI self-  = liftDOM-      (((toDocument self) ^. js "documentURI") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultView ::-               (MonadDOM m, IsDocument self) => self -> m (Maybe Window)-getDefaultView self-  = liftDOM (((toDocument self) ^. js "defaultView") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> -getStyleSheets ::-               (MonadDOM m, IsDocument self) => self -> m (Maybe StyleSheetList)-getStyleSheets self-  = liftDOM (((toDocument self) ^. js "styleSheets") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> -getContentType ::-               (MonadDOM m, IsDocument self, FromJSString result) =>-                 self -> m result-getContentType self-  = liftDOM-      (((toDocument self) ^. js "contentType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -setTitle ::-         (MonadDOM m, IsDocument self, ToJSString val) =>-           self -> Maybe val -> m ()-setTitle self val-  = liftDOM ((toDocument self) ^. jss "title" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -getTitle ::-         (MonadDOM m, IsDocument self, FromJSString result) =>-           self -> m (Maybe result)-getTitle self-  = liftDOM (((toDocument self) ^. js "title") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> -getReferrer ::-            (MonadDOM m, IsDocument self, FromJSString result) =>-              self -> m result-getReferrer self-  = liftDOM-      (((toDocument self) ^. js "referrer") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -setDomain ::-          (MonadDOM m, IsDocument self, ToJSString val) =>-            self -> Maybe val -> m ()-setDomain self val-  = liftDOM ((toDocument self) ^. jss "domain" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -getDomain ::-          (MonadDOM m, IsDocument self, FromJSString result) =>-            self -> m (Maybe result)-getDomain self-  = liftDOM-      (((toDocument self) ^. js "domain") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> -getURL ::-       (MonadDOM m, IsDocument self, FromJSString result) =>-         self -> m result-getURL self-  = liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -setCookie ::-          (MonadDOM m, IsDocument self, ToJSString val) =>-            self -> Maybe val -> m ()-setCookie self val-  = liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -getCookie ::-          (MonadDOM m, IsDocument self, FromJSString result) =>-            self -> m (Maybe result)-getCookie self-  = liftDOM-      (((toDocument self) ^. js "cookie") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -setBody ::-        (MonadDOM m, IsDocument self, IsHTMLElement val) =>-          self -> Maybe val -> m ()-setBody self val-  = liftDOM ((toDocument self) ^. jss "body" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBody ::-        (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement)-getBody self-  = liftDOM (((toDocument self) ^. js "body") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHead ::-        (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement)-getHead self-  = liftDOM (((toDocument self) ^. js "head") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> -getImages ::-          (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)-getImages self-  = liftDOM (((toDocument self) ^. js "images") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> -getApplets ::-           (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)-getApplets self-  = liftDOM (((toDocument self) ^. js "applets") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> -getLinks ::-         (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)-getLinks self-  = liftDOM (((toDocument self) ^. js "links") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> -getForms ::-         (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)-getForms self-  = liftDOM (((toDocument self) ^. js "forms") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> -getAnchors ::-           (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection)-getAnchors self-  = liftDOM (((toDocument self) ^. js "anchors") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> -getLastModified ::-                (MonadDOM m, IsDocument self, FromJSString result) =>-                  self -> m result-getLastModified self-  = liftDOM-      (((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -setLocation ::-            (MonadDOM m, IsDocument self) => self -> Maybe Location -> m ()-setLocation self val-  = liftDOM ((toDocument self) ^. jss "location" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocation ::-            (MonadDOM m, IsDocument self) => self -> m (Maybe Location)-getLocation self-  = liftDOM (((toDocument self) ^. js "location") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -setCharset ::-           (MonadDOM m, IsDocument self, ToJSString val) =>-             self -> Maybe val -> m ()-setCharset self val-  = liftDOM ((toDocument self) ^. jss "charset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -getCharset ::-           (MonadDOM m, IsDocument self, FromJSString result) =>-             self -> m (Maybe result)-getCharset self-  = liftDOM-      (((toDocument self) ^. js "charset") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> -getDefaultCharset ::-                  (MonadDOM m, IsDocument self, FromJSString result) =>-                    self -> m (Maybe result)-getDefaultCharset self-  = liftDOM-      (((toDocument self) ^. js "defaultCharset") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> -getReadyState ::-              (MonadDOM m, IsDocument self, FromJSString result) =>-                self -> m (Maybe result)-getReadyState self-  = liftDOM-      (((toDocument self) ^. js "readyState") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> -getCharacterSet ::-                (MonadDOM m, IsDocument self, FromJSString result) =>-                  self -> m (Maybe result)-getCharacterSet self-  = liftDOM-      (((toDocument self) ^. js "characterSet") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSet ::-                          (MonadDOM m, IsDocument self, FromJSString result) =>-                            self -> m (Maybe result)-getPreferredStylesheetSet self-  = liftDOM-      (((toDocument self) ^. js "preferredStylesheetSet") >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -setSelectedStylesheetSet ::-                         (MonadDOM m, IsDocument self, ToJSString val) =>-                           self -> Maybe val -> m ()-setSelectedStylesheetSet self val-  = liftDOM-      ((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSet ::-                         (MonadDOM m, IsDocument self, FromJSString result) =>-                           self -> m (Maybe result)-getSelectedStylesheetSet self-  = liftDOM-      (((toDocument self) ^. js "selectedStylesheetSet") >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> -getActiveElement ::-                 (MonadDOM m, IsDocument self) => self -> m (Maybe Element)-getActiveElement self-  = liftDOM (((toDocument self) ^. js "activeElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> -getCompatMode ::-              (MonadDOM m, IsDocument self, FromJSString result) =>-                self -> m result-getCompatMode self-  = liftDOM-      (((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> -getWebkitIsFullScreen ::-                      (MonadDOM m, IsDocument self) => self -> m Bool-getWebkitIsFullScreen self-  = liftDOM-      (((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> -getWebkitFullScreenKeyboardInputAllowed ::-                                        (MonadDOM m, IsDocument self) => self -> m Bool-getWebkitFullScreenKeyboardInputAllowed self-  = liftDOM-      (((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed")-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> -getWebkitCurrentFullScreenElement ::-                                  (MonadDOM m, IsDocument self) => self -> m (Maybe Element)-getWebkitCurrentFullScreenElement self-  = liftDOM-      (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> -getWebkitFullscreenEnabled ::-                           (MonadDOM m, IsDocument self) => self -> m Bool-getWebkitFullscreenEnabled self-  = liftDOM-      (((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElement ::-                           (MonadDOM m, IsDocument self) => self -> m (Maybe Element)-getWebkitFullscreenElement self-  = liftDOM-      (((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> -getPointerLockElement ::-                      (MonadDOM m, IsDocument self) => self -> m (Maybe Element)-getPointerLockElement self-  = liftDOM-      (((toDocument self) ^. js "pointerLockElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> -getFonts ::-         (MonadDOM m, IsDocument self) => self -> m (Maybe FontLoader)-getFonts self-  = liftDOM (((toDocument self) ^. js "fonts") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onabort Mozilla Document.onabort documentation> -abort ::-      (IsDocument self, IsEventTarget self) => EventName self UIEvent-abort = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onblur Mozilla Document.onblur documentation> -blur ::-     (IsDocument self, IsEventTarget self) => EventName self FocusEvent-blur = unsafeEventName (toJSString "blur")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onchange Mozilla Document.onchange documentation> -change ::-       (IsDocument self, IsEventTarget self) => EventName self Event-change = unsafeEventName (toJSString "change")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onclick Mozilla Document.onclick documentation> -click ::-      (IsDocument self, IsEventTarget self) => EventName self MouseEvent-click = unsafeEventName (toJSString "click")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncontextmenu Mozilla Document.oncontextmenu documentation> -contextMenu ::-            (IsDocument self, IsEventTarget self) => EventName self MouseEvent-contextMenu = unsafeEventName (toJSString "contextmenu")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondblclick Mozilla Document.ondblclick documentation> -dblClick ::-         (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dblClick = unsafeEventName (toJSString "dblclick")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrag Mozilla Document.ondrag documentation> -drag ::-     (IsDocument self, IsEventTarget self) => EventName self MouseEvent-drag = unsafeEventName (toJSString "drag")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragend Mozilla Document.ondragend documentation> -dragEnd ::-        (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragEnd = unsafeEventName (toJSString "dragend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragenter Mozilla Document.ondragenter documentation> -dragEnter ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragEnter = unsafeEventName (toJSString "dragenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragleave Mozilla Document.ondragleave documentation> -dragLeave ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragLeave = unsafeEventName (toJSString "dragleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragover Mozilla Document.ondragover documentation> -dragOver ::-         (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragOver = unsafeEventName (toJSString "dragover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragstart Mozilla Document.ondragstart documentation> -dragStart ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragStart = unsafeEventName (toJSString "dragstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrop Mozilla Document.ondrop documentation> -drop ::-     (IsDocument self, IsEventTarget self) => EventName self MouseEvent-drop = unsafeEventName (toJSString "drop")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onerror Mozilla Document.onerror documentation> -error ::-      (IsDocument self, IsEventTarget self) => EventName self UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onfocus Mozilla Document.onfocus documentation> -focus ::-      (IsDocument self, IsEventTarget self) => EventName self FocusEvent-focus = unsafeEventName (toJSString "focus")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninput Mozilla Document.oninput documentation> -input ::-      (IsDocument self, IsEventTarget self) => EventName self Event-input = unsafeEventName (toJSString "input")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninvalid Mozilla Document.oninvalid documentation> -invalid ::-        (IsDocument self, IsEventTarget self) => EventName self Event-invalid = unsafeEventName (toJSString "invalid")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeydown Mozilla Document.onkeydown documentation> -keyDown ::-        (IsDocument self, IsEventTarget self) =>-          EventName self KeyboardEvent-keyDown = unsafeEventName (toJSString "keydown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeypress Mozilla Document.onkeypress documentation> -keyPress ::-         (IsDocument self, IsEventTarget self) =>-           EventName self KeyboardEvent-keyPress = unsafeEventName (toJSString "keypress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeyup Mozilla Document.onkeyup documentation> -keyUp ::-      (IsDocument self, IsEventTarget self) =>-        EventName self KeyboardEvent-keyUp = unsafeEventName (toJSString "keyup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onload Mozilla Document.onload documentation> -load ::-     (IsDocument self, IsEventTarget self) => EventName self UIEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousedown Mozilla Document.onmousedown documentation> -mouseDown ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseDown = unsafeEventName (toJSString "mousedown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseenter Mozilla Document.onmouseenter documentation> -mouseEnter ::-           (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseEnter = unsafeEventName (toJSString "mouseenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseleave Mozilla Document.onmouseleave documentation> -mouseLeave ::-           (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseLeave = unsafeEventName (toJSString "mouseleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousemove Mozilla Document.onmousemove documentation> -mouseMove ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseMove = unsafeEventName (toJSString "mousemove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseout Mozilla Document.onmouseout documentation> -mouseOut ::-         (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseOut = unsafeEventName (toJSString "mouseout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseover Mozilla Document.onmouseover documentation> -mouseOver ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseOver = unsafeEventName (toJSString "mouseover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseup Mozilla Document.onmouseup documentation> -mouseUp ::-        (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseUp = unsafeEventName (toJSString "mouseup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousewheel Mozilla Document.onmousewheel documentation> -mouseWheel ::-           (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseWheel = unsafeEventName (toJSString "mousewheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreadystatechange Mozilla Document.onreadystatechange documentation> -readyStateChange ::-                 (IsDocument self, IsEventTarget self) => EventName self Event-readyStateChange = unsafeEventName (toJSString "readystatechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onscroll Mozilla Document.onscroll documentation> -scroll ::-       (IsDocument self, IsEventTarget self) => EventName self UIEvent-scroll = unsafeEventName (toJSString "scroll")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselect Mozilla Document.onselect documentation> -select ::-       (IsDocument self, IsEventTarget self) => EventName self UIEvent-select = unsafeEventName (toJSString "select")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsubmit Mozilla Document.onsubmit documentation> -submit ::-       (IsDocument self, IsEventTarget self) => EventName self Event-submit = unsafeEventName (toJSString "submit")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwheel Mozilla Document.onwheel documentation> -wheel ::-      (IsDocument self, IsEventTarget self) => EventName self WheelEvent-wheel = unsafeEventName (toJSString "wheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecut Mozilla Document.onbeforecut documentation> -beforeCut ::-          (IsDocument self, IsEventTarget self) => EventName self Event-beforeCut = unsafeEventName (toJSString "beforecut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncut Mozilla Document.oncut documentation> -cut ::-    (IsDocument self, IsEventTarget self) => EventName self Event-cut = unsafeEventName (toJSString "cut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecopy Mozilla Document.onbeforecopy documentation> -beforeCopy ::-           (IsDocument self, IsEventTarget self) => EventName self Event-beforeCopy = unsafeEventName (toJSString "beforecopy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncopy Mozilla Document.oncopy documentation> -copy ::-     (IsDocument self, IsEventTarget self) => EventName self Event-copy = unsafeEventName (toJSString "copy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforepaste Mozilla Document.onbeforepaste documentation> -beforePaste ::-            (IsDocument self, IsEventTarget self) => EventName self Event-beforePaste = unsafeEventName (toJSString "beforepaste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpaste Mozilla Document.onpaste documentation> -paste ::-      (IsDocument self, IsEventTarget self) => EventName self Event-paste = unsafeEventName (toJSString "paste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreset Mozilla Document.onreset documentation> -reset ::-      (IsDocument self, IsEventTarget self) => EventName self Event-reset = unsafeEventName (toJSString "reset")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsearch Mozilla Document.onsearch documentation> -search ::-       (IsDocument self, IsEventTarget self) => EventName self Event-search = unsafeEventName (toJSString "search")---- | <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")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchstart Mozilla Document.ontouchstart documentation> -touchStart ::-           (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchStart = unsafeEventName (toJSString "touchstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchmove Mozilla Document.ontouchmove documentation> -touchMove ::-          (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchMove = unsafeEventName (toJSString "touchmove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchend Mozilla Document.ontouchend documentation> -touchEnd ::-         (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchEnd = unsafeEventName (toJSString "touchend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchcancel Mozilla Document.ontouchcancel documentation> -touchCancel ::-            (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchCancel = unsafeEventName (toJSString "touchcancel")---- | <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")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsecuritypolicyviolation Mozilla Document.onsecuritypolicyviolation documentation> -securitypolicyviolation ::-                        (IsDocument self, IsEventTarget self) =>-                          EventName self onsecuritypolicyviolation-securitypolicyviolation-  = unsafeEventName (toJSString "securitypolicyviolation")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealbottom Mozilla Document.onwebkitwillrevealbottom documentation> -webKitWillRevealBottom ::-                       (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealBottom-  = unsafeEventName (toJSString "webkitwillrevealbottom")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealleft Mozilla Document.onwebkitwillrevealleft documentation> -webKitWillRevealLeft ::-                     (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealLeft-  = unsafeEventName (toJSString "webkitwillrevealleft")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealright Mozilla Document.onwebkitwillrevealright documentation> -webKitWillRevealRight ::-                      (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealRight-  = unsafeEventName (toJSString "webkitwillrevealright")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealtop Mozilla Document.onwebkitwillrevealtop documentation> -webKitWillRevealTop ::-                    (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealTop-  = unsafeEventName (toJSString "webkitwillrevealtop")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> -getVisibilityState ::-                   (MonadDOM m, IsDocument self, FromJSString result) =>-                     self -> m result-getVisibilityState self-  = liftDOM-      (((toDocument self) ^. js "visibilityState") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> -getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool-getHidden self-  = liftDOM (((toDocument self) ^. js "hidden") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> -getSecurityPolicy ::-                  (MonadDOM m, IsDocument self) => self -> m (Maybe SecurityPolicy)-getSecurityPolicy self-  = liftDOM-      (((toDocument self) ^. js "securityPolicy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScript ::-                 (MonadDOM m, IsDocument self) =>-                   self -> m (Maybe HTMLScriptElement)-getCurrentScript self-  = liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation> -getOrigin ::-          (MonadDOM m, IsDocument self, FromJSString result) =>-            self -> m result-getOrigin self-  = liftDOM-      (((toDocument self) ^. js "origin") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/DocumentFragment.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DocumentFragment-       (newDocumentFragment, querySelector, querySelectorAll,-        DocumentFragment, castToDocumentFragment, gTypeDocumentFragment)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation> -newDocumentFragment :: (MonadDOM m) => m DocumentFragment-newDocumentFragment-  = liftDOM (DocumentFragment <$> new (jsg "DocumentFragment") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> -querySelector ::-              (MonadDOM m, ToJSString selectors) =>-                DocumentFragment -> selectors -> m (Maybe Element)-querySelector self selectors-  = liftDOM-      ((self ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> -querySelectorAll ::-                 (MonadDOM m, ToJSString selectors) =>-                   DocumentFragment -> selectors -> m (Maybe NodeList)-querySelectorAll self selectors-  = liftDOM-      ((self ^. jsf "querySelectorAll" [toJSVal selectors]) >>=-         fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/DocumentType.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DocumentType-       (getName, getEntities, getNotations, getPublicId, getSystemId,-        getInternalSubset, DocumentType, castToDocumentType,-        gTypeDocumentType)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => DocumentType -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> -getEntities ::-            (MonadDOM m) => DocumentType -> m (Maybe NamedNodeMap)-getEntities self = liftDOM ((self ^. js "entities") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> -getNotations ::-             (MonadDOM m) => DocumentType -> m (Maybe NamedNodeMap)-getNotations self-  = liftDOM ((self ^. js "notations") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> -getPublicId ::-            (MonadDOM m, FromJSString result) =>-              DocumentType -> m (Maybe result)-getPublicId self-  = liftDOM ((self ^. js "publicId") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> -getSystemId ::-            (MonadDOM m, FromJSString result) =>-              DocumentType -> m (Maybe result)-getSystemId self-  = liftDOM ((self ^. js "systemId") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> -getInternalSubset ::-                  (MonadDOM m, FromJSString result) =>-                    DocumentType -> m (Maybe result)-getInternalSubset self-  = liftDOM ((self ^. js "internalSubset") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/DynamicsCompressorNode.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.DynamicsCompressorNode-       (getThreshold, getKnee, getRatio, getReduction, getAttack,-        getRelease, DynamicsCompressorNode, castToDynamicsCompressorNode,-        gTypeDynamicsCompressorNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> -getThreshold ::-             (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getThreshold self-  = liftDOM ((self ^. js "threshold") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> -getKnee ::-        (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getKnee self = liftDOM ((self ^. js "knee") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> -getRatio ::-         (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getRatio self = liftDOM ((self ^. js "ratio") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> -getReduction ::-             (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getReduction self-  = liftDOM ((self ^. js "reduction") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> -getAttack ::-          (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getAttack self = liftDOM ((self ^. js "attack") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> -getRelease ::-           (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getRelease self = liftDOM ((self ^. js "release") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/EXTBlendMinMax.hs 
@@ -1,18 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.EXTBlendMinMax-       (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax,-        castToEXTBlendMinMax, gTypeEXTBlendMinMax)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern MIN_EXT = 32775-pattern MAX_EXT = 32776
− src/Language/Javascript/JSaddle/DOM/Generated/EXTTextureFilterAnisotropic.hs 
@@ -1,20 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.EXTTextureFilterAnisotropic-       (pattern TEXTURE_MAX_ANISOTROPY_EXT,-        pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT,-        EXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic,-        gTypeEXTTextureFilterAnisotropic)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern TEXTURE_MAX_ANISOTROPY_EXT = 34046-pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047
− src/Language/Javascript/JSaddle/DOM/Generated/EXTsRGB.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.EXTsRGB-       (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT,-        pattern SRGB8_ALPHA8_EXT,-        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB,-        castToEXTsRGB, gTypeEXTsRGB)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SRGB_EXT = 35904-pattern SRGB_ALPHA_EXT = 35906-pattern SRGB8_ALPHA8_EXT = 35907-pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT = 33296
− src/Language/Javascript/JSaddle/DOM/Generated/Element.hs 
@@ -1,834 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Element-       (getAttribute, setAttribute, removeAttribute, getAttributeNode,-        setAttributeNode, removeAttributeNode, getElementsByTagName,-        hasAttributes, getAttributeNS, setAttributeNS, removeAttributeNS,-        getElementsByTagNameNS, getAttributeNodeNS, setAttributeNodeNS,-        hasAttribute, hasAttributeNS, focus, blur, scrollIntoView,-        scrollIntoViewIfNeeded, scrollByLines, scrollByPages,-        getElementsByClassName, querySelector, querySelectorAll, matches,-        closest, webkitMatchesSelector, getClientRects,-        getBoundingClientRect, webkitRequestFullScreen,-        webkitRequestFullscreen, requestPointerLock,-        webkitGetRegionFlowRanges, pattern ALLOW_KEYBOARD_INPUT,-        getTagName, getAttributes, getStyle, setId, getId, getOffsetLeft,-        getOffsetTop, getOffsetWidth, getOffsetHeight, getClientLeft,-        getClientTop, getClientWidth, getClientHeight, setScrollLeft,-        getScrollLeft, setScrollTop, getScrollTop, getScrollWidth,-        getScrollHeight, getOffsetParent, setInnerHTML, getInnerHTML,-        setOuterHTML, getOuterHTML, setClassName, getClassName,-        getClassList, getDataset, getFirstElementChild,-        getLastElementChild, getPreviousElementSibling,-        getNextElementSibling, getChildElementCount, setUiactions,-        getUiactions, getWebkitRegionOverset, abort, blurEvent, change,-        click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,-        dragOver, dragStart, drop, error, focusEvent, input, invalid,-        keyDown, keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,-        mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, scroll,-        select, submit, wheel, beforeCut, cut, beforeCopy, copy,-        beforePaste, paste, reset, search, selectStart, touchStart,-        touchMove, touchEnd, touchCancel, webKitFullscreenChange,-        webKitFullscreenError, webKitWillRevealBottom,-        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,-        Element, castToElement, gTypeElement, IsElement, toElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> -getAttribute ::-             (MonadDOM m, IsElement self, ToJSString name,-              FromJSString result) =>-               self -> name -> m (Maybe result)-getAttribute self name-  = liftDOM-      (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation> -setAttribute ::-             (MonadDOM m, IsElement self, ToJSString name, ToJSString value) =>-               self -> name -> value -> m ()-setAttribute self name value-  = liftDOM-      (void-         ((toElement self) ^. jsf "setAttribute"-            [toJSVal name, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation> -removeAttribute ::-                (MonadDOM m, IsElement self, ToJSString name) =>-                  self -> name -> m ()-removeAttribute self name-  = liftDOM-      (void ((toElement self) ^. jsf "removeAttribute" [toJSVal name]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> -getAttributeNode ::-                 (MonadDOM m, IsElement self, ToJSString name) =>-                   self -> name -> m (Maybe Attr)-getAttributeNode self name-  = liftDOM-      (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> -setAttributeNode ::-                 (MonadDOM m, IsElement self) =>-                   self -> Maybe Attr -> m (Maybe Attr)-setAttributeNode self newAttr-  = liftDOM-      (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> -removeAttributeNode ::-                    (MonadDOM m, IsElement self) =>-                      self -> Maybe Attr -> m (Maybe Attr)-removeAttributeNode self oldAttr-  = liftDOM-      (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> -getElementsByTagName ::-                     (MonadDOM m, IsElement self, ToJSString name) =>-                       self -> name -> m (Maybe NodeList)-getElementsByTagName self name-  = liftDOM-      (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> -hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool-hasAttributes self-  = liftDOM (((toElement self) ^. js "hasAttributes") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> -getAttributeNS ::-               (MonadDOM m, IsElement self, ToJSString namespaceURI,-                ToJSString localName, FromJSString result) =>-                 self -> Maybe namespaceURI -> localName -> m result-getAttributeNS self namespaceURI localName-  = liftDOM-      (((toElement self) ^. jsf "getAttributeNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation> -setAttributeNS ::-               (MonadDOM m, IsElement self, ToJSString namespaceURI,-                ToJSString qualifiedName, ToJSString value) =>-                 self -> Maybe namespaceURI -> qualifiedName -> value -> m ()-setAttributeNS self namespaceURI qualifiedName value-  = liftDOM-      (void-         ((toElement self) ^. jsf "setAttributeNS"-            [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation> -removeAttributeNS ::-                  (MonadDOM m, IsElement self, ToJSString namespaceURI,-                   ToJSString localName) =>-                    self -> Maybe namespaceURI -> localName -> m ()-removeAttributeNS self namespaceURI localName-  = liftDOM-      (void-         ((toElement self) ^. jsf "removeAttributeNS"-            [toJSVal namespaceURI, toJSVal localName]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::-                       (MonadDOM m, IsElement self, ToJSString namespaceURI,-                        ToJSString localName) =>-                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)-getElementsByTagNameNS self namespaceURI localName-  = liftDOM-      (((toElement self) ^. jsf "getElementsByTagNameNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> -getAttributeNodeNS ::-                   (MonadDOM m, IsElement self, ToJSString namespaceURI,-                    ToJSString localName) =>-                     self -> Maybe namespaceURI -> localName -> m (Maybe Attr)-getAttributeNodeNS self namespaceURI localName-  = liftDOM-      (((toElement self) ^. jsf "getAttributeNodeNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> -setAttributeNodeNS ::-                   (MonadDOM m, IsElement self) =>-                     self -> Maybe Attr -> m (Maybe Attr)-setAttributeNodeNS self newAttr-  = liftDOM-      (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> -hasAttribute ::-             (MonadDOM m, IsElement self, ToJSString name) =>-               self -> name -> m Bool-hasAttribute self name-  = liftDOM-      (((toElement self) ^. jsf "hasAttribute" [toJSVal name]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> -hasAttributeNS ::-               (MonadDOM m, IsElement self, ToJSString namespaceURI,-                ToJSString localName) =>-                 self -> Maybe namespaceURI -> localName -> m Bool-hasAttributeNS self namespaceURI localName-  = liftDOM-      (((toElement self) ^. jsf "hasAttributeNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.focus Mozilla Element.focus documentation> -focus :: (MonadDOM m, IsElement self) => self -> m ()-focus self = liftDOM (void ((toElement self) ^. js "focus"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.blur Mozilla Element.blur documentation> -blur :: (MonadDOM m, IsElement self) => self -> m ()-blur self = liftDOM (void ((toElement self) ^. js "blur"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation> -scrollIntoView ::-               (MonadDOM m, IsElement self) => self -> Bool -> m ()-scrollIntoView self alignWithTop-  = liftDOM-      (void-         ((toElement self) ^. jsf "scrollIntoView" [toJSVal alignWithTop]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation> -scrollIntoViewIfNeeded ::-                       (MonadDOM m, IsElement self) => self -> Bool -> m ()-scrollIntoViewIfNeeded self centerIfNeeded-  = liftDOM-      (void-         ((toElement self) ^. jsf "scrollIntoViewIfNeeded"-            [toJSVal centerIfNeeded]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByLines Mozilla Element.scrollByLines documentation> -scrollByLines ::-              (MonadDOM m, IsElement self) => self -> Int -> m ()-scrollByLines self lines-  = liftDOM-      (void ((toElement self) ^. jsf "scrollByLines" [toJSVal lines]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByPages Mozilla Element.scrollByPages documentation> -scrollByPages ::-              (MonadDOM m, IsElement self) => self -> Int -> m ()-scrollByPages self pages-  = liftDOM-      (void ((toElement self) ^. jsf "scrollByPages" [toJSVal pages]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> -getElementsByClassName ::-                       (MonadDOM m, IsElement self, ToJSString name) =>-                         self -> name -> m (Maybe NodeList)-getElementsByClassName self name-  = liftDOM-      (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> -querySelector ::-              (MonadDOM m, IsElement self, ToJSString selectors) =>-                self -> selectors -> m (Maybe Element)-querySelector self selectors-  = liftDOM-      (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> -querySelectorAll ::-                 (MonadDOM m, IsElement self, ToJSString selectors) =>-                   self -> selectors -> m (Maybe NodeList)-querySelectorAll self selectors-  = liftDOM-      (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> -matches ::-        (MonadDOM m, IsElement self, ToJSString selectors) =>-          self -> selectors -> m Bool-matches self selectors-  = liftDOM-      (((toElement self) ^. jsf "matches" [toJSVal selectors]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> -closest ::-        (MonadDOM m, IsElement self, ToJSString selectors) =>-          self -> selectors -> m (Maybe Element)-closest self selectors-  = liftDOM-      (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> -webkitMatchesSelector ::-                      (MonadDOM m, IsElement self, ToJSString selectors) =>-                        self -> selectors -> m Bool-webkitMatchesSelector self selectors-  = liftDOM-      (((toElement self) ^. jsf "webkitMatchesSelector"-          [toJSVal selectors])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> -getClientRects ::-               (MonadDOM m, IsElement self) => self -> m (Maybe ClientRectList)-getClientRects self-  = liftDOM (((toElement self) ^. js "getClientRects") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> -getBoundingClientRect ::-                      (MonadDOM m, IsElement self) => self -> m (Maybe ClientRect)-getBoundingClientRect self-  = liftDOM-      (((toElement self) ^. js "getBoundingClientRect") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullScreen Mozilla Element.webkitRequestFullScreen documentation> -webkitRequestFullScreen ::-                        (MonadDOM m, IsElement self) => self -> Word -> m ()-webkitRequestFullScreen self flags-  = liftDOM-      (void-         ((toElement self) ^. jsf "webkitRequestFullScreen"-            [toJSVal flags]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation> -webkitRequestFullscreen ::-                        (MonadDOM m, IsElement self) => self -> m ()-webkitRequestFullscreen self-  = liftDOM (void ((toElement self) ^. js "webkitRequestFullscreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation> -requestPointerLock :: (MonadDOM m, IsElement self) => self -> m ()-requestPointerLock self-  = liftDOM (void ((toElement self) ^. js "requestPointerLock"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> -webkitGetRegionFlowRanges ::-                          (MonadDOM m, IsElement self) => self -> m [Maybe Range]-webkitGetRegionFlowRanges self-  = liftDOM-      (((toElement self) ^. js "webkitGetRegionFlowRanges") >>=-         fromJSArray)-pattern ALLOW_KEYBOARD_INPUT = 1---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> -getTagName ::-           (MonadDOM m, IsElement self, FromJSString result) =>-             self -> m (Maybe result)-getTagName self-  = liftDOM-      (((toElement self) ^. js "tagName") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> -getAttributes ::-              (MonadDOM m, IsElement self) => self -> m (Maybe NamedNodeMap)-getAttributes self-  = liftDOM (((toElement self) ^. js "attributes") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> -getStyle ::-         (MonadDOM m, IsElement self) =>-           self -> m (Maybe CSSStyleDeclaration)-getStyle self-  = liftDOM (((toElement self) ^. js "style") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> -setId ::-      (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()-setId self val-  = liftDOM ((toElement self) ^. jss "id" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation> -getId ::-      (MonadDOM m, IsElement self, FromJSString result) =>-        self -> m result-getId self-  = liftDOM (((toElement self) ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetLeft Mozilla Element.offsetLeft documentation> -getOffsetLeft :: (MonadDOM m, IsElement self) => self -> m Double-getOffsetLeft self-  = liftDOM (((toElement self) ^. js "offsetLeft") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetTop Mozilla Element.offsetTop documentation> -getOffsetTop :: (MonadDOM m, IsElement self) => self -> m Double-getOffsetTop self-  = liftDOM (((toElement self) ^. js "offsetTop") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetWidth Mozilla Element.offsetWidth documentation> -getOffsetWidth :: (MonadDOM m, IsElement self) => self -> m Double-getOffsetWidth self-  = liftDOM (((toElement self) ^. js "offsetWidth") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetHeight Mozilla Element.offsetHeight documentation> -getOffsetHeight :: (MonadDOM m, IsElement self) => self -> m Double-getOffsetHeight self-  = liftDOM (((toElement self) ^. js "offsetHeight") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation> -getClientLeft :: (MonadDOM m, IsElement self) => self -> m Double-getClientLeft self-  = liftDOM (((toElement self) ^. js "clientLeft") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation> -getClientTop :: (MonadDOM m, IsElement self) => self -> m Double-getClientTop self-  = liftDOM (((toElement self) ^. js "clientTop") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation> -getClientWidth :: (MonadDOM m, IsElement self) => self -> m Double-getClientWidth self-  = liftDOM (((toElement self) ^. js "clientWidth") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation> -getClientHeight :: (MonadDOM m, IsElement self) => self -> m Double-getClientHeight self-  = liftDOM (((toElement self) ^. js "clientHeight") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> -setScrollLeft ::-              (MonadDOM m, IsElement self) => self -> Int -> m ()-setScrollLeft self val-  = liftDOM ((toElement self) ^. jss "scrollLeft" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation> -getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Int-getScrollLeft self-  = liftDOM-      (round <$> (((toElement self) ^. js "scrollLeft") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> -setScrollTop :: (MonadDOM m, IsElement self) => self -> Int -> m ()-setScrollTop self val-  = liftDOM ((toElement self) ^. jss "scrollTop" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation> -getScrollTop :: (MonadDOM m, IsElement self) => self -> m Int-getScrollTop self-  = liftDOM-      (round <$> (((toElement self) ^. js "scrollTop") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation> -getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int-getScrollWidth self-  = liftDOM-      (round <$>-         (((toElement self) ^. js "scrollWidth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation> -getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int-getScrollHeight self-  = liftDOM-      (round <$>-         (((toElement self) ^. js "scrollHeight") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> -getOffsetParent ::-                (MonadDOM m, IsElement self) => self -> m (Maybe Element)-getOffsetParent self-  = liftDOM (((toElement self) ^. js "offsetParent") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -setInnerHTML ::-             (MonadDOM m, IsElement self, ToJSString val) =>-               self -> Maybe val -> m ()-setInnerHTML self val-  = liftDOM ((toElement self) ^. jss "innerHTML" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> -getInnerHTML ::-             (MonadDOM m, IsElement self, FromJSString result) =>-               self -> m (Maybe result)-getInnerHTML self-  = liftDOM-      (((toElement self) ^. js "innerHTML") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -setOuterHTML ::-             (MonadDOM m, IsElement self, ToJSString val) =>-               self -> Maybe val -> m ()-setOuterHTML self val-  = liftDOM ((toElement self) ^. jss "outerHTML" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> -getOuterHTML ::-             (MonadDOM m, IsElement self, FromJSString result) =>-               self -> m (Maybe result)-getOuterHTML self-  = liftDOM-      (((toElement self) ^. js "outerHTML") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> -setClassName ::-             (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()-setClassName self val-  = liftDOM ((toElement self) ^. jss "className" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation> -getClassName ::-             (MonadDOM m, IsElement self, FromJSString result) =>-               self -> m result-getClassName self-  = liftDOM-      (((toElement self) ^. js "className") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> -getClassList ::-             (MonadDOM m, IsElement self) => self -> m (Maybe DOMTokenList)-getClassList self-  = liftDOM (((toElement self) ^. js "classList") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> -getDataset ::-           (MonadDOM m, IsElement self) => self -> m (Maybe DOMStringMap)-getDataset self-  = liftDOM (((toElement self) ^. js "dataset") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> -getFirstElementChild ::-                     (MonadDOM m, IsElement self) => self -> m (Maybe Element)-getFirstElementChild self-  = liftDOM-      (((toElement self) ^. js "firstElementChild") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> -getLastElementChild ::-                    (MonadDOM m, IsElement self) => self -> m (Maybe Element)-getLastElementChild self-  = liftDOM-      (((toElement self) ^. js "lastElementChild") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> -getPreviousElementSibling ::-                          (MonadDOM m, IsElement self) => self -> m (Maybe Element)-getPreviousElementSibling self-  = liftDOM-      (((toElement self) ^. js "previousElementSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> -getNextElementSibling ::-                      (MonadDOM m, IsElement self) => self -> m (Maybe Element)-getNextElementSibling self-  = liftDOM-      (((toElement self) ^. js "nextElementSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.childElementCount Mozilla Element.childElementCount documentation> -getChildElementCount ::-                     (MonadDOM m, IsElement self) => self -> m Word-getChildElementCount self-  = liftDOM-      (round <$>-         (((toElement self) ^. js "childElementCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation> -setUiactions ::-             (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m ()-setUiactions self val-  = liftDOM ((toElement self) ^. jss "uiactions" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation> -getUiactions ::-             (MonadDOM m, IsElement self, FromJSString result) =>-               self -> m result-getUiactions self-  = liftDOM-      (((toElement self) ^. js "uiactions") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation> -getWebkitRegionOverset ::-                       (MonadDOM m, IsElement self, FromJSString result) =>-                         self -> m result-getWebkitRegionOverset self-  = liftDOM-      (((toElement self) ^. js "webkitRegionOverset") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onabort Mozilla Element.onabort documentation> -abort ::-      (IsElement self, IsEventTarget self) => EventName self UIEvent-abort = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onblur Mozilla Element.onblur documentation> -blurEvent ::-          (IsElement self, IsEventTarget self) => EventName self FocusEvent-blurEvent = unsafeEventName (toJSString "blur")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onchange Mozilla Element.onchange documentation> -change ::-       (IsElement self, IsEventTarget self) => EventName self Event-change = unsafeEventName (toJSString "change")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onclick Mozilla Element.onclick documentation> -click ::-      (IsElement self, IsEventTarget self) => EventName self MouseEvent-click = unsafeEventName (toJSString "click")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncontextmenu Mozilla Element.oncontextmenu documentation> -contextMenu ::-            (IsElement self, IsEventTarget self) => EventName self MouseEvent-contextMenu = unsafeEventName (toJSString "contextmenu")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondblclick Mozilla Element.ondblclick documentation> -dblClick ::-         (IsElement self, IsEventTarget self) => EventName self MouseEvent-dblClick = unsafeEventName (toJSString "dblclick")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondrag Mozilla Element.ondrag documentation> -drag ::-     (IsElement self, IsEventTarget self) => EventName self MouseEvent-drag = unsafeEventName (toJSString "drag")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragend Mozilla Element.ondragend documentation> -dragEnd ::-        (IsElement self, IsEventTarget self) => EventName self MouseEvent-dragEnd = unsafeEventName (toJSString "dragend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragenter Mozilla Element.ondragenter documentation> -dragEnter ::-          (IsElement self, IsEventTarget self) => EventName self MouseEvent-dragEnter = unsafeEventName (toJSString "dragenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragleave Mozilla Element.ondragleave documentation> -dragLeave ::-          (IsElement self, IsEventTarget self) => EventName self MouseEvent-dragLeave = unsafeEventName (toJSString "dragleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragover Mozilla Element.ondragover documentation> -dragOver ::-         (IsElement self, IsEventTarget self) => EventName self MouseEvent-dragOver = unsafeEventName (toJSString "dragover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondragstart Mozilla Element.ondragstart documentation> -dragStart ::-          (IsElement self, IsEventTarget self) => EventName self MouseEvent-dragStart = unsafeEventName (toJSString "dragstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ondrop Mozilla Element.ondrop documentation> -drop ::-     (IsElement self, IsEventTarget self) => EventName self MouseEvent-drop = unsafeEventName (toJSString "drop")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onerror Mozilla Element.onerror documentation> -error ::-      (IsElement self, IsEventTarget self) => EventName self UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onfocus Mozilla Element.onfocus documentation> -focusEvent ::-           (IsElement self, IsEventTarget self) => EventName self FocusEvent-focusEvent = unsafeEventName (toJSString "focus")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oninput Mozilla Element.oninput documentation> -input ::-      (IsElement self, IsEventTarget self) => EventName self Event-input = unsafeEventName (toJSString "input")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oninvalid Mozilla Element.oninvalid documentation> -invalid ::-        (IsElement self, IsEventTarget self) => EventName self Event-invalid = unsafeEventName (toJSString "invalid")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onkeydown Mozilla Element.onkeydown documentation> -keyDown ::-        (IsElement self, IsEventTarget self) =>-          EventName self KeyboardEvent-keyDown = unsafeEventName (toJSString "keydown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onkeypress Mozilla Element.onkeypress documentation> -keyPress ::-         (IsElement self, IsEventTarget self) =>-           EventName self KeyboardEvent-keyPress = unsafeEventName (toJSString "keypress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onkeyup Mozilla Element.onkeyup documentation> -keyUp ::-      (IsElement self, IsEventTarget self) =>-        EventName self KeyboardEvent-keyUp = unsafeEventName (toJSString "keyup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onload Mozilla Element.onload documentation> -load ::-     (IsElement self, IsEventTarget self) => EventName self UIEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmousedown Mozilla Element.onmousedown documentation> -mouseDown ::-          (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseDown = unsafeEventName (toJSString "mousedown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseenter Mozilla Element.onmouseenter documentation> -mouseEnter ::-           (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseEnter = unsafeEventName (toJSString "mouseenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseleave Mozilla Element.onmouseleave documentation> -mouseLeave ::-           (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseLeave = unsafeEventName (toJSString "mouseleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmousemove Mozilla Element.onmousemove documentation> -mouseMove ::-          (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseMove = unsafeEventName (toJSString "mousemove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseout Mozilla Element.onmouseout documentation> -mouseOut ::-         (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseOut = unsafeEventName (toJSString "mouseout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseover Mozilla Element.onmouseover documentation> -mouseOver ::-          (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseOver = unsafeEventName (toJSString "mouseover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmouseup Mozilla Element.onmouseup documentation> -mouseUp ::-        (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseUp = unsafeEventName (toJSString "mouseup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onmousewheel Mozilla Element.onmousewheel documentation> -mouseWheel ::-           (IsElement self, IsEventTarget self) => EventName self MouseEvent-mouseWheel = unsafeEventName (toJSString "mousewheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onscroll Mozilla Element.onscroll documentation> -scroll ::-       (IsElement self, IsEventTarget self) => EventName self UIEvent-scroll = unsafeEventName (toJSString "scroll")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onselect Mozilla Element.onselect documentation> -select ::-       (IsElement self, IsEventTarget self) => EventName self UIEvent-select = unsafeEventName (toJSString "select")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onsubmit Mozilla Element.onsubmit documentation> -submit ::-       (IsElement self, IsEventTarget self) => EventName self Event-submit = unsafeEventName (toJSString "submit")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwheel Mozilla Element.onwheel documentation> -wheel ::-      (IsElement self, IsEventTarget self) => EventName self WheelEvent-wheel = unsafeEventName (toJSString "wheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforecut Mozilla Element.onbeforecut documentation> -beforeCut ::-          (IsElement self, IsEventTarget self) => EventName self Event-beforeCut = unsafeEventName (toJSString "beforecut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncut Mozilla Element.oncut documentation> -cut :: (IsElement self, IsEventTarget self) => EventName self Event-cut = unsafeEventName (toJSString "cut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforecopy Mozilla Element.onbeforecopy documentation> -beforeCopy ::-           (IsElement self, IsEventTarget self) => EventName self Event-beforeCopy = unsafeEventName (toJSString "beforecopy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.oncopy Mozilla Element.oncopy documentation> -copy ::-     (IsElement self, IsEventTarget self) => EventName self Event-copy = unsafeEventName (toJSString "copy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onbeforepaste Mozilla Element.onbeforepaste documentation> -beforePaste ::-            (IsElement self, IsEventTarget self) => EventName self Event-beforePaste = unsafeEventName (toJSString "beforepaste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onpaste Mozilla Element.onpaste documentation> -paste ::-      (IsElement self, IsEventTarget self) => EventName self Event-paste = unsafeEventName (toJSString "paste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onreset Mozilla Element.onreset documentation> -reset ::-      (IsElement self, IsEventTarget self) => EventName self Event-reset = unsafeEventName (toJSString "reset")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onsearch Mozilla Element.onsearch documentation> -search ::-       (IsElement self, IsEventTarget self) => EventName self Event-search = unsafeEventName (toJSString "search")---- | <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.ontouchstart Mozilla Element.ontouchstart documentation> -touchStart ::-           (IsElement self, IsEventTarget self) => EventName self TouchEvent-touchStart = unsafeEventName (toJSString "touchstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontouchmove Mozilla Element.ontouchmove documentation> -touchMove ::-          (IsElement self, IsEventTarget self) => EventName self TouchEvent-touchMove = unsafeEventName (toJSString "touchmove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontouchend Mozilla Element.ontouchend documentation> -touchEnd ::-         (IsElement self, IsEventTarget self) => EventName self TouchEvent-touchEnd = unsafeEventName (toJSString "touchend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.ontouchcancel Mozilla Element.ontouchcancel documentation> -touchCancel ::-            (IsElement self, IsEventTarget self) => EventName self TouchEvent-touchCancel = unsafeEventName (toJSString "touchcancel")---- | <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.onwebkitwillrevealbottom Mozilla Element.onwebkitwillrevealbottom documentation> -webKitWillRevealBottom ::-                       (IsElement self, IsEventTarget self) => EventName self Event-webKitWillRevealBottom-  = unsafeEventName (toJSString "webkitwillrevealbottom")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitwillrevealleft Mozilla Element.onwebkitwillrevealleft documentation> -webKitWillRevealLeft ::-                     (IsElement self, IsEventTarget self) => EventName self Event-webKitWillRevealLeft-  = unsafeEventName (toJSString "webkitwillrevealleft")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitwillrevealright Mozilla Element.onwebkitwillrevealright documentation> -webKitWillRevealRight ::-                      (IsElement self, IsEventTarget self) => EventName self Event-webKitWillRevealRight-  = unsafeEventName (toJSString "webkitwillrevealright")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onwebkitwillrevealtop Mozilla Element.onwebkitwillrevealtop documentation> -webKitWillRevealTop ::-                    (IsElement self, IsEventTarget self) => EventName self Event-webKitWillRevealTop-  = unsafeEventName (toJSString "webkitwillrevealtop")
− src/Language/Javascript/JSaddle/DOM/Generated/Entity.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Entity-       (getPublicId, getSystemId, getNotationName, Entity, castToEntity,-        gTypeEntity)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> -getPublicId ::-            (MonadDOM m, FromJSString result) => Entity -> m (Maybe result)-getPublicId self-  = liftDOM ((self ^. js "publicId") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> -getSystemId ::-            (MonadDOM m, FromJSString result) => Entity -> m (Maybe result)-getSystemId self-  = liftDOM ((self ^. js "systemId") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> -getNotationName ::-                (MonadDOM m, FromJSString result) => Entity -> m (Maybe result)-getNotationName self-  = liftDOM ((self ^. js "notationName") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/Enums.hs 
@@ -1,792 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-{-# LANGUAGE DeriveDataTypeable #-}-module Language.Javascript.JSaddle.DOM.Generated.Enums-       (KeyType(..), ToJSVal, FromJSVal, js_KeyTypeSecret,-        js_KeyTypePublic, js_KeyTypePrivate, KeyUsage(..),-        js_KeyUsageEncrypt, js_KeyUsageDecrypt, js_KeyUsageSign,-        js_KeyUsageVerify, js_KeyUsageDeriveKey, js_KeyUsageDeriveBits,-        js_KeyUsageWrapKey, js_KeyUsageUnwrapKey, CanvasWindingRule(..),-        js_CanvasWindingRuleNonzero, js_CanvasWindingRuleEvenodd,-        VideoPresentationMode(..), js_VideoPresentationModeFullscreen,-        js_VideoPresentationModeOptimized, js_VideoPresentationModeInline,-        TextTrackMode(..), js_TextTrackModeDisabled,-        js_TextTrackModeHidden, js_TextTrackModeShowing, TextTrackKind(..),-        js_TextTrackKindSubtitles, js_TextTrackKindCaptions,-        js_TextTrackKindDescriptions, js_TextTrackKindChapters,-        js_TextTrackKindMetadata, DeviceType(..), js_DeviceTypeNone,-        js_DeviceTypeAirplay, js_DeviceTypeTvout, MediaUIPartID(..),-        js_MediaUIPartIDOptimizedFullscreenButton,-        js_MediaUIPartIDOptimizedFullscreenPlaceholder,-        EndOfStreamError(..), js_EndOfStreamErrorNetwork,-        js_EndOfStreamErrorDecode, AppendMode(..), js_AppendModeSegments,-        js_AppendModeSequence, SourceTypeEnum(..), js_SourceTypeEnumNone,-        js_SourceTypeEnumCamera, js_SourceTypeEnumMicrophone,-        VideoFacingModeEnum(..), js_VideoFacingModeEnumUser,-        js_VideoFacingModeEnumEnvironment, js_VideoFacingModeEnumLeft,-        js_VideoFacingModeEnumRight, MediaStreamTrackState(..),-        js_MediaStreamTrackStateNew, js_MediaStreamTrackStateLive,-        js_MediaStreamTrackStateEnded, RTCIceTransportsEnum(..),-        js_RTCIceTransportsEnumNone, js_RTCIceTransportsEnumRelay,-        js_RTCIceTransportsEnumAll, RTCIdentityOptionEnum(..),-        js_RTCIdentityOptionEnumYes, js_RTCIdentityOptionEnumNo,-        js_RTCIdentityOptionEnumIfconfigured, ReadableStreamStateType(..),-        js_ReadableStreamStateTypeReadable,-        js_ReadableStreamStateTypeWaiting,-        js_ReadableStreamStateTypeClosed,-        js_ReadableStreamStateTypeErrored, OverSampleType(..),-        js_OverSampleTypeNone, js_OverSampleType2x, js_OverSampleType4x,-        PageOverlayType(..), js_PageOverlayTypeView,-        js_PageOverlayTypeDocument, XMLHttpRequestResponseType(..),-        js_XMLHttpRequestResponseType,-        js_XMLHttpRequestResponseTypeArraybuffer,-        js_XMLHttpRequestResponseTypeBlob,-        js_XMLHttpRequestResponseTypeDocument,-        js_XMLHttpRequestResponseTypeJson,-        js_XMLHttpRequestResponseTypeText)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))- -data KeyType = KeyTypeSecret-             | KeyTypePublic-             | KeyTypePrivate-             deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal KeyType where-        toJSVal KeyTypeSecret = toJSVal js_KeyTypeSecret-        toJSVal KeyTypePublic = toJSVal js_KeyTypePublic-        toJSVal KeyTypePrivate = toJSVal js_KeyTypePrivate- -instance FromJSVal KeyType where-        fromJSVal x-          = x `strictEqual` js_KeyTypeSecret >>=-              \ r ->-                case r of-                    True -> return (Just KeyTypeSecret)-                    False-                      -> x `strictEqual` js_KeyTypePublic >>=-                           \ r ->-                             case r of-                                 True -> return (Just KeyTypePublic)-                                 False-                                   -> x `strictEqual` js_KeyTypePrivate >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just KeyTypePrivate)-                                              False -> return Nothing-js_KeyTypeSecret = "secret"-js_KeyTypePublic = "public"-js_KeyTypePrivate = "private"- -data KeyUsage = KeyUsageEncrypt-              | KeyUsageDecrypt-              | KeyUsageSign-              | KeyUsageVerify-              | KeyUsageDeriveKey-              | KeyUsageDeriveBits-              | KeyUsageWrapKey-              | KeyUsageUnwrapKey-              deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal KeyUsage where-        toJSVal KeyUsageEncrypt = toJSVal js_KeyUsageEncrypt-        toJSVal KeyUsageDecrypt = toJSVal js_KeyUsageDecrypt-        toJSVal KeyUsageSign = toJSVal js_KeyUsageSign-        toJSVal KeyUsageVerify = toJSVal js_KeyUsageVerify-        toJSVal KeyUsageDeriveKey = toJSVal js_KeyUsageDeriveKey-        toJSVal KeyUsageDeriveBits = toJSVal js_KeyUsageDeriveBits-        toJSVal KeyUsageWrapKey = toJSVal js_KeyUsageWrapKey-        toJSVal KeyUsageUnwrapKey = toJSVal js_KeyUsageUnwrapKey- -instance FromJSVal KeyUsage where-        fromJSVal x-          = x `strictEqual` js_KeyUsageEncrypt >>=-              \ r ->-                case r of-                    True -> return (Just KeyUsageEncrypt)-                    False-                      -> x `strictEqual` js_KeyUsageDecrypt >>=-                           \ r ->-                             case r of-                                 True -> return (Just KeyUsageDecrypt)-                                 False-                                   -> x `strictEqual` js_KeyUsageSign >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just KeyUsageSign)-                                              False-                                                -> x `strictEqual` js_KeyUsageVerify >>=-                                                     \ r ->-                                                       case r of-                                                           True -> return (Just KeyUsageVerify)-                                                           False-                                                             -> x `strictEqual` js_KeyUsageDeriveKey-                                                                  >>=-                                                                  \ r ->-                                                                    case r of-                                                                        True-                                                                          -> return-                                                                               (Just-                                                                                  KeyUsageDeriveKey)-                                                                        False-                                                                          -> x `strictEqual`-                                                                               js_KeyUsageDeriveBits-                                                                               >>=-                                                                               \ r ->-                                                                                 case r of-                                                                                     True-                                                                                       -> return-                                                                                            (Just-                                                                                               KeyUsageDeriveBits)-                                                                                     False-                                                                                       -> x `strictEqual`-                                                                                            js_KeyUsageWrapKey-                                                                                            >>=-                                                                                            \ r ->-                                                                                              case r-                                                                                                of-                                                                                                  True-                                                                                                    -> return-                                                                                                         (Just-                                                                                                            KeyUsageWrapKey)-                                                                                                  False-                                                                                                    -> x `strictEqual`-                                                                                                         js_KeyUsageUnwrapKey-                                                                                                         >>=-                                                                                                         \ r-                                                                                                           ->-                                                                                                           case-                                                                                                             r-                                                                                                             of-                                                                                                               True-                                                                                                                 -> return-                                                                                                                      (Just-                                                                                                                         KeyUsageUnwrapKey)-                                                                                                               False-                                                                                                                 -> return-                                                                                                                      Nothing-js_KeyUsageEncrypt = "encrypt"-js_KeyUsageDecrypt = "decrypt"-js_KeyUsageSign = "sign"-js_KeyUsageVerify = "verify"-js_KeyUsageDeriveKey = "deriveKey"-js_KeyUsageDeriveBits = "deriveBits"-js_KeyUsageWrapKey = "wrapKey"-js_KeyUsageUnwrapKey = "unwrapKey"- -data CanvasWindingRule = CanvasWindingRuleNonzero-                       | CanvasWindingRuleEvenodd-                       deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal CanvasWindingRule where-        toJSVal CanvasWindingRuleNonzero-          = toJSVal js_CanvasWindingRuleNonzero-        toJSVal CanvasWindingRuleEvenodd-          = toJSVal js_CanvasWindingRuleEvenodd- -instance FromJSVal CanvasWindingRule where-        fromJSVal x-          = x `strictEqual` js_CanvasWindingRuleNonzero >>=-              \ r ->-                case r of-                    True -> return (Just CanvasWindingRuleNonzero)-                    False-                      -> x `strictEqual` js_CanvasWindingRuleEvenodd >>=-                           \ r ->-                             case r of-                                 True -> return (Just CanvasWindingRuleEvenodd)-                                 False -> return Nothing-js_CanvasWindingRuleNonzero = "nonzero"-js_CanvasWindingRuleEvenodd = "evenodd"- -data VideoPresentationMode = VideoPresentationModeFullscreen-                           | VideoPresentationModeOptimized-                           | VideoPresentationModeInline-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal VideoPresentationMode where-        toJSVal VideoPresentationModeFullscreen-          = toJSVal js_VideoPresentationModeFullscreen-        toJSVal VideoPresentationModeOptimized-          = toJSVal js_VideoPresentationModeOptimized-        toJSVal VideoPresentationModeInline-          = toJSVal js_VideoPresentationModeInline- -instance FromJSVal VideoPresentationMode where-        fromJSVal x-          = x `strictEqual` js_VideoPresentationModeFullscreen >>=-              \ r ->-                case r of-                    True -> return (Just VideoPresentationModeFullscreen)-                    False-                      -> x `strictEqual` js_VideoPresentationModeOptimized >>=-                           \ r ->-                             case r of-                                 True -> return (Just VideoPresentationModeOptimized)-                                 False-                                   -> x `strictEqual` js_VideoPresentationModeInline >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just VideoPresentationModeInline)-                                              False -> return Nothing-js_VideoPresentationModeFullscreen = "fullscreen"-js_VideoPresentationModeOptimized = "optimized"-js_VideoPresentationModeInline = "inline"- -data TextTrackMode = TextTrackModeDisabled-                   | TextTrackModeHidden-                   | TextTrackModeShowing-                   deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal TextTrackMode where-        toJSVal TextTrackModeDisabled = toJSVal js_TextTrackModeDisabled-        toJSVal TextTrackModeHidden = toJSVal js_TextTrackModeHidden-        toJSVal TextTrackModeShowing = toJSVal js_TextTrackModeShowing- -instance FromJSVal TextTrackMode where-        fromJSVal x-          = x `strictEqual` js_TextTrackModeDisabled >>=-              \ r ->-                case r of-                    True -> return (Just TextTrackModeDisabled)-                    False-                      -> x `strictEqual` js_TextTrackModeHidden >>=-                           \ r ->-                             case r of-                                 True -> return (Just TextTrackModeHidden)-                                 False-                                   -> x `strictEqual` js_TextTrackModeShowing >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just TextTrackModeShowing)-                                              False -> return Nothing-js_TextTrackModeDisabled = "disabled"-js_TextTrackModeHidden = "hidden"-js_TextTrackModeShowing = "showing"- -data TextTrackKind = TextTrackKindSubtitles-                   | TextTrackKindCaptions-                   | TextTrackKindDescriptions-                   | TextTrackKindChapters-                   | TextTrackKindMetadata-                   deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal TextTrackKind where-        toJSVal TextTrackKindSubtitles = toJSVal js_TextTrackKindSubtitles-        toJSVal TextTrackKindCaptions = toJSVal js_TextTrackKindCaptions-        toJSVal TextTrackKindDescriptions-          = toJSVal js_TextTrackKindDescriptions-        toJSVal TextTrackKindChapters = toJSVal js_TextTrackKindChapters-        toJSVal TextTrackKindMetadata = toJSVal js_TextTrackKindMetadata- -instance FromJSVal TextTrackKind where-        fromJSVal x-          = x `strictEqual` js_TextTrackKindSubtitles >>=-              \ r ->-                case r of-                    True -> return (Just TextTrackKindSubtitles)-                    False-                      -> x `strictEqual` js_TextTrackKindCaptions >>=-                           \ r ->-                             case r of-                                 True -> return (Just TextTrackKindCaptions)-                                 False-                                   -> x `strictEqual` js_TextTrackKindDescriptions >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just TextTrackKindDescriptions)-                                              False-                                                -> x `strictEqual` js_TextTrackKindChapters >>=-                                                     \ r ->-                                                       case r of-                                                           True-                                                             -> return (Just TextTrackKindChapters)-                                                           False-                                                             -> x `strictEqual`-                                                                  js_TextTrackKindMetadata-                                                                  >>=-                                                                  \ r ->-                                                                    case r of-                                                                        True-                                                                          -> return-                                                                               (Just-                                                                                  TextTrackKindMetadata)-                                                                        False -> return Nothing-js_TextTrackKindSubtitles = "subtitles"-js_TextTrackKindCaptions = "captions"-js_TextTrackKindDescriptions = "descriptions"-js_TextTrackKindChapters = "chapters"-js_TextTrackKindMetadata = "metadata"- -data DeviceType = DeviceTypeNone-                | DeviceTypeAirplay-                | DeviceTypeTvout-                deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal DeviceType where-        toJSVal DeviceTypeNone = toJSVal js_DeviceTypeNone-        toJSVal DeviceTypeAirplay = toJSVal js_DeviceTypeAirplay-        toJSVal DeviceTypeTvout = toJSVal js_DeviceTypeTvout- -instance FromJSVal DeviceType where-        fromJSVal x-          = x `strictEqual` js_DeviceTypeNone >>=-              \ r ->-                case r of-                    True -> return (Just DeviceTypeNone)-                    False-                      -> x `strictEqual` js_DeviceTypeAirplay >>=-                           \ r ->-                             case r of-                                 True -> return (Just DeviceTypeAirplay)-                                 False-                                   -> x `strictEqual` js_DeviceTypeTvout >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just DeviceTypeTvout)-                                              False -> return Nothing-js_DeviceTypeNone = "none"-js_DeviceTypeAirplay = "airplay"-js_DeviceTypeTvout = "tvout"- -data MediaUIPartID = MediaUIPartIDOptimizedFullscreenButton-                   | MediaUIPartIDOptimizedFullscreenPlaceholder-                   deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal MediaUIPartID where-        toJSVal MediaUIPartIDOptimizedFullscreenButton-          = toJSVal js_MediaUIPartIDOptimizedFullscreenButton-        toJSVal MediaUIPartIDOptimizedFullscreenPlaceholder-          = toJSVal js_MediaUIPartIDOptimizedFullscreenPlaceholder- -instance FromJSVal MediaUIPartID where-        fromJSVal x-          = x `strictEqual` js_MediaUIPartIDOptimizedFullscreenButton >>=-              \ r ->-                case r of-                    True -> return (Just MediaUIPartIDOptimizedFullscreenButton)-                    False-                      -> x `strictEqual` js_MediaUIPartIDOptimizedFullscreenPlaceholder-                           >>=-                           \ r ->-                             case r of-                                 True -> return (Just MediaUIPartIDOptimizedFullscreenPlaceholder)-                                 False -> return Nothing-js_MediaUIPartIDOptimizedFullscreenButton-  = "optimized-fullscreen-button"-js_MediaUIPartIDOptimizedFullscreenPlaceholder-  = "optimized-fullscreen-placeholder"- -data EndOfStreamError = EndOfStreamErrorNetwork-                      | EndOfStreamErrorDecode-                      deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal EndOfStreamError where-        toJSVal EndOfStreamErrorNetwork-          = toJSVal js_EndOfStreamErrorNetwork-        toJSVal EndOfStreamErrorDecode = toJSVal js_EndOfStreamErrorDecode- -instance FromJSVal EndOfStreamError where-        fromJSVal x-          = x `strictEqual` js_EndOfStreamErrorNetwork >>=-              \ r ->-                case r of-                    True -> return (Just EndOfStreamErrorNetwork)-                    False-                      -> x `strictEqual` js_EndOfStreamErrorDecode >>=-                           \ r ->-                             case r of-                                 True -> return (Just EndOfStreamErrorDecode)-                                 False -> return Nothing-js_EndOfStreamErrorNetwork = "network"-js_EndOfStreamErrorDecode = "decode"- -data AppendMode = AppendModeSegments-                | AppendModeSequence-                deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal AppendMode where-        toJSVal AppendModeSegments = toJSVal js_AppendModeSegments-        toJSVal AppendModeSequence = toJSVal js_AppendModeSequence- -instance FromJSVal AppendMode where-        fromJSVal x-          = x `strictEqual` js_AppendModeSegments >>=-              \ r ->-                case r of-                    True -> return (Just AppendModeSegments)-                    False-                      -> x `strictEqual` js_AppendModeSequence >>=-                           \ r ->-                             case r of-                                 True -> return (Just AppendModeSequence)-                                 False -> return Nothing-js_AppendModeSegments = "segments"-js_AppendModeSequence = "sequence"- -data SourceTypeEnum = SourceTypeEnumNone-                    | SourceTypeEnumCamera-                    | SourceTypeEnumMicrophone-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal SourceTypeEnum where-        toJSVal SourceTypeEnumNone = toJSVal js_SourceTypeEnumNone-        toJSVal SourceTypeEnumCamera = toJSVal js_SourceTypeEnumCamera-        toJSVal SourceTypeEnumMicrophone-          = toJSVal js_SourceTypeEnumMicrophone- -instance FromJSVal SourceTypeEnum where-        fromJSVal x-          = x `strictEqual` js_SourceTypeEnumNone >>=-              \ r ->-                case r of-                    True -> return (Just SourceTypeEnumNone)-                    False-                      -> x `strictEqual` js_SourceTypeEnumCamera >>=-                           \ r ->-                             case r of-                                 True -> return (Just SourceTypeEnumCamera)-                                 False-                                   -> x `strictEqual` js_SourceTypeEnumMicrophone >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just SourceTypeEnumMicrophone)-                                              False -> return Nothing-js_SourceTypeEnumNone = "none"-js_SourceTypeEnumCamera = "camera"-js_SourceTypeEnumMicrophone = "microphone"- -data VideoFacingModeEnum = VideoFacingModeEnumUser-                         | VideoFacingModeEnumEnvironment-                         | VideoFacingModeEnumLeft-                         | VideoFacingModeEnumRight-                         deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal VideoFacingModeEnum where-        toJSVal VideoFacingModeEnumUser-          = toJSVal js_VideoFacingModeEnumUser-        toJSVal VideoFacingModeEnumEnvironment-          = toJSVal js_VideoFacingModeEnumEnvironment-        toJSVal VideoFacingModeEnumLeft-          = toJSVal js_VideoFacingModeEnumLeft-        toJSVal VideoFacingModeEnumRight-          = toJSVal js_VideoFacingModeEnumRight- -instance FromJSVal VideoFacingModeEnum where-        fromJSVal x-          = x `strictEqual` js_VideoFacingModeEnumUser >>=-              \ r ->-                case r of-                    True -> return (Just VideoFacingModeEnumUser)-                    False-                      -> x `strictEqual` js_VideoFacingModeEnumEnvironment >>=-                           \ r ->-                             case r of-                                 True -> return (Just VideoFacingModeEnumEnvironment)-                                 False-                                   -> x `strictEqual` js_VideoFacingModeEnumLeft >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just VideoFacingModeEnumLeft)-                                              False-                                                -> x `strictEqual` js_VideoFacingModeEnumRight >>=-                                                     \ r ->-                                                       case r of-                                                           True-                                                             -> return-                                                                  (Just VideoFacingModeEnumRight)-                                                           False -> return Nothing-js_VideoFacingModeEnumUser = "user"-js_VideoFacingModeEnumEnvironment = "environment"-js_VideoFacingModeEnumLeft = "left"-js_VideoFacingModeEnumRight = "right"- -data MediaStreamTrackState = MediaStreamTrackStateNew-                           | MediaStreamTrackStateLive-                           | MediaStreamTrackStateEnded-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal MediaStreamTrackState where-        toJSVal MediaStreamTrackStateNew-          = toJSVal js_MediaStreamTrackStateNew-        toJSVal MediaStreamTrackStateLive-          = toJSVal js_MediaStreamTrackStateLive-        toJSVal MediaStreamTrackStateEnded-          = toJSVal js_MediaStreamTrackStateEnded- -instance FromJSVal MediaStreamTrackState where-        fromJSVal x-          = x `strictEqual` js_MediaStreamTrackStateNew >>=-              \ r ->-                case r of-                    True -> return (Just MediaStreamTrackStateNew)-                    False-                      -> x `strictEqual` js_MediaStreamTrackStateLive >>=-                           \ r ->-                             case r of-                                 True -> return (Just MediaStreamTrackStateLive)-                                 False-                                   -> x `strictEqual` js_MediaStreamTrackStateEnded >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just MediaStreamTrackStateEnded)-                                              False -> return Nothing-js_MediaStreamTrackStateNew = "new"-js_MediaStreamTrackStateLive = "live"-js_MediaStreamTrackStateEnded = "ended"- -data RTCIceTransportsEnum = RTCIceTransportsEnumNone-                          | RTCIceTransportsEnumRelay-                          | RTCIceTransportsEnumAll-                          deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal RTCIceTransportsEnum where-        toJSVal RTCIceTransportsEnumNone-          = toJSVal js_RTCIceTransportsEnumNone-        toJSVal RTCIceTransportsEnumRelay-          = toJSVal js_RTCIceTransportsEnumRelay-        toJSVal RTCIceTransportsEnumAll-          = toJSVal js_RTCIceTransportsEnumAll- -instance FromJSVal RTCIceTransportsEnum where-        fromJSVal x-          = x `strictEqual` js_RTCIceTransportsEnumNone >>=-              \ r ->-                case r of-                    True -> return (Just RTCIceTransportsEnumNone)-                    False-                      -> x `strictEqual` js_RTCIceTransportsEnumRelay >>=-                           \ r ->-                             case r of-                                 True -> return (Just RTCIceTransportsEnumRelay)-                                 False-                                   -> x `strictEqual` js_RTCIceTransportsEnumAll >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just RTCIceTransportsEnumAll)-                                              False -> return Nothing-js_RTCIceTransportsEnumNone = "none"-js_RTCIceTransportsEnumRelay = "relay"-js_RTCIceTransportsEnumAll = "all"- -data RTCIdentityOptionEnum = RTCIdentityOptionEnumYes-                           | RTCIdentityOptionEnumNo-                           | RTCIdentityOptionEnumIfconfigured-                           deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal RTCIdentityOptionEnum where-        toJSVal RTCIdentityOptionEnumYes-          = toJSVal js_RTCIdentityOptionEnumYes-        toJSVal RTCIdentityOptionEnumNo-          = toJSVal js_RTCIdentityOptionEnumNo-        toJSVal RTCIdentityOptionEnumIfconfigured-          = toJSVal js_RTCIdentityOptionEnumIfconfigured- -instance FromJSVal RTCIdentityOptionEnum where-        fromJSVal x-          = x `strictEqual` js_RTCIdentityOptionEnumYes >>=-              \ r ->-                case r of-                    True -> return (Just RTCIdentityOptionEnumYes)-                    False-                      -> x `strictEqual` js_RTCIdentityOptionEnumNo >>=-                           \ r ->-                             case r of-                                 True -> return (Just RTCIdentityOptionEnumNo)-                                 False-                                   -> x `strictEqual` js_RTCIdentityOptionEnumIfconfigured >>=-                                        \ r ->-                                          case r of-                                              True-                                                -> return (Just RTCIdentityOptionEnumIfconfigured)-                                              False -> return Nothing-js_RTCIdentityOptionEnumYes = "yes"-js_RTCIdentityOptionEnumNo = "no"-js_RTCIdentityOptionEnumIfconfigured = "ifconfigured"- -data ReadableStreamStateType = ReadableStreamStateTypeReadable-                             | ReadableStreamStateTypeWaiting-                             | ReadableStreamStateTypeClosed-                             | ReadableStreamStateTypeErrored-                             deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal ReadableStreamStateType where-        toJSVal ReadableStreamStateTypeReadable-          = toJSVal js_ReadableStreamStateTypeReadable-        toJSVal ReadableStreamStateTypeWaiting-          = toJSVal js_ReadableStreamStateTypeWaiting-        toJSVal ReadableStreamStateTypeClosed-          = toJSVal js_ReadableStreamStateTypeClosed-        toJSVal ReadableStreamStateTypeErrored-          = toJSVal js_ReadableStreamStateTypeErrored- -instance FromJSVal ReadableStreamStateType where-        fromJSVal x-          = x `strictEqual` js_ReadableStreamStateTypeReadable >>=-              \ r ->-                case r of-                    True -> return (Just ReadableStreamStateTypeReadable)-                    False-                      -> x `strictEqual` js_ReadableStreamStateTypeWaiting >>=-                           \ r ->-                             case r of-                                 True -> return (Just ReadableStreamStateTypeWaiting)-                                 False-                                   -> x `strictEqual` js_ReadableStreamStateTypeClosed >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just ReadableStreamStateTypeClosed)-                                              False-                                                -> x `strictEqual` js_ReadableStreamStateTypeErrored-                                                     >>=-                                                     \ r ->-                                                       case r of-                                                           True-                                                             -> return-                                                                  (Just-                                                                     ReadableStreamStateTypeErrored)-                                                           False -> return Nothing-js_ReadableStreamStateTypeReadable = "readable"-js_ReadableStreamStateTypeWaiting = "waiting"-js_ReadableStreamStateTypeClosed = "closed"-js_ReadableStreamStateTypeErrored = "errored"- -data OverSampleType = OverSampleTypeNone-                    | OverSampleType2x-                    | OverSampleType4x-                    deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal OverSampleType where-        toJSVal OverSampleTypeNone = toJSVal js_OverSampleTypeNone-        toJSVal OverSampleType2x = toJSVal js_OverSampleType2x-        toJSVal OverSampleType4x = toJSVal js_OverSampleType4x- -instance FromJSVal OverSampleType where-        fromJSVal x-          = x `strictEqual` js_OverSampleTypeNone >>=-              \ r ->-                case r of-                    True -> return (Just OverSampleTypeNone)-                    False-                      -> x `strictEqual` js_OverSampleType2x >>=-                           \ r ->-                             case r of-                                 True -> return (Just OverSampleType2x)-                                 False-                                   -> x `strictEqual` js_OverSampleType4x >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just OverSampleType4x)-                                              False -> return Nothing-js_OverSampleTypeNone = "none"-js_OverSampleType2x = "2x"-js_OverSampleType4x = "4x"- -data PageOverlayType = PageOverlayTypeView-                     | PageOverlayTypeDocument-                     deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal PageOverlayType where-        toJSVal PageOverlayTypeView = toJSVal js_PageOverlayTypeView-        toJSVal PageOverlayTypeDocument-          = toJSVal js_PageOverlayTypeDocument- -instance FromJSVal PageOverlayType where-        fromJSVal x-          = x `strictEqual` js_PageOverlayTypeView >>=-              \ r ->-                case r of-                    True -> return (Just PageOverlayTypeView)-                    False-                      -> x `strictEqual` js_PageOverlayTypeDocument >>=-                           \ r ->-                             case r of-                                 True -> return (Just PageOverlayTypeDocument)-                                 False -> return Nothing-js_PageOverlayTypeView = "view"-js_PageOverlayTypeDocument = "document"- -data XMLHttpRequestResponseType = XMLHttpRequestResponseType-                                | XMLHttpRequestResponseTypeArraybuffer-                                | XMLHttpRequestResponseTypeBlob-                                | XMLHttpRequestResponseTypeDocument-                                | XMLHttpRequestResponseTypeJson-                                | XMLHttpRequestResponseTypeText-                                deriving (Show, Read, Eq, Ord, Typeable)- -instance ToJSVal XMLHttpRequestResponseType where-        toJSVal XMLHttpRequestResponseType-          = toJSVal js_XMLHttpRequestResponseType-        toJSVal XMLHttpRequestResponseTypeArraybuffer-          = toJSVal js_XMLHttpRequestResponseTypeArraybuffer-        toJSVal XMLHttpRequestResponseTypeBlob-          = toJSVal js_XMLHttpRequestResponseTypeBlob-        toJSVal XMLHttpRequestResponseTypeDocument-          = toJSVal js_XMLHttpRequestResponseTypeDocument-        toJSVal XMLHttpRequestResponseTypeJson-          = toJSVal js_XMLHttpRequestResponseTypeJson-        toJSVal XMLHttpRequestResponseTypeText-          = toJSVal js_XMLHttpRequestResponseTypeText- -instance FromJSVal XMLHttpRequestResponseType where-        fromJSVal x-          = x `strictEqual` js_XMLHttpRequestResponseType >>=-              \ r ->-                case r of-                    True -> return (Just XMLHttpRequestResponseType)-                    False-                      -> x `strictEqual` js_XMLHttpRequestResponseTypeArraybuffer >>=-                           \ r ->-                             case r of-                                 True -> return (Just XMLHttpRequestResponseTypeArraybuffer)-                                 False-                                   -> x `strictEqual` js_XMLHttpRequestResponseTypeBlob >>=-                                        \ r ->-                                          case r of-                                              True -> return (Just XMLHttpRequestResponseTypeBlob)-                                              False-                                                -> x `strictEqual`-                                                     js_XMLHttpRequestResponseTypeDocument-                                                     >>=-                                                     \ r ->-                                                       case r of-                                                           True-                                                             -> return-                                                                  (Just-                                                                     XMLHttpRequestResponseTypeDocument)-                                                           False-                                                             -> x `strictEqual`-                                                                  js_XMLHttpRequestResponseTypeJson-                                                                  >>=-                                                                  \ r ->-                                                                    case r of-                                                                        True-                                                                          -> return-                                                                               (Just-                                                                                  XMLHttpRequestResponseTypeJson)-                                                                        False-                                                                          -> x `strictEqual`-                                                                               js_XMLHttpRequestResponseTypeText-                                                                               >>=-                                                                               \ r ->-                                                                                 case r of-                                                                                     True-                                                                                       -> return-                                                                                            (Just-                                                                                               XMLHttpRequestResponseTypeText)-                                                                                     False-                                                                                       -> return-                                                                                            Nothing-js_XMLHttpRequestResponseType = ""-js_XMLHttpRequestResponseTypeArraybuffer = "arraybuffer"-js_XMLHttpRequestResponseTypeBlob = "blob"-js_XMLHttpRequestResponseTypeDocument = "document"-js_XMLHttpRequestResponseTypeJson = "json"-js_XMLHttpRequestResponseTypeText = "text"
− src/Language/Javascript/JSaddle/DOM/Generated/ErrorEvent.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ErrorEvent-       (getMessage, getFilename, getLineno, getColno, ErrorEvent,-        castToErrorEvent, gTypeErrorEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.message Mozilla ErrorEvent.message documentation> -getMessage ::-           (MonadDOM m, FromJSString result) => ErrorEvent -> m result-getMessage self-  = liftDOM ((self ^. js "message") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.filename Mozilla ErrorEvent.filename documentation> -getFilename ::-            (MonadDOM m, FromJSString result) => ErrorEvent -> m result-getFilename self-  = liftDOM ((self ^. js "filename") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.lineno Mozilla ErrorEvent.lineno documentation> -getLineno :: (MonadDOM m) => ErrorEvent -> m Word-getLineno self-  = liftDOM (round <$> ((self ^. js "lineno") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.colno Mozilla ErrorEvent.colno documentation> -getColno :: (MonadDOM m) => ErrorEvent -> m Word-getColno self-  = liftDOM (round <$> ((self ^. js "colno") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Event.hs 
@@ -1,151 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Event-       (stopPropagation, preventDefault, initEvent,-        stopImmediatePropagation, pattern NONE, pattern CAPTURING_PHASE,-        pattern AT_TARGET, pattern BUBBLING_PHASE, pattern MOUSEDOWN,-        pattern MOUSEUP, pattern MOUSEOVER, pattern MOUSEOUT,-        pattern MOUSEMOVE, pattern MOUSEDRAG, pattern CLICK,-        pattern DBLCLICK, pattern KEYDOWN, pattern KEYUP, pattern KEYPRESS,-        pattern DRAGDROP, pattern FOCUS, pattern BLUR, pattern SELECT,-        pattern CHANGE, getType, getTarget, getCurrentTarget,-        getEventPhase, getBubbles, getCancelable, getTimeStamp,-        getDefaultPrevented, getSrcElement, setReturnValue, getReturnValue,-        setCancelBubble, getCancelBubble, getClipboardData, Event,-        castToEvent, gTypeEvent, IsEvent, toEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopPropagation Mozilla Event.stopPropagation documentation> -stopPropagation :: (MonadDOM m, IsEvent self) => self -> m ()-stopPropagation self-  = liftDOM (void ((toEvent self) ^. js "stopPropagation"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.preventDefault Mozilla Event.preventDefault documentation> -preventDefault :: (MonadDOM m, IsEvent self) => self -> m ()-preventDefault self-  = liftDOM (void ((toEvent self) ^. js "preventDefault"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.initEvent Mozilla Event.initEvent documentation> -initEvent ::-          (MonadDOM m, IsEvent self, ToJSString eventTypeArg) =>-            self -> eventTypeArg -> Bool -> Bool -> m ()-initEvent self eventTypeArg canBubbleArg cancelableArg-  = liftDOM-      (void-         ((toEvent self) ^. jsf "initEvent"-            [toJSVal eventTypeArg, toJSVal canBubbleArg,-             toJSVal cancelableArg]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopImmediatePropagation Mozilla Event.stopImmediatePropagation documentation> -stopImmediatePropagation ::-                         (MonadDOM m, IsEvent self) => self -> m ()-stopImmediatePropagation self-  = liftDOM (void ((toEvent self) ^. js "stopImmediatePropagation"))-pattern NONE = 0-pattern CAPTURING_PHASE = 1-pattern AT_TARGET = 2-pattern BUBBLING_PHASE = 3-pattern MOUSEDOWN = 1-pattern MOUSEUP = 2-pattern MOUSEOVER = 4-pattern MOUSEOUT = 8-pattern MOUSEMOVE = 16-pattern MOUSEDRAG = 32-pattern CLICK = 64-pattern DBLCLICK = 128-pattern KEYDOWN = 256-pattern KEYUP = 512-pattern KEYPRESS = 1024-pattern DRAGDROP = 2048-pattern FOCUS = 4096-pattern BLUR = 8192-pattern SELECT = 16384-pattern CHANGE = 32768---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.type Mozilla Event.type documentation> -getType ::-        (MonadDOM m, IsEvent self, FromJSString result) => self -> m result-getType self-  = liftDOM (((toEvent self) ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> -getTarget ::-          (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)-getTarget self-  = liftDOM (((toEvent self) ^. js "target") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> -getCurrentTarget ::-                 (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)-getCurrentTarget self-  = liftDOM (((toEvent self) ^. js "currentTarget") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.eventPhase Mozilla Event.eventPhase documentation> -getEventPhase :: (MonadDOM m, IsEvent self) => self -> m Word-getEventPhase self-  = liftDOM-      (round <$> (((toEvent self) ^. js "eventPhase") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.bubbles Mozilla Event.bubbles documentation> -getBubbles :: (MonadDOM m, IsEvent self) => self -> m Bool-getBubbles self-  = liftDOM (((toEvent self) ^. js "bubbles") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelable Mozilla Event.cancelable documentation> -getCancelable :: (MonadDOM m, IsEvent self) => self -> m Bool-getCancelable self-  = liftDOM (((toEvent self) ^. js "cancelable") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.timeStamp Mozilla Event.timeStamp documentation> -getTimeStamp :: (MonadDOM m, IsEvent self) => self -> m Word-getTimeStamp self-  = liftDOM-      (round <$> (((toEvent self) ^. js "timeStamp") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.defaultPrevented Mozilla Event.defaultPrevented documentation> -getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool-getDefaultPrevented self-  = liftDOM (((toEvent self) ^. js "defaultPrevented") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> -getSrcElement ::-              (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)-getSrcElement self-  = liftDOM (((toEvent self) ^. js "srcElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> -setReturnValue ::-               (MonadDOM m, IsEvent self) => self -> Bool -> m ()-setReturnValue self val-  = liftDOM ((toEvent self) ^. jss "returnValue" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation> -getReturnValue :: (MonadDOM m, IsEvent self) => self -> m Bool-getReturnValue self-  = liftDOM (((toEvent self) ^. js "returnValue") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> -setCancelBubble ::-                (MonadDOM m, IsEvent self) => self -> Bool -> m ()-setCancelBubble self val-  = liftDOM ((toEvent self) ^. jss "cancelBubble" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation> -getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool-getCancelBubble self-  = liftDOM (((toEvent self) ^. js "cancelBubble") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> -getClipboardData ::-                 (MonadDOM m, IsEvent self) => self -> m (Maybe DataTransfer)-getClipboardData self-  = liftDOM (((toEvent self) ^. js "clipboardData") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/EventListener.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.EventListener-       (handleEvent, EventListener, castToEventListener,-        gTypeEventListener)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventListener.handleEvent Mozilla EventListener.handleEvent documentation> -handleEvent ::-            (MonadDOM m, IsEvent evt) => EventListener -> Maybe evt -> m ()-handleEvent self evt-  = liftDOM (void (self ^. jsf "handleEvent" [toJSVal evt]))
− src/Language/Javascript/JSaddle/DOM/Generated/EventSource.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.EventSource-       (newEventSource, close, pattern CONNECTING, pattern OPEN,-        pattern CLOSED, getUrl, getWithCredentials, getReadyState, open,-        message, error, EventSource, castToEventSource, gTypeEventSource)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation> -newEventSource ::-               (MonadDOM m, ToJSString url, IsDictionary eventSourceInit) =>-                 url -> Maybe eventSourceInit -> m EventSource-newEventSource url eventSourceInit-  = liftDOM-      (EventSource <$>-         new (jsg "EventSource") [toJSVal url, toJSVal eventSourceInit])---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.close Mozilla EventSource.close documentation> -close :: (MonadDOM m) => EventSource -> m ()-close self = liftDOM (void (self ^. js "close"))-pattern CONNECTING = 0-pattern OPEN = 1-pattern CLOSED = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.url Mozilla EventSource.url documentation> -getUrl ::-       (MonadDOM m, FromJSString result) => EventSource -> m result-getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.withCredentials Mozilla EventSource.withCredentials documentation> -getWithCredentials :: (MonadDOM m) => EventSource -> m Bool-getWithCredentials self-  = liftDOM ((self ^. js "withCredentials") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.readyState Mozilla EventSource.readyState documentation> -getReadyState :: (MonadDOM m) => EventSource -> m Word-getReadyState self-  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onopen Mozilla EventSource.onopen documentation> -open :: EventName EventSource Event-open = unsafeEventName (toJSString "open")---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onmessage Mozilla EventSource.onmessage documentation> -message :: EventName EventSource MessageEvent-message = unsafeEventName (toJSString "message")---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onerror Mozilla EventSource.onerror documentation> -error :: EventName EventSource UIEvent-error = unsafeEventName (toJSString "error")
− src/Language/Javascript/JSaddle/DOM/Generated/EventTarget.hs 
@@ -1,44 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.EventTarget-       (addEventListener, removeEventListener, dispatchEvent, EventTarget,-        castToEventTarget, gTypeEventTarget, IsEventTarget, toEventTarget)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation> -addEventListener ::-                 (MonadDOM m, IsEventTarget self, ToJSString type') =>-                   self -> type' -> Maybe EventListener -> Bool -> m ()-addEventListener self type' listener useCapture-  = liftDOM-      (void-         ((toEventTarget self) ^. jsf "addEventListener"-            [toJSVal type', toJSVal listener, toJSVal useCapture]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.removeEventListener Mozilla EventTarget.removeEventListener documentation> -removeEventListener ::-                    (MonadDOM m, IsEventTarget self, ToJSString type') =>-                      self -> type' -> Maybe EventListener -> Bool -> m ()-removeEventListener self type' listener useCapture-  = liftDOM-      (void-         ((toEventTarget self) ^. jsf "removeEventListener"-            [toJSVal type', toJSVal listener, toJSVal useCapture]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> -dispatchEvent ::-              (MonadDOM m, IsEventTarget self, IsEvent event) =>-                self -> Maybe event -> m Bool-dispatchEvent self event-  = liftDOM-      (((toEventTarget self) ^. jsf "dispatchEvent" [toJSVal event]) >>=-         valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/File.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.File-       (getName, getLastModifiedDate, File, castToFile, gTypeFile) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/File.name Mozilla File.name documentation> -getName :: (MonadDOM m, FromJSString result) => File -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> -getLastModifiedDate :: (MonadDOM m) => File -> m (Maybe Date)-getLastModifiedDate self-  = liftDOM ((self ^. js "lastModifiedDate") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/FileError.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FileError-       (pattern NOT_FOUND_ERR, pattern SECURITY_ERR, pattern ABORT_ERR,-        pattern NOT_READABLE_ERR, pattern ENCODING_ERR,-        pattern NO_MODIFICATION_ALLOWED_ERR, pattern INVALID_STATE_ERR,-        pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR,-        pattern QUOTA_EXCEEDED_ERR, pattern TYPE_MISMATCH_ERR,-        pattern PATH_EXISTS_ERR, getCode, FileError, castToFileError,-        gTypeFileError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern NOT_FOUND_ERR = 1-pattern SECURITY_ERR = 2-pattern ABORT_ERR = 3-pattern NOT_READABLE_ERR = 4-pattern ENCODING_ERR = 5-pattern NO_MODIFICATION_ALLOWED_ERR = 6-pattern INVALID_STATE_ERR = 7-pattern SYNTAX_ERR = 8-pattern INVALID_MODIFICATION_ERR = 9-pattern QUOTA_EXCEEDED_ERR = 10-pattern TYPE_MISMATCH_ERR = 11-pattern PATH_EXISTS_ERR = 12---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileError.code Mozilla FileError.code documentation> -getCode :: (MonadDOM m) => FileError -> m Word-getCode self-  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/FileList.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FileList-       (item, getLength, FileList, castToFileList, gTypeFileList) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation> -item :: (MonadDOM m) => FileList -> Word -> m (Maybe File)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.length Mozilla FileList.length documentation> -getLength :: (MonadDOM m) => FileList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/FileReader.hs 
@@ -1,93 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FileReader-       (newFileReader, readAsArrayBuffer, readAsBinaryString, readAsText,-        readAsDataURL, abort, pattern EMPTY, pattern LOADING, pattern DONE,-        getReadyState, getResult, getError, loadStart, progress, load,-        abortEvent, error, loadEnd, FileReader, castToFileReader,-        gTypeFileReader)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation> -newFileReader :: (MonadDOM m) => m FileReader-newFileReader = liftDOM (FileReader <$> new (jsg "FileReader") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsArrayBuffer Mozilla FileReader.readAsArrayBuffer documentation> -readAsArrayBuffer ::-                  (MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()-readAsArrayBuffer self blob-  = liftDOM (void (self ^. jsf "readAsArrayBuffer" [toJSVal blob]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsBinaryString Mozilla FileReader.readAsBinaryString documentation> -readAsBinaryString ::-                   (MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()-readAsBinaryString self blob-  = liftDOM (void (self ^. jsf "readAsBinaryString" [toJSVal blob]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsText Mozilla FileReader.readAsText documentation> -readAsText ::-           (MonadDOM m, IsBlob blob, ToJSString encoding) =>-             FileReader -> Maybe blob -> encoding -> m ()-readAsText self blob encoding-  = liftDOM-      (void (self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsDataURL Mozilla FileReader.readAsDataURL documentation> -readAsDataURL ::-              (MonadDOM m, IsBlob blob) => FileReader -> Maybe blob -> m ()-readAsDataURL self blob-  = liftDOM (void (self ^. jsf "readAsDataURL" [toJSVal blob]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.abort Mozilla FileReader.abort documentation> -abort :: (MonadDOM m) => FileReader -> m ()-abort self = liftDOM (void (self ^. js "abort"))-pattern EMPTY = 0-pattern LOADING = 1-pattern DONE = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readyState Mozilla FileReader.readyState documentation> -getReadyState :: (MonadDOM m) => FileReader -> m Word-getReadyState self-  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> -getResult :: (MonadDOM m) => FileReader -> m JSVal-getResult self = liftDOM ((self ^. js "result") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> -getError :: (MonadDOM m) => FileReader -> m (Maybe FileError)-getError self = liftDOM ((self ^. js "error") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadstart Mozilla FileReader.onloadstart documentation> -loadStart :: EventName FileReader ProgressEvent-loadStart = unsafeEventName (toJSString "loadstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onprogress Mozilla FileReader.onprogress documentation> -progress :: EventName FileReader ProgressEvent-progress = unsafeEventName (toJSString "progress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onload Mozilla FileReader.onload documentation> -load :: EventName FileReader UIEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onabort Mozilla FileReader.onabort documentation> -abortEvent :: EventName FileReader UIEvent-abortEvent = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onerror Mozilla FileReader.onerror documentation> -error :: EventName FileReader UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadend Mozilla FileReader.onloadend documentation> -loadEnd :: EventName FileReader ProgressEvent-loadEnd = unsafeEventName (toJSString "loadend")
− src/Language/Javascript/JSaddle/DOM/Generated/FileReaderSync.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FileReaderSync-       (newFileReaderSync, readAsArrayBuffer, readAsBinaryString,-        readAsText, readAsDataURL, FileReaderSync, castToFileReaderSync,-        gTypeFileReaderSync)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation> -newFileReaderSync :: (MonadDOM m) => m FileReaderSync-newFileReaderSync-  = liftDOM (FileReaderSync <$> new (jsg "FileReaderSync") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> -readAsArrayBuffer ::-                  (MonadDOM m, IsBlob blob) =>-                    FileReaderSync -> Maybe blob -> m (Maybe ArrayBuffer)-readAsArrayBuffer self blob-  = liftDOM-      ((self ^. jsf "readAsArrayBuffer" [toJSVal blob]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsBinaryString Mozilla FileReaderSync.readAsBinaryString documentation> -readAsBinaryString ::-                   (MonadDOM m, IsBlob blob, FromJSString result) =>-                     FileReaderSync -> Maybe blob -> m result-readAsBinaryString self blob-  = liftDOM-      ((self ^. jsf "readAsBinaryString" [toJSVal blob]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsText Mozilla FileReaderSync.readAsText documentation> -readAsText ::-           (MonadDOM m, IsBlob blob, ToJSString encoding,-            FromJSString result) =>-             FileReaderSync -> Maybe blob -> encoding -> m result-readAsText self blob encoding-  = liftDOM-      ((self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsDataURL Mozilla FileReaderSync.readAsDataURL documentation> -readAsDataURL ::-              (MonadDOM m, IsBlob blob, FromJSString result) =>-                FileReaderSync -> Maybe blob -> m result-readAsDataURL self blob-  = liftDOM-      ((self ^. jsf "readAsDataURL" [toJSVal blob]) >>=-         fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/FocusEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FocusEvent-       (getRelatedTarget, FocusEvent, castToFocusEvent, gTypeFocusEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation> -getRelatedTarget ::-                 (MonadDOM m) => FocusEvent -> m (Maybe EventTarget)-getRelatedTarget self-  = liftDOM ((self ^. js "relatedTarget") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/FontLoader.hs 
@@ -1,64 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FontLoader-       (checkFont, loadFont, notifyWhenFontsReady, loading, loadingDone,-        loadStart, load, error, getLoading, FontLoader, castToFontLoader,-        gTypeFontLoader)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.checkFont Mozilla FontLoader.checkFont documentation> -checkFont ::-          (MonadDOM m, ToJSString font, ToJSString text) =>-            FontLoader -> font -> text -> m Bool-checkFont self font text-  = liftDOM-      ((self ^. jsf "checkFont" [toJSVal font, toJSVal text]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loadFont Mozilla FontLoader.loadFont documentation> -loadFont ::-         (MonadDOM m, IsDictionary params) =>-           FontLoader -> Maybe params -> m ()-loadFont self params-  = liftDOM (void (self ^. jsf "loadFont" [toJSVal params]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.notifyWhenFontsReady Mozilla FontLoader.notifyWhenFontsReady documentation> -notifyWhenFontsReady ::-                     (MonadDOM m) => FontLoader -> Maybe VoidCallback -> m ()-notifyWhenFontsReady self callback-  = liftDOM-      (void (self ^. jsf "notifyWhenFontsReady" [toJSVal callback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloading Mozilla FontLoader.onloading documentation> -loading :: EventName FontLoader Event-loading = unsafeEventName (toJSString "loading")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloadingdone Mozilla FontLoader.onloadingdone documentation> -loadingDone :: EventName FontLoader Event-loadingDone = unsafeEventName (toJSString "loadingdone")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloadstart Mozilla FontLoader.onloadstart documentation> -loadStart :: EventName FontLoader ProgressEvent-loadStart = unsafeEventName (toJSString "loadstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onload Mozilla FontLoader.onload documentation> -load :: EventName FontLoader UIEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onerror Mozilla FontLoader.onerror documentation> -error :: EventName FontLoader UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loading Mozilla FontLoader.loading documentation> -getLoading :: (MonadDOM m) => FontLoader -> m Bool-getLoading self = liftDOM ((self ^. js "loading") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/FormData.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.FormData-       (newFormData, append, FormData, castToFormData, gTypeFormData)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation> -newFormData :: (MonadDOM m) => Maybe HTMLFormElement -> m FormData-newFormData form-  = liftDOM (FormData <$> new (jsg "FormData") [toJSVal form])---- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData.append Mozilla FormData.append documentation> -append ::-       (MonadDOM m, ToJSString name, ToJSString value,-        ToJSString filename) =>-         FormData -> name -> value -> filename -> m ()-append self name value filename-  = liftDOM-      (void-         (self ^. jsf "append"-            [toJSVal name, toJSVal value, toJSVal filename]))
− src/Language/Javascript/JSaddle/DOM/Generated/GainNode.hs 
@@ -1,18 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.GainNode-       (getGain, GainNode, castToGainNode, gTypeGainNode) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> -getGain :: (MonadDOM m) => GainNode -> m (Maybe AudioParam)-getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Gamepad.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Gamepad-       (getId, getIndex, getConnected, getTimestamp, getMapping, getAxes,-        getButtons, Gamepad, castToGamepad, gTypeGamepad)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.id Mozilla Gamepad.id documentation> -getId :: (MonadDOM m, FromJSString result) => Gamepad -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.index Mozilla Gamepad.index documentation> -getIndex :: (MonadDOM m) => Gamepad -> m Word-getIndex self-  = liftDOM (round <$> ((self ^. js "index") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.connected Mozilla Gamepad.connected documentation> -getConnected :: (MonadDOM m) => Gamepad -> m Bool-getConnected self-  = liftDOM ((self ^. js "connected") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.timestamp Mozilla Gamepad.timestamp documentation> -getTimestamp :: (MonadDOM m) => Gamepad -> m Double-getTimestamp self-  = liftDOM ((self ^. js "timestamp") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.mapping Mozilla Gamepad.mapping documentation> -getMapping ::-           (MonadDOM m, FromJSString result) => Gamepad -> m result-getMapping self-  = liftDOM ((self ^. js "mapping") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.axes Mozilla Gamepad.axes documentation> -getAxes :: (MonadDOM m) => Gamepad -> m [Double]-getAxes self-  = liftDOM ((self ^. js "axes") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.buttons Mozilla Gamepad.buttons documentation> -getButtons :: (MonadDOM m) => Gamepad -> m [Maybe GamepadButton]-getButtons self = liftDOM ((self ^. js "buttons") >>= fromJSArray)
− src/Language/Javascript/JSaddle/DOM/Generated/GamepadButton.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.GamepadButton-       (getPressed, getValue, GamepadButton, castToGamepadButton,-        gTypeGamepadButton)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.pressed Mozilla GamepadButton.pressed documentation> -getPressed :: (MonadDOM m) => GamepadButton -> m Bool-getPressed self = liftDOM ((self ^. js "pressed") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.value Mozilla GamepadButton.value documentation> -getValue :: (MonadDOM m) => GamepadButton -> m Double-getValue self = liftDOM ((self ^. js "value") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/GamepadEvent.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.GamepadEvent-       (getGamepad, GamepadEvent, castToGamepadEvent, gTypeGamepadEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation> -getGamepad :: (MonadDOM m) => GamepadEvent -> m (Maybe Gamepad)-getGamepad self = liftDOM ((self ^. js "gamepad") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Geolocation.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Geolocation-       (getCurrentPosition, watchPosition, clearWatch, Geolocation,-        castToGeolocation, gTypeGeolocation)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation> -getCurrentPosition ::-                   (MonadDOM m, IsPositionOptions options) =>-                     Geolocation ->-                       Maybe PositionCallback ->-                         Maybe PositionErrorCallback -> Maybe options -> m ()-getCurrentPosition self successCallback errorCallback options-  = liftDOM-      (void-         (self ^. jsf "getCurrentPosition"-            [toJSVal successCallback, toJSVal errorCallback, toJSVal options]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation> -watchPosition ::-              (MonadDOM m, IsPositionOptions options) =>-                Geolocation ->-                  Maybe PositionCallback ->-                    Maybe PositionErrorCallback -> Maybe options -> m Int-watchPosition self successCallback errorCallback options-  = liftDOM-      (round <$>-         ((self ^. jsf "watchPosition"-             [toJSVal successCallback, toJSVal errorCallback, toJSVal options])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.clearWatch Mozilla Geolocation.clearWatch documentation> -clearWatch :: (MonadDOM m) => Geolocation -> Int -> m ()-clearWatch self watchID-  = liftDOM (void (self ^. jsf "clearWatch" [toJSVal watchID]))
− src/Language/Javascript/JSaddle/DOM/Generated/Geoposition.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Geoposition-       (getCoords, getTimestamp, Geoposition, castToGeoposition,-        gTypeGeoposition)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> -getCoords :: (MonadDOM m) => Geoposition -> m (Maybe Coordinates)-getCoords self = liftDOM ((self ^. js "coords") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.timestamp Mozilla Geoposition.timestamp documentation> -getTimestamp :: (MonadDOM m) => Geoposition -> m Word-getTimestamp self-  = liftDOM (round <$> ((self ^. js "timestamp") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLAllCollection.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLAllCollection-       (item, namedItem, tags, getLength, HTMLAllCollection,-        castToHTMLAllCollection, gTypeHTMLAllCollection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> -item :: (MonadDOM m) => HTMLAllCollection -> Word -> m (Maybe Node)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            HTMLAllCollection -> name -> m (Maybe Node)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> -tags ::-     (MonadDOM m, ToJSString name) =>-       HTMLAllCollection -> name -> m (Maybe NodeList)-tags self name-  = liftDOM ((self ^. jsf "tags" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.length Mozilla HTMLAllCollection.length documentation> -getLength :: (MonadDOM m) => HTMLAllCollection -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLAnchorElement.hs 
@@ -1,270 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLAnchorElement-       (toString, setCharset, getCharset, setCoords, getCoords,-        setDownload, getDownload, setHref, getHref, setHreflang,-        getHreflang, setName, getName, setPing, getPing, setRel, getRel,-        setRev, getRev, setShape, getShape, setTarget, getTarget, setType,-        getType, setHash, getHash, setHost, getHost, setHostname,-        getHostname, setPathname, getPathname, setPort, getPort,-        setProtocol, getProtocol, setSearch, getSearch, getOrigin, setText,-        getText, getRelList, HTMLAnchorElement, castToHTMLAnchorElement,-        gTypeHTMLAnchorElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.toString Mozilla HTMLAnchorElement.toString documentation> -toString ::-         (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation> -setCharset ::-           (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation> -getCharset ::-           (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getCharset self-  = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation> -setCoords ::-          (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation> -getCoords ::-          (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getCoords self-  = liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation> -setDownload ::-            (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setDownload self val-  = liftDOM (self ^. jss "download" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation> -getDownload ::-            (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getDownload self-  = liftDOM ((self ^. js "download") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation> -setHref ::-        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setHref self val = liftDOM (self ^. jss "href" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation> -setHreflang ::-            (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setHreflang self val-  = liftDOM (self ^. jss "hreflang" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation> -getHreflang ::-            (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getHreflang self-  = liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation> -setPing ::-        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation> -getPing ::-        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation> -setRel ::-       (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation> -getRel ::-       (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation> -setRev ::-       (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setRev self val = liftDOM (self ^. jss "rev" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation> -getRev ::-       (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation> -setShape ::-         (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation> -getShape ::-         (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getShape self-  = liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation> -setTarget ::-          (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation> -getTarget ::-          (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getTarget self-  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> -setHash ::-        (MonadDOM m, ToJSString val) =>-          HTMLAnchorElement -> Maybe val -> m ()-setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> -getHash ::-        (MonadDOM m, FromJSString result) =>-          HTMLAnchorElement -> m (Maybe result)-getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> -setHost ::-        (MonadDOM m, ToJSString val) =>-          HTMLAnchorElement -> Maybe val -> m ()-setHost self val = liftDOM (self ^. jss "host" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> -getHost ::-        (MonadDOM m, FromJSString result) =>-          HTMLAnchorElement -> m (Maybe result)-getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> -setHostname ::-            (MonadDOM m, ToJSString val) =>-              HTMLAnchorElement -> Maybe val -> m ()-setHostname self val-  = liftDOM (self ^. jss "hostname" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> -getHostname ::-            (MonadDOM m, FromJSString result) =>-              HTMLAnchorElement -> m (Maybe result)-getHostname self-  = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> -setPathname ::-            (MonadDOM m, ToJSString val) =>-              HTMLAnchorElement -> Maybe val -> m ()-setPathname self val-  = liftDOM (self ^. jss "pathname" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> -getPathname ::-            (MonadDOM m, FromJSString result) =>-              HTMLAnchorElement -> m (Maybe result)-getPathname self-  = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> -setPort ::-        (MonadDOM m, ToJSString val) =>-          HTMLAnchorElement -> Maybe val -> m ()-setPort self val = liftDOM (self ^. jss "port" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> -getPort ::-        (MonadDOM m, FromJSString result) =>-          HTMLAnchorElement -> m (Maybe result)-getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> -setProtocol ::-            (MonadDOM m, ToJSString val) =>-              HTMLAnchorElement -> Maybe val -> m ()-setProtocol self val-  = liftDOM (self ^. jss "protocol" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) =>-              HTMLAnchorElement -> m (Maybe result)-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> -setSearch ::-          (MonadDOM m, ToJSString val) =>-            HTMLAnchorElement -> Maybe val -> m ()-setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> -getSearch ::-          (MonadDOM m, FromJSString result) =>-            HTMLAnchorElement -> m (Maybe result)-getSearch self-  = liftDOM ((self ^. js "search") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> -getOrigin ::-          (MonadDOM m, FromJSString result) =>-            HTMLAnchorElement -> m (Maybe result)-getOrigin self-  = liftDOM ((self ^. js "origin") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation> -setText ::-        (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation> -getText ::-        (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result-getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> -getRelList ::-           (MonadDOM m) => HTMLAnchorElement -> m (Maybe DOMTokenList)-getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLAppletElement.hs 
@@ -1,138 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLAppletElement-       (setAlign, getAlign, setAlt, getAlt, setArchive, getArchive,-        setCode, getCode, setCodeBase, getCodeBase, setHeight, getHeight,-        setHspace, getHspace, setName, getName, setObject, getObject,-        setVspace, getVspace, setWidth, getWidth, HTMLAppletElement,-        castToHTMLAppletElement, gTypeHTMLAppletElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation> -setAlt ::-       (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation> -getAlt ::-       (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation> -setArchive ::-           (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setArchive self val = liftDOM (self ^. jss "archive" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation> -getArchive ::-           (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getArchive self-  = liftDOM ((self ^. js "archive") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation> -setCode ::-        (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setCode self val = liftDOM (self ^. jss "code" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation> -getCode ::-        (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation> -setCodeBase ::-            (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setCodeBase self val-  = liftDOM (self ^. jss "codeBase" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation> -getCodeBase ::-            (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getCodeBase self-  = liftDOM ((self ^. js "codeBase") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation> -setHeight ::-          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation> -getHeight ::-          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getHeight self-  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation> -setHspace ::-          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation> -getHspace ::-          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getHspace self-  = liftDOM ((self ^. js "hspace") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation> -setObject ::-          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setObject self val = liftDOM (self ^. jss "object" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation> -getObject ::-          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getObject self-  = liftDOM ((self ^. js "object") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation> -setVspace ::-          (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation> -getVspace ::-          (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getVspace self-  = liftDOM ((self ^. js "vspace") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLAppletElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLAppletElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLAreaElement.hs 
@@ -1,144 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLAreaElement-       (setAlt, getAlt, setCoords, getCoords, setHref, getHref, setNoHref,-        getNoHref, setPing, getPing, setRel, getRel, setShape, getShape,-        setTarget, getTarget, getHash, getHost, getHostname, getPathname,-        getPort, getProtocol, getSearch, getRelList, HTMLAreaElement,-        castToHTMLAreaElement, gTypeHTMLAreaElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation> -setAlt ::-       (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation> -getAlt ::-       (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation> -setCoords ::-          (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation> -getCoords ::-          (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getCoords self-  = liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation> -setHref ::-        (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setHref self val = liftDOM (self ^. jss "href" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation> -setNoHref :: (MonadDOM m) => HTMLAreaElement -> Bool -> m ()-setNoHref self val = liftDOM (self ^. jss "noHref" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation> -getNoHref :: (MonadDOM m) => HTMLAreaElement -> m Bool-getNoHref self = liftDOM ((self ^. js "noHref") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation> -setPing ::-        (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation> -getPing ::-        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation> -setRel ::-       (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation> -getRel ::-       (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation> -setShape ::-         (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation> -getShape ::-         (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getShape self-  = liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation> -setTarget ::-          (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()-setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation> -getTarget ::-          (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getTarget self-  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hash Mozilla HTMLAreaElement.hash documentation> -getHash ::-        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.host Mozilla HTMLAreaElement.host documentation> -getHost ::-        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hostname Mozilla HTMLAreaElement.hostname documentation> -getHostname ::-            (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getHostname self-  = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.pathname Mozilla HTMLAreaElement.pathname documentation> -getPathname ::-            (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getPathname self-  = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.port Mozilla HTMLAreaElement.port documentation> -getPort ::-        (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.protocol Mozilla HTMLAreaElement.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.search Mozilla HTMLAreaElement.search documentation> -getSearch ::-          (MonadDOM m, FromJSString result) => HTMLAreaElement -> m result-getSearch self-  = liftDOM ((self ^. js "search") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> -getRelList ::-           (MonadDOM m) => HTMLAreaElement -> m (Maybe DOMTokenList)-getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLBRElement.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLBRElement-       (setClear, getClear, HTMLBRElement, castToHTMLBRElement,-        gTypeHTMLBRElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation> -setClear ::-         (MonadDOM m, ToJSString val) => HTMLBRElement -> val -> m ()-setClear self val = liftDOM (self ^. jss "clear" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation> -getClear ::-         (MonadDOM m, FromJSString result) => HTMLBRElement -> m result-getClear self-  = liftDOM ((self ^. js "clear") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLBaseElement.hs 
@@ -1,39 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLBaseElement-       (setHref, getHref, setTarget, getTarget, HTMLBaseElement,-        castToHTMLBaseElement, gTypeHTMLBaseElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> -setHref ::-        (MonadDOM m, ToJSString val) =>-          HTMLBaseElement -> Maybe val -> m ()-setHref self val = liftDOM (self ^. jss "href" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) =>-          HTMLBaseElement -> m (Maybe result)-getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation> -setTarget ::-          (MonadDOM m, ToJSString val) => HTMLBaseElement -> val -> m ()-setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation> -getTarget ::-          (MonadDOM m, FromJSString result) => HTMLBaseElement -> m result-getTarget self-  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLBaseFontElement.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLBaseFontElement-       (setColor, getColor, setFace, getFace, setSize, getSize,-        HTMLBaseFontElement, castToHTMLBaseFontElement,-        gTypeHTMLBaseFontElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation> -setColor ::-         (MonadDOM m, ToJSString val) => HTMLBaseFontElement -> val -> m ()-setColor self val = liftDOM (self ^. jss "color" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation> -getColor ::-         (MonadDOM m, FromJSString result) =>-           HTMLBaseFontElement -> m result-getColor self-  = liftDOM ((self ^. js "color") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation> -setFace ::-        (MonadDOM m, ToJSString val) => HTMLBaseFontElement -> val -> m ()-setFace self val = liftDOM (self ^. jss "face" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation> -getFace ::-        (MonadDOM m, FromJSString result) =>-          HTMLBaseFontElement -> m result-getFace self = liftDOM ((self ^. js "face") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation> -setSize :: (MonadDOM m) => HTMLBaseFontElement -> Int -> m ()-setSize self val = liftDOM (self ^. jss "size" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation> -getSize :: (MonadDOM m) => HTMLBaseFontElement -> m Int-getSize self-  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLBodyElement.hs 
@@ -1,141 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLBodyElement-       (setALink, getALink, setBackground, getBackground, setBgColor,-        getBgColor, setLink, getLink, setText, getText, setVLink, getVLink,-        beforeUnload, hashChange, message, offline, online, popState,-        resize, storage, unload, orientationChange, blur, error, focus,-        load, HTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> -setALink ::-         (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()-setALink self val = liftDOM (self ^. jss "aLink" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation> -getALink ::-         (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result-getALink self-  = liftDOM ((self ^. js "aLink") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation> -setBackground ::-              (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()-setBackground self val-  = liftDOM (self ^. jss "background" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation> -getBackground ::-              (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result-getBackground self-  = liftDOM ((self ^. js "background") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> -setBgColor ::-           (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()-setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation> -getBgColor ::-           (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result-getBgColor self-  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> -setLink ::-        (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()-setLink self val = liftDOM (self ^. jss "link" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation> -getLink ::-        (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result-getLink self = liftDOM ((self ^. js "link") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> -setText ::-        (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation> -getText ::-        (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result-getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation> -setVLink ::-         (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m ()-setVLink self val = liftDOM (self ^. jss "vLink" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation> -getVLink ::-         (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result-getVLink self-  = liftDOM ((self ^. js "vLink") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onbeforeunload Mozilla HTMLBodyElement.onbeforeunload documentation> -beforeUnload :: EventName HTMLBodyElement BeforeUnloadEvent-beforeUnload = unsafeEventName (toJSString "beforeunload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onhashchange Mozilla HTMLBodyElement.onhashchange documentation> -hashChange :: EventName HTMLBodyElement HashChangeEvent-hashChange = unsafeEventName (toJSString "hashchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onmessage Mozilla HTMLBodyElement.onmessage documentation> -message :: EventName HTMLBodyElement MessageEvent-message = unsafeEventName (toJSString "message")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onoffline Mozilla HTMLBodyElement.onoffline documentation> -offline :: EventName HTMLBodyElement Event-offline = unsafeEventName (toJSString "offline")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.ononline Mozilla HTMLBodyElement.ononline documentation> -online :: EventName HTMLBodyElement Event-online = unsafeEventName (toJSString "online")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onpopstate Mozilla HTMLBodyElement.onpopstate documentation> -popState :: EventName HTMLBodyElement PopStateEvent-popState = unsafeEventName (toJSString "popstate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onresize Mozilla HTMLBodyElement.onresize documentation> -resize :: EventName HTMLBodyElement UIEvent-resize = unsafeEventName (toJSString "resize")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onstorage Mozilla HTMLBodyElement.onstorage documentation> -storage :: EventName HTMLBodyElement StorageEvent-storage = unsafeEventName (toJSString "storage")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onunload Mozilla HTMLBodyElement.onunload documentation> -unload :: EventName HTMLBodyElement UIEvent-unload = unsafeEventName (toJSString "unload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onorientationchange Mozilla HTMLBodyElement.onorientationchange documentation> -orientationChange :: EventName HTMLBodyElement Event-orientationChange-  = unsafeEventName (toJSString "orientationchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onblur Mozilla HTMLBodyElement.onblur documentation> -blur :: EventName HTMLBodyElement FocusEvent-blur = unsafeEventName (toJSString "blur")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onerror Mozilla HTMLBodyElement.onerror documentation> -error :: EventName HTMLBodyElement UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onfocus Mozilla HTMLBodyElement.onfocus documentation> -focus :: EventName HTMLBodyElement FocusEvent-focus = unsafeEventName (toJSString "focus")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onload Mozilla HTMLBodyElement.onload documentation> -load :: EventName HTMLBodyElement UIEvent-load = unsafeEventName (toJSString "load")
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLButtonElement.hs 
@@ -1,174 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLButtonElement-       (checkValidity, setCustomValidity, setAutofocus, getAutofocus,-        setDisabled, getDisabled, getForm, setFormAction, getFormAction,-        setFormEnctype, getFormEnctype, setFormMethod, getFormMethod,-        setFormNoValidate, getFormNoValidate, setFormTarget, getFormTarget,-        setName, getName, setType, getType, setValue, getValue,-        getWillValidate, getValidity, getValidationMessage, getLabels,-        HTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLButtonElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.setCustomValidity Mozilla HTMLButtonElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLButtonElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation> -setAutofocus :: (MonadDOM m) => HTMLButtonElement -> Bool -> m ()-setAutofocus self val-  = liftDOM (self ^. jss "autofocus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation> -getAutofocus :: (MonadDOM m) => HTMLButtonElement -> m Bool-getAutofocus self-  = liftDOM ((self ^. js "autofocus") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLButtonElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLButtonElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLButtonElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation> -setFormAction ::-              (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()-setFormAction self val-  = liftDOM (self ^. jss "formAction" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation> -getFormAction ::-              (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result-getFormAction self-  = liftDOM ((self ^. js "formAction") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> -setFormEnctype ::-               (MonadDOM m, ToJSString val) =>-                 HTMLButtonElement -> Maybe val -> m ()-setFormEnctype self val-  = liftDOM (self ^. jss "formEnctype" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> -getFormEnctype ::-               (MonadDOM m, FromJSString result) =>-                 HTMLButtonElement -> m (Maybe result)-getFormEnctype self-  = liftDOM ((self ^. js "formEnctype") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> -setFormMethod ::-              (MonadDOM m, ToJSString val) =>-                HTMLButtonElement -> Maybe val -> m ()-setFormMethod self val-  = liftDOM (self ^. jss "formMethod" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> -getFormMethod ::-              (MonadDOM m, FromJSString result) =>-                HTMLButtonElement -> m (Maybe result)-getFormMethod self-  = liftDOM ((self ^. js "formMethod") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation> -setFormNoValidate ::-                  (MonadDOM m) => HTMLButtonElement -> Bool -> m ()-setFormNoValidate self val-  = liftDOM (self ^. jss "formNoValidate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation> -getFormNoValidate :: (MonadDOM m) => HTMLButtonElement -> m Bool-getFormNoValidate self-  = liftDOM ((self ^. js "formNoValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation> -setFormTarget ::-              (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()-setFormTarget self val-  = liftDOM (self ^. jss "formTarget" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation> -getFormTarget ::-              (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result-getFormTarget self-  = liftDOM ((self ^. js "formTarget") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) =>-          HTMLButtonElement -> Maybe val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) =>-          HTMLButtonElement -> m (Maybe result)-getType self = liftDOM ((self ^. js "type") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result-getValue self-  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.willValidate Mozilla HTMLButtonElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLButtonElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLButtonElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validationMessage Mozilla HTMLButtonElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> -getLabels ::-          (MonadDOM m) => HTMLButtonElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLCanvasElement.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLCanvasElement-       (toDataURL, getContext, probablySupportsContext, setWidth,-        getWidth, setHeight, getHeight, HTMLCanvasElement,-        castToHTMLCanvasElement, gTypeHTMLCanvasElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation> -toDataURL ::-          (MonadDOM m, ToJSString type', FromJSString result) =>-            HTMLCanvasElement -> Maybe type' -> m result-toDataURL self type'-  = liftDOM-      ((self ^. jsf "toDataURL" [toJSVal type']) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> -getContext ::-           (MonadDOM m, ToJSString contextId) =>-             HTMLCanvasElement -> contextId -> m JSVal-getContext self contextId-  = liftDOM-      ((self ^. jsf "getContext" [toJSVal contextId]) >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation> -probablySupportsContext ::-                        (MonadDOM m, ToJSString contextId) =>-                          HTMLCanvasElement -> contextId -> m JSVal-probablySupportsContext self contextId-  = liftDOM-      ((self ^. jsf "probablySupportsContext" [toJSVal contextId]) >>=-         toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation> -setWidth :: (MonadDOM m) => HTMLCanvasElement -> Int -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation> -getWidth :: (MonadDOM m) => HTMLCanvasElement -> m Int-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation> -setHeight :: (MonadDOM m) => HTMLCanvasElement -> Int -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation> -getHeight :: (MonadDOM m) => HTMLCanvasElement -> m Int-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLCollection.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLCollection-       (item, namedItem, getLength, HTMLCollection, castToHTMLCollection,-        gTypeHTMLCollection, IsHTMLCollection, toHTMLCollection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation> -item ::-     (MonadDOM m, IsHTMLCollection self) =>-       self -> Word -> m (Maybe Node)-item self index-  = liftDOM-      (((toHTMLCollection self) ^. jsf "item" [toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation> -namedItem ::-          (MonadDOM m, IsHTMLCollection self, ToJSString name) =>-            self -> name -> m (Maybe Node)-namedItem self name-  = liftDOM-      (((toHTMLCollection self) ^. jsf "namedItem" [toJSVal name]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.length Mozilla HTMLCollection.length documentation> -getLength :: (MonadDOM m, IsHTMLCollection self) => self -> m Word-getLength self-  = liftDOM-      (round <$>-         (((toHTMLCollection self) ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLDListElement.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLDListElement-       (setCompact, getCompact, HTMLDListElement, castToHTMLDListElement,-        gTypeHTMLDListElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation> -setCompact :: (MonadDOM m) => HTMLDListElement -> Bool -> m ()-setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation> -getCompact :: (MonadDOM m) => HTMLDListElement -> m Bool-getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLDataListElement.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLDataListElement-       (getOptions, HTMLDataListElement, castToHTMLDataListElement,-        gTypeHTMLDataListElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> -getOptions ::-           (MonadDOM m) => HTMLDataListElement -> m (Maybe HTMLCollection)-getOptions self = liftDOM ((self ^. js "options") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLDetailsElement.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLDetailsElement-       (setOpen, getOpen, HTMLDetailsElement, castToHTMLDetailsElement,-        gTypeHTMLDetailsElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation> -setOpen :: (MonadDOM m) => HTMLDetailsElement -> Bool -> m ()-setOpen self val = liftDOM (self ^. jss "open" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation> -getOpen :: (MonadDOM m) => HTMLDetailsElement -> m Bool-getOpen self = liftDOM ((self ^. js "open") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLDirectoryElement.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLDirectoryElement-       (setCompact, getCompact, HTMLDirectoryElement,-        castToHTMLDirectoryElement, gTypeHTMLDirectoryElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation> -setCompact :: (MonadDOM m) => HTMLDirectoryElement -> Bool -> m ()-setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation> -getCompact :: (MonadDOM m) => HTMLDirectoryElement -> m Bool-getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLDivElement.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLDivElement-       (setAlign, getAlign, HTMLDivElement, castToHTMLDivElement,-        gTypeHTMLDivElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLDivElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLDivElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLDocument.hs 
@@ -1,175 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLDocument-       (open, close, write, writeln, clear, captureEvents, releaseEvents,-        getEmbeds, getPlugins, getScripts, getAll, getWidth, getHeight,-        setDir, getDir, setDesignMode, getDesignMode, getCompatMode,-        setBgColor, getBgColor, setFgColor, getFgColor, setAlinkColor,-        getAlinkColor, setLinkColor, getLinkColor, setVlinkColor,-        getVlinkColor, HTMLDocument, castToHTMLDocument, gTypeHTMLDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.open Mozilla HTMLDocument.open documentation> -open :: (MonadDOM m) => HTMLDocument -> m ()-open self = liftDOM (void (self ^. js "open"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.close Mozilla HTMLDocument.close documentation> -close :: (MonadDOM m) => HTMLDocument -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.write Mozilla HTMLDocument.write documentation> -write ::-      (MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()-write self text-  = liftDOM (void (self ^. jsf "write" [toJSVal text]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.writeln Mozilla HTMLDocument.writeln documentation> -writeln ::-        (MonadDOM m, ToJSString text) => HTMLDocument -> text -> m ()-writeln self text-  = liftDOM (void (self ^. jsf "writeln" [toJSVal text]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.clear Mozilla HTMLDocument.clear documentation> -clear :: (MonadDOM m) => HTMLDocument -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.captureEvents Mozilla HTMLDocument.captureEvents documentation> -captureEvents :: (MonadDOM m) => HTMLDocument -> m ()-captureEvents self = liftDOM (void (self ^. js "captureEvents"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.releaseEvents Mozilla HTMLDocument.releaseEvents documentation> -releaseEvents :: (MonadDOM m) => HTMLDocument -> m ()-releaseEvents self = liftDOM (void (self ^. js "releaseEvents"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> -getEmbeds ::-          (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)-getEmbeds self = liftDOM ((self ^. js "embeds") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> -getPlugins ::-           (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)-getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> -getScripts ::-           (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection)-getScripts self = liftDOM ((self ^. js "scripts") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> -getAll ::-       (MonadDOM m) => HTMLDocument -> m (Maybe HTMLAllCollection)-getAll self = liftDOM ((self ^. js "all") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.width Mozilla HTMLDocument.width documentation> -getWidth :: (MonadDOM m) => HTMLDocument -> m Int-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.height Mozilla HTMLDocument.height documentation> -getHeight :: (MonadDOM m) => HTMLDocument -> m Int-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> -setDir ::-       (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setDir self val = liftDOM (self ^. jss "dir" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> -getDir ::-       (MonadDOM m, FromJSString result) =>-         HTMLDocument -> m (Maybe result)-getDir self = liftDOM ((self ^. js "dir") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> -setDesignMode ::-              (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setDesignMode self val-  = liftDOM (self ^. jss "designMode" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> -getDesignMode ::-              (MonadDOM m, FromJSString result) =>-                HTMLDocument -> m (Maybe result)-getDesignMode self-  = liftDOM ((self ^. js "designMode") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.compatMode Mozilla HTMLDocument.compatMode documentation> -getCompatMode ::-              (MonadDOM m, FromJSString result) => HTMLDocument -> m result-getCompatMode self-  = liftDOM ((self ^. js "compatMode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> -setBgColor ::-           (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> -getBgColor ::-           (MonadDOM m, FromJSString result) =>-             HTMLDocument -> m (Maybe result)-getBgColor self-  = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> -setFgColor ::-           (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setFgColor self val = liftDOM (self ^. jss "fgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> -getFgColor ::-           (MonadDOM m, FromJSString result) =>-             HTMLDocument -> m (Maybe result)-getFgColor self-  = liftDOM ((self ^. js "fgColor") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> -setAlinkColor ::-              (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setAlinkColor self val-  = liftDOM (self ^. jss "alinkColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> -getAlinkColor ::-              (MonadDOM m, FromJSString result) =>-                HTMLDocument -> m (Maybe result)-getAlinkColor self-  = liftDOM ((self ^. js "alinkColor") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> -setLinkColor ::-             (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setLinkColor self val-  = liftDOM (self ^. jss "linkColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> -getLinkColor ::-             (MonadDOM m, FromJSString result) =>-               HTMLDocument -> m (Maybe result)-getLinkColor self-  = liftDOM ((self ^. js "linkColor") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> -setVlinkColor ::-              (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setVlinkColor self val-  = liftDOM (self ^. jss "vlinkColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> -getVlinkColor ::-              (MonadDOM m, FromJSString result) =>-                HTMLDocument -> m (Maybe result)-getVlinkColor self-  = liftDOM ((self ^. js "vlinkColor") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLElement.hs 
@@ -1,255 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLElement-       (insertAdjacentElement, insertAdjacentHTML, insertAdjacentText,-        click, setTitle, getTitle, setLang, getLang, setTranslate,-        getTranslate, setDir, getDir, setTabIndex, getTabIndex,-        setDraggable, getDraggable, setWebkitdropzone, getWebkitdropzone,-        setHidden, getHidden, setAccessKey, getAccessKey, setInnerText,-        getInnerText, setOuterText, getOuterText, getChildren,-        setContentEditable, getContentEditable, getIsContentEditable,-        setSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement,-        gTypeHTMLElement, IsHTMLElement, toHTMLElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> -insertAdjacentElement ::-                      (MonadDOM m, IsHTMLElement self, ToJSString where',-                       IsElement element) =>-                        self -> where' -> Maybe element -> m (Maybe Element)-insertAdjacentElement self where' element-  = liftDOM-      (((toHTMLElement self) ^. jsf "insertAdjacentElement"-          [toJSVal where', toJSVal element])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentHTML Mozilla HTMLElement.insertAdjacentHTML documentation> -insertAdjacentHTML ::-                   (MonadDOM m, IsHTMLElement self, ToJSString where',-                    ToJSString html) =>-                     self -> where' -> html -> m ()-insertAdjacentHTML self where' html-  = liftDOM-      (void-         ((toHTMLElement self) ^. jsf "insertAdjacentHTML"-            [toJSVal where', toJSVal html]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentText Mozilla HTMLElement.insertAdjacentText documentation> -insertAdjacentText ::-                   (MonadDOM m, IsHTMLElement self, ToJSString where',-                    ToJSString text) =>-                     self -> where' -> text -> m ()-insertAdjacentText self where' text-  = liftDOM-      (void-         ((toHTMLElement self) ^. jsf "insertAdjacentText"-            [toJSVal where', toJSVal text]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.click Mozilla HTMLElement.click documentation> -click :: (MonadDOM m, IsHTMLElement self) => self -> m ()-click self = liftDOM (void ((toHTMLElement self) ^. js "click"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation> -setTitle ::-         (MonadDOM m, IsHTMLElement self, ToJSString val) =>-           self -> val -> m ()-setTitle self val-  = liftDOM ((toHTMLElement self) ^. jss "title" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation> -getTitle ::-         (MonadDOM m, IsHTMLElement self, FromJSString result) =>-           self -> m result-getTitle self-  = liftDOM-      (((toHTMLElement self) ^. js "title") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation> -setLang ::-        (MonadDOM m, IsHTMLElement self, ToJSString val) =>-          self -> val -> m ()-setLang self val-  = liftDOM ((toHTMLElement self) ^. jss "lang" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation> -getLang ::-        (MonadDOM m, IsHTMLElement self, FromJSString result) =>-          self -> m result-getLang self-  = liftDOM-      (((toHTMLElement self) ^. js "lang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation> -setTranslate ::-             (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()-setTranslate self val-  = liftDOM ((toHTMLElement self) ^. jss "translate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation> -getTranslate :: (MonadDOM m, IsHTMLElement self) => self -> m Bool-getTranslate self-  = liftDOM (((toHTMLElement self) ^. js "translate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation> -setDir ::-       (MonadDOM m, IsHTMLElement self, ToJSString val) =>-         self -> val -> m ()-setDir self val-  = liftDOM ((toHTMLElement self) ^. jss "dir" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation> -getDir ::-       (MonadDOM m, IsHTMLElement self, FromJSString result) =>-         self -> m result-getDir self-  = liftDOM-      (((toHTMLElement self) ^. js "dir") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation> -setTabIndex ::-            (MonadDOM m, IsHTMLElement self) => self -> Int -> m ()-setTabIndex self val-  = liftDOM ((toHTMLElement self) ^. jss "tabIndex" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation> -getTabIndex :: (MonadDOM m, IsHTMLElement self) => self -> m Int-getTabIndex self-  = liftDOM-      (round <$>-         (((toHTMLElement self) ^. js "tabIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation> -setDraggable ::-             (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()-setDraggable self val-  = liftDOM ((toHTMLElement self) ^. jss "draggable" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation> -getDraggable :: (MonadDOM m, IsHTMLElement self) => self -> m Bool-getDraggable self-  = liftDOM (((toHTMLElement self) ^. js "draggable") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation> -setWebkitdropzone ::-                  (MonadDOM m, IsHTMLElement self, ToJSString val) =>-                    self -> val -> m ()-setWebkitdropzone self val-  = liftDOM-      ((toHTMLElement self) ^. jss "webkitdropzone" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation> -getWebkitdropzone ::-                  (MonadDOM m, IsHTMLElement self, FromJSString result) =>-                    self -> m result-getWebkitdropzone self-  = liftDOM-      (((toHTMLElement self) ^. js "webkitdropzone") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation> -setHidden ::-          (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()-setHidden self val-  = liftDOM ((toHTMLElement self) ^. jss "hidden" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation> -getHidden :: (MonadDOM m, IsHTMLElement self) => self -> m Bool-getHidden self-  = liftDOM (((toHTMLElement self) ^. js "hidden") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation> -setAccessKey ::-             (MonadDOM m, IsHTMLElement self, ToJSString val) =>-               self -> val -> m ()-setAccessKey self val-  = liftDOM ((toHTMLElement self) ^. jss "accessKey" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation> -getAccessKey ::-             (MonadDOM m, IsHTMLElement self, FromJSString result) =>-               self -> m result-getAccessKey self-  = liftDOM-      (((toHTMLElement self) ^. js "accessKey") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> -setInnerText ::-             (MonadDOM m, IsHTMLElement self, ToJSString val) =>-               self -> Maybe val -> m ()-setInnerText self val-  = liftDOM ((toHTMLElement self) ^. jss "innerText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> -getInnerText ::-             (MonadDOM m, IsHTMLElement self, FromJSString result) =>-               self -> m (Maybe result)-getInnerText self-  = liftDOM-      (((toHTMLElement self) ^. js "innerText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> -setOuterText ::-             (MonadDOM m, IsHTMLElement self, ToJSString val) =>-               self -> Maybe val -> m ()-setOuterText self val-  = liftDOM ((toHTMLElement self) ^. jss "outerText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> -getOuterText ::-             (MonadDOM m, IsHTMLElement self, FromJSString result) =>-               self -> m (Maybe result)-getOuterText self-  = liftDOM-      (((toHTMLElement self) ^. js "outerText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> -getChildren ::-            (MonadDOM m, IsHTMLElement self) =>-              self -> m (Maybe HTMLCollection)-getChildren self-  = liftDOM (((toHTMLElement self) ^. js "children") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> -setContentEditable ::-                   (MonadDOM m, IsHTMLElement self, ToJSString val) =>-                     self -> Maybe val -> m ()-setContentEditable self val-  = liftDOM-      ((toHTMLElement self) ^. jss "contentEditable" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> -getContentEditable ::-                   (MonadDOM m, IsHTMLElement self, FromJSString result) =>-                     self -> m (Maybe result)-getContentEditable self-  = liftDOM-      (((toHTMLElement self) ^. js "contentEditable") >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.isContentEditable Mozilla HTMLElement.isContentEditable documentation> -getIsContentEditable ::-                     (MonadDOM m, IsHTMLElement self) => self -> m Bool-getIsContentEditable self-  = liftDOM-      (((toHTMLElement self) ^. js "isContentEditable") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation> -setSpellcheck ::-              (MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()-setSpellcheck self val-  = liftDOM ((toHTMLElement self) ^. jss "spellcheck" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation> -getSpellcheck :: (MonadDOM m, IsHTMLElement self) => self -> m Bool-getSpellcheck self-  = liftDOM (((toHTMLElement self) ^. js "spellcheck") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLEmbedElement.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLEmbedElement-       (getSVGDocument, setAlign, getAlign, setHeight, getHeight, setName,-        getName, setSrc, getSrc, setType, getType, setWidth, getWidth,-        HTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> -getSVGDocument ::-               (MonadDOM m) => HTMLEmbedElement -> m (Maybe SVGDocument)-getSVGDocument self-  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation> -setHeight ::-          (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation> -getHeight ::-          (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result-getHeight self-  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLFieldSetElement.hs 
@@ -1,83 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLFieldSetElement-       (checkValidity, setCustomValidity, setDisabled, getDisabled,-        getForm, setName, getName, getType, getElements, getWillValidate,-        getValidity, getValidationMessage, HTMLFieldSetElement,-        castToHTMLFieldSetElement, gTypeHTMLFieldSetElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLFieldSetElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.setCustomValidity Mozilla HTMLFieldSetElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLFieldSetElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLFieldSetElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLFieldSetElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLFieldSetElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) =>-          HTMLFieldSetElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.type Mozilla HTMLFieldSetElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) =>-          HTMLFieldSetElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> -getElements ::-            (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLCollection)-getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.willValidate Mozilla HTMLFieldSetElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLFieldSetElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLFieldSetElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validationMessage Mozilla HTMLFieldSetElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) =>-                       HTMLFieldSetElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLFontElement.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLFontElement-       (setColor, getColor, setFace, getFace, setSize, getSize,-        HTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> -setColor ::-         (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m ()-setColor self val = liftDOM (self ^. jss "color" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation> -getColor ::-         (MonadDOM m, FromJSString result) => HTMLFontElement -> m result-getColor self-  = liftDOM ((self ^. js "color") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation> -setFace ::-        (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m ()-setFace self val = liftDOM (self ^. jss "face" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation> -getFace ::-        (MonadDOM m, FromJSString result) => HTMLFontElement -> m result-getFace self = liftDOM ((self ^. js "face") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation> -setSize ::-        (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m ()-setSize self val = liftDOM (self ^. jss "size" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation> -getSize ::-        (MonadDOM m, FromJSString result) => HTMLFontElement -> m result-getSize self = liftDOM ((self ^. js "size") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLFormControlsCollection.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLFormControlsCollection-       (_get, namedItem, HTMLFormControlsCollection,-        castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> -_get ::-     (MonadDOM m) =>-       HTMLFormControlsCollection -> Word -> m (Maybe Node)-_get self index-  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            HTMLFormControlsCollection -> name -> m (Maybe Node)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLFormElement.hs 
@@ -1,195 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLFormElement-       (_get, submit, reset, checkValidity, requestAutocomplete,-        setAcceptCharset, getAcceptCharset, setAction, getAction,-        setAutocomplete, getAutocomplete, setEnctype, getEnctype,-        setEncoding, getEncoding, setMethod, getMethod, setName, getName,-        setNoValidate, getNoValidate, setTarget, getTarget, getElements,-        getLength, setAutocorrect, getAutocorrect, setAutocapitalize,-        getAutocapitalize, autocomplete, autocompleteerror,-        HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> -_get ::-     (MonadDOM m) => HTMLFormElement -> Word -> m (Maybe Element)-_get self index-  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.submit Mozilla HTMLFormElement.submit documentation> -submit :: (MonadDOM m) => HTMLFormElement -> m ()-submit self = liftDOM (void (self ^. js "submit"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.reset Mozilla HTMLFormElement.reset documentation> -reset :: (MonadDOM m) => HTMLFormElement -> m ()-reset self = liftDOM (void (self ^. js "reset"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLFormElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.requestAutocomplete Mozilla HTMLFormElement.requestAutocomplete documentation> -requestAutocomplete :: (MonadDOM m) => HTMLFormElement -> m ()-requestAutocomplete self-  = liftDOM (void (self ^. js "requestAutocomplete"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation> -setAcceptCharset ::-                 (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()-setAcceptCharset self val-  = liftDOM (self ^. jss "acceptCharset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation> -getAcceptCharset ::-                 (MonadDOM m, FromJSString result) => HTMLFormElement -> m result-getAcceptCharset self-  = liftDOM ((self ^. js "acceptCharset") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation> -setAction ::-          (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()-setAction self val = liftDOM (self ^. jss "action" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation> -getAction ::-          (MonadDOM m, FromJSString result) => HTMLFormElement -> m result-getAction self-  = liftDOM ((self ^. js "action") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation> -setAutocomplete ::-                (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()-setAutocomplete self val-  = liftDOM (self ^. jss "autocomplete" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation> -getAutocomplete ::-                (MonadDOM m, FromJSString result) => HTMLFormElement -> m result-getAutocomplete self-  = liftDOM ((self ^. js "autocomplete") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> -setEnctype ::-           (MonadDOM m, ToJSString val) =>-             HTMLFormElement -> Maybe val -> m ()-setEnctype self val = liftDOM (self ^. jss "enctype" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> -getEnctype ::-           (MonadDOM m, FromJSString result) =>-             HTMLFormElement -> m (Maybe result)-getEnctype self-  = liftDOM ((self ^. js "enctype") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> -setEncoding ::-            (MonadDOM m, ToJSString val) =>-              HTMLFormElement -> Maybe val -> m ()-setEncoding self val-  = liftDOM (self ^. jss "encoding" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> -getEncoding ::-            (MonadDOM m, FromJSString result) =>-              HTMLFormElement -> m (Maybe result)-getEncoding self-  = liftDOM ((self ^. js "encoding") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> -setMethod ::-          (MonadDOM m, ToJSString val) =>-            HTMLFormElement -> Maybe val -> m ()-setMethod self val = liftDOM (self ^. jss "method" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> -getMethod ::-          (MonadDOM m, FromJSString result) =>-            HTMLFormElement -> m (Maybe result)-getMethod self-  = liftDOM ((self ^. js "method") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLFormElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation> -setNoValidate :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()-setNoValidate self val-  = liftDOM (self ^. jss "noValidate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation> -getNoValidate :: (MonadDOM m) => HTMLFormElement -> m Bool-getNoValidate self-  = liftDOM ((self ^. js "noValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation> -setTarget ::-          (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()-setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation> -getTarget ::-          (MonadDOM m, FromJSString result) => HTMLFormElement -> m result-getTarget self-  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> -getElements ::-            (MonadDOM m) => HTMLFormElement -> m (Maybe HTMLCollection)-getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.length Mozilla HTMLFormElement.length documentation> -getLength :: (MonadDOM m) => HTMLFormElement -> m Int-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation> -setAutocorrect :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()-setAutocorrect self val-  = liftDOM (self ^. jss "autocorrect" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation> -getAutocorrect :: (MonadDOM m) => HTMLFormElement -> m Bool-getAutocorrect self-  = liftDOM ((self ^. js "autocorrect") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> -setAutocapitalize ::-                  (MonadDOM m, ToJSString val) =>-                    HTMLFormElement -> Maybe val -> m ()-setAutocapitalize self val-  = liftDOM (self ^. jss "autocapitalize" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> -getAutocapitalize ::-                  (MonadDOM m, FromJSString result) =>-                    HTMLFormElement -> m (Maybe result)-getAutocapitalize self-  = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.onautocomplete Mozilla HTMLFormElement.onautocomplete documentation> -autocomplete :: EventName HTMLFormElement onautocomplete-autocomplete = unsafeEventName (toJSString "autocomplete")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.onautocompleteerror Mozilla HTMLFormElement.onautocompleteerror documentation> -autocompleteerror :: EventName HTMLFormElement onautocompleteerror-autocompleteerror-  = unsafeEventName (toJSString "autocompleteerror")
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLFrameElement.hs 
@@ -1,151 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLFrameElement-       (getSVGDocument, setFrameBorder, getFrameBorder, setLongDesc,-        getLongDesc, setMarginHeight, getMarginHeight, setMarginWidth,-        getMarginWidth, setName, getName, setNoResize, getNoResize,-        setScrolling, getScrolling, setSrc, getSrc, getContentDocument,-        getContentWindow, setLocation, getLocation, getWidth, getHeight,-        HTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> -getSVGDocument ::-               (MonadDOM m) => HTMLFrameElement -> m (Maybe SVGDocument)-getSVGDocument self-  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation> -setFrameBorder ::-               (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setFrameBorder self val-  = liftDOM (self ^. jss "frameBorder" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation> -getFrameBorder ::-               (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getFrameBorder self-  = liftDOM ((self ^. js "frameBorder") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation> -setLongDesc ::-            (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setLongDesc self val-  = liftDOM (self ^. jss "longDesc" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation> -getLongDesc ::-            (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getLongDesc self-  = liftDOM ((self ^. js "longDesc") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> -setMarginHeight ::-                (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setMarginHeight self val-  = liftDOM (self ^. jss "marginHeight" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation> -getMarginHeight ::-                (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getMarginHeight self-  = liftDOM ((self ^. js "marginHeight") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> -setMarginWidth ::-               (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setMarginWidth self val-  = liftDOM (self ^. jss "marginWidth" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation> -getMarginWidth ::-               (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getMarginWidth self-  = liftDOM ((self ^. js "marginWidth") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation> -setNoResize :: (MonadDOM m) => HTMLFrameElement -> Bool -> m ()-setNoResize self val-  = liftDOM (self ^. jss "noResize" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation> -getNoResize :: (MonadDOM m) => HTMLFrameElement -> m Bool-getNoResize self = liftDOM ((self ^. js "noResize") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation> -setScrolling ::-             (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setScrolling self val-  = liftDOM (self ^. jss "scrolling" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation> -getScrolling ::-             (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getScrolling self-  = liftDOM ((self ^. js "scrolling") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> -getContentDocument ::-                   (MonadDOM m) => HTMLFrameElement -> m (Maybe Document)-getContentDocument self-  = liftDOM ((self ^. js "contentDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> -getContentWindow ::-                 (MonadDOM m) => HTMLFrameElement -> m (Maybe Window)-getContentWindow self-  = liftDOM ((self ^. js "contentWindow") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> -setLocation ::-            (MonadDOM m, ToJSString val) =>-              HTMLFrameElement -> Maybe val -> m ()-setLocation self val-  = liftDOM (self ^. jss "location" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> -getLocation ::-            (MonadDOM m, FromJSString result) =>-              HTMLFrameElement -> m (Maybe result)-getLocation self-  = liftDOM ((self ^. js "location") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.width Mozilla HTMLFrameElement.width documentation> -getWidth :: (MonadDOM m) => HTMLFrameElement -> m Int-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.height Mozilla HTMLFrameElement.height documentation> -getHeight :: (MonadDOM m) => HTMLFrameElement -> m Int-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLFrameSetElement.hs 
@@ -1,97 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLFrameSetElement-       (setCols, getCols, setRows, getRows, beforeUnload, hashChange,-        message, offline, online, popState, resize, storage, unload,-        orientationChange, blur, error, focus, load, HTMLFrameSetElement,-        castToHTMLFrameSetElement, gTypeHTMLFrameSetElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation> -setCols ::-        (MonadDOM m, ToJSString val) => HTMLFrameSetElement -> val -> m ()-setCols self val = liftDOM (self ^. jss "cols" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation> -getCols ::-        (MonadDOM m, FromJSString result) =>-          HTMLFrameSetElement -> m result-getCols self = liftDOM ((self ^. js "cols") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation> -setRows ::-        (MonadDOM m, ToJSString val) => HTMLFrameSetElement -> val -> m ()-setRows self val = liftDOM (self ^. jss "rows" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation> -getRows ::-        (MonadDOM m, FromJSString result) =>-          HTMLFrameSetElement -> m result-getRows self = liftDOM ((self ^. js "rows") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onbeforeunload Mozilla HTMLFrameSetElement.onbeforeunload documentation> -beforeUnload :: EventName HTMLFrameSetElement BeforeUnloadEvent-beforeUnload = unsafeEventName (toJSString "beforeunload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onhashchange Mozilla HTMLFrameSetElement.onhashchange documentation> -hashChange :: EventName HTMLFrameSetElement HashChangeEvent-hashChange = unsafeEventName (toJSString "hashchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onmessage Mozilla HTMLFrameSetElement.onmessage documentation> -message :: EventName HTMLFrameSetElement MessageEvent-message = unsafeEventName (toJSString "message")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onoffline Mozilla HTMLFrameSetElement.onoffline documentation> -offline :: EventName HTMLFrameSetElement Event-offline = unsafeEventName (toJSString "offline")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.ononline Mozilla HTMLFrameSetElement.ononline documentation> -online :: EventName HTMLFrameSetElement Event-online = unsafeEventName (toJSString "online")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onpopstate Mozilla HTMLFrameSetElement.onpopstate documentation> -popState :: EventName HTMLFrameSetElement PopStateEvent-popState = unsafeEventName (toJSString "popstate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onresize Mozilla HTMLFrameSetElement.onresize documentation> -resize :: EventName HTMLFrameSetElement UIEvent-resize = unsafeEventName (toJSString "resize")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onstorage Mozilla HTMLFrameSetElement.onstorage documentation> -storage :: EventName HTMLFrameSetElement StorageEvent-storage = unsafeEventName (toJSString "storage")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onunload Mozilla HTMLFrameSetElement.onunload documentation> -unload :: EventName HTMLFrameSetElement UIEvent-unload = unsafeEventName (toJSString "unload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onorientationchange Mozilla HTMLFrameSetElement.onorientationchange documentation> -orientationChange :: EventName HTMLFrameSetElement Event-orientationChange-  = unsafeEventName (toJSString "orientationchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onblur Mozilla HTMLFrameSetElement.onblur documentation> -blur :: EventName HTMLFrameSetElement FocusEvent-blur = unsafeEventName (toJSString "blur")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onerror Mozilla HTMLFrameSetElement.onerror documentation> -error :: EventName HTMLFrameSetElement UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onfocus Mozilla HTMLFrameSetElement.onfocus documentation> -focus :: EventName HTMLFrameSetElement FocusEvent-focus = unsafeEventName (toJSString "focus")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onload Mozilla HTMLFrameSetElement.onload documentation> -load :: EventName HTMLFrameSetElement UIEvent-load = unsafeEventName (toJSString "load")
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLHRElement.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLHRElement-       (setAlign, getAlign, setNoShade, getNoShade, setSize, getSize,-        setWidth, getWidth, HTMLHRElement, castToHTMLHRElement,-        gTypeHTMLHRElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLHRElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLHRElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation> -setNoShade :: (MonadDOM m) => HTMLHRElement -> Bool -> m ()-setNoShade self val = liftDOM (self ^. jss "noShade" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation> -getNoShade :: (MonadDOM m) => HTMLHRElement -> m Bool-getNoShade self = liftDOM ((self ^. js "noShade") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation> -setSize ::-        (MonadDOM m, ToJSString val) => HTMLHRElement -> val -> m ()-setSize self val = liftDOM (self ^. jss "size" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation> -getSize ::-        (MonadDOM m, FromJSString result) => HTMLHRElement -> m result-getSize self = liftDOM ((self ^. js "size") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLHRElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLHRElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLHeadElement.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLHeadElement-       (setProfile, getProfile, HTMLHeadElement, castToHTMLHeadElement,-        gTypeHTMLHeadElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation> -setProfile ::-           (MonadDOM m, ToJSString val) => HTMLHeadElement -> val -> m ()-setProfile self val = liftDOM (self ^. jss "profile" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation> -getProfile ::-           (MonadDOM m, FromJSString result) => HTMLHeadElement -> m result-getProfile self-  = liftDOM ((self ^. js "profile") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLHeadingElement.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLHeadingElement-       (setAlign, getAlign, HTMLHeadingElement, castToHTMLHeadingElement,-        gTypeHTMLHeadingElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLHeadingElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLHeadingElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLHtmlElement.hs 
@@ -1,39 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLHtmlElement-       (setVersion, getVersion, setManifest, getManifest, HTMLHtmlElement,-        castToHTMLHtmlElement, gTypeHTMLHtmlElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation> -setVersion ::-           (MonadDOM m, ToJSString val) => HTMLHtmlElement -> val -> m ()-setVersion self val = liftDOM (self ^. jss "version" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation> -getVersion ::-           (MonadDOM m, FromJSString result) => HTMLHtmlElement -> m result-getVersion self-  = liftDOM ((self ^. js "version") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation> -setManifest ::-            (MonadDOM m, ToJSString val) => HTMLHtmlElement -> val -> m ()-setManifest self val-  = liftDOM (self ^. jss "manifest" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation> -getManifest ::-            (MonadDOM m, FromJSString result) => HTMLHtmlElement -> m result-getManifest self-  = liftDOM ((self ^. js "manifest") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLIFrameElement.hs 
@@ -1,174 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLIFrameElement-       (getSVGDocument, setAlign, getAlign, setFrameBorder,-        getFrameBorder, setHeight, getHeight, setLongDesc, getLongDesc,-        setMarginHeight, getMarginHeight, setMarginWidth, getMarginWidth,-        setName, getName, setSandbox, getSandbox, setScrolling,-        getScrolling, setSrc, getSrc, setSrcdoc, getSrcdoc, setWidth,-        getWidth, getContentDocument, getContentWindow, HTMLIFrameElement,-        castToHTMLIFrameElement, gTypeHTMLIFrameElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> -getSVGDocument ::-               (MonadDOM m) => HTMLIFrameElement -> m (Maybe SVGDocument)-getSVGDocument self-  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation> -setFrameBorder ::-               (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setFrameBorder self val-  = liftDOM (self ^. jss "frameBorder" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation> -getFrameBorder ::-               (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getFrameBorder self-  = liftDOM ((self ^. js "frameBorder") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation> -setHeight ::-          (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation> -getHeight ::-          (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getHeight self-  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation> -setLongDesc ::-            (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setLongDesc self val-  = liftDOM (self ^. jss "longDesc" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation> -getLongDesc ::-            (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getLongDesc self-  = liftDOM ((self ^. js "longDesc") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> -setMarginHeight ::-                (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setMarginHeight self val-  = liftDOM (self ^. jss "marginHeight" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation> -getMarginHeight ::-                (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getMarginHeight self-  = liftDOM ((self ^. js "marginHeight") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> -setMarginWidth ::-               (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setMarginWidth self val-  = liftDOM (self ^. jss "marginWidth" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation> -getMarginWidth ::-               (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getMarginWidth self-  = liftDOM ((self ^. js "marginWidth") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation> -setSandbox ::-           (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setSandbox self val = liftDOM (self ^. jss "sandbox" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation> -getSandbox ::-           (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getSandbox self-  = liftDOM ((self ^. js "sandbox") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation> -setScrolling ::-             (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setScrolling self val-  = liftDOM (self ^. jss "scrolling" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation> -getScrolling ::-             (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getScrolling self-  = liftDOM ((self ^. js "scrolling") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation> -setSrcdoc ::-          (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setSrcdoc self val = liftDOM (self ^. jss "srcdoc" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation> -getSrcdoc ::-          (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getSrcdoc self-  = liftDOM ((self ^. js "srcdoc") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> -getContentDocument ::-                   (MonadDOM m) => HTMLIFrameElement -> m (Maybe Document)-getContentDocument self-  = liftDOM ((self ^. js "contentDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> -getContentWindow ::-                 (MonadDOM m) => HTMLIFrameElement -> m (Maybe Window)-getContentWindow self-  = liftDOM ((self ^. js "contentWindow") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLImageElement.hs 
@@ -1,215 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLImageElement-       (setName, getName, setAlign, getAlign, setAlt, getAlt, setBorder,-        getBorder, setCrossOrigin, getCrossOrigin, setHeight, getHeight,-        setHspace, getHspace, setIsMap, getIsMap, setLongDesc, getLongDesc,-        setSrc, getSrc, setSrcset, getSrcset, setSizes, getSizes,-        getCurrentSrc, setUseMap, getUseMap, setVspace, getVspace,-        setWidth, getWidth, getComplete, setLowsrc, getLowsrc,-        getNaturalHeight, getNaturalWidth, getX, getY, HTMLImageElement,-        castToHTMLImageElement, gTypeHTMLImageElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation> -setAlt ::-       (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation> -getAlt ::-       (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> -setBorder ::-          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation> -getBorder ::-          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getBorder self-  = liftDOM ((self ^. js "border") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> -setCrossOrigin ::-               (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setCrossOrigin self val-  = liftDOM (self ^. jss "crossOrigin" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation> -getCrossOrigin ::-               (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getCrossOrigin self-  = liftDOM ((self ^. js "crossOrigin") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation> -setHeight :: (MonadDOM m) => HTMLImageElement -> Int -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation> -getHeight :: (MonadDOM m) => HTMLImageElement -> m Int-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation> -setHspace :: (MonadDOM m) => HTMLImageElement -> Int -> m ()-setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation> -getHspace :: (MonadDOM m) => HTMLImageElement -> m Int-getHspace self-  = liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation> -setIsMap :: (MonadDOM m) => HTMLImageElement -> Bool -> m ()-setIsMap self val = liftDOM (self ^. jss "isMap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation> -getIsMap :: (MonadDOM m) => HTMLImageElement -> m Bool-getIsMap self = liftDOM ((self ^. js "isMap") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation> -setLongDesc ::-            (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setLongDesc self val-  = liftDOM (self ^. jss "longDesc" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation> -getLongDesc ::-            (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getLongDesc self-  = liftDOM ((self ^. js "longDesc") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation> -setSrcset ::-          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setSrcset self val = liftDOM (self ^. jss "srcset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation> -getSrcset ::-          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getSrcset self-  = liftDOM ((self ^. js "srcset") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation> -setSizes ::-         (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setSizes self val = liftDOM (self ^. jss "sizes" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation> -getSizes ::-         (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getSizes self-  = liftDOM ((self ^. js "sizes") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.currentSrc Mozilla HTMLImageElement.currentSrc documentation> -getCurrentSrc ::-              (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getCurrentSrc self-  = liftDOM ((self ^. js "currentSrc") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation> -setUseMap ::-          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation> -getUseMap ::-          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getUseMap self-  = liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation> -setVspace :: (MonadDOM m) => HTMLImageElement -> Int -> m ()-setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation> -getVspace :: (MonadDOM m) => HTMLImageElement -> m Int-getVspace self-  = liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation> -setWidth :: (MonadDOM m) => HTMLImageElement -> Int -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation> -getWidth :: (MonadDOM m) => HTMLImageElement -> m Int-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.complete Mozilla HTMLImageElement.complete documentation> -getComplete :: (MonadDOM m) => HTMLImageElement -> m Bool-getComplete self = liftDOM ((self ^. js "complete") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation> -setLowsrc ::-          (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m ()-setLowsrc self val = liftDOM (self ^. jss "lowsrc" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation> -getLowsrc ::-          (MonadDOM m, FromJSString result) => HTMLImageElement -> m result-getLowsrc self-  = liftDOM ((self ^. js "lowsrc") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalHeight Mozilla HTMLImageElement.naturalHeight documentation> -getNaturalHeight :: (MonadDOM m) => HTMLImageElement -> m Int-getNaturalHeight self-  = liftDOM-      (round <$> ((self ^. js "naturalHeight") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalWidth Mozilla HTMLImageElement.naturalWidth documentation> -getNaturalWidth :: (MonadDOM m) => HTMLImageElement -> m Int-getNaturalWidth self-  = liftDOM (round <$> ((self ^. js "naturalWidth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.x Mozilla HTMLImageElement.x documentation> -getX :: (MonadDOM m) => HTMLImageElement -> m Int-getX self = liftDOM (round <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.y Mozilla HTMLImageElement.y documentation> -getY :: (MonadDOM m) => HTMLImageElement -> m Int-getY self = liftDOM (round <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLInputElement.hs 
@@ -1,583 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLInputElement-       (stepUp, stepDown, checkValidity, setCustomValidity, select,-        setRangeText, setRangeText4, setSelectionRange, setAccept,-        getAccept, setAlt, getAlt, setAutocomplete, getAutocomplete,-        setAutofocus, getAutofocus, setDefaultChecked, getDefaultChecked,-        setChecked, getChecked, setDirName, getDirName, setDisabled,-        getDisabled, getForm, setFiles, getFiles, setFormAction,-        getFormAction, setFormEnctype, getFormEnctype, setFormMethod,-        getFormMethod, setFormNoValidate, getFormNoValidate, setFormTarget,-        getFormTarget, setHeight, getHeight, setIndeterminate,-        getIndeterminate, getList, setMax, getMax, setMaxLength,-        getMaxLength, setMin, getMin, setMultiple, getMultiple, setName,-        getName, setPattern, getPattern, setPlaceholder, getPlaceholder,-        setReadOnly, getReadOnly, setRequired, getRequired, setSize,-        getSize, setSrc, getSrc, setStep, getStep, setType, getType,-        setDefaultValue, getDefaultValue, setValue, getValue,-        setValueAsDate, getValueAsDate, setValueAsNumber, getValueAsNumber,-        setWidth, getWidth, getWillValidate, getValidity,-        getValidationMessage, getLabels, setSelectionStart,-        getSelectionStart, setSelectionEnd, getSelectionEnd,-        setSelectionDirection, getSelectionDirection, setAlign, getAlign,-        setUseMap, getUseMap, setIncremental, getIncremental,-        setAutocorrect, getAutocorrect, setAutocapitalize,-        getAutocapitalize, setCapture, getCapture, HTMLInputElement,-        castToHTMLInputElement, gTypeHTMLInputElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepUp Mozilla HTMLInputElement.stepUp documentation> -stepUp :: (MonadDOM m) => HTMLInputElement -> Int -> m ()-stepUp self n = liftDOM (void (self ^. jsf "stepUp" [toJSVal n]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepDown Mozilla HTMLInputElement.stepDown documentation> -stepDown :: (MonadDOM m) => HTMLInputElement -> Int -> m ()-stepDown self n-  = liftDOM (void (self ^. jsf "stepDown" [toJSVal n]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLInputElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setCustomValidity Mozilla HTMLInputElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLInputElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.select Mozilla HTMLInputElement.select documentation> -select :: (MonadDOM m) => HTMLInputElement -> m ()-select self = liftDOM (void (self ^. js "select"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation> -setRangeText ::-             (MonadDOM m, ToJSString replacement) =>-               HTMLInputElement -> replacement -> m ()-setRangeText self replacement-  = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation> -setRangeText4 ::-              (MonadDOM m, ToJSString replacement, ToJSString selectionMode) =>-                HTMLInputElement ->-                  replacement -> Word -> Word -> selectionMode -> m ()-setRangeText4 self replacement start end selectionMode-  = liftDOM-      (void-         (self ^. jsf "setRangeText"-            [toJSVal replacement, toJSVal start, toJSVal end,-             toJSVal selectionMode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setSelectionRange Mozilla HTMLInputElement.setSelectionRange documentation> -setSelectionRange ::-                  (MonadDOM m, ToJSString direction) =>-                    HTMLInputElement -> Int -> Int -> direction -> m ()-setSelectionRange self start end direction-  = liftDOM-      (void-         (self ^. jsf "setSelectionRange"-            [toJSVal start, toJSVal end, toJSVal direction]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation> -setAccept ::-          (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setAccept self val = liftDOM (self ^. jss "accept" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation> -getAccept ::-          (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getAccept self-  = liftDOM ((self ^. js "accept") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation> -setAlt ::-       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setAlt self val = liftDOM (self ^. jss "alt" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation> -getAlt ::-       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getAlt self = liftDOM ((self ^. js "alt") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation> -setAutocomplete ::-                (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setAutocomplete self val-  = liftDOM (self ^. jss "autocomplete" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation> -getAutocomplete ::-                (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getAutocomplete self-  = liftDOM ((self ^. js "autocomplete") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation> -setAutofocus :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setAutofocus self val-  = liftDOM (self ^. jss "autofocus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation> -getAutofocus :: (MonadDOM m) => HTMLInputElement -> m Bool-getAutofocus self-  = liftDOM ((self ^. js "autofocus") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation> -setDefaultChecked ::-                  (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setDefaultChecked self val-  = liftDOM (self ^. jss "defaultChecked" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation> -getDefaultChecked :: (MonadDOM m) => HTMLInputElement -> m Bool-getDefaultChecked self-  = liftDOM ((self ^. js "defaultChecked") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation> -setChecked :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setChecked self val = liftDOM (self ^. jss "checked" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation> -getChecked :: (MonadDOM m) => HTMLInputElement -> m Bool-getChecked self = liftDOM ((self ^. js "checked") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation> -setDirName ::-           (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setDirName self val = liftDOM (self ^. jss "dirName" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation> -getDirName ::-           (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getDirName self-  = liftDOM ((self ^. js "dirName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLInputElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> -setFiles ::-         (MonadDOM m) => HTMLInputElement -> Maybe FileList -> m ()-setFiles self val = liftDOM (self ^. jss "files" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> -getFiles :: (MonadDOM m) => HTMLInputElement -> m (Maybe FileList)-getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation> -setFormAction ::-              (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setFormAction self val-  = liftDOM (self ^. jss "formAction" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation> -getFormAction ::-              (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getFormAction self-  = liftDOM ((self ^. js "formAction") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> -setFormEnctype ::-               (MonadDOM m, ToJSString val) =>-                 HTMLInputElement -> Maybe val -> m ()-setFormEnctype self val-  = liftDOM (self ^. jss "formEnctype" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> -getFormEnctype ::-               (MonadDOM m, FromJSString result) =>-                 HTMLInputElement -> m (Maybe result)-getFormEnctype self-  = liftDOM ((self ^. js "formEnctype") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> -setFormMethod ::-              (MonadDOM m, ToJSString val) =>-                HTMLInputElement -> Maybe val -> m ()-setFormMethod self val-  = liftDOM (self ^. jss "formMethod" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> -getFormMethod ::-              (MonadDOM m, FromJSString result) =>-                HTMLInputElement -> m (Maybe result)-getFormMethod self-  = liftDOM ((self ^. js "formMethod") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation> -setFormNoValidate ::-                  (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setFormNoValidate self val-  = liftDOM (self ^. jss "formNoValidate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation> -getFormNoValidate :: (MonadDOM m) => HTMLInputElement -> m Bool-getFormNoValidate self-  = liftDOM ((self ^. js "formNoValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation> -setFormTarget ::-              (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setFormTarget self val-  = liftDOM (self ^. jss "formTarget" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation> -getFormTarget ::-              (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getFormTarget self-  = liftDOM ((self ^. js "formTarget") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation> -setHeight :: (MonadDOM m) => HTMLInputElement -> Word -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation> -getHeight :: (MonadDOM m) => HTMLInputElement -> m Word-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation> -setIndeterminate ::-                 (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setIndeterminate self val-  = liftDOM (self ^. jss "indeterminate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation> -getIndeterminate :: (MonadDOM m) => HTMLInputElement -> m Bool-getIndeterminate self-  = liftDOM ((self ^. js "indeterminate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> -getList ::-        (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLElement)-getList self = liftDOM ((self ^. js "list") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation> -setMax ::-       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setMax self val = liftDOM (self ^. jss "max" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation> -getMax ::-       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getMax self = liftDOM ((self ^. js "max") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation> -setMaxLength :: (MonadDOM m) => HTMLInputElement -> Int -> m ()-setMaxLength self val-  = liftDOM (self ^. jss "maxLength" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation> -getMaxLength :: (MonadDOM m) => HTMLInputElement -> m Int-getMaxLength self-  = liftDOM (round <$> ((self ^. js "maxLength") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation> -setMin ::-       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setMin self val = liftDOM (self ^. jss "min" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation> -getMin ::-       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getMin self = liftDOM ((self ^. js "min") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation> -setMultiple :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setMultiple self val-  = liftDOM (self ^. jss "multiple" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation> -getMultiple :: (MonadDOM m) => HTMLInputElement -> m Bool-getMultiple self = liftDOM ((self ^. js "multiple") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation> -setPattern ::-           (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setPattern self val = liftDOM (self ^. jss "pattern" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation> -getPattern ::-           (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getPattern self-  = liftDOM ((self ^. js "pattern") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation> -setPlaceholder ::-               (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setPlaceholder self val-  = liftDOM (self ^. jss "placeholder" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation> -getPlaceholder ::-               (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getPlaceholder self-  = liftDOM ((self ^. js "placeholder") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation> -setReadOnly :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setReadOnly self val-  = liftDOM (self ^. jss "readOnly" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation> -getReadOnly :: (MonadDOM m) => HTMLInputElement -> m Bool-getReadOnly self = liftDOM ((self ^. js "readOnly") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation> -setRequired :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setRequired self val-  = liftDOM (self ^. jss "required" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation> -getRequired :: (MonadDOM m) => HTMLInputElement -> m Bool-getRequired self = liftDOM ((self ^. js "required") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation> -setSize :: (MonadDOM m) => HTMLInputElement -> Word -> m ()-setSize self val = liftDOM (self ^. jss "size" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation> -getSize :: (MonadDOM m) => HTMLInputElement -> m Word-getSize self-  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation> -setStep ::-        (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setStep self val = liftDOM (self ^. jss "step" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation> -getStep ::-        (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getStep self = liftDOM ((self ^. js "step") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> -setDefaultValue ::-                (MonadDOM m, ToJSString val) =>-                  HTMLInputElement -> Maybe val -> m ()-setDefaultValue self val-  = liftDOM (self ^. jss "defaultValue" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> -getDefaultValue ::-                (MonadDOM m, FromJSString result) =>-                  HTMLInputElement -> m (Maybe result)-getDefaultValue self-  = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) =>-           HTMLInputElement -> Maybe val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) =>-           HTMLInputElement -> m (Maybe result)-getValue self-  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> -setValueAsDate ::-               (MonadDOM m, IsDate val) => HTMLInputElement -> Maybe val -> m ()-setValueAsDate self val-  = liftDOM (self ^. jss "valueAsDate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> -getValueAsDate ::-               (MonadDOM m) => HTMLInputElement -> m (Maybe Date)-getValueAsDate self-  = liftDOM ((self ^. js "valueAsDate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation> -setValueAsNumber ::-                 (MonadDOM m) => HTMLInputElement -> Double -> m ()-setValueAsNumber self val-  = liftDOM (self ^. jss "valueAsNumber" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation> -getValueAsNumber :: (MonadDOM m) => HTMLInputElement -> m Double-getValueAsNumber self-  = liftDOM ((self ^. js "valueAsNumber") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation> -setWidth :: (MonadDOM m) => HTMLInputElement -> Word -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation> -getWidth :: (MonadDOM m) => HTMLInputElement -> m Word-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.willValidate Mozilla HTMLInputElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLInputElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLInputElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validationMessage Mozilla HTMLInputElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> -getLabels :: (MonadDOM m) => HTMLInputElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation> -setSelectionStart ::-                  (MonadDOM m) => HTMLInputElement -> Int -> m ()-setSelectionStart self val-  = liftDOM (self ^. jss "selectionStart" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation> -getSelectionStart :: (MonadDOM m) => HTMLInputElement -> m Int-getSelectionStart self-  = liftDOM-      (round <$> ((self ^. js "selectionStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation> -setSelectionEnd :: (MonadDOM m) => HTMLInputElement -> Int -> m ()-setSelectionEnd self val-  = liftDOM (self ^. jss "selectionEnd" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation> -getSelectionEnd :: (MonadDOM m) => HTMLInputElement -> m Int-getSelectionEnd self-  = liftDOM (round <$> ((self ^. js "selectionEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation> -setSelectionDirection ::-                      (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setSelectionDirection self val-  = liftDOM (self ^. jss "selectionDirection" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation> -getSelectionDirection ::-                      (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getSelectionDirection self-  = liftDOM-      ((self ^. js "selectionDirection") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation> -setUseMap ::-          (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()-setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation> -getUseMap ::-          (MonadDOM m, FromJSString result) => HTMLInputElement -> m result-getUseMap self-  = liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation> -setIncremental :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setIncremental self val-  = liftDOM (self ^. jss "incremental" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation> -getIncremental :: (MonadDOM m) => HTMLInputElement -> m Bool-getIncremental self-  = liftDOM ((self ^. js "incremental") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation> -setAutocorrect :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setAutocorrect self val-  = liftDOM (self ^. jss "autocorrect" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation> -getAutocorrect :: (MonadDOM m) => HTMLInputElement -> m Bool-getAutocorrect self-  = liftDOM ((self ^. js "autocorrect") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> -setAutocapitalize ::-                  (MonadDOM m, ToJSString val) =>-                    HTMLInputElement -> Maybe val -> m ()-setAutocapitalize self val-  = liftDOM (self ^. jss "autocapitalize" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> -getAutocapitalize ::-                  (MonadDOM m, FromJSString result) =>-                    HTMLInputElement -> m (Maybe result)-getAutocapitalize self-  = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation> -setCapture :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()-setCapture self val = liftDOM (self ^. jss "capture" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation> -getCapture :: (MonadDOM m) => HTMLInputElement -> m Bool-getCapture self = liftDOM ((self ^. js "capture") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLKeygenElement.hs 
@@ -1,114 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLKeygenElement-       (checkValidity, setCustomValidity, setAutofocus, getAutofocus,-        setChallenge, getChallenge, setDisabled, getDisabled, getForm,-        setKeytype, getKeytype, setName, getName, getType, getWillValidate,-        getValidity, getValidationMessage, getLabels, HTMLKeygenElement,-        castToHTMLKeygenElement, gTypeHTMLKeygenElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLKeygenElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.setCustomValidity Mozilla HTMLKeygenElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLKeygenElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation> -setAutofocus :: (MonadDOM m) => HTMLKeygenElement -> Bool -> m ()-setAutofocus self val-  = liftDOM (self ^. jss "autofocus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation> -getAutofocus :: (MonadDOM m) => HTMLKeygenElement -> m Bool-getAutofocus self-  = liftDOM ((self ^. js "autofocus") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation> -setChallenge ::-             (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m ()-setChallenge self val-  = liftDOM (self ^. jss "challenge" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation> -getChallenge ::-             (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result-getChallenge self-  = liftDOM ((self ^. js "challenge") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLKeygenElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLKeygenElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLKeygenElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation> -setKeytype ::-           (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m ()-setKeytype self val = liftDOM (self ^. jss "keytype" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation> -getKeytype ::-           (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result-getKeytype self-  = liftDOM ((self ^. js "keytype") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.type Mozilla HTMLKeygenElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.willValidate Mozilla HTMLKeygenElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLKeygenElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLKeygenElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validationMessage Mozilla HTMLKeygenElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> -getLabels ::-          (MonadDOM m) => HTMLKeygenElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLLIElement.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLLIElement-       (setType, getType, setValue, getValue, HTMLLIElement,-        castToHTMLLIElement, gTypeHTMLLIElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLLIElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLLIElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation> -setValue :: (MonadDOM m) => HTMLLIElement -> Int -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation> -getValue :: (MonadDOM m) => HTMLLIElement -> m Int-getValue self-  = liftDOM (round <$> ((self ^. js "value") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLLabelElement.hs 
@@ -1,37 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLLabelElement-       (getForm, setHtmlFor, getHtmlFor, getControl, HTMLLabelElement,-        castToHTMLLabelElement, gTypeHTMLLabelElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation> -setHtmlFor ::-           (MonadDOM m, ToJSString val) => HTMLLabelElement -> val -> m ()-setHtmlFor self val = liftDOM (self ^. jss "htmlFor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation> -getHtmlFor ::-           (MonadDOM m, FromJSString result) => HTMLLabelElement -> m result-getHtmlFor self-  = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> -getControl ::-           (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLElement)-getControl self = liftDOM ((self ^. js "control") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLLegendElement.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLLegendElement-       (getForm, setAlign, getAlign, HTMLLegendElement,-        castToHTMLLegendElement, gTypeHTMLLegendElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLLegendElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLLegendElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLLegendElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLLinkElement.hs 
@@ -1,133 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLLinkElement-       (setDisabled, getDisabled, setCharset, getCharset, setHref,-        getHref, setHreflang, getHreflang, setMedia, getMedia, setRel,-        getRel, setRev, getRev, setSizes, getSizes, setTarget, getTarget,-        setType, getType, getSheet, getRelList, HTMLLinkElement,-        castToHTMLLinkElement, gTypeHTMLLinkElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLLinkElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLLinkElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation> -setCharset ::-           (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation> -getCharset ::-           (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getCharset self-  = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation> -setHref ::-        (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setHref self val = liftDOM (self ^. jss "href" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation> -setHreflang ::-            (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setHreflang self val-  = liftDOM (self ^. jss "hreflang" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation> -getHreflang ::-            (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getHreflang self-  = liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation> -setMedia ::-         (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation> -getMedia ::-         (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getMedia self-  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation> -setRel ::-       (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation> -getRel ::-       (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation> -setRev ::-       (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setRev self val = liftDOM (self ^. jss "rev" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation> -getRev ::-       (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> -setSizes ::-         (MonadDOM m) =>-           HTMLLinkElement -> Maybe DOMSettableTokenList -> m ()-setSizes self val = liftDOM (self ^. jss "sizes" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> -getSizes ::-         (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList)-getSizes self = liftDOM ((self ^. js "sizes") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation> -setTarget ::-          (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation> -getTarget ::-          (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getTarget self-  = liftDOM ((self ^. js "target") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> -getSheet :: (MonadDOM m) => HTMLLinkElement -> m (Maybe StyleSheet)-getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> -getRelList ::-           (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMTokenList)-getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLMapElement.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLMapElement-       (getAreas, setName, getName, HTMLMapElement, castToHTMLMapElement,-        gTypeHTMLMapElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> -getAreas ::-         (MonadDOM m) => HTMLMapElement -> m (Maybe HTMLCollection)-getAreas self = liftDOM ((self ^. js "areas") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLMapElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLMapElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLMarqueeElement.hs 
@@ -1,143 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLMarqueeElement-       (start, stop, setBehavior, getBehavior, setBgColor, getBgColor,-        setDirection, getDirection, setHeight, getHeight, setHspace,-        getHspace, setLoop, getLoop, setScrollAmount, getScrollAmount,-        setScrollDelay, getScrollDelay, setTrueSpeed, getTrueSpeed,-        setVspace, getVspace, setWidth, getWidth, HTMLMarqueeElement,-        castToHTMLMarqueeElement, gTypeHTMLMarqueeElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.start Mozilla HTMLMarqueeElement.start documentation> -start :: (MonadDOM m) => HTMLMarqueeElement -> m ()-start self = liftDOM (void (self ^. js "start"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.stop Mozilla HTMLMarqueeElement.stop documentation> -stop :: (MonadDOM m) => HTMLMarqueeElement -> m ()-stop self = liftDOM (void (self ^. js "stop"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation> -setBehavior ::-            (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setBehavior self val-  = liftDOM (self ^. jss "behavior" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation> -getBehavior ::-            (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result-getBehavior self-  = liftDOM ((self ^. js "behavior") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation> -setBgColor ::-           (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation> -getBgColor ::-           (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result-getBgColor self-  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation> -setDirection ::-             (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setDirection self val-  = liftDOM (self ^. jss "direction" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation> -getDirection ::-             (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result-getDirection self-  = liftDOM ((self ^. js "direction") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation> -setHeight ::-          (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation> -getHeight ::-          (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result-getHeight self-  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation> -setHspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()-setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation> -getHspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word-getHspace self-  = liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation> -setLoop :: (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()-setLoop self val = liftDOM (self ^. jss "loop" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation> -getLoop :: (MonadDOM m) => HTMLMarqueeElement -> m Int-getLoop self-  = liftDOM (round <$> ((self ^. js "loop") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation> -setScrollAmount ::-                (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()-setScrollAmount self val-  = liftDOM (self ^. jss "scrollAmount" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation> -getScrollAmount :: (MonadDOM m) => HTMLMarqueeElement -> m Int-getScrollAmount self-  = liftDOM (round <$> ((self ^. js "scrollAmount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation> -setScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> Int -> m ()-setScrollDelay self val-  = liftDOM (self ^. jss "scrollDelay" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation> -getScrollDelay :: (MonadDOM m) => HTMLMarqueeElement -> m Int-getScrollDelay self-  = liftDOM (round <$> ((self ^. js "scrollDelay") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation> -setTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> Bool -> m ()-setTrueSpeed self val-  = liftDOM (self ^. jss "trueSpeed" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation> -getTrueSpeed :: (MonadDOM m) => HTMLMarqueeElement -> m Bool-getTrueSpeed self-  = liftDOM ((self ^. js "trueSpeed") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation> -setVspace :: (MonadDOM m) => HTMLMarqueeElement -> Word -> m ()-setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation> -getVspace :: (MonadDOM m) => HTMLMarqueeElement -> m Word-getVspace self-  = liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLMarqueeElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLMediaElement.hs 
@@ -1,663 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLMediaElement-       (load, canPlayType, play, pause, fastSeek,-        webkitGenerateKeyRequest, webkitAddKey, webkitCancelKeyRequest,-        webkitSetMediaKeys, addTextTrack, getVideoPlaybackQuality,-        webkitShowPlaybackTargetPicker, pattern NETWORK_EMPTY,-        pattern NETWORK_IDLE, pattern NETWORK_LOADING,-        pattern NETWORK_NO_SOURCE, pattern HAVE_NOTHING,-        pattern HAVE_METADATA, pattern HAVE_CURRENT_DATA,-        pattern HAVE_FUTURE_DATA, pattern HAVE_ENOUGH_DATA, getError,-        setSrc, getSrc, getCurrentSrc, getNetworkState, setPreload,-        getPreload, getBuffered, getReadyState, getSeeking, setCurrentTime,-        getCurrentTime, getDuration, getPaused, setDefaultPlaybackRate,-        getDefaultPlaybackRate, setPlaybackRate, getPlaybackRate,-        getPlayed, getSeekable, getEnded, setAutoplay, getAutoplay,-        setLoop, getLoop, setControls, getControls, setVolume, getVolume,-        setMuted, getMuted, setDefaultMuted, getDefaultMuted, emptied,-        loadedMetadata, loadedData, canPlay, canPlayThrough, playing,-        ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent,-        rateChange, volumeChange, setWebkitPreservesPitch,-        getWebkitPreservesPitch, getWebkitHasClosedCaptions,-        setWebkitClosedCaptionsVisible, getWebkitClosedCaptionsVisible,-        getWebkitAudioDecodedByteCount, getWebkitVideoDecodedByteCount,-        webKitKeyAdded, webKitKeyError, webKitKeyMessage, webKitNeedKey,-        getWebkitKeys, getAudioTracks, getTextTracks, getVideoTracks,-        setMediaGroup, getMediaGroup, setController, getController,-        getWebkitCurrentPlaybackTargetIsWireless,-        webKitCurrentPlaybackTargetIsWirelessChanged,-        webKitPlaybackTargetAvailabilityChanged, setSrcObject,-        getSrcObject, HTMLMediaElement, castToHTMLMediaElement,-        gTypeHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.load Mozilla HTMLMediaElement.load documentation> -load :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()-load self = liftDOM (void ((toHTMLMediaElement self) ^. js "load"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.canPlayType Mozilla HTMLMediaElement.canPlayType documentation> -canPlayType ::-            (MonadDOM m, IsHTMLMediaElement self, ToJSString type',-             ToJSString keySystem, FromJSString result) =>-              self -> type' -> Maybe keySystem -> m result-canPlayType self type' keySystem-  = liftDOM-      (((toHTMLMediaElement self) ^. jsf "canPlayType"-          [toJSVal type', toJSVal keySystem])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.play Mozilla HTMLMediaElement.play documentation> -play :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()-play self = liftDOM (void ((toHTMLMediaElement self) ^. js "play"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.pause Mozilla HTMLMediaElement.pause documentation> -pause :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()-pause self-  = liftDOM (void ((toHTMLMediaElement self) ^. js "pause"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.fastSeek Mozilla HTMLMediaElement.fastSeek documentation> -fastSeek ::-         (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()-fastSeek self time-  = liftDOM-      (void ((toHTMLMediaElement self) ^. jsf "fastSeek" [toJSVal time]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitGenerateKeyRequest Mozilla HTMLMediaElement.webkitGenerateKeyRequest documentation> -webkitGenerateKeyRequest ::-                         (MonadDOM m, IsHTMLMediaElement self, ToJSString keySystem,-                          IsUint8Array initData) =>-                           self -> Maybe keySystem -> Maybe initData -> m ()-webkitGenerateKeyRequest self keySystem initData-  = liftDOM-      (void-         ((toHTMLMediaElement self) ^. jsf "webkitGenerateKeyRequest"-            [toJSVal keySystem, toJSVal initData]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAddKey Mozilla HTMLMediaElement.webkitAddKey documentation> -webkitAddKey ::-             (MonadDOM m, IsHTMLMediaElement self, ToJSString keySystem,-              IsUint8Array key, IsUint8Array initData, ToJSString sessionId) =>-               self ->-                 Maybe keySystem -> Maybe key -> Maybe initData -> sessionId -> m ()-webkitAddKey self keySystem key initData sessionId-  = liftDOM-      (void-         ((toHTMLMediaElement self) ^. jsf "webkitAddKey"-            [toJSVal keySystem, toJSVal key, toJSVal initData,-             toJSVal sessionId]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCancelKeyRequest Mozilla HTMLMediaElement.webkitCancelKeyRequest documentation> -webkitCancelKeyRequest ::-                       (MonadDOM m, IsHTMLMediaElement self, ToJSString keySystem,-                        ToJSString sessionId) =>-                         self -> Maybe keySystem -> sessionId -> m ()-webkitCancelKeyRequest self keySystem sessionId-  = liftDOM-      (void-         ((toHTMLMediaElement self) ^. jsf "webkitCancelKeyRequest"-            [toJSVal keySystem, toJSVal sessionId]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitSetMediaKeys Mozilla HTMLMediaElement.webkitSetMediaKeys documentation> -webkitSetMediaKeys ::-                   (MonadDOM m, IsHTMLMediaElement self) =>-                     self -> Maybe MediaKeys -> m ()-webkitSetMediaKeys self mediaKeys-  = liftDOM-      (void-         ((toHTMLMediaElement self) ^. jsf "webkitSetMediaKeys"-            [toJSVal mediaKeys]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> -addTextTrack ::-             (MonadDOM m, IsHTMLMediaElement self, ToJSString kind,-              ToJSString label, ToJSString language) =>-               self -> kind -> label -> language -> m (Maybe TextTrack)-addTextTrack self kind label language-  = liftDOM-      (((toHTMLMediaElement self) ^. jsf "addTextTrack"-          [toJSVal kind, toJSVal label, toJSVal language])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> -getVideoPlaybackQuality ::-                        (MonadDOM m, IsHTMLMediaElement self) =>-                          self -> m (Maybe VideoPlaybackQuality)-getVideoPlaybackQuality self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "getVideoPlaybackQuality") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitShowPlaybackTargetPicker Mozilla HTMLMediaElement.webkitShowPlaybackTargetPicker documentation> -webkitShowPlaybackTargetPicker ::-                               (MonadDOM m, IsHTMLMediaElement self) => self -> m ()-webkitShowPlaybackTargetPicker self-  = liftDOM-      (void-         ((toHTMLMediaElement self) ^. js "webkitShowPlaybackTargetPicker"))-pattern NETWORK_EMPTY = 0-pattern NETWORK_IDLE = 1-pattern NETWORK_LOADING = 2-pattern NETWORK_NO_SOURCE = 3-pattern HAVE_NOTHING = 0-pattern HAVE_METADATA = 1-pattern HAVE_CURRENT_DATA = 2-pattern HAVE_FUTURE_DATA = 3-pattern HAVE_ENOUGH_DATA = 4---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> -getError ::-         (MonadDOM m, IsHTMLMediaElement self) =>-           self -> m (Maybe MediaError)-getError self-  = liftDOM (((toHTMLMediaElement self) ^. js "error") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation> -setSrc ::-       (MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>-         self -> val -> m ()-setSrc self val-  = liftDOM ((toHTMLMediaElement self) ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation> -getSrc ::-       (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>-         self -> m result-getSrc self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentSrc Mozilla HTMLMediaElement.currentSrc documentation> -getCurrentSrc ::-              (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>-                self -> m result-getCurrentSrc self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "currentSrc") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.networkState Mozilla HTMLMediaElement.networkState documentation> -getNetworkState ::-                (MonadDOM m, IsHTMLMediaElement self) => self -> m Word-getNetworkState self-  = liftDOM-      (round <$>-         (((toHTMLMediaElement self) ^. js "networkState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation> -setPreload ::-           (MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>-             self -> val -> m ()-setPreload self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "preload" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation> -getPreload ::-           (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>-             self -> m result-getPreload self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "preload") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> -getBuffered ::-            (MonadDOM m, IsHTMLMediaElement self) =>-              self -> m (Maybe TimeRanges)-getBuffered self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "buffered") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.readyState Mozilla HTMLMediaElement.readyState documentation> -getReadyState ::-              (MonadDOM m, IsHTMLMediaElement self) => self -> m Word-getReadyState self-  = liftDOM-      (round <$>-         (((toHTMLMediaElement self) ^. js "readyState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seeking Mozilla HTMLMediaElement.seeking documentation> -getSeeking ::-           (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getSeeking self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "seeking") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation> -setCurrentTime ::-               (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()-setCurrentTime self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "currentTime" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation> -getCurrentTime ::-               (MonadDOM m, IsHTMLMediaElement self) => self -> m Double-getCurrentTime self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "currentTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.duration Mozilla HTMLMediaElement.duration documentation> -getDuration ::-            (MonadDOM m, IsHTMLMediaElement self) => self -> m Double-getDuration self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "duration") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.paused Mozilla HTMLMediaElement.paused documentation> -getPaused ::-          (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getPaused self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "paused") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation> -setDefaultPlaybackRate ::-                       (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()-setDefaultPlaybackRate self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "defaultPlaybackRate"-         (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation> -getDefaultPlaybackRate ::-                       (MonadDOM m, IsHTMLMediaElement self) => self -> m Double-getDefaultPlaybackRate self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "defaultPlaybackRate") >>=-         valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation> -setPlaybackRate ::-                (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()-setPlaybackRate self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "playbackRate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation> -getPlaybackRate ::-                (MonadDOM m, IsHTMLMediaElement self) => self -> m Double-getPlaybackRate self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "playbackRate") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> -getPlayed ::-          (MonadDOM m, IsHTMLMediaElement self) =>-            self -> m (Maybe TimeRanges)-getPlayed self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "played") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> -getSeekable ::-            (MonadDOM m, IsHTMLMediaElement self) =>-              self -> m (Maybe TimeRanges)-getSeekable self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "seekable") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ended Mozilla HTMLMediaElement.ended documentation> -getEnded :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getEnded self-  = liftDOM (((toHTMLMediaElement self) ^. js "ended") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation> -setAutoplay ::-            (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setAutoplay self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "autoplay" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation> -getAutoplay ::-            (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getAutoplay self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "autoplay") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation> -setLoop ::-        (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setLoop self val-  = liftDOM ((toHTMLMediaElement self) ^. jss "loop" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation> -getLoop :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getLoop self-  = liftDOM (((toHTMLMediaElement self) ^. js "loop") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation> -setControls ::-            (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setControls self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "controls" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation> -getControls ::-            (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getControls self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "controls") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation> -setVolume ::-          (MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()-setVolume self val-  = liftDOM ((toHTMLMediaElement self) ^. jss "volume" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation> -getVolume ::-          (MonadDOM m, IsHTMLMediaElement self) => self -> m Double-getVolume self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "volume") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation> -setMuted ::-         (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setMuted self val-  = liftDOM ((toHTMLMediaElement self) ^. jss "muted" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation> -getMuted :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getMuted self-  = liftDOM (((toHTMLMediaElement self) ^. js "muted") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation> -setDefaultMuted ::-                (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setDefaultMuted self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "defaultMuted" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation> -getDefaultMuted ::-                (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getDefaultMuted self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "defaultMuted") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onemptied Mozilla HTMLMediaElement.onemptied documentation> -emptied ::-        (IsHTMLMediaElement self, IsEventTarget self) =>-          EventName self Event-emptied = unsafeEventName (toJSString "emptied")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onloadedmetadata Mozilla HTMLMediaElement.onloadedmetadata documentation> -loadedMetadata ::-               (IsHTMLMediaElement self, IsEventTarget self) =>-                 EventName self Event-loadedMetadata = unsafeEventName (toJSString "loadedmetadata")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onloadeddata Mozilla HTMLMediaElement.onloadeddata documentation> -loadedData ::-           (IsHTMLMediaElement self, IsEventTarget self) =>-             EventName self Event-loadedData = unsafeEventName (toJSString "loadeddata")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.oncanplay Mozilla HTMLMediaElement.oncanplay documentation> -canPlay ::-        (IsHTMLMediaElement self, IsEventTarget self) =>-          EventName self Event-canPlay = unsafeEventName (toJSString "canplay")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.oncanplaythrough Mozilla HTMLMediaElement.oncanplaythrough documentation> -canPlayThrough ::-               (IsHTMLMediaElement self, IsEventTarget self) =>-                 EventName self Event-canPlayThrough = unsafeEventName (toJSString "canplaythrough")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onplaying Mozilla HTMLMediaElement.onplaying documentation> -playing ::-        (IsHTMLMediaElement self, IsEventTarget self) =>-          EventName self Event-playing = unsafeEventName (toJSString "playing")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onended Mozilla HTMLMediaElement.onended documentation> -ended ::-      (IsHTMLMediaElement self, IsEventTarget self) =>-        EventName self Event-ended = unsafeEventName (toJSString "ended")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwaiting Mozilla HTMLMediaElement.onwaiting documentation> -waiting ::-        (IsHTMLMediaElement self, IsEventTarget self) =>-          EventName self Event-waiting = unsafeEventName (toJSString "waiting")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ondurationchange Mozilla HTMLMediaElement.ondurationchange documentation> -durationChange ::-               (IsHTMLMediaElement self, IsEventTarget self) =>-                 EventName self Event-durationChange = unsafeEventName (toJSString "durationchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ontimeupdate Mozilla HTMLMediaElement.ontimeupdate documentation> -timeUpdate ::-           (IsHTMLMediaElement self, IsEventTarget self) =>-             EventName self Event-timeUpdate = unsafeEventName (toJSString "timeupdate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onplay Mozilla HTMLMediaElement.onplay documentation> -playEvent ::-          (IsHTMLMediaElement self, IsEventTarget self) =>-            EventName self Event-playEvent = unsafeEventName (toJSString "play")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onpause Mozilla HTMLMediaElement.onpause documentation> -pauseEvent ::-           (IsHTMLMediaElement self, IsEventTarget self) =>-             EventName self Event-pauseEvent = unsafeEventName (toJSString "pause")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onratechange Mozilla HTMLMediaElement.onratechange documentation> -rateChange ::-           (IsHTMLMediaElement self, IsEventTarget self) =>-             EventName self Event-rateChange = unsafeEventName (toJSString "ratechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onvolumechange Mozilla HTMLMediaElement.onvolumechange documentation> -volumeChange ::-             (IsHTMLMediaElement self, IsEventTarget self) =>-               EventName self Event-volumeChange = unsafeEventName (toJSString "volumechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation> -setWebkitPreservesPitch ::-                        (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setWebkitPreservesPitch self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "webkitPreservesPitch"-         (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation> -getWebkitPreservesPitch ::-                        (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getWebkitPreservesPitch self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "webkitPreservesPitch") >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitHasClosedCaptions Mozilla HTMLMediaElement.webkitHasClosedCaptions documentation> -getWebkitHasClosedCaptions ::-                           (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getWebkitHasClosedCaptions self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "webkitHasClosedCaptions") >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation> -setWebkitClosedCaptionsVisible ::-                               (MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()-setWebkitClosedCaptionsVisible self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "webkitClosedCaptionsVisible"-         (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation> -getWebkitClosedCaptionsVisible ::-                               (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getWebkitClosedCaptionsVisible self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "webkitClosedCaptionsVisible")-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAudioDecodedByteCount Mozilla HTMLMediaElement.webkitAudioDecodedByteCount documentation> -getWebkitAudioDecodedByteCount ::-                               (MonadDOM m, IsHTMLMediaElement self) => self -> m Word-getWebkitAudioDecodedByteCount self-  = liftDOM-      (round <$>-         (((toHTMLMediaElement self) ^. js "webkitAudioDecodedByteCount")-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitVideoDecodedByteCount Mozilla HTMLMediaElement.webkitVideoDecodedByteCount documentation> -getWebkitVideoDecodedByteCount ::-                               (MonadDOM m, IsHTMLMediaElement self) => self -> m Word-getWebkitVideoDecodedByteCount self-  = liftDOM-      (round <$>-         (((toHTMLMediaElement self) ^. js "webkitVideoDecodedByteCount")-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeyadded Mozilla HTMLMediaElement.onwebkitkeyadded documentation> -webKitKeyAdded ::-               (IsHTMLMediaElement self, IsEventTarget self) =>-                 EventName self Event-webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeyerror Mozilla HTMLMediaElement.onwebkitkeyerror documentation> -webKitKeyError ::-               (IsHTMLMediaElement self, IsEventTarget self) =>-                 EventName self Event-webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeymessage Mozilla HTMLMediaElement.onwebkitkeymessage documentation> -webKitKeyMessage ::-                 (IsHTMLMediaElement self, IsEventTarget self) =>-                   EventName self Event-webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitneedkey Mozilla HTMLMediaElement.onwebkitneedkey documentation> -webKitNeedKey ::-              (IsHTMLMediaElement self, IsEventTarget self) =>-                EventName self Event-webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> -getWebkitKeys ::-              (MonadDOM m, IsHTMLMediaElement self) =>-                self -> m (Maybe MediaKeys)-getWebkitKeys self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "webkitKeys") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> -getAudioTracks ::-               (MonadDOM m, IsHTMLMediaElement self) =>-                 self -> m (Maybe AudioTrackList)-getAudioTracks self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "audioTracks") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> -getTextTracks ::-              (MonadDOM m, IsHTMLMediaElement self) =>-                self -> m (Maybe TextTrackList)-getTextTracks self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "textTracks") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> -getVideoTracks ::-               (MonadDOM m, IsHTMLMediaElement self) =>-                 self -> m (Maybe VideoTrackList)-getVideoTracks self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "videoTracks") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> -setMediaGroup ::-              (MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>-                self -> Maybe val -> m ()-setMediaGroup self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "mediaGroup" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> -getMediaGroup ::-              (MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>-                self -> m (Maybe result)-getMediaGroup self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "mediaGroup") >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> -setController ::-              (MonadDOM m, IsHTMLMediaElement self) =>-                self -> Maybe MediaController -> m ()-setController self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "controller" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> -getController ::-              (MonadDOM m, IsHTMLMediaElement self) =>-                self -> m (Maybe MediaController)-getController self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "controller") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless Mozilla HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless documentation> -getWebkitCurrentPlaybackTargetIsWireless ::-                                         (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool-getWebkitCurrentPlaybackTargetIsWireless self-  = liftDOM-      (((toHTMLMediaElement self) ^.-          js "webkitCurrentPlaybackTargetIsWireless")-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitcurrentplaybacktargetiswirelesschanged Mozilla HTMLMediaElement.onwebkitcurrentplaybacktargetiswirelesschanged documentation> -webKitCurrentPlaybackTargetIsWirelessChanged ::-                                             (IsHTMLMediaElement self, IsEventTarget self) =>-                                               EventName self Event-webKitCurrentPlaybackTargetIsWirelessChanged-  = unsafeEventName-      (toJSString "webkitcurrentplaybacktargetiswirelesschanged")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitplaybacktargetavailabilitychanged Mozilla HTMLMediaElement.onwebkitplaybacktargetavailabilitychanged documentation> -webKitPlaybackTargetAvailabilityChanged ::-                                        (IsHTMLMediaElement self, IsEventTarget self) =>-                                          EventName self Event-webKitPlaybackTargetAvailabilityChanged-  = unsafeEventName-      (toJSString "webkitplaybacktargetavailabilitychanged")---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> -setSrcObject ::-             (MonadDOM m, IsHTMLMediaElement self) =>-               self -> Maybe MediaStream -> m ()-setSrcObject self val-  = liftDOM-      ((toHTMLMediaElement self) ^. jss "srcObject" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> -getSrcObject ::-             (MonadDOM m, IsHTMLMediaElement self) =>-               self -> m (Maybe MediaStream)-getSrcObject self-  = liftDOM-      (((toHTMLMediaElement self) ^. js "srcObject") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLMenuElement.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLMenuElement-       (setCompact, getCompact, HTMLMenuElement, castToHTMLMenuElement,-        gTypeHTMLMenuElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation> -setCompact :: (MonadDOM m) => HTMLMenuElement -> Bool -> m ()-setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation> -getCompact :: (MonadDOM m) => HTMLMenuElement -> m Bool-getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLMetaElement.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLMetaElement-       (setContent, getContent, setHttpEquiv, getHttpEquiv, setName,-        getName, setScheme, getScheme, HTMLMetaElement,-        castToHTMLMetaElement, gTypeHTMLMetaElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation> -setContent ::-           (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()-setContent self val = liftDOM (self ^. jss "content" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation> -getContent ::-           (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result-getContent self-  = liftDOM ((self ^. js "content") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation> -setHttpEquiv ::-             (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()-setHttpEquiv self val-  = liftDOM (self ^. jss "httpEquiv" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation> -getHttpEquiv ::-             (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result-getHttpEquiv self-  = liftDOM ((self ^. js "httpEquiv") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation> -setScheme ::-          (MonadDOM m, ToJSString val) => HTMLMetaElement -> val -> m ()-setScheme self val = liftDOM (self ^. jss "scheme" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation> -getScheme ::-          (MonadDOM m, FromJSString result) => HTMLMetaElement -> m result-getScheme self-  = liftDOM ((self ^. js "scheme") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLMeterElement.hs 
@@ -1,69 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLMeterElement-       (setValue, getValue, setMin, getMin, setMax, getMax, setLow,-        getLow, setHigh, getHigh, setOptimum, getOptimum, getLabels,-        HTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation> -setValue :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation> -getValue :: (MonadDOM m) => HTMLMeterElement -> m Double-getValue self = liftDOM ((self ^. js "value") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation> -setMin :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()-setMin self val = liftDOM (self ^. jss "min" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation> -getMin :: (MonadDOM m) => HTMLMeterElement -> m Double-getMin self = liftDOM ((self ^. js "min") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation> -setMax :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()-setMax self val = liftDOM (self ^. jss "max" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation> -getMax :: (MonadDOM m) => HTMLMeterElement -> m Double-getMax self = liftDOM ((self ^. js "max") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation> -setLow :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()-setLow self val = liftDOM (self ^. jss "low" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation> -getLow :: (MonadDOM m) => HTMLMeterElement -> m Double-getLow self = liftDOM ((self ^. js "low") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation> -setHigh :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()-setHigh self val = liftDOM (self ^. jss "high" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation> -getHigh :: (MonadDOM m) => HTMLMeterElement -> m Double-getHigh self = liftDOM ((self ^. js "high") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation> -setOptimum :: (MonadDOM m) => HTMLMeterElement -> Double -> m ()-setOptimum self val = liftDOM (self ^. jss "optimum" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation> -getOptimum :: (MonadDOM m) => HTMLMeterElement -> m Double-getOptimum self = liftDOM ((self ^. js "optimum") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> -getLabels :: (MonadDOM m) => HTMLMeterElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLModElement.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLModElement-       (setCite, getCite, setDateTime, getDateTime, HTMLModElement,-        castToHTMLModElement, gTypeHTMLModElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation> -setCite ::-        (MonadDOM m, ToJSString val) => HTMLModElement -> val -> m ()-setCite self val = liftDOM (self ^. jss "cite" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation> -getCite ::-        (MonadDOM m, FromJSString result) => HTMLModElement -> m result-getCite self = liftDOM ((self ^. js "cite") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation> -setDateTime ::-            (MonadDOM m, ToJSString val) => HTMLModElement -> val -> m ()-setDateTime self val-  = liftDOM (self ^. jss "dateTime" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation> -getDateTime ::-            (MonadDOM m, FromJSString result) => HTMLModElement -> m result-getDateTime self-  = liftDOM ((self ^. js "dateTime") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLOListElement.hs 
@@ -1,53 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLOListElement-       (setCompact, getCompact, setStart, getStart, setReversed,-        getReversed, setType, getType, HTMLOListElement,-        castToHTMLOListElement, gTypeHTMLOListElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation> -setCompact :: (MonadDOM m) => HTMLOListElement -> Bool -> m ()-setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation> -getCompact :: (MonadDOM m) => HTMLOListElement -> m Bool-getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation> -setStart :: (MonadDOM m) => HTMLOListElement -> Int -> m ()-setStart self val = liftDOM (self ^. jss "start" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation> -getStart :: (MonadDOM m) => HTMLOListElement -> m Int-getStart self-  = liftDOM (round <$> ((self ^. js "start") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation> -setReversed :: (MonadDOM m) => HTMLOListElement -> Bool -> m ()-setReversed self val-  = liftDOM (self ^. jss "reversed" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation> -getReversed :: (MonadDOM m) => HTMLOListElement -> m Bool-getReversed self = liftDOM ((self ^. js "reversed") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLOListElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLOListElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLObjectElement.hs 
@@ -1,235 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLObjectElement-       (checkValidity, setCustomValidity, getSVGDocument, getForm,-        setCode, getCode, setAlign, getAlign, setArchive, getArchive,-        setBorder, getBorder, setCodeBase, getCodeBase, setCodeType,-        getCodeType, setData, getData, setDeclare, getDeclare, setHeight,-        getHeight, setHspace, getHspace, setName, getName, setStandby,-        getStandby, setType, getType, setUseMap, getUseMap, setVspace,-        getVspace, setWidth, getWidth, getWillValidate, getValidity,-        getValidationMessage, getContentDocument, HTMLObjectElement,-        castToHTMLObjectElement, gTypeHTMLObjectElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLObjectElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.setCustomValidity Mozilla HTMLObjectElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLObjectElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> -getSVGDocument ::-               (MonadDOM m) => HTMLObjectElement -> m (Maybe SVGDocument)-getSVGDocument self-  = liftDOM ((self ^. js "getSVGDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLObjectElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation> -setCode ::-        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setCode self val = liftDOM (self ^. jss "code" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation> -getCode ::-        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation> -setArchive ::-           (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setArchive self val = liftDOM (self ^. jss "archive" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation> -getArchive ::-           (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getArchive self-  = liftDOM ((self ^. js "archive") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> -setBorder ::-          (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation> -getBorder ::-          (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getBorder self-  = liftDOM ((self ^. js "border") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation> -setCodeBase ::-            (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setCodeBase self val-  = liftDOM (self ^. jss "codeBase" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation> -getCodeBase ::-            (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getCodeBase self-  = liftDOM ((self ^. js "codeBase") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation> -setCodeType ::-            (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setCodeType self val-  = liftDOM (self ^. jss "codeType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation> -getCodeType ::-            (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getCodeType self-  = liftDOM ((self ^. js "codeType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation> -setData ::-        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setData self val = liftDOM (self ^. jss "data" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation> -getData ::-        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation> -setDeclare :: (MonadDOM m) => HTMLObjectElement -> Bool -> m ()-setDeclare self val = liftDOM (self ^. jss "declare" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation> -getDeclare :: (MonadDOM m) => HTMLObjectElement -> m Bool-getDeclare self = liftDOM ((self ^. js "declare") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation> -setHeight ::-          (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation> -getHeight ::-          (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getHeight self-  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation> -setHspace :: (MonadDOM m) => HTMLObjectElement -> Int -> m ()-setHspace self val = liftDOM (self ^. jss "hspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation> -getHspace :: (MonadDOM m) => HTMLObjectElement -> m Int-getHspace self-  = liftDOM (round <$> ((self ^. js "hspace") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation> -setStandby ::-           (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setStandby self val = liftDOM (self ^. jss "standby" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation> -getStandby ::-           (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getStandby self-  = liftDOM ((self ^. js "standby") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation> -setUseMap ::-          (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setUseMap self val = liftDOM (self ^. jss "useMap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation> -getUseMap ::-          (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getUseMap self-  = liftDOM ((self ^. js "useMap") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation> -setVspace :: (MonadDOM m) => HTMLObjectElement -> Int -> m ()-setVspace self val = liftDOM (self ^. jss "vspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation> -getVspace :: (MonadDOM m) => HTMLObjectElement -> m Int-getVspace self-  = liftDOM (round <$> ((self ^. js "vspace") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.willValidate Mozilla HTMLObjectElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLObjectElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLObjectElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validationMessage Mozilla HTMLObjectElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> -getContentDocument ::-                   (MonadDOM m) => HTMLObjectElement -> m (Maybe Document)-getContentDocument self-  = liftDOM ((self ^. js "contentDocument") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLOptGroupElement.hs 
@@ -1,37 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLOptGroupElement-       (setDisabled, getDisabled, setLabel, getLabel, HTMLOptGroupElement,-        castToHTMLOptGroupElement, gTypeHTMLOptGroupElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLOptGroupElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLOptGroupElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation> -setLabel ::-         (MonadDOM m, ToJSString val) => HTMLOptGroupElement -> val -> m ()-setLabel self val = liftDOM (self ^. jss "label" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) =>-           HTMLOptGroupElement -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLOptionElement.hs 
@@ -1,89 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLOptionElement-       (setDisabled, getDisabled, getForm, setLabel, getLabel,-        setDefaultSelected, getDefaultSelected, setSelected, getSelected,-        setValue, getValue, setText, getText, getIndex, HTMLOptionElement,-        castToHTMLOptionElement, gTypeHTMLOptionElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLOptionElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLOptionElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLOptionElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation> -setLabel ::-         (MonadDOM m, ToJSString val) => HTMLOptionElement -> val -> m ()-setLabel self val = liftDOM (self ^. jss "label" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => HTMLOptionElement -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation> -setDefaultSelected ::-                   (MonadDOM m) => HTMLOptionElement -> Bool -> m ()-setDefaultSelected self val-  = liftDOM (self ^. jss "defaultSelected" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation> -getDefaultSelected :: (MonadDOM m) => HTMLOptionElement -> m Bool-getDefaultSelected self-  = liftDOM ((self ^. js "defaultSelected") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation> -setSelected :: (MonadDOM m) => HTMLOptionElement -> Bool -> m ()-setSelected self val-  = liftDOM (self ^. jss "selected" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation> -getSelected :: (MonadDOM m) => HTMLOptionElement -> m Bool-getSelected self = liftDOM ((self ^. js "selected") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) => HTMLOptionElement -> val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) => HTMLOptionElement -> m result-getValue self-  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation> -setText ::-        (MonadDOM m, ToJSString val) => HTMLOptionElement -> val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation> -getText ::-        (MonadDOM m, FromJSString result) => HTMLOptionElement -> m result-getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.index Mozilla HTMLOptionElement.index documentation> -getIndex :: (MonadDOM m) => HTMLOptionElement -> m Int-getIndex self-  = liftDOM (round <$> ((self ^. js "index") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLOptionsCollection.hs 
@@ -1,66 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLOptionsCollection-       (namedItem, addBefore, add, remove, setSelectedIndex,-        getSelectedIndex, setLength, getLength, HTMLOptionsCollection,-        castToHTMLOptionsCollection, gTypeHTMLOptionsCollection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            HTMLOptionsCollection -> name -> m (Maybe Node)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> -addBefore ::-          (MonadDOM m, IsHTMLElement element, IsHTMLElement before) =>-            HTMLOptionsCollection -> Maybe element -> Maybe before -> m ()-addBefore self element before-  = liftDOM-      (void (self ^. jsf "add" [toJSVal element, toJSVal before]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation> -add ::-    (MonadDOM m, IsHTMLElement element) =>-      HTMLOptionsCollection -> Maybe element -> Int -> m ()-add self element index-  = liftDOM-      (void (self ^. jsf "add" [toJSVal element, toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.remove Mozilla HTMLOptionsCollection.remove documentation> -remove :: (MonadDOM m) => HTMLOptionsCollection -> Word -> m ()-remove self index-  = liftDOM (void (self ^. jsf "remove" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation> -setSelectedIndex ::-                 (MonadDOM m) => HTMLOptionsCollection -> Int -> m ()-setSelectedIndex self val-  = liftDOM (self ^. jss "selectedIndex" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation> -getSelectedIndex :: (MonadDOM m) => HTMLOptionsCollection -> m Int-getSelectedIndex self-  = liftDOM-      (round <$> ((self ^. js "selectedIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation> -setLength :: (MonadDOM m) => HTMLOptionsCollection -> Word -> m ()-setLength self val = liftDOM (self ^. jss "length" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation> -getLength :: (MonadDOM m) => HTMLOptionsCollection -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLOutputElement.hs 
@@ -1,104 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLOutputElement-       (checkValidity, setCustomValidity, getHtmlFor, getForm, setName,-        getName, getType, setDefaultValue, getDefaultValue, setValue,-        getValue, getWillValidate, getValidity, getValidationMessage,-        getLabels, HTMLOutputElement, castToHTMLOutputElement,-        gTypeHTMLOutputElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLOutputElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.setCustomValidity Mozilla HTMLOutputElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLOutputElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> -getHtmlFor ::-           (MonadDOM m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList)-getHtmlFor self = liftDOM ((self ^. js "htmlFor") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLOutputElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.type Mozilla HTMLOutputElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> -setDefaultValue ::-                (MonadDOM m, ToJSString val) =>-                  HTMLOutputElement -> Maybe val -> m ()-setDefaultValue self val-  = liftDOM (self ^. jss "defaultValue" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> -getDefaultValue ::-                (MonadDOM m, FromJSString result) =>-                  HTMLOutputElement -> m (Maybe result)-getDefaultValue self-  = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) =>-           HTMLOutputElement -> Maybe val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) =>-           HTMLOutputElement -> m (Maybe result)-getValue self-  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.willValidate Mozilla HTMLOutputElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLOutputElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLOutputElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validationMessage Mozilla HTMLOutputElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> -getLabels ::-          (MonadDOM m) => HTMLOutputElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLParagraphElement.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLParagraphElement-       (setAlign, getAlign, HTMLParagraphElement,-        castToHTMLParagraphElement, gTypeHTMLParagraphElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLParagraphElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) =>-           HTMLParagraphElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLParamElement.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLParamElement-       (setName, getName, setType, getType, setValue, getValue,-        setValueType, getValueType, HTMLParamElement,-        castToHTMLParamElement, gTypeHTMLParamElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLParamElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLParamElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) => HTMLParamElement -> m result-getValue self-  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation> -setValueType ::-             (MonadDOM m, ToJSString val) => HTMLParamElement -> val -> m ()-setValueType self val-  = liftDOM (self ^. jss "valueType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation> -getValueType ::-             (MonadDOM m, FromJSString result) => HTMLParamElement -> m result-getValueType self-  = liftDOM ((self ^. js "valueType") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLPreElement.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLPreElement-       (setWidth, getWidth, setWrap, getWrap, HTMLPreElement,-        castToHTMLPreElement, gTypeHTMLPreElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation> -setWidth :: (MonadDOM m) => HTMLPreElement -> Int -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation> -getWidth :: (MonadDOM m) => HTMLPreElement -> m Int-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation> -setWrap :: (MonadDOM m) => HTMLPreElement -> Bool -> m ()-setWrap self val = liftDOM (self ^. jss "wrap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation> -getWrap :: (MonadDOM m) => HTMLPreElement -> m Bool-getWrap self = liftDOM ((self ^. js "wrap") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLProgressElement.hs 
@@ -1,43 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLProgressElement-       (setValue, getValue, setMax, getMax, getPosition, getLabels,-        HTMLProgressElement, castToHTMLProgressElement,-        gTypeHTMLProgressElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation> -setValue :: (MonadDOM m) => HTMLProgressElement -> Double -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation> -getValue :: (MonadDOM m) => HTMLProgressElement -> m Double-getValue self = liftDOM ((self ^. js "value") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation> -setMax :: (MonadDOM m) => HTMLProgressElement -> Double -> m ()-setMax self val = liftDOM (self ^. jss "max" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation> -getMax :: (MonadDOM m) => HTMLProgressElement -> m Double-getMax self = liftDOM ((self ^. js "max") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.position Mozilla HTMLProgressElement.position documentation> -getPosition :: (MonadDOM m) => HTMLProgressElement -> m Double-getPosition self-  = liftDOM ((self ^. js "position") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> -getLabels ::-          (MonadDOM m) => HTMLProgressElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLQuoteElement.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLQuoteElement-       (setCite, getCite, HTMLQuoteElement, castToHTMLQuoteElement,-        gTypeHTMLQuoteElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation> -setCite ::-        (MonadDOM m, ToJSString val) => HTMLQuoteElement -> val -> m ()-setCite self val = liftDOM (self ^. jss "cite" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation> -getCite ::-        (MonadDOM m, FromJSString result) => HTMLQuoteElement -> m result-getCite self = liftDOM ((self ^. js "cite") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLScriptElement.hs 
@@ -1,123 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLScriptElement-       (setText, getText, setHtmlFor, getHtmlFor, setEvent, getEvent,-        setCharset, getCharset, setAsync, getAsync, setDefer, getDefer,-        setSrc, getSrc, setType, getType, setCrossOrigin, getCrossOrigin,-        setNonce, getNonce, HTMLScriptElement, castToHTMLScriptElement,-        gTypeHTMLScriptElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> -setText ::-        (MonadDOM m, ToJSString val) =>-          HTMLScriptElement -> Maybe val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> -getText ::-        (MonadDOM m, FromJSString result) =>-          HTMLScriptElement -> m (Maybe result)-getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation> -setHtmlFor ::-           (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setHtmlFor self val = liftDOM (self ^. jss "htmlFor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation> -getHtmlFor ::-           (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getHtmlFor self-  = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation> -setEvent ::-         (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setEvent self val = liftDOM (self ^. jss "event" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation> -getEvent ::-         (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getEvent self-  = liftDOM ((self ^. js "event") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation> -setCharset ::-           (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation> -getCharset ::-           (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getCharset self-  = liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation> -setAsync :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()-setAsync self val = liftDOM (self ^. jss "async" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation> -getAsync :: (MonadDOM m) => HTMLScriptElement -> m Bool-getAsync self = liftDOM ((self ^. js "async") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation> -setDefer :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()-setDefer self val = liftDOM (self ^. jss "defer" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation> -getDefer :: (MonadDOM m) => HTMLScriptElement -> m Bool-getDefer self = liftDOM ((self ^. js "defer") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> -setCrossOrigin ::-               (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setCrossOrigin self val-  = liftDOM (self ^. jss "crossOrigin" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation> -getCrossOrigin ::-               (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getCrossOrigin self-  = liftDOM ((self ^. js "crossOrigin") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation> -setNonce ::-         (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()-setNonce self val = liftDOM (self ^. jss "nonce" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation> -getNonce ::-         (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result-getNonce self-  = liftDOM ((self ^. js "nonce") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLSelectElement.hs 
@@ -1,199 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLSelectElement-       (item, namedItem, addBefore, add, remove, checkValidity,-        setCustomValidity, setAutofocus, getAutofocus, setDisabled,-        getDisabled, getForm, setMultiple, getMultiple, setName, getName,-        setRequired, getRequired, setSize, getSize, getType, getOptions,-        setLength, getLength, getSelectedOptions, setSelectedIndex,-        getSelectedIndex, setValue, getValue, getWillValidate, getValidity,-        getValidationMessage, getLabels, HTMLSelectElement,-        castToHTMLSelectElement, gTypeHTMLSelectElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> -item :: (MonadDOM m) => HTMLSelectElement -> Word -> m (Maybe Node)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            HTMLSelectElement -> name -> m (Maybe Node)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation> -addBefore ::-          (MonadDOM m, IsHTMLElement element, IsHTMLElement before) =>-            HTMLSelectElement -> Maybe element -> Maybe before -> m ()-addBefore self element before-  = liftDOM-      (void (self ^. jsf "add" [toJSVal element, toJSVal before]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation> -add ::-    (MonadDOM m, IsHTMLElement element) =>-      HTMLSelectElement -> Maybe element -> Int -> m ()-add self element index-  = liftDOM-      (void (self ^. jsf "add" [toJSVal element, toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.remove Mozilla HTMLSelectElement.remove documentation> -remove :: (MonadDOM m) => HTMLSelectElement -> m ()-remove self = liftDOM (void (self ^. js "remove"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLSelectElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.setCustomValidity Mozilla HTMLSelectElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLSelectElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation> -setAutofocus :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()-setAutofocus self val-  = liftDOM (self ^. jss "autofocus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation> -getAutofocus :: (MonadDOM m) => HTMLSelectElement -> m Bool-getAutofocus self-  = liftDOM ((self ^. js "autofocus") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLSelectElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLSelectElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation> -setMultiple :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()-setMultiple self val-  = liftDOM (self ^. jss "multiple" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation> -getMultiple :: (MonadDOM m) => HTMLSelectElement -> m Bool-getMultiple self = liftDOM ((self ^. js "multiple") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLSelectElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation> -setRequired :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()-setRequired self val-  = liftDOM (self ^. jss "required" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation> -getRequired :: (MonadDOM m) => HTMLSelectElement -> m Bool-getRequired self = liftDOM ((self ^. js "required") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation> -setSize :: (MonadDOM m) => HTMLSelectElement -> Int -> m ()-setSize self val = liftDOM (self ^. jss "size" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation> -getSize :: (MonadDOM m) => HTMLSelectElement -> m Int-getSize self-  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.type Mozilla HTMLSelectElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> -getOptions ::-           (MonadDOM m) =>-             HTMLSelectElement -> m (Maybe HTMLOptionsCollection)-getOptions self = liftDOM ((self ^. js "options") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation> -setLength :: (MonadDOM m) => HTMLSelectElement -> Word -> m ()-setLength self val = liftDOM (self ^. jss "length" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation> -getLength :: (MonadDOM m) => HTMLSelectElement -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> -getSelectedOptions ::-                   (MonadDOM m) => HTMLSelectElement -> m (Maybe HTMLCollection)-getSelectedOptions self-  = liftDOM ((self ^. js "selectedOptions") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation> -setSelectedIndex ::-                 (MonadDOM m) => HTMLSelectElement -> Int -> m ()-setSelectedIndex self val-  = liftDOM (self ^. jss "selectedIndex" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation> -getSelectedIndex :: (MonadDOM m) => HTMLSelectElement -> m Int-getSelectedIndex self-  = liftDOM-      (round <$> ((self ^. js "selectedIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) =>-           HTMLSelectElement -> Maybe val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) =>-           HTMLSelectElement -> m (Maybe result)-getValue self-  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.willValidate Mozilla HTMLSelectElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLSelectElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLSelectElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validationMessage Mozilla HTMLSelectElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> -getLabels ::-          (MonadDOM m) => HTMLSelectElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLSourceElement.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLSourceElement-       (setSrc, getSrc, setType, getType, setMedia, getMedia,-        HTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLSourceElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLSourceElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation> -setMedia ::-         (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()-setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation> -getMedia ::-         (MonadDOM m, FromJSString result) => HTMLSourceElement -> m result-getMedia self-  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLStyleElement.hs 
@@ -1,52 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLStyleElement-       (setDisabled, getDisabled, setMedia, getMedia, setType, getType,-        getSheet, HTMLStyleElement, castToHTMLStyleElement,-        gTypeHTMLStyleElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLStyleElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLStyleElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation> -setMedia ::-         (MonadDOM m, ToJSString val) => HTMLStyleElement -> val -> m ()-setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation> -getMedia ::-         (MonadDOM m, FromJSString result) => HTMLStyleElement -> m result-getMedia self-  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLStyleElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLStyleElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> -getSheet ::-         (MonadDOM m) => HTMLStyleElement -> m (Maybe StyleSheet)-getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTableCaptionElement.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTableCaptionElement-       (setAlign, getAlign, HTMLTableCaptionElement,-        castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) =>-           HTMLTableCaptionElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableCaptionElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTableCellElement.hs 
@@ -1,181 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTableCellElement-       (getCellIndex, setAbbr, getAbbr, setAlign, getAlign, setAxis,-        getAxis, setBgColor, getBgColor, setCh, getCh, setChOff, getChOff,-        setColSpan, getColSpan, setHeaders, getHeaders, setHeight,-        getHeight, setNoWrap, getNoWrap, setRowSpan, getRowSpan, setScope,-        getScope, setVAlign, getVAlign, setWidth, getWidth,-        HTMLTableCellElement, castToHTMLTableCellElement,-        gTypeHTMLTableCellElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.cellIndex Mozilla HTMLTableCellElement.cellIndex documentation> -getCellIndex :: (MonadDOM m) => HTMLTableCellElement -> m Int-getCellIndex self-  = liftDOM (round <$> ((self ^. js "cellIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation> -setAbbr ::-        (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setAbbr self val = liftDOM (self ^. jss "abbr" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation> -getAbbr ::-        (MonadDOM m, FromJSString result) =>-          HTMLTableCellElement -> m result-getAbbr self = liftDOM ((self ^. js "abbr") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableCellElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation> -setAxis ::-        (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setAxis self val = liftDOM (self ^. jss "axis" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation> -getAxis ::-        (MonadDOM m, FromJSString result) =>-          HTMLTableCellElement -> m result-getAxis self = liftDOM ((self ^. js "axis") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> -setBgColor ::-           (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation> -getBgColor ::-           (MonadDOM m, FromJSString result) =>-             HTMLTableCellElement -> m result-getBgColor self-  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation> -setCh ::-      (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation> -getCh ::-      (MonadDOM m, FromJSString result) =>-        HTMLTableCellElement -> m result-getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation> -setChOff ::-         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation> -getChOff ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableCellElement -> m result-getChOff self-  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation> -setColSpan :: (MonadDOM m) => HTMLTableCellElement -> Int -> m ()-setColSpan self val = liftDOM (self ^. jss "colSpan" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation> -getColSpan :: (MonadDOM m) => HTMLTableCellElement -> m Int-getColSpan self-  = liftDOM (round <$> ((self ^. js "colSpan") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation> -setHeaders ::-           (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setHeaders self val = liftDOM (self ^. jss "headers" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation> -getHeaders ::-           (MonadDOM m, FromJSString result) =>-             HTMLTableCellElement -> m result-getHeaders self-  = liftDOM ((self ^. js "headers") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation> -setHeight ::-          (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation> -getHeight ::-          (MonadDOM m, FromJSString result) =>-            HTMLTableCellElement -> m result-getHeight self-  = liftDOM ((self ^. js "height") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation> -setNoWrap :: (MonadDOM m) => HTMLTableCellElement -> Bool -> m ()-setNoWrap self val = liftDOM (self ^. jss "noWrap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation> -getNoWrap :: (MonadDOM m) => HTMLTableCellElement -> m Bool-getNoWrap self = liftDOM ((self ^. js "noWrap") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> -setRowSpan :: (MonadDOM m) => HTMLTableCellElement -> Int -> m ()-setRowSpan self val = liftDOM (self ^. jss "rowSpan" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation> -getRowSpan :: (MonadDOM m) => HTMLTableCellElement -> m Int-getRowSpan self-  = liftDOM (round <$> ((self ^. js "rowSpan") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation> -setScope ::-         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setScope self val = liftDOM (self ^. jss "scope" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation> -getScope ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableCellElement -> m result-getScope self-  = liftDOM ((self ^. js "scope") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation> -setVAlign ::-          (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation> -getVAlign ::-          (MonadDOM m, FromJSString result) =>-            HTMLTableCellElement -> m result-getVAlign self-  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableCellElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTableColElement.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTableColElement-       (setAlign, getAlign, setCh, getCh, setChOff, getChOff, setSpan,-        getSpan, setVAlign, getVAlign, setWidth, getWidth,-        HTMLTableColElement, castToHTMLTableColElement,-        gTypeHTMLTableColElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableColElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation> -setCh ::-      (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()-setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation> -getCh ::-      (MonadDOM m, FromJSString result) =>-        HTMLTableColElement -> m result-getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation> -setChOff ::-         (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()-setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation> -getChOff ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableColElement -> m result-getChOff self-  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation> -setSpan :: (MonadDOM m) => HTMLTableColElement -> Int -> m ()-setSpan self val = liftDOM (self ^. jss "span" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation> -getSpan :: (MonadDOM m) => HTMLTableColElement -> m Int-getSpan self-  = liftDOM (round <$> ((self ^. js "span") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation> -setVAlign ::-          (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()-setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation> -getVAlign ::-          (MonadDOM m, FromJSString result) =>-            HTMLTableColElement -> m result-getVAlign self-  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLTableColElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableColElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTableElement.hs 
@@ -1,216 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTableElement-       (createTHead, deleteTHead, createTFoot, deleteTFoot, createTBody,-        createCaption, deleteCaption, insertRow, deleteRow, setCaption,-        getCaption, setTHead, getTHead, setTFoot, getTFoot, getRows,-        getTBodies, setAlign, getAlign, setBgColor, getBgColor, setBorder,-        getBorder, setCellPadding, getCellPadding, setCellSpacing,-        getCellSpacing, setFrame, getFrame, setRules, getRules, setSummary,-        getSummary, setWidth, getWidth, HTMLTableElement,-        castToHTMLTableElement, gTypeHTMLTableElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> -createTHead ::-            (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)-createTHead self-  = liftDOM ((self ^. js "createTHead") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTHead Mozilla HTMLTableElement.deleteTHead documentation> -deleteTHead :: (MonadDOM m) => HTMLTableElement -> m ()-deleteTHead self = liftDOM (void (self ^. js "deleteTHead"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> -createTFoot ::-            (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)-createTFoot self-  = liftDOM ((self ^. js "createTFoot") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTFoot Mozilla HTMLTableElement.deleteTFoot documentation> -deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m ()-deleteTFoot self = liftDOM (void (self ^. js "deleteTFoot"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> -createTBody ::-            (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)-createTBody self-  = liftDOM ((self ^. js "createTBody") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> -createCaption ::-              (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)-createCaption self-  = liftDOM ((self ^. js "createCaption") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteCaption Mozilla HTMLTableElement.deleteCaption documentation> -deleteCaption :: (MonadDOM m) => HTMLTableElement -> m ()-deleteCaption self = liftDOM (void (self ^. js "deleteCaption"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> -insertRow ::-          (MonadDOM m) => HTMLTableElement -> Int -> m (Maybe HTMLElement)-insertRow self index-  = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteRow Mozilla HTMLTableElement.deleteRow documentation> -deleteRow :: (MonadDOM m) => HTMLTableElement -> Int -> m ()-deleteRow self index-  = liftDOM (void (self ^. jsf "deleteRow" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> -setCaption ::-           (MonadDOM m) =>-             HTMLTableElement -> Maybe HTMLTableCaptionElement -> m ()-setCaption self val = liftDOM (self ^. jss "caption" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> -getCaption ::-           (MonadDOM m) =>-             HTMLTableElement -> m (Maybe HTMLTableCaptionElement)-getCaption self = liftDOM ((self ^. js "caption") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> -setTHead ::-         (MonadDOM m) =>-           HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()-setTHead self val = liftDOM (self ^. jss "tHead" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> -getTHead ::-         (MonadDOM m) =>-           HTMLTableElement -> m (Maybe HTMLTableSectionElement)-getTHead self = liftDOM ((self ^. js "tHead") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> -setTFoot ::-         (MonadDOM m) =>-           HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()-setTFoot self val = liftDOM (self ^. jss "tFoot" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> -getTFoot ::-         (MonadDOM m) =>-           HTMLTableElement -> m (Maybe HTMLTableSectionElement)-getTFoot self = liftDOM ((self ^. js "tFoot") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> -getRows ::-        (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)-getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> -getTBodies ::-           (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)-getTBodies self = liftDOM ((self ^. js "tBodies") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> -setBgColor ::-           (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation> -getBgColor ::-           (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getBgColor self-  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation> -setBorder ::-          (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation> -getBorder ::-          (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getBorder self-  = liftDOM ((self ^. js "border") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> -setCellPadding ::-               (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setCellPadding self val-  = liftDOM (self ^. jss "cellPadding" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation> -getCellPadding ::-               (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getCellPadding self-  = liftDOM ((self ^. js "cellPadding") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> -setCellSpacing ::-               (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setCellSpacing self val-  = liftDOM (self ^. jss "cellSpacing" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation> -getCellSpacing ::-               (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getCellSpacing self-  = liftDOM ((self ^. js "cellSpacing") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation> -setFrame ::-         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setFrame self val = liftDOM (self ^. jss "frame" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation> -getFrame ::-         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getFrame self-  = liftDOM ((self ^. js "frame") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation> -setRules ::-         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setRules self val = liftDOM (self ^. jss "rules" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation> -getRules ::-         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getRules self-  = liftDOM ((self ^. js "rules") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation> -setSummary ::-           (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setSummary self val = liftDOM (self ^. jss "summary" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation> -getSummary ::-           (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getSummary self-  = liftDOM ((self ^. js "summary") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation> -setWidth ::-         (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation> -getWidth ::-         (MonadDOM m, FromJSString result) => HTMLTableElement -> m result-getWidth self-  = liftDOM ((self ^. js "width") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTableRowElement.hs 
@@ -1,105 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTableRowElement-       (insertCell, deleteCell, getRowIndex, getSectionRowIndex, getCells,-        setAlign, getAlign, setBgColor, getBgColor, setCh, getCh, setChOff,-        getChOff, setVAlign, getVAlign, HTMLTableRowElement,-        castToHTMLTableRowElement, gTypeHTMLTableRowElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> -insertCell ::-           (MonadDOM m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement)-insertCell self index-  = liftDOM-      ((self ^. jsf "insertCell" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.deleteCell Mozilla HTMLTableRowElement.deleteCell documentation> -deleteCell :: (MonadDOM m) => HTMLTableRowElement -> Int -> m ()-deleteCell self index-  = liftDOM (void (self ^. jsf "deleteCell" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.rowIndex Mozilla HTMLTableRowElement.rowIndex documentation> -getRowIndex :: (MonadDOM m) => HTMLTableRowElement -> m Int-getRowIndex self-  = liftDOM (round <$> ((self ^. js "rowIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.sectionRowIndex Mozilla HTMLTableRowElement.sectionRowIndex documentation> -getSectionRowIndex :: (MonadDOM m) => HTMLTableRowElement -> m Int-getSectionRowIndex self-  = liftDOM-      (round <$> ((self ^. js "sectionRowIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> -getCells ::-         (MonadDOM m) => HTMLTableRowElement -> m (Maybe HTMLCollection)-getCells self = liftDOM ((self ^. js "cells") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableRowElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> -setBgColor ::-           (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation> -getBgColor ::-           (MonadDOM m, FromJSString result) =>-             HTMLTableRowElement -> m result-getBgColor self-  = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation> -setCh ::-      (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation> -getCh ::-      (MonadDOM m, FromJSString result) =>-        HTMLTableRowElement -> m result-getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation> -setChOff ::-         (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation> -getChOff ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableRowElement -> m result-getChOff self-  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation> -setVAlign ::-          (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation> -getVAlign ::-          (MonadDOM m, FromJSString result) =>-            HTMLTableRowElement -> m result-getVAlign self-  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTableSectionElement.hs 
@@ -1,85 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTableSectionElement-       (insertRow, deleteRow, setAlign, getAlign, setCh, getCh, setChOff,-        getChOff, setVAlign, getVAlign, getRows, HTMLTableSectionElement,-        castToHTMLTableSectionElement, gTypeHTMLTableSectionElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> -insertRow ::-          (MonadDOM m) =>-            HTMLTableSectionElement -> Int -> m (Maybe HTMLElement)-insertRow self index-  = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.deleteRow Mozilla HTMLTableSectionElement.deleteRow documentation> -deleteRow :: (MonadDOM m) => HTMLTableSectionElement -> Int -> m ()-deleteRow self index-  = liftDOM (void (self ^. jsf "deleteRow" [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation> -setAlign ::-         (MonadDOM m, ToJSString val) =>-           HTMLTableSectionElement -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation> -getAlign ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableSectionElement -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation> -setCh ::-      (MonadDOM m, ToJSString val) =>-        HTMLTableSectionElement -> val -> m ()-setCh self val = liftDOM (self ^. jss "ch" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation> -getCh ::-      (MonadDOM m, FromJSString result) =>-        HTMLTableSectionElement -> m result-getCh self = liftDOM ((self ^. js "ch") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation> -setChOff ::-         (MonadDOM m, ToJSString val) =>-           HTMLTableSectionElement -> val -> m ()-setChOff self val = liftDOM (self ^. jss "chOff" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation> -getChOff ::-         (MonadDOM m, FromJSString result) =>-           HTMLTableSectionElement -> m result-getChOff self-  = liftDOM ((self ^. js "chOff") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation> -setVAlign ::-          (MonadDOM m, ToJSString val) =>-            HTMLTableSectionElement -> val -> m ()-setVAlign self val = liftDOM (self ^. jss "vAlign" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation> -getVAlign ::-          (MonadDOM m, FromJSString result) =>-            HTMLTableSectionElement -> m result-getVAlign self-  = liftDOM ((self ^. js "vAlign") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> -getRows ::-        (MonadDOM m) => HTMLTableSectionElement -> m (Maybe HTMLCollection)-getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTemplateElement.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTemplateElement-       (getContent, HTMLTemplateElement, castToHTMLTemplateElement,-        gTypeHTMLTemplateElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> -getContent ::-           (MonadDOM m) => HTMLTemplateElement -> m (Maybe DocumentFragment)-getContent self = liftDOM ((self ^. js "content") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTextAreaElement.hs 
@@ -1,311 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTextAreaElement-       (checkValidity, setCustomValidity, select, setRangeText,-        setRangeText4, setSelectionRange, setAutofocus, getAutofocus,-        setCols, getCols, setDirName, getDirName, setDisabled, getDisabled,-        getForm, setMaxLength, getMaxLength, setName, getName,-        setPlaceholder, getPlaceholder, setReadOnly, getReadOnly,-        setRequired, getRequired, setRows, getRows, setWrap, getWrap,-        getType, setDefaultValue, getDefaultValue, setValue, getValue,-        getTextLength, getWillValidate, getValidity, getValidationMessage,-        getLabels, setSelectionStart, getSelectionStart, setSelectionEnd,-        getSelectionEnd, setSelectionDirection, getSelectionDirection,-        setAutocorrect, getAutocorrect, setAutocapitalize,-        getAutocapitalize, HTMLTextAreaElement, castToHTMLTextAreaElement,-        gTypeHTMLTextAreaElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation> -checkValidity :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-checkValidity self-  = liftDOM ((self ^. js "checkValidity") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setCustomValidity Mozilla HTMLTextAreaElement.setCustomValidity documentation> -setCustomValidity ::-                  (MonadDOM m, ToJSString error) =>-                    HTMLTextAreaElement -> Maybe error -> m ()-setCustomValidity self error-  = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.select Mozilla HTMLTextAreaElement.select documentation> -select :: (MonadDOM m) => HTMLTextAreaElement -> m ()-select self = liftDOM (void (self ^. js "select"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> -setRangeText ::-             (MonadDOM m, ToJSString replacement) =>-               HTMLTextAreaElement -> replacement -> m ()-setRangeText self replacement-  = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> -setRangeText4 ::-              (MonadDOM m, ToJSString replacement, ToJSString selectionMode) =>-                HTMLTextAreaElement ->-                  replacement -> Word -> Word -> selectionMode -> m ()-setRangeText4 self replacement start end selectionMode-  = liftDOM-      (void-         (self ^. jsf "setRangeText"-            [toJSVal replacement, toJSVal start, toJSVal end,-             toJSVal selectionMode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setSelectionRange Mozilla HTMLTextAreaElement.setSelectionRange documentation> -setSelectionRange ::-                  (MonadDOM m, ToJSString direction) =>-                    HTMLTextAreaElement -> Int -> Int -> direction -> m ()-setSelectionRange self start end direction-  = liftDOM-      (void-         (self ^. jsf "setSelectionRange"-            [toJSVal start, toJSVal end, toJSVal direction]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation> -setAutofocus :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()-setAutofocus self val-  = liftDOM (self ^. jss "autofocus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation> -getAutofocus :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-getAutofocus self-  = liftDOM ((self ^. js "autofocus") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> -setCols :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()-setCols self val = liftDOM (self ^. jss "cols" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation> -getCols :: (MonadDOM m) => HTMLTextAreaElement -> m Int-getCols self-  = liftDOM (round <$> ((self ^. js "cols") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation> -setDirName ::-           (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setDirName self val = liftDOM (self ^. jss "dirName" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation> -getDirName ::-           (MonadDOM m, FromJSString result) =>-             HTMLTextAreaElement -> m result-getDirName self-  = liftDOM ((self ^. js "dirName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation> -setDisabled :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation> -getDisabled :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> -getForm ::-        (MonadDOM m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement)-getForm self = liftDOM ((self ^. js "form") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation> -setMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()-setMaxLength self val-  = liftDOM (self ^. jss "maxLength" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation> -getMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> m Int-getMaxLength self-  = liftDOM (round <$> ((self ^. js "maxLength") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation> -setName ::-        (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation> -getName ::-        (MonadDOM m, FromJSString result) =>-          HTMLTextAreaElement -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation> -setPlaceholder ::-               (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setPlaceholder self val-  = liftDOM (self ^. jss "placeholder" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation> -getPlaceholder ::-               (MonadDOM m, FromJSString result) =>-                 HTMLTextAreaElement -> m result-getPlaceholder self-  = liftDOM ((self ^. js "placeholder") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation> -setReadOnly :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()-setReadOnly self val-  = liftDOM (self ^. jss "readOnly" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation> -getReadOnly :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-getReadOnly self = liftDOM ((self ^. js "readOnly") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation> -setRequired :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()-setRequired self val-  = liftDOM (self ^. jss "required" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation> -getRequired :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-getRequired self = liftDOM ((self ^. js "required") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation> -setRows :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()-setRows self val = liftDOM (self ^. jss "rows" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation> -getRows :: (MonadDOM m) => HTMLTextAreaElement -> m Int-getRows self-  = liftDOM (round <$> ((self ^. js "rows") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation> -setWrap ::-        (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setWrap self val = liftDOM (self ^. jss "wrap" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation> -getWrap ::-        (MonadDOM m, FromJSString result) =>-          HTMLTextAreaElement -> m result-getWrap self = liftDOM ((self ^. js "wrap") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.type Mozilla HTMLTextAreaElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) =>-          HTMLTextAreaElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> -setDefaultValue ::-                (MonadDOM m, ToJSString val) =>-                  HTMLTextAreaElement -> Maybe val -> m ()-setDefaultValue self val-  = liftDOM (self ^. jss "defaultValue" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> -getDefaultValue ::-                (MonadDOM m, FromJSString result) =>-                  HTMLTextAreaElement -> m (Maybe result)-getDefaultValue self-  = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) =>-           HTMLTextAreaElement -> Maybe val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) =>-           HTMLTextAreaElement -> m (Maybe result)-getValue self-  = liftDOM ((self ^. js "value") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.textLength Mozilla HTMLTextAreaElement.textLength documentation> -getTextLength :: (MonadDOM m) => HTMLTextAreaElement -> m Word-getTextLength self-  = liftDOM (round <$> ((self ^. js "textLength") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.willValidate Mozilla HTMLTextAreaElement.willValidate documentation> -getWillValidate :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-getWillValidate self-  = liftDOM ((self ^. js "willValidate") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> -getValidity ::-            (MonadDOM m) => HTMLTextAreaElement -> m (Maybe ValidityState)-getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validationMessage Mozilla HTMLTextAreaElement.validationMessage documentation> -getValidationMessage ::-                     (MonadDOM m, FromJSString result) =>-                       HTMLTextAreaElement -> m result-getValidationMessage self-  = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> -getLabels ::-          (MonadDOM m) => HTMLTextAreaElement -> m (Maybe NodeList)-getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation> -setSelectionStart ::-                  (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()-setSelectionStart self val-  = liftDOM (self ^. jss "selectionStart" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation> -getSelectionStart :: (MonadDOM m) => HTMLTextAreaElement -> m Int-getSelectionStart self-  = liftDOM-      (round <$> ((self ^. js "selectionStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation> -setSelectionEnd ::-                (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()-setSelectionEnd self val-  = liftDOM (self ^. jss "selectionEnd" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation> -getSelectionEnd :: (MonadDOM m) => HTMLTextAreaElement -> m Int-getSelectionEnd self-  = liftDOM (round <$> ((self ^. js "selectionEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation> -setSelectionDirection ::-                      (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setSelectionDirection self val-  = liftDOM (self ^. jss "selectionDirection" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation> -getSelectionDirection ::-                      (MonadDOM m, FromJSString result) =>-                        HTMLTextAreaElement -> m result-getSelectionDirection self-  = liftDOM-      ((self ^. js "selectionDirection") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation> -setAutocorrect ::-               (MonadDOM m) => HTMLTextAreaElement -> Bool -> m ()-setAutocorrect self val-  = liftDOM (self ^. jss "autocorrect" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation> -getAutocorrect :: (MonadDOM m) => HTMLTextAreaElement -> m Bool-getAutocorrect self-  = liftDOM ((self ^. js "autocorrect") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> -setAutocapitalize ::-                  (MonadDOM m, ToJSString val) =>-                    HTMLTextAreaElement -> Maybe val -> m ()-setAutocapitalize self val-  = liftDOM (self ^. jss "autocapitalize" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> -getAutocapitalize ::-                  (MonadDOM m, FromJSString result) =>-                    HTMLTextAreaElement -> m (Maybe result)-getAutocapitalize self-  = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTitleElement.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTitleElement-       (setText, getText, HTMLTitleElement, castToHTMLTitleElement,-        gTypeHTMLTitleElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> -setText ::-        (MonadDOM m, ToJSString val) =>-          HTMLTitleElement -> Maybe val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> -getText ::-        (MonadDOM m, FromJSString result) =>-          HTMLTitleElement -> m (Maybe result)-getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLTrackElement.hs 
@@ -1,81 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLTrackElement-       (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR,-        setKind, getKind, setSrc, getSrc, setSrclang, getSrclang, setLabel,-        getLabel, setDefault, getDefault, getReadyState, getTrack,-        HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern NONE = 0-pattern LOADING = 1-pattern LOADED = 2-pattern ERROR = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation> -setKind ::-        (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()-setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation> -getKind ::-        (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result-getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation> -setSrc ::-       (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()-setSrc self val = liftDOM (self ^. jss "src" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation> -getSrc ::-       (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result-getSrc self = liftDOM ((self ^. js "src") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation> -setSrclang ::-           (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()-setSrclang self val = liftDOM (self ^. jss "srclang" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation> -getSrclang ::-           (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result-getSrclang self-  = liftDOM ((self ^. js "srclang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation> -setLabel ::-         (MonadDOM m, ToJSString val) => HTMLTrackElement -> val -> m ()-setLabel self val = liftDOM (self ^. jss "label" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => HTMLTrackElement -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation> -setDefault :: (MonadDOM m) => HTMLTrackElement -> Bool -> m ()-setDefault self val = liftDOM (self ^. jss "default" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation> -getDefault :: (MonadDOM m) => HTMLTrackElement -> m Bool-getDefault self = liftDOM ((self ^. js "default") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.readyState Mozilla HTMLTrackElement.readyState documentation> -getReadyState :: (MonadDOM m) => HTMLTrackElement -> m Word-getReadyState self-  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> -getTrack :: (MonadDOM m) => HTMLTrackElement -> m (Maybe TextTrack)-getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLUListElement.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLUListElement-       (setCompact, getCompact, setType, getType, HTMLUListElement,-        castToHTMLUListElement, gTypeHTMLUListElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation> -setCompact :: (MonadDOM m) => HTMLUListElement -> Bool -> m ()-setCompact self val = liftDOM (self ^. jss "compact" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation> -getCompact :: (MonadDOM m) => HTMLUListElement -> m Bool-getCompact self = liftDOM ((self ^. js "compact") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => HTMLUListElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => HTMLUListElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/HTMLVideoElement.hs 
@@ -1,153 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HTMLVideoElement-       (webkitEnterFullscreen, webkitExitFullscreen,-        webkitEnterFullScreen, webkitExitFullScreen,-        webkitSupportsPresentationMode, webkitSetPresentationMode,-        setWidth, getWidth, setHeight, getHeight, getVideoWidth,-        getVideoHeight, setPoster, getPoster, getWebkitSupportsFullscreen,-        getWebkitDisplayingFullscreen,-        setWebkitWirelessVideoPlaybackDisabled,-        getWebkitWirelessVideoPlaybackDisabled, getWebkitDecodedFrameCount,-        getWebkitDroppedFrameCount, getWebkitPresentationMode,-        webKitPresentationModeChanged, HTMLVideoElement,-        castToHTMLVideoElement, gTypeHTMLVideoElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullscreen Mozilla HTMLVideoElement.webkitEnterFullscreen documentation> -webkitEnterFullscreen :: (MonadDOM m) => HTMLVideoElement -> m ()-webkitEnterFullscreen self-  = liftDOM (void (self ^. js "webkitEnterFullscreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullscreen Mozilla HTMLVideoElement.webkitExitFullscreen documentation> -webkitExitFullscreen :: (MonadDOM m) => HTMLVideoElement -> m ()-webkitExitFullscreen self-  = liftDOM (void (self ^. js "webkitExitFullscreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullScreen Mozilla HTMLVideoElement.webkitEnterFullScreen documentation> -webkitEnterFullScreen :: (MonadDOM m) => HTMLVideoElement -> m ()-webkitEnterFullScreen self-  = liftDOM (void (self ^. js "webkitEnterFullScreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullScreen Mozilla HTMLVideoElement.webkitExitFullScreen documentation> -webkitExitFullScreen :: (MonadDOM m) => HTMLVideoElement -> m ()-webkitExitFullScreen self-  = liftDOM (void (self ^. js "webkitExitFullScreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsPresentationMode Mozilla HTMLVideoElement.webkitSupportsPresentationMode documentation> -webkitSupportsPresentationMode ::-                               (MonadDOM m) => HTMLVideoElement -> VideoPresentationMode -> m Bool-webkitSupportsPresentationMode self mode-  = liftDOM-      ((self ^. jsf "webkitSupportsPresentationMode" [toJSVal mode]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSetPresentationMode Mozilla HTMLVideoElement.webkitSetPresentationMode documentation> -webkitSetPresentationMode ::-                          (MonadDOM m) => HTMLVideoElement -> VideoPresentationMode -> m ()-webkitSetPresentationMode self mode-  = liftDOM-      (void (self ^. jsf "webkitSetPresentationMode" [toJSVal mode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation> -setWidth :: (MonadDOM m) => HTMLVideoElement -> Word -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation> -getWidth :: (MonadDOM m) => HTMLVideoElement -> m Word-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation> -setHeight :: (MonadDOM m) => HTMLVideoElement -> Word -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation> -getHeight :: (MonadDOM m) => HTMLVideoElement -> m Word-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoWidth Mozilla HTMLVideoElement.videoWidth documentation> -getVideoWidth :: (MonadDOM m) => HTMLVideoElement -> m Word-getVideoWidth self-  = liftDOM (round <$> ((self ^. js "videoWidth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoHeight Mozilla HTMLVideoElement.videoHeight documentation> -getVideoHeight :: (MonadDOM m) => HTMLVideoElement -> m Word-getVideoHeight self-  = liftDOM (round <$> ((self ^. js "videoHeight") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation> -setPoster ::-          (MonadDOM m, ToJSString val) => HTMLVideoElement -> val -> m ()-setPoster self val = liftDOM (self ^. jss "poster" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation> -getPoster ::-          (MonadDOM m, FromJSString result) => HTMLVideoElement -> m result-getPoster self-  = liftDOM ((self ^. js "poster") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsFullscreen Mozilla HTMLVideoElement.webkitSupportsFullscreen documentation> -getWebkitSupportsFullscreen ::-                            (MonadDOM m) => HTMLVideoElement -> m Bool-getWebkitSupportsFullscreen self-  = liftDOM ((self ^. js "webkitSupportsFullscreen") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDisplayingFullscreen Mozilla HTMLVideoElement.webkitDisplayingFullscreen documentation> -getWebkitDisplayingFullscreen ::-                              (MonadDOM m) => HTMLVideoElement -> m Bool-getWebkitDisplayingFullscreen self-  = liftDOM ((self ^. js "webkitDisplayingFullscreen") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation> -setWebkitWirelessVideoPlaybackDisabled ::-                                       (MonadDOM m) => HTMLVideoElement -> Bool -> m ()-setWebkitWirelessVideoPlaybackDisabled self val-  = liftDOM-      (self ^. jss "webkitWirelessVideoPlaybackDisabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation> -getWebkitWirelessVideoPlaybackDisabled ::-                                       (MonadDOM m) => HTMLVideoElement -> m Bool-getWebkitWirelessVideoPlaybackDisabled self-  = liftDOM-      ((self ^. js "webkitWirelessVideoPlaybackDisabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDecodedFrameCount Mozilla HTMLVideoElement.webkitDecodedFrameCount documentation> -getWebkitDecodedFrameCount ::-                           (MonadDOM m) => HTMLVideoElement -> m Word-getWebkitDecodedFrameCount self-  = liftDOM-      (round <$>-         ((self ^. js "webkitDecodedFrameCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDroppedFrameCount Mozilla HTMLVideoElement.webkitDroppedFrameCount documentation> -getWebkitDroppedFrameCount ::-                           (MonadDOM m) => HTMLVideoElement -> m Word-getWebkitDroppedFrameCount self-  = liftDOM-      (round <$>-         ((self ^. js "webkitDroppedFrameCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitPresentationMode Mozilla HTMLVideoElement.webkitPresentationMode documentation> -getWebkitPresentationMode ::-                          (MonadDOM m) => HTMLVideoElement -> m VideoPresentationMode-getWebkitPresentationMode self-  = liftDOM-      ((self ^. js "webkitPresentationMode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.onwebkitpresentationmodechanged Mozilla HTMLVideoElement.onwebkitpresentationmodechanged documentation> -webKitPresentationModeChanged :: EventName HTMLVideoElement Event-webKitPresentationModeChanged-  = unsafeEventName (toJSString "webkitpresentationmodechanged")
− src/Language/Javascript/JSaddle/DOM/Generated/HashChangeEvent.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.HashChangeEvent-       (initHashChangeEvent, getOldURL, getNewURL, HashChangeEvent,-        castToHashChangeEvent, gTypeHashChangeEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.initHashChangeEvent Mozilla HashChangeEvent.initHashChangeEvent documentation> -initHashChangeEvent ::-                    (MonadDOM m, ToJSString type', ToJSString oldURL,-                     ToJSString newURL) =>-                      HashChangeEvent ->-                        type' -> Bool -> Bool -> oldURL -> newURL -> m ()-initHashChangeEvent self type' canBubble cancelable oldURL newURL-  = liftDOM-      (void-         (self ^. jsf "initHashChangeEvent"-            [toJSVal type', toJSVal canBubble, toJSVal cancelable,-             toJSVal oldURL, toJSVal newURL]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.oldURL Mozilla HashChangeEvent.oldURL documentation> -getOldURL ::-          (MonadDOM m, FromJSString result) => HashChangeEvent -> m result-getOldURL self-  = liftDOM ((self ^. js "oldURL") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.newURL Mozilla HashChangeEvent.newURL documentation> -getNewURL ::-          (MonadDOM m, FromJSString result) => HashChangeEvent -> m result-getNewURL self-  = liftDOM ((self ^. js "newURL") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/History.hs 
@@ -1,59 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.History-       (back, forward, go, pushState, replaceState, getLength, getState,-        History, castToHistory, gTypeHistory)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.back Mozilla History.back documentation> -back :: (MonadDOM m) => History -> m ()-back self = liftDOM (void (self ^. js "back"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.forward Mozilla History.forward documentation> -forward :: (MonadDOM m) => History -> m ()-forward self = liftDOM (void (self ^. js "forward"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.go Mozilla History.go documentation> -go :: (MonadDOM m) => History -> Int -> m ()-go self distance-  = liftDOM (void (self ^. jsf "go" [toJSVal distance]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.pushState Mozilla History.pushState documentation> -pushState ::-          (MonadDOM m, ToJSString title, ToJSString url) =>-            History -> JSVal -> title -> url -> m ()-pushState self data' title url-  = liftDOM-      (void-         (self ^. jsf "pushState"-            [toJSVal data', toJSVal title, toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.replaceState Mozilla History.replaceState documentation> -replaceState ::-             (MonadDOM m, ToJSString title, ToJSString url) =>-               History -> JSVal -> title -> url -> m ()-replaceState self data' title url-  = liftDOM-      (void-         (self ^. jsf "replaceState"-            [toJSVal data', toJSVal title, toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.length Mozilla History.length documentation> -getLength :: (MonadDOM m) => History -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> -getState ::-         (MonadDOM m) => History -> m (Maybe SerializedScriptValue)-getState self = liftDOM ((self ^. js "state") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/IDBCursor.hs 
@@ -1,68 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBCursor-       (update, advance, continue, delete, getSource, getDirection,-        getKey, getPrimaryKey, IDBCursor, castToIDBCursor, gTypeIDBCursor,-        IsIDBCursor, toIDBCursor)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> -update ::-       (MonadDOM m, IsIDBCursor self) =>-         self -> JSVal -> m (Maybe IDBRequest)-update self value-  = liftDOM-      (((toIDBCursor self) ^. jsf "update" [toJSVal value]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.advance Mozilla IDBCursor.advance documentation> -advance :: (MonadDOM m, IsIDBCursor self) => self -> Word -> m ()-advance self count-  = liftDOM-      (void ((toIDBCursor self) ^. jsf "advance" [toJSVal count]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.continue Mozilla IDBCursor.continue documentation> -continue :: (MonadDOM m, IsIDBCursor self) => self -> JSVal -> m ()-continue self key-  = liftDOM-      (void ((toIDBCursor self) ^. jsf "continue" [toJSVal key]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> -delete ::-       (MonadDOM m, IsIDBCursor self) => self -> m (Maybe IDBRequest)-delete self-  = liftDOM (((toIDBCursor self) ^. js "delete") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> -getSource ::-          (MonadDOM m, IsIDBCursor self) => self -> m (Maybe IDBAny)-getSource self-  = liftDOM (((toIDBCursor self) ^. js "source") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.direction Mozilla IDBCursor.direction documentation> -getDirection ::-             (MonadDOM m, IsIDBCursor self, FromJSString result) =>-               self -> m result-getDirection self-  = liftDOM-      (((toIDBCursor self) ^. js "direction") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.key Mozilla IDBCursor.key documentation> -getKey :: (MonadDOM m, IsIDBCursor self) => self -> m JSVal-getKey self-  = liftDOM (((toIDBCursor self) ^. js "key") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.primaryKey Mozilla IDBCursor.primaryKey documentation> -getPrimaryKey :: (MonadDOM m, IsIDBCursor self) => self -> m JSVal-getPrimaryKey self-  = liftDOM (((toIDBCursor self) ^. js "primaryKey") >>= toJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/IDBCursorWithValue.hs 
@@ -1,20 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBCursorWithValue-       (getValue, IDBCursorWithValue, castToIDBCursorWithValue,-        gTypeIDBCursorWithValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursorWithValue.value Mozilla IDBCursorWithValue.value documentation> -getValue :: (MonadDOM m) => IDBCursorWithValue -> m JSVal-getValue self = liftDOM ((self ^. js "value") >>= toJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/IDBDatabase.hs 
@@ -1,83 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBDatabase-       (createObjectStore, deleteObjectStore, transaction, transaction',-        close, getName, getVersion, getObjectStoreNames, abort, error,-        versionChange, IDBDatabase, castToIDBDatabase, gTypeIDBDatabase)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> -createObjectStore ::-                  (MonadDOM m, ToJSString name, IsDictionary options) =>-                    IDBDatabase -> name -> Maybe options -> m (Maybe IDBObjectStore)-createObjectStore self name options-  = liftDOM-      ((self ^. jsf "createObjectStore" [toJSVal name, toJSVal options])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.deleteObjectStore Mozilla IDBDatabase.deleteObjectStore documentation> -deleteObjectStore ::-                  (MonadDOM m, ToJSString name) => IDBDatabase -> name -> m ()-deleteObjectStore self name-  = liftDOM (void (self ^. jsf "deleteObjectStore" [toJSVal name]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> -transaction ::-            (MonadDOM m, ToJSString storeName, ToJSString mode) =>-              IDBDatabase -> storeName -> mode -> m (Maybe IDBTransaction)-transaction self storeName mode-  = liftDOM-      ((self ^. jsf "transaction" [toJSVal storeName, toJSVal mode]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> -transaction' ::-             (MonadDOM m, ToJSString storeNames, ToJSString mode) =>-               IDBDatabase -> [storeNames] -> mode -> m (Maybe IDBTransaction)-transaction' self storeNames mode-  = liftDOM-      ((self ^. jsf "transaction"-          [toJSVal (array storeNames), toJSVal mode])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.close Mozilla IDBDatabase.close documentation> -close :: (MonadDOM m) => IDBDatabase -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.name Mozilla IDBDatabase.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => IDBDatabase -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.version Mozilla IDBDatabase.version documentation> -getVersion :: (MonadDOM m) => IDBDatabase -> m Word64-getVersion self-  = liftDOM (round <$> ((self ^. js "version") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> -getObjectStoreNames ::-                    (MonadDOM m) => IDBDatabase -> m (Maybe DOMStringList)-getObjectStoreNames self-  = liftDOM ((self ^. js "objectStoreNames") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onabort Mozilla IDBDatabase.onabort documentation> -abort :: EventName IDBDatabase Event-abort = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onerror Mozilla IDBDatabase.onerror documentation> -error :: EventName IDBDatabase Event-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onversionchange Mozilla IDBDatabase.onversionchange documentation> -versionChange :: EventName IDBDatabase IDBVersionChangeEvent-versionChange = unsafeEventName (toJSString "versionchange")
− src/Language/Javascript/JSaddle/DOM/Generated/IDBFactory.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBFactory-       (open, deleteDatabase, cmp, IDBFactory, castToIDBFactory,-        gTypeIDBFactory)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> -open ::-     (MonadDOM m, ToJSString name) =>-       IDBFactory -> name -> Word64 -> m (Maybe IDBOpenDBRequest)-open self name version-  = liftDOM-      ((self ^. jsf "open" [toJSVal name, toJSVal version]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> -deleteDatabase ::-               (MonadDOM m, ToJSString name) =>-                 IDBFactory -> name -> m (Maybe IDBOpenDBRequest)-deleteDatabase self name-  = liftDOM-      ((self ^. jsf "deleteDatabase" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation> -cmp :: (MonadDOM m) => IDBFactory -> JSVal -> JSVal -> m Int-cmp self first second-  = liftDOM-      (round <$>-         ((self ^. jsf "cmp" [toJSVal first, toJSVal second]) >>=-            valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/IDBIndex.hs 
@@ -1,114 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBIndex-       (openCursorRange, openCursor, openKeyCursorRange, openKeyCursor,-        getRange, get, getKeyRange, getKey, countRange, count, getName,-        getObjectStore, getKeyPath, getMultiEntry, getUnique, IDBIndex,-        castToIDBIndex, gTypeIDBIndex)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> -openCursorRange ::-                (MonadDOM m, ToJSString direction) =>-                  IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)-openCursorRange self range direction-  = liftDOM-      ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> -openCursor ::-           (MonadDOM m, ToJSString direction) =>-             IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest)-openCursor self key direction-  = liftDOM-      ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> -openKeyCursorRange ::-                   (MonadDOM m, ToJSString direction) =>-                     IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)-openKeyCursorRange self range direction-  = liftDOM-      ((self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> -openKeyCursor ::-              (MonadDOM m, ToJSString direction) =>-                IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest)-openKeyCursor self key direction-  = liftDOM-      ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -getRange ::-         (MonadDOM m) =>-           IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)-getRange self key-  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -get :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)-get self key-  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKeyRange ::-            (MonadDOM m) =>-              IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)-getKeyRange self key-  = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKey :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)-getKey self key-  = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -countRange ::-           (MonadDOM m) =>-             IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest)-countRange self range-  = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -count :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest)-count self key-  = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.name Mozilla IDBIndex.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => IDBIndex -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> -getObjectStore ::-               (MonadDOM m) => IDBIndex -> m (Maybe IDBObjectStore)-getObjectStore self-  = liftDOM ((self ^. js "objectStore") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation> -getKeyPath :: (MonadDOM m) => IDBIndex -> m (Maybe IDBAny)-getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.multiEntry Mozilla IDBIndex.multiEntry documentation> -getMultiEntry :: (MonadDOM m) => IDBIndex -> m Bool-getMultiEntry self-  = liftDOM ((self ^. js "multiEntry") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.unique Mozilla IDBIndex.unique documentation> -getUnique :: (MonadDOM m) => IDBIndex -> m Bool-getUnique self = liftDOM ((self ^. js "unique") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/IDBKeyRange.hs 
@@ -1,71 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBKeyRange-       (only, lowerBound, upperBound, bound, getLower, getUpper,-        getLowerOpen, getUpperOpen, IDBKeyRange, castToIDBKeyRange,-        gTypeIDBKeyRange)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> -only ::-     (MonadDOM m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange)-only self value-  = liftDOM ((self ^. jsf "only" [toJSVal value]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> -lowerBound ::-           (MonadDOM m) =>-             IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)-lowerBound self lower open-  = liftDOM-      ((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> -upperBound ::-           (MonadDOM m) =>-             IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)-upperBound self upper open-  = liftDOM-      ((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> -bound ::-      (MonadDOM m) =>-        IDBKeyRange ->-          JSVal -> JSVal -> Bool -> Bool -> m (Maybe IDBKeyRange)-bound self lower upper lowerOpen upperOpen-  = liftDOM-      ((self ^. jsf "bound"-          [toJSVal lower, toJSVal upper, toJSVal lowerOpen,-           toJSVal upperOpen])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lower Mozilla IDBKeyRange.lower documentation> -getLower :: (MonadDOM m) => IDBKeyRange -> m JSVal-getLower self = liftDOM ((self ^. js "lower") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upper Mozilla IDBKeyRange.upper documentation> -getUpper :: (MonadDOM m) => IDBKeyRange -> m JSVal-getUpper self = liftDOM ((self ^. js "upper") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerOpen Mozilla IDBKeyRange.lowerOpen documentation> -getLowerOpen :: (MonadDOM m) => IDBKeyRange -> m Bool-getLowerOpen self-  = liftDOM ((self ^. js "lowerOpen") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperOpen Mozilla IDBKeyRange.upperOpen documentation> -getUpperOpen :: (MonadDOM m) => IDBKeyRange -> m Bool-getUpperOpen self-  = liftDOM ((self ^. js "upperOpen") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/IDBObjectStore.hs 
@@ -1,161 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBObjectStore-       (put, add, deleteRange, delete, getRange, get, clear,-        openCursorRange, openCursor, createIndex', createIndex, index,-        deleteIndex, countRange, count, getName, getKeyPath, getIndexNames,-        getTransaction, getAutoIncrement, IDBObjectStore,-        castToIDBObjectStore, gTypeIDBObjectStore)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> -put ::-    (MonadDOM m) =>-      IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest)-put self value key-  = liftDOM-      ((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> -add ::-    (MonadDOM m) =>-      IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest)-add self value key-  = liftDOM-      ((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -deleteRange ::-            (MonadDOM m) =>-              IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)-deleteRange self keyRange-  = liftDOM ((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> -delete ::-       (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)-delete self key-  = liftDOM ((self ^. jsf "delete" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -getRange ::-         (MonadDOM m) =>-           IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)-getRange self key-  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> -get ::-    (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)-get self key-  = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> -clear :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBRequest)-clear self = liftDOM ((self ^. js "clear") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> -openCursorRange ::-                (MonadDOM m, ToJSString direction) =>-                  IDBObjectStore ->-                    Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest)-openCursorRange self range direction-  = liftDOM-      ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> -openCursor ::-           (MonadDOM m, ToJSString direction) =>-             IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest)-openCursor self key direction-  = liftDOM-      ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> -createIndex' ::-             (MonadDOM m, ToJSString name, ToJSString keyPath,-              IsDictionary options) =>-               IDBObjectStore ->-                 name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex)-createIndex' self name keyPath options-  = liftDOM-      ((self ^. jsf "createIndex"-          [toJSVal name, toJSVal (array keyPath), toJSVal options])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> -createIndex ::-            (MonadDOM m, ToJSString name, ToJSString keyPath,-             IsDictionary options) =>-              IDBObjectStore ->-                name -> keyPath -> Maybe options -> m (Maybe IDBIndex)-createIndex self name keyPath options-  = liftDOM-      ((self ^. jsf "createIndex"-          [toJSVal name, toJSVal keyPath, toJSVal options])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> -index ::-      (MonadDOM m, ToJSString name) =>-        IDBObjectStore -> name -> m (Maybe IDBIndex)-index self name-  = liftDOM ((self ^. jsf "index" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.deleteIndex Mozilla IDBObjectStore.deleteIndex documentation> -deleteIndex ::-            (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m ()-deleteIndex self name-  = liftDOM (void (self ^. jsf "deleteIndex" [toJSVal name]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -countRange ::-           (MonadDOM m) =>-             IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest)-countRange self range-  = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> -count ::-      (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest)-count self key-  = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> -getName ::-        (MonadDOM m, FromJSString result) =>-          IDBObjectStore -> m (Maybe result)-getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation> -getKeyPath :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBAny)-getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> -getIndexNames ::-              (MonadDOM m) => IDBObjectStore -> m (Maybe DOMStringList)-getIndexNames self-  = liftDOM ((self ^. js "indexNames") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> -getTransaction ::-               (MonadDOM m) => IDBObjectStore -> m (Maybe IDBTransaction)-getTransaction self-  = liftDOM ((self ^. js "transaction") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.autoIncrement Mozilla IDBObjectStore.autoIncrement documentation> -getAutoIncrement :: (MonadDOM m) => IDBObjectStore -> m Bool-getAutoIncrement self-  = liftDOM ((self ^. js "autoIncrement") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/IDBOpenDBRequest.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBOpenDBRequest-       (blocked, upgradeNeeded, IDBOpenDBRequest, castToIDBOpenDBRequest,-        gTypeIDBOpenDBRequest)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onblocked Mozilla IDBOpenDBRequest.onblocked documentation> -blocked :: EventName IDBOpenDBRequest IDBVersionChangeEvent-blocked = unsafeEventName (toJSString "blocked")---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onupgradeneeded Mozilla IDBOpenDBRequest.onupgradeneeded documentation> -upgradeNeeded :: EventName IDBOpenDBRequest IDBVersionChangeEvent-upgradeNeeded = unsafeEventName (toJSString "upgradeneeded")
− src/Language/Javascript/JSaddle/DOM/Generated/IDBRequest.hs 
@@ -1,59 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBRequest-       (getResult, getError, getSource, getTransaction, getReadyState,-        success, error, IDBRequest, castToIDBRequest, gTypeIDBRequest,-        IsIDBRequest, toIDBRequest)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation> -getResult ::-          (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBAny)-getResult self-  = liftDOM (((toIDBRequest self) ^. js "result") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation> -getError ::-         (MonadDOM m, IsIDBRequest self) => self -> m (Maybe DOMError)-getError self-  = liftDOM (((toIDBRequest self) ^. js "error") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation> -getSource ::-          (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBAny)-getSource self-  = liftDOM (((toIDBRequest self) ^. js "source") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> -getTransaction ::-               (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBTransaction)-getTransaction self-  = liftDOM (((toIDBRequest self) ^. js "transaction") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.readyState Mozilla IDBRequest.readyState documentation> -getReadyState ::-              (MonadDOM m, IsIDBRequest self, FromJSString result) =>-                self -> m result-getReadyState self-  = liftDOM-      (((toIDBRequest self) ^. js "readyState") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onsuccess Mozilla IDBRequest.onsuccess documentation> -success ::-        (IsIDBRequest self, IsEventTarget self) => EventName self Event-success = unsafeEventName (toJSString "success")---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onerror Mozilla IDBRequest.onerror documentation> -error ::-      (IsIDBRequest self, IsEventTarget self) => EventName self Event-error = unsafeEventName (toJSString "error")
− src/Language/Javascript/JSaddle/DOM/Generated/IDBTransaction.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBTransaction-       (objectStore, abort, getMode, getDb, getError, abortEvent,-        complete, error, IDBTransaction, castToIDBTransaction,-        gTypeIDBTransaction)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> -objectStore ::-            (MonadDOM m, ToJSString name) =>-              IDBTransaction -> name -> m (Maybe IDBObjectStore)-objectStore self name-  = liftDOM-      ((self ^. jsf "objectStore" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.abort Mozilla IDBTransaction.abort documentation> -abort :: (MonadDOM m) => IDBTransaction -> m ()-abort self = liftDOM (void (self ^. js "abort"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.mode Mozilla IDBTransaction.mode documentation> -getMode ::-        (MonadDOM m, FromJSString result) => IDBTransaction -> m result-getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> -getDb :: (MonadDOM m) => IDBTransaction -> m (Maybe IDBDatabase)-getDb self = liftDOM ((self ^. js "db") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation> -getError :: (MonadDOM m) => IDBTransaction -> m (Maybe DOMError)-getError self = liftDOM ((self ^. js "error") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onabort Mozilla IDBTransaction.onabort documentation> -abortEvent :: EventName IDBTransaction Event-abortEvent = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.oncomplete Mozilla IDBTransaction.oncomplete documentation> -complete :: EventName IDBTransaction Event-complete = unsafeEventName (toJSString "complete")---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onerror Mozilla IDBTransaction.onerror documentation> -error :: EventName IDBTransaction Event-error = unsafeEventName (toJSString "error")
− src/Language/Javascript/JSaddle/DOM/Generated/IDBVersionChangeEvent.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.IDBVersionChangeEvent-       (getOldVersion, getNewVersion, IDBVersionChangeEvent,-        castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.oldVersion Mozilla IDBVersionChangeEvent.oldVersion documentation> -getOldVersion :: (MonadDOM m) => IDBVersionChangeEvent -> m Word64-getOldVersion self-  = liftDOM (round <$> ((self ^. js "oldVersion") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation> -getNewVersion ::-              (MonadDOM m) => IDBVersionChangeEvent -> m (Maybe Word64)-getNewVersion self-  = liftDOM ((self ^. js "newVersion") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/ImageData.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ImageData-       (newImageData, newImageData', getWidth, getHeight, ImageData,-        castToImageData, gTypeImageData)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation> -newImageData ::-             (MonadDOM m, IsUint8ClampedArray data') =>-               Maybe data' -> Word -> Word -> m ImageData-newImageData data' sw sh-  = liftDOM-      (ImageData <$>-         new (jsg "ImageData") [toJSVal data', toJSVal sw, toJSVal sh])---- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation> -newImageData' :: (MonadDOM m) => Word -> Word -> m ImageData-newImageData' sw sh-  = liftDOM-      (ImageData <$> new (jsg "ImageData") [toJSVal sw, toJSVal sh])---- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.width Mozilla ImageData.width documentation> -getWidth :: (MonadDOM m) => ImageData -> m Int-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.height Mozilla ImageData.height documentation> -getHeight :: (MonadDOM m) => ImageData -> m Int-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/InspectorFrontendHost.hs 
@@ -1,206 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.InspectorFrontendHost-       (loaded, closeWindow, bringToFront, setZoomFactor,-        inspectedURLChanged, requestSetDockSide, setAttachedWindowHeight,-        setAttachedWindowWidth, setToolbarHeight, moveWindowBy,-        localizedStringsURL, debuggableType, copyText, openInNewTab,-        canSave, save, append, close, platform, port, showContextMenu,-        dispatchEventAsContextMenuEvent, sendMessageToBackend,-        unbufferedLog, isUnderTest, beep, canInspectWorkers, canSaveAs,-        InspectorFrontendHost, castToInspectorFrontendHost,-        gTypeInspectorFrontendHost)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.loaded Mozilla InspectorFrontendHost.loaded documentation> -loaded :: (MonadDOM m) => InspectorFrontendHost -> m ()-loaded self = liftDOM (void (self ^. js "loaded"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.closeWindow Mozilla InspectorFrontendHost.closeWindow documentation> -closeWindow :: (MonadDOM m) => InspectorFrontendHost -> m ()-closeWindow self = liftDOM (void (self ^. js "closeWindow"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.bringToFront Mozilla InspectorFrontendHost.bringToFront documentation> -bringToFront :: (MonadDOM m) => InspectorFrontendHost -> m ()-bringToFront self = liftDOM (void (self ^. js "bringToFront"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setZoomFactor Mozilla InspectorFrontendHost.setZoomFactor documentation> -setZoomFactor ::-              (MonadDOM m) => InspectorFrontendHost -> Float -> m ()-setZoomFactor self zoom-  = liftDOM (void (self ^. jsf "setZoomFactor" [toJSVal zoom]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectedURLChanged Mozilla InspectorFrontendHost.inspectedURLChanged documentation> -inspectedURLChanged ::-                    (MonadDOM m, ToJSString newURL) =>-                      InspectorFrontendHost -> newURL -> m ()-inspectedURLChanged self newURL-  = liftDOM-      (void (self ^. jsf "inspectedURLChanged" [toJSVal newURL]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.requestSetDockSide Mozilla InspectorFrontendHost.requestSetDockSide documentation> -requestSetDockSide ::-                   (MonadDOM m, ToJSString side) =>-                     InspectorFrontendHost -> side -> m ()-requestSetDockSide self side-  = liftDOM (void (self ^. jsf "requestSetDockSide" [toJSVal side]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowHeight Mozilla InspectorFrontendHost.setAttachedWindowHeight documentation> -setAttachedWindowHeight ::-                        (MonadDOM m) => InspectorFrontendHost -> Word -> m ()-setAttachedWindowHeight self height-  = liftDOM-      (void (self ^. jsf "setAttachedWindowHeight" [toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowWidth Mozilla InspectorFrontendHost.setAttachedWindowWidth documentation> -setAttachedWindowWidth ::-                       (MonadDOM m) => InspectorFrontendHost -> Word -> m ()-setAttachedWindowWidth self width-  = liftDOM-      (void (self ^. jsf "setAttachedWindowWidth" [toJSVal width]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setToolbarHeight Mozilla InspectorFrontendHost.setToolbarHeight documentation> -setToolbarHeight ::-                 (MonadDOM m) => InspectorFrontendHost -> Float -> m ()-setToolbarHeight self height-  = liftDOM (void (self ^. jsf "setToolbarHeight" [toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.moveWindowBy Mozilla InspectorFrontendHost.moveWindowBy documentation> -moveWindowBy ::-             (MonadDOM m) => InspectorFrontendHost -> Float -> Float -> m ()-moveWindowBy self x y-  = liftDOM-      (void (self ^. jsf "moveWindowBy" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation> -localizedStringsURL ::-                    (MonadDOM m, FromJSString result) =>-                      InspectorFrontendHost -> m result-localizedStringsURL self-  = liftDOM-      ((self ^. js "localizedStringsURL") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation> -debuggableType ::-               (MonadDOM m, FromJSString result) =>-                 InspectorFrontendHost -> m result-debuggableType self-  = liftDOM ((self ^. js "debuggableType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.copyText Mozilla InspectorFrontendHost.copyText documentation> -copyText ::-         (MonadDOM m, ToJSString text) =>-           InspectorFrontendHost -> text -> m ()-copyText self text-  = liftDOM (void (self ^. jsf "copyText" [toJSVal text]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.openInNewTab Mozilla InspectorFrontendHost.openInNewTab documentation> -openInNewTab ::-             (MonadDOM m, ToJSString url) =>-               InspectorFrontendHost -> url -> m ()-openInNewTab self url-  = liftDOM (void (self ^. jsf "openInNewTab" [toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation> -canSave :: (MonadDOM m) => InspectorFrontendHost -> m Bool-canSave self = liftDOM ((self ^. js "canSave") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.save Mozilla InspectorFrontendHost.save documentation> -save ::-     (MonadDOM m, ToJSString url, ToJSString content) =>-       InspectorFrontendHost -> url -> content -> Bool -> Bool -> m ()-save self url content base64Encoded forceSaveAs-  = liftDOM-      (void-         (self ^. jsf "save"-            [toJSVal url, toJSVal content, toJSVal base64Encoded,-             toJSVal forceSaveAs]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.append Mozilla InspectorFrontendHost.append documentation> -append ::-       (MonadDOM m, ToJSString url, ToJSString content) =>-         InspectorFrontendHost -> url -> content -> m ()-append self url content-  = liftDOM-      (void (self ^. jsf "append" [toJSVal url, toJSVal content]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.close Mozilla InspectorFrontendHost.close documentation> -close ::-      (MonadDOM m, ToJSString url) =>-        InspectorFrontendHost -> url -> m ()-close self url = liftDOM (void (self ^. jsf "close" [toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation> -platform ::-         (MonadDOM m, FromJSString result) =>-           InspectorFrontendHost -> m result-platform self-  = liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation> -port ::-     (MonadDOM m, FromJSString result) =>-       InspectorFrontendHost -> m result-port self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.showContextMenu Mozilla InspectorFrontendHost.showContextMenu documentation> -showContextMenu ::-                (MonadDOM m, IsMouseEvent event) =>-                  InspectorFrontendHost -> Maybe event -> JSVal -> m ()-showContextMenu self event items-  = liftDOM-      (void-         (self ^. jsf "showContextMenu" [toJSVal event, toJSVal items]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.dispatchEventAsContextMenuEvent Mozilla InspectorFrontendHost.dispatchEventAsContextMenuEvent documentation> -dispatchEventAsContextMenuEvent ::-                                (MonadDOM m, IsEvent event) =>-                                  InspectorFrontendHost -> Maybe event -> m ()-dispatchEventAsContextMenuEvent self event-  = liftDOM-      (void-         (self ^. jsf "dispatchEventAsContextMenuEvent" [toJSVal event]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.sendMessageToBackend Mozilla InspectorFrontendHost.sendMessageToBackend documentation> -sendMessageToBackend ::-                     (MonadDOM m, ToJSString message) =>-                       InspectorFrontendHost -> message -> m ()-sendMessageToBackend self message-  = liftDOM-      (void (self ^. jsf "sendMessageToBackend" [toJSVal message]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.unbufferedLog Mozilla InspectorFrontendHost.unbufferedLog documentation> -unbufferedLog ::-              (MonadDOM m, ToJSString message) =>-                InspectorFrontendHost -> message -> m ()-unbufferedLog self message-  = liftDOM (void (self ^. jsf "unbufferedLog" [toJSVal message]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation> -isUnderTest :: (MonadDOM m) => InspectorFrontendHost -> m Bool-isUnderTest self-  = liftDOM ((self ^. js "isUnderTest") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.beep Mozilla InspectorFrontendHost.beep documentation> -beep :: (MonadDOM m) => InspectorFrontendHost -> m ()-beep self = liftDOM (void (self ^. js "beep"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation> -canInspectWorkers ::-                  (MonadDOM m) => InspectorFrontendHost -> m Bool-canInspectWorkers self-  = liftDOM ((self ^. js "canInspectWorkers") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation> -canSaveAs :: (MonadDOM m) => InspectorFrontendHost -> m Bool-canSaveAs self = liftDOM ((self ^. js "canSaveAs") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/InternalSettings.hs 
@@ -1,294 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.InternalSettings-       (setTouchEventEmulationEnabled, setStandardFontFamily,-        setSerifFontFamily, setSansSerifFontFamily, setFixedFontFamily,-        setCursiveFontFamily, setFantasyFontFamily,-        setPictographFontFamily, setFontFallbackPrefersPictographs,-        setTextAutosizingEnabled, setTextAutosizingWindowSizeOverride,-        setTextAutosizingFontScaleFactor, setCSSShapesEnabled,-        setCanStartMedia, setShouldDisplayTrackKind,-        shouldDisplayTrackKind, setDefaultVideoPosterURL,-        setTimeWithoutMouseMovementBeforeHidingControls,-        setMediaTypeOverride, setPluginReplacementEnabled,-        setEditingBehavior, setShouldConvertPositionStyleOnCopy,-        setLangAttributeAwareFormControlUIEnabled,-        setStorageBlockingPolicy, setImagesEnabled,-        setUseLegacyBackgroundSizeShorthandBehavior,-        setAutoscrollForDragAndDropEnabled,-        setBackgroundShouldExtendBeyondPage,-        setScrollingTreeIncludesFrames, setMinimumTimerInterval,-        InternalSettings, castToInternalSettings, gTypeInternalSettings)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTouchEventEmulationEnabled Mozilla InternalSettings.setTouchEventEmulationEnabled documentation> -setTouchEventEmulationEnabled ::-                              (MonadDOM m) => InternalSettings -> Bool -> m ()-setTouchEventEmulationEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setTouchEventEmulationEnabled" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStandardFontFamily Mozilla InternalSettings.setStandardFontFamily documentation> -setStandardFontFamily ::-                      (MonadDOM m, ToJSString family', ToJSString script) =>-                        InternalSettings -> family' -> script -> m ()-setStandardFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setStandardFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSerifFontFamily Mozilla InternalSettings.setSerifFontFamily documentation> -setSerifFontFamily ::-                   (MonadDOM m, ToJSString family', ToJSString script) =>-                     InternalSettings -> family' -> script -> m ()-setSerifFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setSerifFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSansSerifFontFamily Mozilla InternalSettings.setSansSerifFontFamily documentation> -setSansSerifFontFamily ::-                       (MonadDOM m, ToJSString family', ToJSString script) =>-                         InternalSettings -> family' -> script -> m ()-setSansSerifFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setSansSerifFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFixedFontFamily Mozilla InternalSettings.setFixedFontFamily documentation> -setFixedFontFamily ::-                   (MonadDOM m, ToJSString family', ToJSString script) =>-                     InternalSettings -> family' -> script -> m ()-setFixedFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setFixedFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCursiveFontFamily Mozilla InternalSettings.setCursiveFontFamily documentation> -setCursiveFontFamily ::-                     (MonadDOM m, ToJSString family', ToJSString script) =>-                       InternalSettings -> family' -> script -> m ()-setCursiveFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setCursiveFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFantasyFontFamily Mozilla InternalSettings.setFantasyFontFamily documentation> -setFantasyFontFamily ::-                     (MonadDOM m, ToJSString family', ToJSString script) =>-                       InternalSettings -> family' -> script -> m ()-setFantasyFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setFantasyFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPictographFontFamily Mozilla InternalSettings.setPictographFontFamily documentation> -setPictographFontFamily ::-                        (MonadDOM m, ToJSString family', ToJSString script) =>-                          InternalSettings -> family' -> script -> m ()-setPictographFontFamily self family' script-  = liftDOM-      (void-         (self ^. jsf "setPictographFontFamily"-            [toJSVal family', toJSVal script]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFontFallbackPrefersPictographs Mozilla InternalSettings.setFontFallbackPrefersPictographs documentation> -setFontFallbackPrefersPictographs ::-                                  (MonadDOM m) => InternalSettings -> Bool -> m ()-setFontFallbackPrefersPictographs self preferPictographs-  = liftDOM-      (void-         (self ^. jsf "setFontFallbackPrefersPictographs"-            [toJSVal preferPictographs]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingEnabled Mozilla InternalSettings.setTextAutosizingEnabled documentation> -setTextAutosizingEnabled ::-                         (MonadDOM m) => InternalSettings -> Bool -> m ()-setTextAutosizingEnabled self enabled-  = liftDOM-      (void (self ^. jsf "setTextAutosizingEnabled" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingWindowSizeOverride Mozilla InternalSettings.setTextAutosizingWindowSizeOverride documentation> -setTextAutosizingWindowSizeOverride ::-                                    (MonadDOM m) => InternalSettings -> Int -> Int -> m ()-setTextAutosizingWindowSizeOverride self width height-  = liftDOM-      (void-         (self ^. jsf "setTextAutosizingWindowSizeOverride"-            [toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingFontScaleFactor Mozilla InternalSettings.setTextAutosizingFontScaleFactor documentation> -setTextAutosizingFontScaleFactor ::-                                 (MonadDOM m) => InternalSettings -> Float -> m ()-setTextAutosizingFontScaleFactor self fontScaleFactor-  = liftDOM-      (void-         (self ^. jsf "setTextAutosizingFontScaleFactor"-            [toJSVal fontScaleFactor]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCSSShapesEnabled Mozilla InternalSettings.setCSSShapesEnabled documentation> -setCSSShapesEnabled ::-                    (MonadDOM m) => InternalSettings -> Bool -> m ()-setCSSShapesEnabled self enabled-  = liftDOM-      (void (self ^. jsf "setCSSShapesEnabled" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCanStartMedia Mozilla InternalSettings.setCanStartMedia documentation> -setCanStartMedia ::-                 (MonadDOM m) => InternalSettings -> Bool -> m ()-setCanStartMedia self enabled-  = liftDOM (void (self ^. jsf "setCanStartMedia" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldDisplayTrackKind Mozilla InternalSettings.setShouldDisplayTrackKind documentation> -setShouldDisplayTrackKind ::-                          (MonadDOM m, ToJSString kind) =>-                            InternalSettings -> kind -> Bool -> m ()-setShouldDisplayTrackKind self kind enabled-  = liftDOM-      (void-         (self ^. jsf "setShouldDisplayTrackKind"-            [toJSVal kind, toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.shouldDisplayTrackKind Mozilla InternalSettings.shouldDisplayTrackKind documentation> -shouldDisplayTrackKind ::-                       (MonadDOM m, ToJSString trackKind) =>-                         InternalSettings -> trackKind -> m Bool-shouldDisplayTrackKind self trackKind-  = liftDOM-      ((self ^. jsf "shouldDisplayTrackKind" [toJSVal trackKind]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setDefaultVideoPosterURL Mozilla InternalSettings.setDefaultVideoPosterURL documentation> -setDefaultVideoPosterURL ::-                         (MonadDOM m, ToJSString poster) =>-                           InternalSettings -> poster -> m ()-setDefaultVideoPosterURL self poster-  = liftDOM-      (void (self ^. jsf "setDefaultVideoPosterURL" [toJSVal poster]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls Mozilla InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls documentation> -setTimeWithoutMouseMovementBeforeHidingControls ::-                                                (MonadDOM m) => InternalSettings -> Double -> m ()-setTimeWithoutMouseMovementBeforeHidingControls self time-  = liftDOM-      (void-         (self ^. jsf "setTimeWithoutMouseMovementBeforeHidingControls"-            [toJSVal time]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMediaTypeOverride Mozilla InternalSettings.setMediaTypeOverride documentation> -setMediaTypeOverride ::-                     (MonadDOM m, ToJSString mediaTypeOverride) =>-                       InternalSettings -> mediaTypeOverride -> m ()-setMediaTypeOverride self mediaTypeOverride-  = liftDOM-      (void-         (self ^. jsf "setMediaTypeOverride" [toJSVal mediaTypeOverride]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPluginReplacementEnabled Mozilla InternalSettings.setPluginReplacementEnabled documentation> -setPluginReplacementEnabled ::-                            (MonadDOM m) => InternalSettings -> Bool -> m ()-setPluginReplacementEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setPluginReplacementEnabled" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setEditingBehavior Mozilla InternalSettings.setEditingBehavior documentation> -setEditingBehavior ::-                   (MonadDOM m, ToJSString behavior) =>-                     InternalSettings -> behavior -> m ()-setEditingBehavior self behavior-  = liftDOM-      (void (self ^. jsf "setEditingBehavior" [toJSVal behavior]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldConvertPositionStyleOnCopy Mozilla InternalSettings.setShouldConvertPositionStyleOnCopy documentation> -setShouldConvertPositionStyleOnCopy ::-                                    (MonadDOM m) => InternalSettings -> Bool -> m ()-setShouldConvertPositionStyleOnCopy self convert-  = liftDOM-      (void-         (self ^. jsf "setShouldConvertPositionStyleOnCopy"-            [toJSVal convert]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setLangAttributeAwareFormControlUIEnabled Mozilla InternalSettings.setLangAttributeAwareFormControlUIEnabled documentation> -setLangAttributeAwareFormControlUIEnabled ::-                                          (MonadDOM m) => InternalSettings -> Bool -> m ()-setLangAttributeAwareFormControlUIEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setLangAttributeAwareFormControlUIEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStorageBlockingPolicy Mozilla InternalSettings.setStorageBlockingPolicy documentation> -setStorageBlockingPolicy ::-                         (MonadDOM m, ToJSString policy) =>-                           InternalSettings -> policy -> m ()-setStorageBlockingPolicy self policy-  = liftDOM-      (void (self ^. jsf "setStorageBlockingPolicy" [toJSVal policy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setImagesEnabled Mozilla InternalSettings.setImagesEnabled documentation> -setImagesEnabled ::-                 (MonadDOM m) => InternalSettings -> Bool -> m ()-setImagesEnabled self enabled-  = liftDOM (void (self ^. jsf "setImagesEnabled" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior Mozilla InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior documentation> -setUseLegacyBackgroundSizeShorthandBehavior ::-                                            (MonadDOM m) => InternalSettings -> Bool -> m ()-setUseLegacyBackgroundSizeShorthandBehavior self enabled-  = liftDOM-      (void-         (self ^. jsf "setUseLegacyBackgroundSizeShorthandBehavior"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setAutoscrollForDragAndDropEnabled Mozilla InternalSettings.setAutoscrollForDragAndDropEnabled documentation> -setAutoscrollForDragAndDropEnabled ::-                                   (MonadDOM m) => InternalSettings -> Bool -> m ()-setAutoscrollForDragAndDropEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setAutoscrollForDragAndDropEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setBackgroundShouldExtendBeyondPage Mozilla InternalSettings.setBackgroundShouldExtendBeyondPage documentation> -setBackgroundShouldExtendBeyondPage ::-                                    (MonadDOM m) => InternalSettings -> Bool -> m ()-setBackgroundShouldExtendBeyondPage self hasExtendedBackground-  = liftDOM-      (void-         (self ^. jsf "setBackgroundShouldExtendBeyondPage"-            [toJSVal hasExtendedBackground]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setScrollingTreeIncludesFrames Mozilla InternalSettings.setScrollingTreeIncludesFrames documentation> -setScrollingTreeIncludesFrames ::-                               (MonadDOM m) => InternalSettings -> Bool -> m ()-setScrollingTreeIncludesFrames self enabled-  = liftDOM-      (void-         (self ^. jsf "setScrollingTreeIncludesFrames" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMinimumTimerInterval Mozilla InternalSettings.setMinimumTimerInterval documentation> -setMinimumTimerInterval ::-                        (MonadDOM m) => InternalSettings -> Double -> m ()-setMinimumTimerInterval self intervalInSeconds-  = liftDOM-      (void-         (self ^. jsf "setMinimumTimerInterval"-            [toJSVal intervalInSeconds]))
− src/Language/Javascript/JSaddle/DOM/Generated/Internals.hs 
@@ -1,1458 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Internals-       (address, nodeNeedsStyleRecalc, description,-        hasPausedImageAnimations, elementRenderTreeAsText, isPreloaded,-        isLoadingFromMemoryCache, xhrResponseSource, clearMemoryCache,-        pruneMemoryCacheToSize, memoryCacheSize, clearPageCache,-        pageCacheSize, computedStyleIncludingVisitedInfo, ensureShadowRoot,-        createShadowRoot, shadowRoot, shadowRootType, includerFor,-        shadowPseudoId, setShadowPseudoId, treeScopeRootNode,-        parentTreeScope, lastSpatialNavigationCandidateCount,-        numberOfActiveAnimations, suspendAnimations, resumeAnimations,-        animationsAreSuspended, pauseAnimationAtTimeOnElement,-        pauseAnimationAtTimeOnPseudoElement,-        pauseTransitionAtTimeOnElement,-        pauseTransitionAtTimeOnPseudoElement, attached, visiblePlaceholder,-        selectColorInColorChooser, formControlStateOfPreviousHistoryItem,-        setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds,-        boundingBox, inspectorHighlightRects, inspectorHighlightObject,-        markerCountForNode, markerRangeForNode, markerDescriptionForNode,-        addTextMatchMarker, setMarkedTextMatchesAreHighlighted,-        invalidateFontCache, setScrollViewPosition, setPagination,-        configurationForViewport, wasLastChangeUserEdit,-        elementShouldAutoComplete, setEditingValue, setAutofilled,-        countMatchesForText, paintControlTints, scrollElementToRect,-        rangeFromLocationAndLength, locationFromRange, lengthFromRange,-        rangeAsText, subrange, rangeForDictionaryLookupAtLocation,-        setDelegatesScrolling, lastSpellCheckRequestSequence,-        lastSpellCheckProcessedSequence, userPreferredLanguages,-        setUserPreferredLanguages, wheelEventHandlerCount,-        touchEventHandlerCount, nodesFromRect, parserMetaData,-        updateEditorUINowIfScheduled, hasSpellingMarker, hasGrammarMarker,-        hasAutocorrectedMarker, setContinuousSpellCheckingEnabled,-        setAutomaticQuoteSubstitutionEnabled,-        setAutomaticLinkDetectionEnabled,-        setAutomaticDashSubstitutionEnabled,-        setAutomaticTextReplacementEnabled,-        setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled,-        toggleOverwriteModeEnabled, numberOfScrollableAreas,-        isPageBoxVisible, layerTreeAsText, scrollingStateTreeAsText,-        mainThreadScrollingReasons, nonFastScrollableRects,-        repaintRectsAsText, garbageCollectDocumentResources,-        allowRoundingHacks, insertAuthorCSS, insertUserCSS,-        setBatteryStatus, setDeviceProximity, numberOfLiveNodes,-        numberOfLiveDocuments, consoleMessageArgumentCounts,-        openDummyInspectorFrontend, closeDummyInspectorFrontend,-        setJavaScriptProfilingEnabled, setInspectorIsUnderTest,-        counterValue, pageNumber, shortcutIconURLs, allIconURLs,-        numberOfPages, pageProperty, pageSizeAndMarginsInPixels,-        setPageScaleFactor, setPageZoomFactor, setHeaderHeight,-        setFooterHeight, setTopContentInset,-        webkitWillEnterFullScreenForElement,-        webkitDidEnterFullScreenForElement,-        webkitWillExitFullScreenForElement,-        webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota,-        registerURLSchemeAsBypassingContentSecurityPolicy,-        removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,-        mallocStatistics, typeConversions, memoryInfo,-        getReferencedFilePaths, startTrackingRepaints,-        stopTrackingRepaints, isTimerThrottled,-        updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,-        getCurrentCursorInfo, markerTextForListItem, toolTipFromElement,-        deserializeBuffer, serializeObject, setUsesOverlayScrollbars,-        forceReload, simulateAudioInterruption,-        mediaElementHasCharacteristic, initializeMockCDM,-        enableMockSpeechSynthesizer, getImageSourceURL,-        captionsStyleSheetOverride, setCaptionsStyleSheetOverride,-        setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode,-        createTimeRanges, closestTimeToTimeRanges, isSelectPopupVisible,-        isVibrating, isPluginUnavailabilityIndicatorObscured,-        isPluginSnapshotted, selectionBounds, initializeMockMediaSource,-        bufferedSamplesForTrackID, beginMediaSessionInterruption,-        endMediaSessionInterruption, applicationWillEnterForeground,-        applicationWillEnterBackground, setMediaSessionRestrictions,-        postRemoteControlCommand, simulateSystemSleep, simulateSystemWake,-        elementIsBlockingDisplaySleep, installMockPageOverlay,-        pageOverlayLayerTreeAsText, setPageMuted, isPagePlayingAudio,-        pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS,-        pattern LAYER_TREE_INCLUDES_TILE_CACHES,-        pattern LAYER_TREE_INCLUDES_REPAINT_RECTS,-        pattern LAYER_TREE_INCLUDES_PAINTING_PHASES,-        pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, getSettings,-        getWorkerThreadCount, getConsoleProfiles, Internals,-        castToInternals, gTypeInternals)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> -address ::-        (MonadDOM m, IsNode node, FromJSString result) =>-          Internals -> Maybe node -> m result-address self node-  = liftDOM-      ((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> -nodeNeedsStyleRecalc ::-                     (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool-nodeNeedsStyleRecalc self node-  = liftDOM-      ((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> -description ::-            (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result-description self value-  = liftDOM-      ((self ^. jsf "description" [toJSVal value]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> -hasPausedImageAnimations ::-                         (MonadDOM m, IsElement element) =>-                           Internals -> Maybe element -> m Bool-hasPausedImageAnimations self element-  = liftDOM-      ((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> -elementRenderTreeAsText ::-                        (MonadDOM m, IsElement element, FromJSString result) =>-                          Internals -> Maybe element -> m result-elementRenderTreeAsText self element-  = liftDOM-      ((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> -isPreloaded ::-            (MonadDOM m, ToJSString url) => Internals -> url -> m Bool-isPreloaded self url-  = liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> -isLoadingFromMemoryCache ::-                         (MonadDOM m, ToJSString url) => Internals -> url -> m Bool-isLoadingFromMemoryCache self url-  = liftDOM-      ((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> -xhrResponseSource ::-                  (MonadDOM m, FromJSString result) =>-                    Internals -> Maybe XMLHttpRequest -> m result-xhrResponseSource self xhr-  = liftDOM-      ((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation> -clearMemoryCache :: (MonadDOM m) => Internals -> m ()-clearMemoryCache self-  = liftDOM (void (self ^. js "clearMemoryCache"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation> -pruneMemoryCacheToSize :: (MonadDOM m) => Internals -> Int -> m ()-pruneMemoryCacheToSize self size-  = liftDOM-      (void (self ^. jsf "pruneMemoryCacheToSize" [toJSVal size]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> -memoryCacheSize :: (MonadDOM m) => Internals -> m Int-memoryCacheSize self-  = liftDOM-      (round <$> ((self ^. js "memoryCacheSize") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation> -clearPageCache :: (MonadDOM m) => Internals -> m ()-clearPageCache self = liftDOM (void (self ^. js "clearPageCache"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> -pageCacheSize :: (MonadDOM m) => Internals -> m Word-pageCacheSize self-  = liftDOM-      (round <$> ((self ^. js "pageCacheSize") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> -computedStyleIncludingVisitedInfo ::-                                  (MonadDOM m, IsNode node) =>-                                    Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)-computedStyleIncludingVisitedInfo self node-  = liftDOM-      ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> -ensureShadowRoot ::-                 (MonadDOM m, IsElement host) =>-                   Internals -> Maybe host -> m (Maybe Node)-ensureShadowRoot self host-  = liftDOM-      ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> -createShadowRoot ::-                 (MonadDOM m, IsElement host) =>-                   Internals -> Maybe host -> m (Maybe Node)-createShadowRoot self host-  = liftDOM-      ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> -shadowRoot ::-           (MonadDOM m, IsElement host) =>-             Internals -> Maybe host -> m (Maybe Node)-shadowRoot self host-  = liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> -shadowRootType ::-               (MonadDOM m, IsNode root, FromJSString result) =>-                 Internals -> Maybe root -> m result-shadowRootType self root-  = liftDOM-      ((self ^. jsf "shadowRootType" [toJSVal root]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> -includerFor ::-            (MonadDOM m, IsNode node) =>-              Internals -> Maybe node -> m (Maybe Element)-includerFor self node-  = liftDOM-      ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> -shadowPseudoId ::-               (MonadDOM m, IsElement element, FromJSString result) =>-                 Internals -> Maybe element -> m result-shadowPseudoId self element-  = liftDOM-      ((self ^. jsf "shadowPseudoId" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation> -setShadowPseudoId ::-                  (MonadDOM m, IsElement element, ToJSString id) =>-                    Internals -> Maybe element -> id -> m ()-setShadowPseudoId self element id-  = liftDOM-      (void-         (self ^. jsf "setShadowPseudoId" [toJSVal element, toJSVal id]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> -treeScopeRootNode ::-                  (MonadDOM m, IsNode node) =>-                    Internals -> Maybe node -> m (Maybe Node)-treeScopeRootNode self node-  = liftDOM-      ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> -parentTreeScope ::-                (MonadDOM m, IsNode node) =>-                  Internals -> Maybe node -> m (Maybe Node)-parentTreeScope self node-  = liftDOM-      ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> -lastSpatialNavigationCandidateCount ::-                                    (MonadDOM m) => Internals -> m Word-lastSpatialNavigationCandidateCount self-  = liftDOM-      (round <$>-         ((self ^. js "lastSpatialNavigationCandidateCount") >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> -numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word-numberOfActiveAnimations self-  = liftDOM-      (round <$>-         ((self ^. js "numberOfActiveAnimations") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation> -suspendAnimations :: (MonadDOM m) => Internals -> m ()-suspendAnimations self-  = liftDOM (void (self ^. js "suspendAnimations"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation> -resumeAnimations :: (MonadDOM m) => Internals -> m ()-resumeAnimations self-  = liftDOM (void (self ^. js "resumeAnimations"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> -animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool-animationsAreSuspended self-  = liftDOM ((self ^. js "animationsAreSuspended") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation> -pauseAnimationAtTimeOnElement ::-                              (MonadDOM m, ToJSString animationName, IsElement element) =>-                                Internals -> animationName -> Double -> Maybe element -> m Bool-pauseAnimationAtTimeOnElement self animationName pauseTime element-  = liftDOM-      ((self ^. jsf "pauseAnimationAtTimeOnElement"-          [toJSVal animationName, toJSVal pauseTime, toJSVal element])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation> -pauseAnimationAtTimeOnPseudoElement ::-                                    (MonadDOM m, ToJSString animationName, IsElement element,-                                     ToJSString pseudoId) =>-                                      Internals ->-                                        animationName ->-                                          Double -> Maybe element -> pseudoId -> m Bool-pauseAnimationAtTimeOnPseudoElement self animationName pauseTime-  element pseudoId-  = liftDOM-      ((self ^. jsf "pauseAnimationAtTimeOnPseudoElement"-          [toJSVal animationName, toJSVal pauseTime, toJSVal element,-           toJSVal pseudoId])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation> -pauseTransitionAtTimeOnElement ::-                               (MonadDOM m, ToJSString propertyName, IsElement element) =>-                                 Internals -> propertyName -> Double -> Maybe element -> m Bool-pauseTransitionAtTimeOnElement self propertyName pauseTime element-  = liftDOM-      ((self ^. jsf "pauseTransitionAtTimeOnElement"-          [toJSVal propertyName, toJSVal pauseTime, toJSVal element])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation> -pauseTransitionAtTimeOnPseudoElement ::-                                     (MonadDOM m, ToJSString property, IsElement element,-                                      ToJSString pseudoId) =>-                                       Internals ->-                                         property -> Double -> Maybe element -> pseudoId -> m Bool-pauseTransitionAtTimeOnPseudoElement self property pauseTime-  element pseudoId-  = liftDOM-      ((self ^. jsf "pauseTransitionAtTimeOnPseudoElement"-          [toJSVal property, toJSVal pauseTime, toJSVal element,-           toJSVal pseudoId])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> -attached ::-         (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool-attached self node-  = liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> -visiblePlaceholder ::-                   (MonadDOM m, IsElement element, FromJSString result) =>-                     Internals -> Maybe element -> m result-visiblePlaceholder self element-  = liftDOM-      ((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation> -selectColorInColorChooser ::-                          (MonadDOM m, IsElement element, ToJSString colorValue) =>-                            Internals -> Maybe element -> colorValue -> m ()-selectColorInColorChooser self element colorValue-  = liftDOM-      (void-         (self ^. jsf "selectColorInColorChooser"-            [toJSVal element, toJSVal colorValue]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> -formControlStateOfPreviousHistoryItem ::-                                      (MonadDOM m, FromJSString result) => Internals -> m [result]-formControlStateOfPreviousHistoryItem self-  = liftDOM-      ((self ^. js "formControlStateOfPreviousHistoryItem") >>=-         fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation> -setFormControlStateOfPreviousHistoryItem ::-                                         (MonadDOM m, ToJSString values) =>-                                           Internals -> [values] -> m ()-setFormControlStateOfPreviousHistoryItem self values-  = liftDOM-      (void-         (self ^. jsf "setFormControlStateOfPreviousHistoryItem"-            [toJSVal (array values)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> -absoluteCaretBounds ::-                    (MonadDOM m) => Internals -> m (Maybe ClientRect)-absoluteCaretBounds self-  = liftDOM ((self ^. js "absoluteCaretBounds") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> -boundingBox ::-            (MonadDOM m, IsElement element) =>-              Internals -> Maybe element -> m (Maybe ClientRect)-boundingBox self element-  = liftDOM-      ((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> -inspectorHighlightRects ::-                        (MonadDOM m) => Internals -> m (Maybe ClientRectList)-inspectorHighlightRects self-  = liftDOM ((self ^. js "inspectorHighlightRects") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> -inspectorHighlightObject ::-                         (MonadDOM m, FromJSString result) => Internals -> m result-inspectorHighlightObject self-  = liftDOM-      ((self ^. js "inspectorHighlightObject") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation> -markerCountForNode ::-                   (MonadDOM m, IsNode node, ToJSString markerType) =>-                     Internals -> Maybe node -> markerType -> m Word-markerCountForNode self node markerType-  = liftDOM-      (round <$>-         ((self ^. jsf "markerCountForNode"-             [toJSVal node, toJSVal markerType])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> -markerRangeForNode ::-                   (MonadDOM m, IsNode node, ToJSString markerType) =>-                     Internals -> Maybe node -> markerType -> Word -> m (Maybe Range)-markerRangeForNode self node markerType index-  = liftDOM-      ((self ^. jsf "markerRangeForNode"-          [toJSVal node, toJSVal markerType, toJSVal index])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> -markerDescriptionForNode ::-                         (MonadDOM m, IsNode node, ToJSString markerType,-                          FromJSString result) =>-                           Internals -> Maybe node -> markerType -> Word -> m result-markerDescriptionForNode self node markerType index-  = liftDOM-      ((self ^. jsf "markerDescriptionForNode"-          [toJSVal node, toJSVal markerType, toJSVal index])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation> -addTextMatchMarker ::-                   (MonadDOM m) => Internals -> Maybe Range -> Bool -> m ()-addTextMatchMarker self range isActive-  = liftDOM-      (void-         (self ^. jsf "addTextMatchMarker"-            [toJSVal range, toJSVal isActive]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation> -setMarkedTextMatchesAreHighlighted ::-                                   (MonadDOM m) => Internals -> Bool -> m ()-setMarkedTextMatchesAreHighlighted self flag-  = liftDOM-      (void-         (self ^. jsf "setMarkedTextMatchesAreHighlighted" [toJSVal flag]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation> -invalidateFontCache :: (MonadDOM m) => Internals -> m ()-invalidateFontCache self-  = liftDOM (void (self ^. js "invalidateFontCache"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation> -setScrollViewPosition ::-                      (MonadDOM m) => Internals -> Int -> Int -> m ()-setScrollViewPosition self x y-  = liftDOM-      (void (self ^. jsf "setScrollViewPosition" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation> -setPagination ::-              (MonadDOM m, ToJSString mode) =>-                Internals -> mode -> Int -> Int -> m ()-setPagination self mode gap pageLength-  = liftDOM-      (void-         (self ^. jsf "setPagination"-            [toJSVal mode, toJSVal gap, toJSVal pageLength]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> -configurationForViewport ::-                         (MonadDOM m, FromJSString result) =>-                           Internals -> Float -> Int -> Int -> Int -> Int -> m result-configurationForViewport self devicePixelRatio deviceWidth-  deviceHeight availableWidth availableHeight-  = liftDOM-      ((self ^. jsf "configurationForViewport"-          [toJSVal devicePixelRatio, toJSVal deviceWidth,-           toJSVal deviceHeight, toJSVal availableWidth,-           toJSVal availableHeight])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> -wasLastChangeUserEdit ::-                      (MonadDOM m, IsElement textField) =>-                        Internals -> Maybe textField -> m Bool-wasLastChangeUserEdit self textField-  = liftDOM-      ((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> -elementShouldAutoComplete ::-                          (MonadDOM m, IsElement inputElement) =>-                            Internals -> Maybe inputElement -> m Bool-elementShouldAutoComplete self inputElement-  = liftDOM-      ((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation> -setEditingValue ::-                (MonadDOM m, IsElement inputElement, ToJSString value) =>-                  Internals -> Maybe inputElement -> value -> m ()-setEditingValue self inputElement value-  = liftDOM-      (void-         (self ^. jsf "setEditingValue"-            [toJSVal inputElement, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation> -setAutofilled ::-              (MonadDOM m, IsElement inputElement) =>-                Internals -> Maybe inputElement -> Bool -> m ()-setAutofilled self inputElement enabled-  = liftDOM-      (void-         (self ^. jsf "setAutofilled"-            [toJSVal inputElement, toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation> -countMatchesForText ::-                    (MonadDOM m, ToJSString text, ToJSString markMatches) =>-                      Internals -> text -> Word -> markMatches -> m Word-countMatchesForText self text findOptions markMatches-  = liftDOM-      (round <$>-         ((self ^. jsf "countMatchesForText"-             [toJSVal text, toJSVal findOptions, toJSVal markMatches])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation> -paintControlTints :: (MonadDOM m) => Internals -> m ()-paintControlTints self-  = liftDOM (void (self ^. js "paintControlTints"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation> -scrollElementToRect ::-                    (MonadDOM m, IsElement element) =>-                      Internals -> Maybe element -> Int -> Int -> Int -> Int -> m ()-scrollElementToRect self element x y w h-  = liftDOM-      (void-         (self ^. jsf "scrollElementToRect"-            [toJSVal element, toJSVal x, toJSVal y, toJSVal w, toJSVal h]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> -rangeFromLocationAndLength ::-                           (MonadDOM m, IsElement scope) =>-                             Internals -> Maybe scope -> Int -> Int -> m (Maybe Range)-rangeFromLocationAndLength self scope rangeLocation rangeLength-  = liftDOM-      ((self ^. jsf "rangeFromLocationAndLength"-          [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation> -locationFromRange ::-                  (MonadDOM m, IsElement scope) =>-                    Internals -> Maybe scope -> Maybe Range -> m Word-locationFromRange self scope range-  = liftDOM-      (round <$>-         ((self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation> -lengthFromRange ::-                (MonadDOM m, IsElement scope) =>-                  Internals -> Maybe scope -> Maybe Range -> m Word-lengthFromRange self scope range-  = liftDOM-      (round <$>-         ((self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> -rangeAsText ::-            (MonadDOM m, FromJSString result) =>-              Internals -> Maybe Range -> m result-rangeAsText self range-  = liftDOM-      ((self ^. jsf "rangeAsText" [toJSVal range]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> -subrange ::-         (MonadDOM m) =>-           Internals -> Maybe Range -> Int -> Int -> m (Maybe Range)-subrange self range rangeLocation rangeLength-  = liftDOM-      ((self ^. jsf "subrange"-          [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> -rangeForDictionaryLookupAtLocation ::-                                   (MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range)-rangeForDictionaryLookupAtLocation self x y-  = liftDOM-      ((self ^. jsf "rangeForDictionaryLookupAtLocation"-          [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation> -setDelegatesScrolling :: (MonadDOM m) => Internals -> Bool -> m ()-setDelegatesScrolling self enabled-  = liftDOM-      (void (self ^. jsf "setDelegatesScrolling" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> -lastSpellCheckRequestSequence :: (MonadDOM m) => Internals -> m Int-lastSpellCheckRequestSequence self-  = liftDOM-      (round <$>-         ((self ^. js "lastSpellCheckRequestSequence") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> -lastSpellCheckProcessedSequence ::-                                (MonadDOM m) => Internals -> m Int-lastSpellCheckProcessedSequence self-  = liftDOM-      (round <$>-         ((self ^. js "lastSpellCheckProcessedSequence") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> -userPreferredLanguages ::-                       (MonadDOM m, FromJSString result) => Internals -> m [result]-userPreferredLanguages self-  = liftDOM-      ((self ^. js "userPreferredLanguages") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation> -setUserPreferredLanguages ::-                          (MonadDOM m, ToJSString languages) =>-                            Internals -> [languages] -> m ()-setUserPreferredLanguages self languages-  = liftDOM-      (void-         (self ^. jsf "setUserPreferredLanguages"-            [toJSVal (array languages)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> -wheelEventHandlerCount :: (MonadDOM m) => Internals -> m Word-wheelEventHandlerCount self-  = liftDOM-      (round <$> ((self ^. js "wheelEventHandlerCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> -touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word-touchEventHandlerCount self-  = liftDOM-      (round <$> ((self ^. js "touchEventHandlerCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> -nodesFromRect ::-              (MonadDOM m, IsDocument document) =>-                Internals ->-                  Maybe document ->-                    Int ->-                      Int ->-                        Word ->-                          Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList)-nodesFromRect self document x y topPadding rightPadding-  bottomPadding leftPadding ignoreClipping allowShadowContent-  allowChildFrameContent-  = liftDOM-      ((self ^. jsf "nodesFromRect"-          [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding,-           toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding,-           toJSVal ignoreClipping, toJSVal allowShadowContent,-           toJSVal allowChildFrameContent])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> -parserMetaData ::-               (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result-parserMetaData self func-  = liftDOM-      ((self ^. jsf "parserMetaData" [toJSVal func]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation> -updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m ()-updateEditorUINowIfScheduled self-  = liftDOM (void (self ^. js "updateEditorUINowIfScheduled"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> -hasSpellingMarker ::-                  (MonadDOM m) => Internals -> Int -> Int -> m Bool-hasSpellingMarker self from length-  = liftDOM-      ((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> -hasGrammarMarker ::-                 (MonadDOM m) => Internals -> Int -> Int -> m Bool-hasGrammarMarker self from length-  = liftDOM-      ((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> -hasAutocorrectedMarker ::-                       (MonadDOM m) => Internals -> Int -> Int -> m Bool-hasAutocorrectedMarker self from length-  = liftDOM-      ((self ^. jsf "hasAutocorrectedMarker"-          [toJSVal from, toJSVal length])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation> -setContinuousSpellCheckingEnabled ::-                                  (MonadDOM m) => Internals -> Bool -> m ()-setContinuousSpellCheckingEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setContinuousSpellCheckingEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation> -setAutomaticQuoteSubstitutionEnabled ::-                                     (MonadDOM m) => Internals -> Bool -> m ()-setAutomaticQuoteSubstitutionEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setAutomaticQuoteSubstitutionEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation> -setAutomaticLinkDetectionEnabled ::-                                 (MonadDOM m) => Internals -> Bool -> m ()-setAutomaticLinkDetectionEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setAutomaticLinkDetectionEnabled" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation> -setAutomaticDashSubstitutionEnabled ::-                                    (MonadDOM m) => Internals -> Bool -> m ()-setAutomaticDashSubstitutionEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setAutomaticDashSubstitutionEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation> -setAutomaticTextReplacementEnabled ::-                                   (MonadDOM m) => Internals -> Bool -> m ()-setAutomaticTextReplacementEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setAutomaticTextReplacementEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation> -setAutomaticSpellingCorrectionEnabled ::-                                      (MonadDOM m) => Internals -> Bool -> m ()-setAutomaticSpellingCorrectionEnabled self enabled-  = liftDOM-      (void-         (self ^. jsf "setAutomaticSpellingCorrectionEnabled"-            [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> -isOverwriteModeEnabled :: (MonadDOM m) => Internals -> m Bool-isOverwriteModeEnabled self-  = liftDOM ((self ^. js "isOverwriteModeEnabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation> -toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m ()-toggleOverwriteModeEnabled self-  = liftDOM (void (self ^. js "toggleOverwriteModeEnabled"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> -numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word-numberOfScrollableAreas self-  = liftDOM-      (round <$>-         ((self ^. js "numberOfScrollableAreas") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> -isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool-isPageBoxVisible self pageNumber-  = liftDOM-      ((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> -layerTreeAsText ::-                (MonadDOM m, IsDocument document, FromJSString result) =>-                  Internals -> Maybe document -> Word -> m result-layerTreeAsText self document flags-  = liftDOM-      ((self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> -scrollingStateTreeAsText ::-                         (MonadDOM m, FromJSString result) => Internals -> m result-scrollingStateTreeAsText self-  = liftDOM-      ((self ^. js "scrollingStateTreeAsText") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> -mainThreadScrollingReasons ::-                           (MonadDOM m, FromJSString result) => Internals -> m result-mainThreadScrollingReasons self-  = liftDOM-      ((self ^. js "mainThreadScrollingReasons") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> -nonFastScrollableRects ::-                       (MonadDOM m) => Internals -> m (Maybe ClientRectList)-nonFastScrollableRects self-  = liftDOM ((self ^. js "nonFastScrollableRects") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> -repaintRectsAsText ::-                   (MonadDOM m, FromJSString result) => Internals -> m result-repaintRectsAsText self-  = liftDOM-      ((self ^. js "repaintRectsAsText") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation> -garbageCollectDocumentResources ::-                                (MonadDOM m) => Internals -> m ()-garbageCollectDocumentResources self-  = liftDOM (void (self ^. js "garbageCollectDocumentResources"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation> -allowRoundingHacks :: (MonadDOM m) => Internals -> m ()-allowRoundingHacks self-  = liftDOM (void (self ^. js "allowRoundingHacks"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation> -insertAuthorCSS ::-                (MonadDOM m, ToJSString css) => Internals -> css -> m ()-insertAuthorCSS self css-  = liftDOM (void (self ^. jsf "insertAuthorCSS" [toJSVal css]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation> -insertUserCSS ::-              (MonadDOM m, ToJSString css) => Internals -> css -> m ()-insertUserCSS self css-  = liftDOM (void (self ^. jsf "insertUserCSS" [toJSVal css]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation> -setBatteryStatus ::-                 (MonadDOM m, ToJSString eventType) =>-                   Internals ->-                     eventType -> Bool -> Double -> Double -> Double -> m ()-setBatteryStatus self eventType charging chargingTime-  dischargingTime level-  = liftDOM-      (void-         (self ^. jsf "setBatteryStatus"-            [toJSVal eventType, toJSVal charging, toJSVal chargingTime,-             toJSVal dischargingTime, toJSVal level]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation> -setDeviceProximity ::-                   (MonadDOM m, ToJSString eventType) =>-                     Internals -> eventType -> Double -> Double -> Double -> m ()-setDeviceProximity self eventType value min max-  = liftDOM-      (void-         (self ^. jsf "setDeviceProximity"-            [toJSVal eventType, toJSVal value, toJSVal min, toJSVal max]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> -numberOfLiveNodes :: (MonadDOM m) => Internals -> m Word-numberOfLiveNodes self-  = liftDOM-      (round <$> ((self ^. js "numberOfLiveNodes") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> -numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word-numberOfLiveDocuments self-  = liftDOM-      (round <$> ((self ^. js "numberOfLiveDocuments") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> -consoleMessageArgumentCounts ::-                             (MonadDOM m, FromJSString result) => Internals -> m [result]-consoleMessageArgumentCounts self-  = liftDOM-      ((self ^. js "consoleMessageArgumentCounts") >>=-         fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> -openDummyInspectorFrontend ::-                           (MonadDOM m, ToJSString url) =>-                             Internals -> url -> m (Maybe Window)-openDummyInspectorFrontend self url-  = liftDOM-      ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation> -closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m ()-closeDummyInspectorFrontend self-  = liftDOM (void (self ^. js "closeDummyInspectorFrontend"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation> -setJavaScriptProfilingEnabled ::-                              (MonadDOM m) => Internals -> Bool -> m ()-setJavaScriptProfilingEnabled self creates-  = liftDOM-      (void-         (self ^. jsf "setJavaScriptProfilingEnabled" [toJSVal creates]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation> -setInspectorIsUnderTest ::-                        (MonadDOM m) => Internals -> Bool -> m ()-setInspectorIsUnderTest self isUnderTest-  = liftDOM-      (void-         (self ^. jsf "setInspectorIsUnderTest" [toJSVal isUnderTest]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> -counterValue ::-             (MonadDOM m, IsElement element, FromJSString result) =>-               Internals -> Maybe element -> m result-counterValue self element-  = liftDOM-      ((self ^. jsf "counterValue" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation> -pageNumber ::-           (MonadDOM m, IsElement element) =>-             Internals -> Maybe element -> Float -> Float -> m Int-pageNumber self element pageWidth pageHeight-  = liftDOM-      (round <$>-         ((self ^. jsf "pageNumber"-             [toJSVal element, toJSVal pageWidth, toJSVal pageHeight])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> -shortcutIconURLs ::-                 (MonadDOM m, FromJSString result) => Internals -> m [result]-shortcutIconURLs self-  = liftDOM-      ((self ^. js "shortcutIconURLs") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> -allIconURLs ::-            (MonadDOM m, FromJSString result) => Internals -> m [result]-allIconURLs self-  = liftDOM ((self ^. js "allIconURLs") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> -numberOfPages ::-              (MonadDOM m) => Internals -> Double -> Double -> m Int-numberOfPages self pageWidthInPixels pageHeightInPixels-  = liftDOM-      (round <$>-         ((self ^. jsf "numberOfPages"-             [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> -pageProperty ::-             (MonadDOM m, ToJSString propertyName, FromJSString result) =>-               Internals -> propertyName -> Int -> m result-pageProperty self propertyName pageNumber-  = liftDOM-      ((self ^. jsf "pageProperty"-          [toJSVal propertyName, toJSVal pageNumber])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> -pageSizeAndMarginsInPixels ::-                           (MonadDOM m, FromJSString result) =>-                             Internals ->-                               Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result-pageSizeAndMarginsInPixels self pageIndex width height marginTop-  marginRight marginBottom marginLeft-  = liftDOM-      ((self ^. jsf "pageSizeAndMarginsInPixels"-          [toJSVal pageIndex, toJSVal width, toJSVal height,-           toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom,-           toJSVal marginLeft])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation> -setPageScaleFactor ::-                   (MonadDOM m) => Internals -> Float -> Int -> Int -> m ()-setPageScaleFactor self scaleFactor x y-  = liftDOM-      (void-         (self ^. jsf "setPageScaleFactor"-            [toJSVal scaleFactor, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation> -setPageZoomFactor :: (MonadDOM m) => Internals -> Float -> m ()-setPageZoomFactor self zoomFactor-  = liftDOM-      (void (self ^. jsf "setPageZoomFactor" [toJSVal zoomFactor]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation> -setHeaderHeight :: (MonadDOM m) => Internals -> Float -> m ()-setHeaderHeight self height-  = liftDOM (void (self ^. jsf "setHeaderHeight" [toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation> -setFooterHeight :: (MonadDOM m) => Internals -> Float -> m ()-setFooterHeight self height-  = liftDOM (void (self ^. jsf "setFooterHeight" [toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation> -setTopContentInset :: (MonadDOM m) => Internals -> Float -> m ()-setTopContentInset self contentInset-  = liftDOM-      (void (self ^. jsf "setTopContentInset" [toJSVal contentInset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation> -webkitWillEnterFullScreenForElement ::-                                    (MonadDOM m, IsElement element) =>-                                      Internals -> Maybe element -> m ()-webkitWillEnterFullScreenForElement self element-  = liftDOM-      (void-         (self ^. jsf "webkitWillEnterFullScreenForElement"-            [toJSVal element]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation> -webkitDidEnterFullScreenForElement ::-                                   (MonadDOM m, IsElement element) =>-                                     Internals -> Maybe element -> m ()-webkitDidEnterFullScreenForElement self element-  = liftDOM-      (void-         (self ^. jsf "webkitDidEnterFullScreenForElement"-            [toJSVal element]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation> -webkitWillExitFullScreenForElement ::-                                   (MonadDOM m, IsElement element) =>-                                     Internals -> Maybe element -> m ()-webkitWillExitFullScreenForElement self element-  = liftDOM-      (void-         (self ^. jsf "webkitWillExitFullScreenForElement"-            [toJSVal element]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation> -webkitDidExitFullScreenForElement ::-                                  (MonadDOM m, IsElement element) =>-                                    Internals -> Maybe element -> m ()-webkitDidExitFullScreenForElement self element-  = liftDOM-      (void-         (self ^. jsf "webkitDidExitFullScreenForElement"-            [toJSVal element]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation> -setApplicationCacheOriginQuota ::-                               (MonadDOM m) => Internals -> Word64 -> m ()-setApplicationCacheOriginQuota self quota-  = liftDOM-      (void-         (self ^. jsf "setApplicationCacheOriginQuota" [toJSVal quota]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation> -registerURLSchemeAsBypassingContentSecurityPolicy ::-                                                  (MonadDOM m, ToJSString scheme) =>-                                                    Internals -> scheme -> m ()-registerURLSchemeAsBypassingContentSecurityPolicy self scheme-  = liftDOM-      (void-         (self ^. jsf "registerURLSchemeAsBypassingContentSecurityPolicy"-            [toJSVal scheme]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation> -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::-                                                          (MonadDOM m, ToJSString scheme) =>-                                                            Internals -> scheme -> m ()-removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self-  scheme-  = liftDOM-      (void-         (self ^.-            jsf "removeURLSchemeRegisteredAsBypassingContentSecurityPolicy"-            [toJSVal scheme]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> -mallocStatistics ::-                 (MonadDOM m) => Internals -> m (Maybe MallocStatistics)-mallocStatistics self-  = liftDOM ((self ^. js "mallocStatistics") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> -typeConversions ::-                (MonadDOM m) => Internals -> m (Maybe TypeConversions)-typeConversions self-  = liftDOM ((self ^. js "typeConversions") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> -memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo)-memoryInfo self = liftDOM ((self ^. js "memoryInfo") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> -getReferencedFilePaths ::-                       (MonadDOM m, FromJSString result) => Internals -> m [result]-getReferencedFilePaths self-  = liftDOM-      ((self ^. js "getReferencedFilePaths") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation> -startTrackingRepaints :: (MonadDOM m) => Internals -> m ()-startTrackingRepaints self-  = liftDOM (void (self ^. js "startTrackingRepaints"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation> -stopTrackingRepaints :: (MonadDOM m) => Internals -> m ()-stopTrackingRepaints self-  = liftDOM (void (self ^. js "stopTrackingRepaints"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> -isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool-isTimerThrottled self timerHandle-  = liftDOM-      ((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation> -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::-                                                          (MonadDOM m, IsNode node) =>-                                                            Internals -> Maybe node -> m ()-updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node-  = liftDOM-      (void-         (self ^.-            jsf "updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks"-            [toJSVal node]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> -getCurrentCursorInfo ::-                     (MonadDOM m, FromJSString result) => Internals -> m result-getCurrentCursorInfo self-  = liftDOM-      ((self ^. js "getCurrentCursorInfo") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> -markerTextForListItem ::-                      (MonadDOM m, IsElement element, FromJSString result) =>-                        Internals -> Maybe element -> m result-markerTextForListItem self element-  = liftDOM-      ((self ^. jsf "markerTextForListItem" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> -toolTipFromElement ::-                   (MonadDOM m, IsElement element, FromJSString result) =>-                     Internals -> Maybe element -> m result-toolTipFromElement self element-  = liftDOM-      ((self ^. jsf "toolTipFromElement" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> -deserializeBuffer ::-                  (MonadDOM m, IsArrayBuffer buffer) =>-                    Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)-deserializeBuffer self buffer-  = liftDOM-      ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> -serializeObject ::-                (MonadDOM m, IsSerializedScriptValue obj) =>-                  Internals -> Maybe obj -> m (Maybe ArrayBuffer)-serializeObject self obj-  = liftDOM-      ((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation> -setUsesOverlayScrollbars ::-                         (MonadDOM m) => Internals -> Bool -> m ()-setUsesOverlayScrollbars self enabled-  = liftDOM-      (void (self ^. jsf "setUsesOverlayScrollbars" [toJSVal enabled]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation> -forceReload :: (MonadDOM m) => Internals -> Bool -> m ()-forceReload self endToEnd-  = liftDOM (void (self ^. jsf "forceReload" [toJSVal endToEnd]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation> -simulateAudioInterruption ::-                          (MonadDOM m, IsNode node) => Internals -> Maybe node -> m ()-simulateAudioInterruption self node-  = liftDOM-      (void (self ^. jsf "simulateAudioInterruption" [toJSVal node]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation> -mediaElementHasCharacteristic ::-                              (MonadDOM m, IsNode node, ToJSString characteristic) =>-                                Internals -> Maybe node -> characteristic -> m Bool-mediaElementHasCharacteristic self node characteristic-  = liftDOM-      ((self ^. jsf "mediaElementHasCharacteristic"-          [toJSVal node, toJSVal characteristic])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation> -initializeMockCDM :: (MonadDOM m) => Internals -> m ()-initializeMockCDM self-  = liftDOM (void (self ^. js "initializeMockCDM"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation> -enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m ()-enableMockSpeechSynthesizer self-  = liftDOM (void (self ^. js "enableMockSpeechSynthesizer"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> -getImageSourceURL ::-                  (MonadDOM m, IsElement element, FromJSString result) =>-                    Internals -> Maybe element -> m result-getImageSourceURL self element-  = liftDOM-      ((self ^. jsf "getImageSourceURL" [toJSVal element]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> -captionsStyleSheetOverride ::-                           (MonadDOM m, FromJSString result) => Internals -> m result-captionsStyleSheetOverride self-  = liftDOM-      ((self ^. js "captionsStyleSheetOverride") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation> -setCaptionsStyleSheetOverride ::-                              (MonadDOM m, ToJSString override) => Internals -> override -> m ()-setCaptionsStyleSheetOverride self override-  = liftDOM-      (void-         (self ^. jsf "setCaptionsStyleSheetOverride" [toJSVal override]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation> -setPrimaryAudioTrackLanguageOverride ::-                                     (MonadDOM m, ToJSString language) =>-                                       Internals -> language -> m ()-setPrimaryAudioTrackLanguageOverride self language-  = liftDOM-      (void-         (self ^. jsf "setPrimaryAudioTrackLanguageOverride"-            [toJSVal language]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation> -setCaptionDisplayMode ::-                      (MonadDOM m, ToJSString mode) => Internals -> mode -> m ()-setCaptionDisplayMode self mode-  = liftDOM-      (void (self ^. jsf "setCaptionDisplayMode" [toJSVal mode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> -createTimeRanges ::-                 (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>-                   Internals ->-                     Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges)-createTimeRanges self startTimes endTimes-  = liftDOM-      ((self ^. jsf "createTimeRanges"-          [toJSVal startTimes, toJSVal endTimes])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> -closestTimeToTimeRanges ::-                        (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double-closestTimeToTimeRanges self time ranges-  = liftDOM-      ((self ^. jsf "closestTimeToTimeRanges"-          [toJSVal time, toJSVal ranges])-         >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> -isSelectPopupVisible ::-                     (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool-isSelectPopupVisible self node-  = liftDOM-      ((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> -isVibrating :: (MonadDOM m) => Internals -> m Bool-isVibrating self-  = liftDOM ((self ^. js "isVibrating") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> -isPluginUnavailabilityIndicatorObscured ::-                                        (MonadDOM m, IsElement element) =>-                                          Internals -> Maybe element -> m Bool-isPluginUnavailabilityIndicatorObscured self element-  = liftDOM-      ((self ^. jsf "isPluginUnavailabilityIndicatorObscured"-          [toJSVal element])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> -isPluginSnapshotted ::-                    (MonadDOM m, IsElement element) =>-                      Internals -> Maybe element -> m Bool-isPluginSnapshotted self element-  = liftDOM-      ((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> -selectionBounds ::-                (MonadDOM m) => Internals -> m (Maybe ClientRect)-selectionBounds self-  = liftDOM ((self ^. js "selectionBounds") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation> -initializeMockMediaSource :: (MonadDOM m) => Internals -> m ()-initializeMockMediaSource self-  = liftDOM (void (self ^. js "initializeMockMediaSource"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> -bufferedSamplesForTrackID ::-                          (MonadDOM m, ToJSString trackID, FromJSString result) =>-                            Internals -> Maybe SourceBuffer -> trackID -> m [result]-bufferedSamplesForTrackID self buffer trackID-  = liftDOM-      ((self ^. jsf "bufferedSamplesForTrackID"-          [toJSVal buffer, toJSVal trackID])-         >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation> -beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m ()-beginMediaSessionInterruption self-  = liftDOM (void (self ^. js "beginMediaSessionInterruption"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation> -endMediaSessionInterruption ::-                            (MonadDOM m, ToJSString flags) => Internals -> flags -> m ()-endMediaSessionInterruption self flags-  = liftDOM-      (void (self ^. jsf "endMediaSessionInterruption" [toJSVal flags]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation> -applicationWillEnterForeground :: (MonadDOM m) => Internals -> m ()-applicationWillEnterForeground self-  = liftDOM (void (self ^. js "applicationWillEnterForeground"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation> -applicationWillEnterBackground :: (MonadDOM m) => Internals -> m ()-applicationWillEnterBackground self-  = liftDOM (void (self ^. js "applicationWillEnterBackground"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation> -setMediaSessionRestrictions ::-                            (MonadDOM m, ToJSString mediaType, ToJSString restrictions) =>-                              Internals -> mediaType -> restrictions -> m ()-setMediaSessionRestrictions self mediaType restrictions-  = liftDOM-      (void-         (self ^. jsf "setMediaSessionRestrictions"-            [toJSVal mediaType, toJSVal restrictions]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation> -postRemoteControlCommand ::-                         (MonadDOM m, ToJSString command) => Internals -> command -> m ()-postRemoteControlCommand self command-  = liftDOM-      (void (self ^. jsf "postRemoteControlCommand" [toJSVal command]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation> -simulateSystemSleep :: (MonadDOM m) => Internals -> m ()-simulateSystemSleep self-  = liftDOM (void (self ^. js "simulateSystemSleep"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation> -simulateSystemWake :: (MonadDOM m) => Internals -> m ()-simulateSystemWake self-  = liftDOM (void (self ^. js "simulateSystemWake"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> -elementIsBlockingDisplaySleep ::-                              (MonadDOM m, IsElement element) =>-                                Internals -> Maybe element -> m Bool-elementIsBlockingDisplaySleep self element-  = liftDOM-      ((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation> -installMockPageOverlay ::-                       (MonadDOM m) => Internals -> PageOverlayType -> m ()-installMockPageOverlay self type'-  = liftDOM-      (void (self ^. jsf "installMockPageOverlay" [toJSVal type']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> -pageOverlayLayerTreeAsText ::-                           (MonadDOM m, FromJSString result) => Internals -> m result-pageOverlayLayerTreeAsText self-  = liftDOM-      ((self ^. js "pageOverlayLayerTreeAsText") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation> -setPageMuted :: (MonadDOM m) => Internals -> Bool -> m ()-setPageMuted self muted-  = liftDOM (void (self ^. jsf "setPageMuted" [toJSVal muted]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> -isPagePlayingAudio :: (MonadDOM m) => Internals -> m Bool-isPagePlayingAudio self-  = liftDOM ((self ^. js "isPagePlayingAudio") >>= valToBool)-pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1-pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2-pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4-pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8-pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> -getSettings ::-            (MonadDOM m) => Internals -> m (Maybe InternalSettings)-getSettings self = liftDOM ((self ^. js "settings") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.workerThreadCount Mozilla Internals.workerThreadCount documentation> -getWorkerThreadCount :: (MonadDOM m) => Internals -> m Word-getWorkerThreadCount self-  = liftDOM-      (round <$> ((self ^. js "workerThreadCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleProfiles Mozilla Internals.consoleProfiles documentation> -getConsoleProfiles ::-                   (MonadDOM m) => Internals -> m [Maybe ScriptProfile]-getConsoleProfiles self-  = liftDOM ((self ^. js "consoleProfiles") >>= fromJSArray)
− src/Language/Javascript/JSaddle/DOM/Generated/KeyboardEvent.hs 
@@ -1,81 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.KeyboardEvent-       (initKeyboardEvent, pattern DOM_KEY_LOCATION_STANDARD,-        pattern DOM_KEY_LOCATION_LEFT, pattern DOM_KEY_LOCATION_RIGHT,-        pattern DOM_KEY_LOCATION_NUMPAD, getKeyIdentifier, getLocation,-        getKeyLocation, getCtrlKey, getShiftKey, getAltKey, getMetaKey,-        getAltGraphKey, KeyboardEvent, castToKeyboardEvent,-        gTypeKeyboardEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.initKeyboardEvent Mozilla KeyboardEvent.initKeyboardEvent documentation> -initKeyboardEvent ::-                  (MonadDOM m, ToJSString type', ToJSString keyIdentifier) =>-                    KeyboardEvent ->-                      type' ->-                        Bool ->-                          Bool ->-                            Maybe Window ->-                              keyIdentifier ->-                                Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()-initKeyboardEvent self type' canBubble cancelable view-  keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey-  = liftDOM-      (void-         (self ^. jsf "initKeyboardEvent"-            [toJSVal type', toJSVal canBubble, toJSVal cancelable,-             toJSVal view, toJSVal keyIdentifier, toJSVal location,-             toJSVal ctrlKey, toJSVal altKey, toJSVal shiftKey, toJSVal metaKey,-             toJSVal altGraphKey]))-pattern DOM_KEY_LOCATION_STANDARD = 0-pattern DOM_KEY_LOCATION_LEFT = 1-pattern DOM_KEY_LOCATION_RIGHT = 2-pattern DOM_KEY_LOCATION_NUMPAD = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyIdentifier Mozilla KeyboardEvent.keyIdentifier documentation> -getKeyIdentifier ::-                 (MonadDOM m, FromJSString result) => KeyboardEvent -> m result-getKeyIdentifier self-  = liftDOM ((self ^. js "keyIdentifier") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.location Mozilla KeyboardEvent.location documentation> -getLocation :: (MonadDOM m) => KeyboardEvent -> m Word-getLocation self-  = liftDOM (round <$> ((self ^. js "location") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyLocation Mozilla KeyboardEvent.keyLocation documentation> -getKeyLocation :: (MonadDOM m) => KeyboardEvent -> m Word-getKeyLocation self-  = liftDOM (round <$> ((self ^. js "keyLocation") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.ctrlKey Mozilla KeyboardEvent.ctrlKey documentation> -getCtrlKey :: (MonadDOM m) => KeyboardEvent -> m Bool-getCtrlKey self = liftDOM ((self ^. js "ctrlKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.shiftKey Mozilla KeyboardEvent.shiftKey documentation> -getShiftKey :: (MonadDOM m) => KeyboardEvent -> m Bool-getShiftKey self = liftDOM ((self ^. js "shiftKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altKey Mozilla KeyboardEvent.altKey documentation> -getAltKey :: (MonadDOM m) => KeyboardEvent -> m Bool-getAltKey self = liftDOM ((self ^. js "altKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.metaKey Mozilla KeyboardEvent.metaKey documentation> -getMetaKey :: (MonadDOM m) => KeyboardEvent -> m Bool-getMetaKey self = liftDOM ((self ^. js "metaKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altGraphKey Mozilla KeyboardEvent.altGraphKey documentation> -getAltGraphKey :: (MonadDOM m) => KeyboardEvent -> m Bool-getAltGraphKey self-  = liftDOM ((self ^. js "altGraphKey") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/Location.hs 
@@ -1,134 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Location-       (assign, replace, reload, toString, setHref, getHref, setProtocol,-        getProtocol, setHost, getHost, setHostname, getHostname, setPort,-        getPort, setPathname, getPathname, setSearch, getSearch, setHash,-        getHash, getOrigin, getAncestorOrigins, Location, castToLocation,-        gTypeLocation)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.assign Mozilla Location.assign documentation> -assign :: (MonadDOM m, ToJSString url) => Location -> url -> m ()-assign self url-  = liftDOM (void (self ^. jsf "assign" [toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.replace Mozilla Location.replace documentation> -replace :: (MonadDOM m, ToJSString url) => Location -> url -> m ()-replace self url-  = liftDOM (void (self ^. jsf "replace" [toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.reload Mozilla Location.reload documentation> -reload :: (MonadDOM m) => Location -> m ()-reload self = liftDOM (void (self ^. js "reload"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.toString Mozilla Location.toString documentation> -toString ::-         (MonadDOM m, FromJSString result) => Location -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation> -setHref :: (MonadDOM m, ToJSString val) => Location -> val -> m ()-setHref self val = liftDOM (self ^. jss "href" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) => Location -> m result-getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation> -setProtocol ::-            (MonadDOM m, ToJSString val) => Location -> val -> m ()-setProtocol self val-  = liftDOM (self ^. jss "protocol" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) => Location -> m result-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation> -setHost :: (MonadDOM m, ToJSString val) => Location -> val -> m ()-setHost self val = liftDOM (self ^. jss "host" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation> -getHost ::-        (MonadDOM m, FromJSString result) => Location -> m result-getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation> -setHostname ::-            (MonadDOM m, ToJSString val) => Location -> val -> m ()-setHostname self val-  = liftDOM (self ^. jss "hostname" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation> -getHostname ::-            (MonadDOM m, FromJSString result) => Location -> m result-getHostname self-  = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation> -setPort :: (MonadDOM m, ToJSString val) => Location -> val -> m ()-setPort self val = liftDOM (self ^. jss "port" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation> -getPort ::-        (MonadDOM m, FromJSString result) => Location -> m result-getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation> -setPathname ::-            (MonadDOM m, ToJSString val) => Location -> val -> m ()-setPathname self val-  = liftDOM (self ^. jss "pathname" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation> -getPathname ::-            (MonadDOM m, FromJSString result) => Location -> m result-getPathname self-  = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation> -setSearch ::-          (MonadDOM m, ToJSString val) => Location -> val -> m ()-setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation> -getSearch ::-          (MonadDOM m, FromJSString result) => Location -> m result-getSearch self-  = liftDOM ((self ^. js "search") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation> -setHash :: (MonadDOM m, ToJSString val) => Location -> val -> m ()-setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation> -getHash ::-        (MonadDOM m, FromJSString result) => Location -> m result-getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.origin Mozilla Location.origin documentation> -getOrigin ::-          (MonadDOM m, FromJSString result) => Location -> m result-getOrigin self-  = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> -getAncestorOrigins ::-                   (MonadDOM m) => Location -> m (Maybe DOMStringList)-getAncestorOrigins self-  = liftDOM ((self ^. js "ancestorOrigins") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MallocStatistics.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MallocStatistics-       (getReservedVMBytes, getCommittedVMBytes, getFreeListBytes,-        MallocStatistics, castToMallocStatistics, gTypeMallocStatistics)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.reservedVMBytes Mozilla MallocStatistics.reservedVMBytes documentation> -getReservedVMBytes :: (MonadDOM m) => MallocStatistics -> m Word-getReservedVMBytes self-  = liftDOM-      (round <$> ((self ^. js "reservedVMBytes") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.committedVMBytes Mozilla MallocStatistics.committedVMBytes documentation> -getCommittedVMBytes :: (MonadDOM m) => MallocStatistics -> m Word-getCommittedVMBytes self-  = liftDOM-      (round <$> ((self ^. js "committedVMBytes") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.freeListBytes Mozilla MallocStatistics.freeListBytes documentation> -getFreeListBytes :: (MonadDOM m) => MallocStatistics -> m Word-getFreeListBytes self-  = liftDOM-      (round <$> ((self ^. js "freeListBytes") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaController.hs 
@@ -1,116 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaController-       (newMediaController, play, pause, unpause, getBuffered,-        getSeekable, getDuration, setCurrentTime, getCurrentTime,-        getPaused, getPlayed, getPlaybackState, setDefaultPlaybackRate,-        getDefaultPlaybackRate, setPlaybackRate, getPlaybackRate,-        setVolume, getVolume, setMuted, getMuted, MediaController,-        castToMediaController, gTypeMediaController)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController Mozilla MediaController documentation> -newMediaController :: (MonadDOM m) => m MediaController-newMediaController-  = liftDOM (MediaController <$> new (jsg "MediaController") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.play Mozilla MediaController.play documentation> -play :: (MonadDOM m) => MediaController -> m ()-play self = liftDOM (void (self ^. js "play"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.pause Mozilla MediaController.pause documentation> -pause :: (MonadDOM m) => MediaController -> m ()-pause self = liftDOM (void (self ^. js "pause"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.unpause Mozilla MediaController.unpause documentation> -unpause :: (MonadDOM m) => MediaController -> m ()-unpause self = liftDOM (void (self ^. js "unpause"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> -getBuffered ::-            (MonadDOM m) => MediaController -> m (Maybe TimeRanges)-getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> -getSeekable ::-            (MonadDOM m) => MediaController -> m (Maybe TimeRanges)-getSeekable self = liftDOM ((self ^. js "seekable") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.duration Mozilla MediaController.duration documentation> -getDuration :: (MonadDOM m) => MediaController -> m Double-getDuration self-  = liftDOM ((self ^. js "duration") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation> -setCurrentTime :: (MonadDOM m) => MediaController -> Double -> m ()-setCurrentTime self val-  = liftDOM (self ^. jss "currentTime" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation> -getCurrentTime :: (MonadDOM m) => MediaController -> m Double-getCurrentTime self-  = liftDOM ((self ^. js "currentTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.paused Mozilla MediaController.paused documentation> -getPaused :: (MonadDOM m) => MediaController -> m Bool-getPaused self = liftDOM ((self ^. js "paused") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> -getPlayed ::-          (MonadDOM m) => MediaController -> m (Maybe TimeRanges)-getPlayed self = liftDOM ((self ^. js "played") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackState Mozilla MediaController.playbackState documentation> -getPlaybackState ::-                 (MonadDOM m, FromJSString result) => MediaController -> m result-getPlaybackState self-  = liftDOM ((self ^. js "playbackState") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation> -setDefaultPlaybackRate ::-                       (MonadDOM m) => MediaController -> Double -> m ()-setDefaultPlaybackRate self val-  = liftDOM (self ^. jss "defaultPlaybackRate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation> -getDefaultPlaybackRate ::-                       (MonadDOM m) => MediaController -> m Double-getDefaultPlaybackRate self-  = liftDOM ((self ^. js "defaultPlaybackRate") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation> -setPlaybackRate ::-                (MonadDOM m) => MediaController -> Double -> m ()-setPlaybackRate self val-  = liftDOM (self ^. jss "playbackRate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation> -getPlaybackRate :: (MonadDOM m) => MediaController -> m Double-getPlaybackRate self-  = liftDOM ((self ^. js "playbackRate") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation> -setVolume :: (MonadDOM m) => MediaController -> Double -> m ()-setVolume self val = liftDOM (self ^. jss "volume" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation> -getVolume :: (MonadDOM m) => MediaController -> m Double-getVolume self = liftDOM ((self ^. js "volume") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation> -setMuted :: (MonadDOM m) => MediaController -> Bool -> m ()-setMuted self val = liftDOM (self ^. jss "muted" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation> -getMuted :: (MonadDOM m) => MediaController -> m Bool-getMuted self = liftDOM ((self ^. js "muted") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaControlsHost.hs 
@@ -1,170 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaControlsHost-       (sortedTrackListForMenu, sortedTrackListForMenuAudio,-        displayNameForTrack, displayNameForTrackAudio,-        setSelectedTextTrack, updateTextTrackContainer, enteredFullscreen,-        exitedFullscreen, enterFullscreenOptimized, mediaUIImageData,-        getCaptionMenuOffItem, getCaptionMenuAutomaticItem,-        getCaptionDisplayMode, getTextTrackContainer,-        getMediaPlaybackAllowsInline, getSupportsFullscreen,-        getUserGestureRequired, getExternalDeviceDisplayName,-        getExternalDeviceType, setControlsDependOnPageScaleFactor,-        getControlsDependOnPageScaleFactor, MediaControlsHost,-        castToMediaControlsHost, gTypeMediaControlsHost)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> -sortedTrackListForMenu ::-                       (MonadDOM m) =>-                         MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack]-sortedTrackListForMenu self trackList-  = liftDOM-      ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=-         fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> -sortedTrackListForMenuAudio ::-                            (MonadDOM m) =>-                              MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack]-sortedTrackListForMenuAudio self trackList-  = liftDOM-      ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=-         fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> -displayNameForTrack ::-                    (MonadDOM m, FromJSString result) =>-                      MediaControlsHost -> Maybe TextTrack -> m result-displayNameForTrack self track-  = liftDOM-      ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> -displayNameForTrackAudio ::-                         (MonadDOM m, FromJSString result) =>-                           MediaControlsHost -> Maybe AudioTrack -> m result-displayNameForTrackAudio self track-  = liftDOM-      ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.setSelectedTextTrack Mozilla MediaControlsHost.setSelectedTextTrack documentation> -setSelectedTextTrack ::-                     (MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m ()-setSelectedTextTrack self track-  = liftDOM-      (void (self ^. jsf "setSelectedTextTrack" [toJSVal track]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.updateTextTrackContainer Mozilla MediaControlsHost.updateTextTrackContainer documentation> -updateTextTrackContainer ::-                         (MonadDOM m) => MediaControlsHost -> m ()-updateTextTrackContainer self-  = liftDOM (void (self ^. js "updateTextTrackContainer"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enteredFullscreen Mozilla MediaControlsHost.enteredFullscreen documentation> -enteredFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()-enteredFullscreen self-  = liftDOM (void (self ^. js "enteredFullscreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.exitedFullscreen Mozilla MediaControlsHost.exitedFullscreen documentation> -exitedFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()-exitedFullscreen self-  = liftDOM (void (self ^. js "exitedFullscreen"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enterFullscreenOptimized Mozilla MediaControlsHost.enterFullscreenOptimized documentation> -enterFullscreenOptimized ::-                         (MonadDOM m) => MediaControlsHost -> m ()-enterFullscreenOptimized self-  = liftDOM (void (self ^. js "enterFullscreenOptimized"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaUIImageData Mozilla MediaControlsHost.mediaUIImageData documentation> -mediaUIImageData ::-                 (MonadDOM m, FromJSString result) =>-                   MediaControlsHost -> MediaUIPartID -> m result-mediaUIImageData self partID-  = liftDOM-      ((self ^. jsf "mediaUIImageData" [toJSVal partID]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> -getCaptionMenuOffItem ::-                      (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack)-getCaptionMenuOffItem self-  = liftDOM ((self ^. js "captionMenuOffItem") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> -getCaptionMenuAutomaticItem ::-                            (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack)-getCaptionMenuAutomaticItem self-  = liftDOM ((self ^. js "captionMenuAutomaticItem") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionDisplayMode Mozilla MediaControlsHost.captionDisplayMode documentation> -getCaptionDisplayMode ::-                      (MonadDOM m, FromJSString result) => MediaControlsHost -> m result-getCaptionDisplayMode self-  = liftDOM-      ((self ^. js "captionDisplayMode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> -getTextTrackContainer ::-                      (MonadDOM m) => MediaControlsHost -> m (Maybe HTMLElement)-getTextTrackContainer self-  = liftDOM ((self ^. js "textTrackContainer") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaPlaybackAllowsInline Mozilla MediaControlsHost.mediaPlaybackAllowsInline documentation> -getMediaPlaybackAllowsInline ::-                             (MonadDOM m) => MediaControlsHost -> m Bool-getMediaPlaybackAllowsInline self-  = liftDOM ((self ^. js "mediaPlaybackAllowsInline") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.supportsFullscreen Mozilla MediaControlsHost.supportsFullscreen documentation> -getSupportsFullscreen ::-                      (MonadDOM m) => MediaControlsHost -> m Bool-getSupportsFullscreen self-  = liftDOM ((self ^. js "supportsFullscreen") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.userGestureRequired Mozilla MediaControlsHost.userGestureRequired documentation> -getUserGestureRequired ::-                       (MonadDOM m) => MediaControlsHost -> m Bool-getUserGestureRequired self-  = liftDOM ((self ^. js "userGestureRequired") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceDisplayName Mozilla MediaControlsHost.externalDeviceDisplayName documentation> -getExternalDeviceDisplayName ::-                             (MonadDOM m, FromJSString result) => MediaControlsHost -> m result-getExternalDeviceDisplayName self-  = liftDOM-      ((self ^. js "externalDeviceDisplayName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceType Mozilla MediaControlsHost.externalDeviceType documentation> -getExternalDeviceType ::-                      (MonadDOM m) => MediaControlsHost -> m DeviceType-getExternalDeviceType self-  = liftDOM-      ((self ^. js "externalDeviceType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation> -setControlsDependOnPageScaleFactor ::-                                   (MonadDOM m) => MediaControlsHost -> Bool -> m ()-setControlsDependOnPageScaleFactor self val-  = liftDOM-      (self ^. jss "controlsDependOnPageScaleFactor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation> -getControlsDependOnPageScaleFactor ::-                                   (MonadDOM m) => MediaControlsHost -> m Bool-getControlsDependOnPageScaleFactor self-  = liftDOM-      ((self ^. js "controlsDependOnPageScaleFactor") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaElementAudioSourceNode.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaElementAudioSourceNode-       (getMediaElement, MediaElementAudioSourceNode,-        castToMediaElementAudioSourceNode,-        gTypeMediaElementAudioSourceNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> -getMediaElement ::-                (MonadDOM m) =>-                  MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement)-getMediaElement self-  = liftDOM ((self ^. js "mediaElement") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaError.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaError-       (pattern MEDIA_ERR_ABORTED, pattern MEDIA_ERR_NETWORK,-        pattern MEDIA_ERR_DECODE, pattern MEDIA_ERR_SRC_NOT_SUPPORTED,-        pattern MEDIA_ERR_ENCRYPTED, getCode, MediaError, castToMediaError,-        gTypeMediaError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern MEDIA_ERR_ABORTED = 1-pattern MEDIA_ERR_NETWORK = 2-pattern MEDIA_ERR_DECODE = 3-pattern MEDIA_ERR_SRC_NOT_SUPPORTED = 4-pattern MEDIA_ERR_ENCRYPTED = 5---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaError.code Mozilla MediaError.code documentation> -getCode :: (MonadDOM m) => MediaError -> m Word-getCode self-  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaKeyError.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaKeyError-       (pattern MEDIA_KEYERR_UNKNOWN, pattern MEDIA_KEYERR_CLIENT,-        pattern MEDIA_KEYERR_SERVICE, pattern MEDIA_KEYERR_OUTPUT,-        pattern MEDIA_KEYERR_HARDWARECHANGE, pattern MEDIA_KEYERR_DOMAIN,-        getCode, getSystemCode, MediaKeyError, castToMediaKeyError,-        gTypeMediaKeyError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern MEDIA_KEYERR_UNKNOWN = 1-pattern MEDIA_KEYERR_CLIENT = 2-pattern MEDIA_KEYERR_SERVICE = 3-pattern MEDIA_KEYERR_OUTPUT = 4-pattern MEDIA_KEYERR_HARDWARECHANGE = 5-pattern MEDIA_KEYERR_DOMAIN = 6---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.code Mozilla WebKitMediaKeyError.code documentation> -getCode :: (MonadDOM m) => MediaKeyError -> m Word-getCode self-  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.systemCode Mozilla WebKitMediaKeyError.systemCode documentation> -getSystemCode :: (MonadDOM m) => MediaKeyError -> m Word-getSystemCode self-  = liftDOM (round <$> ((self ^. js "systemCode") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaKeyEvent.hs 
@@ -1,55 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaKeyEvent-       (getKeySystem, getSessionId, getInitData, getMessage,-        getDefaultURL, getErrorCode, getSystemCode, MediaKeyEvent,-        castToMediaKeyEvent, gTypeMediaKeyEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.keySystem Mozilla MediaKeyEvent.keySystem documentation> -getKeySystem ::-             (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result-getKeySystem self-  = liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.sessionId Mozilla MediaKeyEvent.sessionId documentation> -getSessionId ::-             (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result-getSessionId self-  = liftDOM ((self ^. js "sessionId") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> -getInitData ::-            (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array)-getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> -getMessage :: (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array)-getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.defaultURL Mozilla MediaKeyEvent.defaultURL documentation> -getDefaultURL ::-              (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result-getDefaultURL self-  = liftDOM ((self ^. js "defaultURL") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> -getErrorCode ::-             (MonadDOM m) => MediaKeyEvent -> m (Maybe MediaKeyError)-getErrorCode self-  = liftDOM ((self ^. js "errorCode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.systemCode Mozilla MediaKeyEvent.systemCode documentation> -getSystemCode :: (MonadDOM m) => MediaKeyEvent -> m Word-getSystemCode self-  = liftDOM (round <$> ((self ^. js "systemCode") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaKeyMessageEvent.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaKeyMessageEvent-       (getMessage, getDestinationURL, MediaKeyMessageEvent,-        castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> -getMessage ::-           (MonadDOM m) => MediaKeyMessageEvent -> m (Maybe Uint8Array)-getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.destinationURL Mozilla WebKitMediaKeyMessageEvent.destinationURL documentation> -getDestinationURL ::-                  (MonadDOM m, FromJSString result) =>-                    MediaKeyMessageEvent -> m result-getDestinationURL self-  = liftDOM ((self ^. js "destinationURL") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaKeyNeededEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaKeyNeededEvent-       (getInitData, MediaKeyNeededEvent, castToMediaKeyNeededEvent,-        gTypeMediaKeyNeededEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> -getInitData ::-            (MonadDOM m) => MediaKeyNeededEvent -> m (Maybe Uint8Array)-getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaKeySession.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaKeySession-       (update, close, getError, getKeySystem, getSessionId,-        webKitKeyAdded, webKitKeyError, webKitKeyMessage, MediaKeySession,-        castToMediaKeySession, gTypeMediaKeySession)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.update Mozilla WebKitMediaKeySession.update documentation> -update ::-       (MonadDOM m, IsUint8Array key) =>-         MediaKeySession -> Maybe key -> m ()-update self key-  = liftDOM (void (self ^. jsf "update" [toJSVal key]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.close Mozilla WebKitMediaKeySession.close documentation> -close :: (MonadDOM m) => MediaKeySession -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> -getError ::-         (MonadDOM m) => MediaKeySession -> m (Maybe MediaKeyError)-getError self = liftDOM ((self ^. js "error") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.keySystem Mozilla WebKitMediaKeySession.keySystem documentation> -getKeySystem ::-             (MonadDOM m, FromJSString result) => MediaKeySession -> m result-getKeySystem self-  = liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.sessionId Mozilla WebKitMediaKeySession.sessionId documentation> -getSessionId ::-             (MonadDOM m, FromJSString result) => MediaKeySession -> m result-getSessionId self-  = liftDOM ((self ^. js "sessionId") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyadded Mozilla WebKitMediaKeySession.onwebkitkeyadded documentation> -webKitKeyAdded :: EventName MediaKeySession Event-webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyerror Mozilla WebKitMediaKeySession.onwebkitkeyerror documentation> -webKitKeyError :: EventName MediaKeySession Event-webKitKeyError = unsafeEventName (toJSString "webkitkeyerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeymessage Mozilla WebKitMediaKeySession.onwebkitkeymessage documentation> -webKitKeyMessage :: EventName MediaKeySession Event-webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage")
− src/Language/Javascript/JSaddle/DOM/Generated/MediaKeys.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaKeys-       (newMediaKeys, createSession, isTypeSupported, getKeySystem,-        MediaKeys, castToMediaKeys, gTypeMediaKeys)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys Mozilla WebKitMediaKeys documentation> -newMediaKeys ::-             (MonadDOM m, ToJSString keySystem) => keySystem -> m MediaKeys-newMediaKeys keySystem-  = liftDOM (MediaKeys <$> new (jsg "MediaKeys") [toJSVal keySystem])---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> -createSession ::-              (MonadDOM m, ToJSString type', IsUint8Array initData) =>-                MediaKeys -> type' -> Maybe initData -> m (Maybe MediaKeySession)-createSession self type' initData-  = liftDOM-      ((self ^. jsf "createSession" [toJSVal type', toJSVal initData])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.isTypeSupported Mozilla WebKitMediaKeys.isTypeSupported documentation> -isTypeSupported ::-                (MonadDOM m, ToJSString keySystem, ToJSString type') =>-                  MediaKeys -> keySystem -> type' -> m Bool-isTypeSupported self keySystem type'-  = liftDOM-      ((self ^. jsf "isTypeSupported" [toJSVal keySystem, toJSVal type'])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.keySystem Mozilla WebKitMediaKeys.keySystem documentation> -getKeySystem ::-             (MonadDOM m, FromJSString result) => MediaKeys -> m result-getKeySystem self-  = liftDOM ((self ^. js "keySystem") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaList.hs 
@@ -1,55 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaList-       (item, deleteMedium, appendMedium, setMediaText, getMediaText,-        getLength, MediaList, castToMediaList, gTypeMediaList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> -item ::-     (MonadDOM m, FromJSString result) =>-       MediaList -> Word -> m (Maybe result)-item self index-  = liftDOM-      ((self ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.deleteMedium Mozilla MediaList.deleteMedium documentation> -deleteMedium ::-             (MonadDOM m, ToJSString oldMedium) =>-               MediaList -> oldMedium -> m ()-deleteMedium self oldMedium-  = liftDOM (void (self ^. jsf "deleteMedium" [toJSVal oldMedium]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.appendMedium Mozilla MediaList.appendMedium documentation> -appendMedium ::-             (MonadDOM m, ToJSString newMedium) =>-               MediaList -> newMedium -> m ()-appendMedium self newMedium-  = liftDOM (void (self ^. jsf "appendMedium" [toJSVal newMedium]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> -setMediaText ::-             (MonadDOM m, ToJSString val) => MediaList -> Maybe val -> m ()-setMediaText self val-  = liftDOM (self ^. jss "mediaText" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> -getMediaText ::-             (MonadDOM m, FromJSString result) => MediaList -> m (Maybe result)-getMediaText self-  = liftDOM ((self ^. js "mediaText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.length Mozilla MediaList.length documentation> -getLength :: (MonadDOM m) => MediaList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaQueryList.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaQueryList-       (addListener, removeListener, getMedia, getMatches, MediaQueryList,-        castToMediaQueryList, gTypeMediaQueryList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.addListener Mozilla MediaQueryList.addListener documentation> -addListener ::-            (MonadDOM m) =>-              MediaQueryList -> Maybe MediaQueryListListener -> m ()-addListener self listener-  = liftDOM (void (self ^. jsf "addListener" [toJSVal listener]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.removeListener Mozilla MediaQueryList.removeListener documentation> -removeListener ::-               (MonadDOM m) =>-                 MediaQueryList -> Maybe MediaQueryListListener -> m ()-removeListener self listener-  = liftDOM (void (self ^. jsf "removeListener" [toJSVal listener]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.media Mozilla MediaQueryList.media documentation> -getMedia ::-         (MonadDOM m, FromJSString result) => MediaQueryList -> m result-getMedia self-  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.matches Mozilla MediaQueryList.matches documentation> -getMatches :: (MonadDOM m) => MediaQueryList -> m Bool-getMatches self = liftDOM ((self ^. js "matches") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaQueryListListener.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaQueryListListener-       (newMediaQueryListListener, newMediaQueryListListenerSync,-        newMediaQueryListListenerAsync, MediaQueryListListener)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> -newMediaQueryListListener ::-                          (MonadDOM m) =>-                            (Maybe MediaQueryList -> JSM ()) -> m MediaQueryListListener-newMediaQueryListListener callback-  = liftDOM-      (MediaQueryListListener . Callback <$>-         function ""-           (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> -newMediaQueryListListenerSync ::-                              (MonadDOM m) =>-                                (Maybe MediaQueryList -> JSM ()) -> m MediaQueryListListener-newMediaQueryListListenerSync callback-  = liftDOM-      (MediaQueryListListener . Callback <$>-         function ""-           (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation> -newMediaQueryListListenerAsync ::-                               (MonadDOM m) =>-                                 (Maybe MediaQueryList -> JSM ()) -> m MediaQueryListListener-newMediaQueryListListenerAsync callback-  = liftDOM-      (MediaQueryListListener . Callback <$>-         function ""-           (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list'))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaSource.hs 
@@ -1,79 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaSource-       (newMediaSource, addSourceBuffer, removeSourceBuffer, endOfStream,-        isTypeSupported, getSourceBuffers, getActiveSourceBuffers,-        setDuration, getDuration, getReadyState, MediaSource,-        castToMediaSource, gTypeMediaSource)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource Mozilla MediaSource documentation> -newMediaSource :: (MonadDOM m) => m MediaSource-newMediaSource-  = liftDOM (MediaSource <$> new (jsg "MediaSource") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> -addSourceBuffer ::-                (MonadDOM m, ToJSString type') =>-                  MediaSource -> type' -> m (Maybe SourceBuffer)-addSourceBuffer self type'-  = liftDOM-      ((self ^. jsf "addSourceBuffer" [toJSVal type']) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.removeSourceBuffer Mozilla MediaSource.removeSourceBuffer documentation> -removeSourceBuffer ::-                   (MonadDOM m) => MediaSource -> Maybe SourceBuffer -> m ()-removeSourceBuffer self buffer-  = liftDOM-      (void (self ^. jsf "removeSourceBuffer" [toJSVal buffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.endOfStream Mozilla MediaSource.endOfStream documentation> -endOfStream ::-            (MonadDOM m) => MediaSource -> EndOfStreamError -> m ()-endOfStream self error-  = liftDOM (void (self ^. jsf "endOfStream" [toJSVal error]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.isTypeSupported Mozilla MediaSource.isTypeSupported documentation> -isTypeSupported ::-                (MonadDOM m, ToJSString type') => MediaSource -> type' -> m Bool-isTypeSupported self type'-  = liftDOM-      ((self ^. jsf "isTypeSupported" [toJSVal type']) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> -getSourceBuffers ::-                 (MonadDOM m) => MediaSource -> m (Maybe SourceBufferList)-getSourceBuffers self-  = liftDOM ((self ^. js "sourceBuffers") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> -getActiveSourceBuffers ::-                       (MonadDOM m) => MediaSource -> m (Maybe SourceBufferList)-getActiveSourceBuffers self-  = liftDOM ((self ^. js "activeSourceBuffers") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation> -setDuration :: (MonadDOM m) => MediaSource -> Double -> m ()-setDuration self val-  = liftDOM (self ^. jss "duration" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation> -getDuration :: (MonadDOM m) => MediaSource -> m Double-getDuration self-  = liftDOM ((self ^. js "duration") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.readyState Mozilla MediaSource.readyState documentation> -getReadyState ::-              (MonadDOM m, FromJSString result) => MediaSource -> m result-getReadyState self-  = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaSourceStates.hs 
@@ -1,59 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaSourceStates-       (getSourceType, getSourceId, getWidth, getHeight, getFrameRate,-        getAspectRatio, getFacingMode, getVolume, MediaSourceStates,-        castToMediaSourceStates, gTypeMediaSourceStates)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceType Mozilla MediaSourceStates.sourceType documentation> -getSourceType ::-              (MonadDOM m) => MediaSourceStates -> m SourceTypeEnum-getSourceType self-  = liftDOM ((self ^. js "sourceType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceId Mozilla MediaSourceStates.sourceId documentation> -getSourceId ::-            (MonadDOM m, FromJSString result) => MediaSourceStates -> m result-getSourceId self-  = liftDOM ((self ^. js "sourceId") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> -getWidth :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> -getHeight :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> -getFrameRate ::-             (MonadDOM m) => MediaSourceStates -> m (Maybe Float)-getFrameRate self-  = liftDOM ((self ^. js "frameRate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> -getAspectRatio ::-               (MonadDOM m) => MediaSourceStates -> m (Maybe Float)-getAspectRatio self-  = liftDOM ((self ^. js "aspectRatio") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.facingMode Mozilla MediaSourceStates.facingMode documentation> -getFacingMode ::-              (MonadDOM m) => MediaSourceStates -> m (Maybe VideoFacingModeEnum)-getFacingMode self-  = liftDOM ((self ^. js "facingMode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> -getVolume :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word)-getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStream.hs 
@@ -1,106 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStream-       (newMediaStream, newMediaStream', newMediaStream'', getAudioTracks,-        getVideoTracks, getTracks, addTrack, removeTrack, getTrackById,-        clone, getId, getActive, active, inactive, addTrackEvent,-        removeTrackEvent, MediaStream, castToMediaStream, gTypeMediaStream)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> -newMediaStream :: (MonadDOM m) => m MediaStream-newMediaStream-  = liftDOM (MediaStream <$> new (jsg "MediaStream") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> -newMediaStream' ::-                (MonadDOM m) => Maybe MediaStream -> m MediaStream-newMediaStream' stream-  = liftDOM-      (MediaStream <$> new (jsg "MediaStream") [toJSVal stream])---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation> -newMediaStream'' ::-                 (MonadDOM m, IsMediaStreamTrack tracks) =>-                   [Maybe tracks] -> m MediaStream-newMediaStream'' tracks-  = liftDOM-      (MediaStream <$> new (jsg "MediaStream") [toJSVal (array tracks)])---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation> -getAudioTracks ::-               (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack]-getAudioTracks self-  = liftDOM ((self ^. js "getAudioTracks") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getVideoTracks Mozilla webkitMediaStream.getVideoTracks documentation> -getVideoTracks ::-               (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack]-getVideoTracks self-  = liftDOM ((self ^. js "getVideoTracks") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTracks Mozilla webkitMediaStream.getTracks documentation> -getTracks ::-          (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack]-getTracks self = liftDOM ((self ^. js "getTracks") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.addTrack Mozilla webkitMediaStream.addTrack documentation> -addTrack ::-         (MonadDOM m, IsMediaStreamTrack track) =>-           MediaStream -> Maybe track -> m ()-addTrack self track-  = liftDOM (void (self ^. jsf "addTrack" [toJSVal track]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.removeTrack Mozilla webkitMediaStream.removeTrack documentation> -removeTrack ::-            (MonadDOM m, IsMediaStreamTrack track) =>-              MediaStream -> Maybe track -> m ()-removeTrack self track-  = liftDOM (void (self ^. jsf "removeTrack" [toJSVal track]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> -getTrackById ::-             (MonadDOM m, ToJSString trackId) =>-               MediaStream -> trackId -> m (Maybe MediaStreamTrack)-getTrackById self trackId-  = liftDOM-      ((self ^. jsf "getTrackById" [toJSVal trackId]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> -clone :: (MonadDOM m) => MediaStream -> m (Maybe MediaStream)-clone self = liftDOM ((self ^. js "clone") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.id Mozilla webkitMediaStream.id documentation> -getId ::-      (MonadDOM m, FromJSString result) => MediaStream -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.active Mozilla webkitMediaStream.active documentation> -getActive :: (MonadDOM m) => MediaStream -> m Bool-getActive self = liftDOM ((self ^. js "active") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onactive Mozilla webkitMediaStream.onactive documentation> -active :: EventName MediaStream Event-active = unsafeEventName (toJSString "active")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.oninactive Mozilla webkitMediaStream.oninactive documentation> -inactive :: EventName MediaStream Event-inactive = unsafeEventName (toJSString "inactive")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onaddtrack Mozilla webkitMediaStream.onaddtrack documentation> -addTrackEvent :: EventName MediaStream Event-addTrackEvent = unsafeEventName (toJSString "addtrack")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onremovetrack Mozilla webkitMediaStream.onremovetrack documentation> -removeTrackEvent :: EventName MediaStream Event-removeTrackEvent = unsafeEventName (toJSString "removetrack")
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStreamAudioDestinationNode.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStreamAudioDestinationNode-       (getStream, MediaStreamAudioDestinationNode,-        castToMediaStreamAudioDestinationNode,-        gTypeMediaStreamAudioDestinationNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> -getStream ::-          (MonadDOM m) =>-            MediaStreamAudioDestinationNode -> m (Maybe MediaStream)-getStream self = liftDOM ((self ^. js "stream") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStreamAudioSourceNode.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStreamAudioSourceNode-       (getMediaStream, MediaStreamAudioSourceNode,-        castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> -getMediaStream ::-               (MonadDOM m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream)-getMediaStream self-  = liftDOM ((self ^. js "mediaStream") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStreamEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStreamEvent-       (getStream, MediaStreamEvent, castToMediaStreamEvent,-        gTypeMediaStreamEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation> -getStream ::-          (MonadDOM m) => MediaStreamEvent -> m (Maybe MediaStream)-getStream self = liftDOM ((self ^. js "stream") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStreamTrack.hs 
@@ -1,170 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrack-       (getSources, getConstraints, states, getCapabilities,-        applyConstraints, clone, stop, getKind, getId, getLabel,-        setEnabled, getEnabled, getMuted, mute, unmute, get_readonly,-        getRemote, getReadyState, started, ended, overConstrained,-        MediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack,-        IsMediaStreamTrack, toMediaStreamTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSources Mozilla MediaStreamTrack.getSources documentation> -getSources ::-           (MonadDOM m, IsMediaStreamTrack self) =>-             self -> Maybe MediaStreamTrackSourcesCallback -> m ()-getSources self callback-  = liftDOM-      (void-         ((toMediaStreamTrack self) ^. jsf "getSources" [toJSVal callback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> -getConstraints ::-               (MonadDOM m, IsMediaStreamTrack self) =>-                 self -> m (Maybe MediaTrackConstraints)-getConstraints self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "getConstraints") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> -states ::-       (MonadDOM m, IsMediaStreamTrack self) =>-         self -> m (Maybe MediaSourceStates)-states self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "states") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> -getCapabilities ::-                (MonadDOM m, IsMediaStreamTrack self) =>-                  self -> m (Maybe MediaStreamCapabilities)-getCapabilities self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "getCapabilities") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.applyConstraints Mozilla MediaStreamTrack.applyConstraints documentation> -applyConstraints ::-                 (MonadDOM m, IsMediaStreamTrack self, IsDictionary constraints) =>-                   self -> Maybe constraints -> m ()-applyConstraints self constraints-  = liftDOM-      (void-         ((toMediaStreamTrack self) ^. jsf "applyConstraints"-            [toJSVal constraints]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> -clone ::-      (MonadDOM m, IsMediaStreamTrack self) =>-        self -> m (Maybe MediaStreamTrack)-clone self-  = liftDOM (((toMediaStreamTrack self) ^. js "clone") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.stop Mozilla MediaStreamTrack.stop documentation> -stop :: (MonadDOM m, IsMediaStreamTrack self) => self -> m ()-stop self = liftDOM (void ((toMediaStreamTrack self) ^. js "stop"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.kind Mozilla MediaStreamTrack.kind documentation> -getKind ::-        (MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>-          self -> m result-getKind self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.id Mozilla MediaStreamTrack.id documentation> -getId ::-      (MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>-        self -> m result-getId self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.label Mozilla MediaStreamTrack.label documentation> -getLabel ::-         (MonadDOM m, IsMediaStreamTrack self, FromJSString result) =>-           self -> m result-getLabel self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation> -setEnabled ::-           (MonadDOM m, IsMediaStreamTrack self) => self -> Bool -> m ()-setEnabled self val-  = liftDOM-      ((toMediaStreamTrack self) ^. jss "enabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation> -getEnabled ::-           (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool-getEnabled self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "enabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.muted Mozilla MediaStreamTrack.muted documentation> -getMuted :: (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool-getMuted self-  = liftDOM (((toMediaStreamTrack self) ^. js "muted") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onmute Mozilla MediaStreamTrack.onmute documentation> -mute ::-     (IsMediaStreamTrack self, IsEventTarget self) =>-       EventName self Event-mute = unsafeEventName (toJSString "mute")---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onunmute Mozilla MediaStreamTrack.onunmute documentation> -unmute ::-       (IsMediaStreamTrack self, IsEventTarget self) =>-         EventName self Event-unmute = unsafeEventName (toJSString "unmute")---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack._readonly Mozilla MediaStreamTrack._readonly documentation> -get_readonly ::-             (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool-get_readonly self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "_readonly") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.remote Mozilla MediaStreamTrack.remote documentation> -getRemote ::-          (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool-getRemote self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "remote") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.readyState Mozilla MediaStreamTrack.readyState documentation> -getReadyState ::-              (MonadDOM m, IsMediaStreamTrack self) =>-                self -> m MediaStreamTrackState-getReadyState self-  = liftDOM-      (((toMediaStreamTrack self) ^. js "readyState") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onstarted Mozilla MediaStreamTrack.onstarted documentation> -started ::-        (IsMediaStreamTrack self, IsEventTarget self) =>-          EventName self Event-started = unsafeEventName (toJSString "started")---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onended Mozilla MediaStreamTrack.onended documentation> -ended ::-      (IsMediaStreamTrack self, IsEventTarget self) =>-        EventName self Event-ended = unsafeEventName (toJSString "ended")---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onoverconstrained Mozilla MediaStreamTrack.onoverconstrained documentation> -overConstrained ::-                (IsMediaStreamTrack self, IsEventTarget self) =>-                  EventName self Event-overConstrained = unsafeEventName (toJSString "overconstrained")
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStreamTrackEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackEvent-       (getTrack, MediaStreamTrackEvent, castToMediaStreamTrackEvent,-        gTypeMediaStreamTrackEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> -getTrack ::-         (MonadDOM m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack)-getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MediaStreamTrackSourcesCallback.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaStreamTrackSourcesCallback-       (newMediaStreamTrackSourcesCallback,-        newMediaStreamTrackSourcesCallbackSync,-        newMediaStreamTrackSourcesCallbackAsync,-        MediaStreamTrackSourcesCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> -newMediaStreamTrackSourcesCallback ::-                                   (MonadDOM m) =>-                                     ([Maybe SourceInfo] -> JSM ()) ->-                                       m MediaStreamTrackSourcesCallback-newMediaStreamTrackSourcesCallback callback-  = liftDOM-      (MediaStreamTrackSourcesCallback . Callback <$>-         function ""-           (\ _ _ [sources] ->-              fromJSArray sources >>= \ sources' -> callback sources'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> -newMediaStreamTrackSourcesCallbackSync ::-                                       (MonadDOM m) =>-                                         ([Maybe SourceInfo] -> JSM ()) ->-                                           m MediaStreamTrackSourcesCallback-newMediaStreamTrackSourcesCallbackSync callback-  = liftDOM-      (MediaStreamTrackSourcesCallback . Callback <$>-         function ""-           (\ _ _ [sources] ->-              fromJSArray sources >>= \ sources' -> callback sources'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation> -newMediaStreamTrackSourcesCallbackAsync ::-                                        (MonadDOM m) =>-                                          ([Maybe SourceInfo] -> JSM ()) ->-                                            m MediaStreamTrackSourcesCallback-newMediaStreamTrackSourcesCallbackAsync callback-  = liftDOM-      (MediaStreamTrackSourcesCallback . Callback <$>-         function ""-           (\ _ _ [sources] ->-              fromJSArray sources >>= \ sources' -> callback sources'))
− src/Language/Javascript/JSaddle/DOM/Generated/MediaTrackConstraints.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MediaTrackConstraints-       (getMandatory, getOptional, MediaTrackConstraints,-        castToMediaTrackConstraints, gTypeMediaTrackConstraints)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> -getMandatory ::-             (MonadDOM m) =>-               MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet)-getMandatory self-  = liftDOM ((self ^. js "mandatory") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.optional Mozilla MediaTrackConstraints.optional documentation> -getOptional ::-            (MonadDOM m) =>-              MediaTrackConstraints -> m (Maybe [Maybe MediaTrackConstraint])-getOptional self-  = liftDOM-      ((self ^. js "optional") >>= maybeNullOrUndefined' fromJSArray)
− src/Language/Javascript/JSaddle/DOM/Generated/MemoryInfo.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MemoryInfo-       (getUsedJSHeapSize, getTotalJSHeapSize, MemoryInfo,-        castToMemoryInfo, gTypeMemoryInfo)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.usedJSHeapSize Mozilla MemoryInfo.usedJSHeapSize documentation> -getUsedJSHeapSize :: (MonadDOM m) => MemoryInfo -> m Word-getUsedJSHeapSize self-  = liftDOM-      (round <$> ((self ^. js "usedJSHeapSize") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.totalJSHeapSize Mozilla MemoryInfo.totalJSHeapSize documentation> -getTotalJSHeapSize :: (MonadDOM m) => MemoryInfo -> m Word-getTotalJSHeapSize self-  = liftDOM-      (round <$> ((self ^. js "totalJSHeapSize") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MessageChannel.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MessageChannel-       (newMessageChannel, getPort1, getPort2, MessageChannel,-        castToMessageChannel, gTypeMessageChannel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel Mozilla MessageChannel documentation> -newMessageChannel :: (MonadDOM m) => m MessageChannel-newMessageChannel-  = liftDOM (MessageChannel <$> new (jsg "MessageChannel") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> -getPort1 :: (MonadDOM m) => MessageChannel -> m (Maybe MessagePort)-getPort1 self = liftDOM ((self ^. js "port1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> -getPort2 :: (MonadDOM m) => MessageChannel -> m (Maybe MessagePort)-getPort2 self = liftDOM ((self ^. js "port2") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MessageEvent.hs 
@@ -1,81 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MessageEvent-       (initMessageEvent, webkitInitMessageEvent, getOrigin,-        getLastEventId, getSource, getData, getPorts, MessageEvent,-        castToMessageEvent, gTypeMessageEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.initMessageEvent Mozilla MessageEvent.initMessageEvent documentation> -initMessageEvent ::-                 (MonadDOM m, ToJSString typeArg, ToJSString originArg,-                  ToJSString lastEventIdArg, IsArray messagePorts) =>-                   MessageEvent ->-                     typeArg ->-                       Bool ->-                         Bool ->-                           JSVal ->-                             originArg ->-                               lastEventIdArg -> Maybe Window -> Maybe messagePorts -> m ()-initMessageEvent self typeArg canBubbleArg cancelableArg dataArg-  originArg lastEventIdArg sourceArg messagePorts-  = liftDOM-      (void-         (self ^. jsf "initMessageEvent"-            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,-             toJSVal dataArg, toJSVal originArg, toJSVal lastEventIdArg,-             toJSVal sourceArg, toJSVal messagePorts]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.webkitInitMessageEvent Mozilla MessageEvent.webkitInitMessageEvent documentation> -webkitInitMessageEvent ::-                       (MonadDOM m, ToJSString typeArg, ToJSString originArg,-                        ToJSString lastEventIdArg, IsArray transferables) =>-                         MessageEvent ->-                           typeArg ->-                             Bool ->-                               Bool ->-                                 JSVal ->-                                   originArg ->-                                     lastEventIdArg -> Maybe Window -> Maybe transferables -> m ()-webkitInitMessageEvent self typeArg canBubbleArg cancelableArg-  dataArg originArg lastEventIdArg sourceArg transferables-  = liftDOM-      (void-         (self ^. jsf "webkitInitMessageEvent"-            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,-             toJSVal dataArg, toJSVal originArg, toJSVal lastEventIdArg,-             toJSVal sourceArg, toJSVal transferables]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.origin Mozilla MessageEvent.origin documentation> -getOrigin ::-          (MonadDOM m, FromJSString result) => MessageEvent -> m result-getOrigin self-  = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.lastEventId Mozilla MessageEvent.lastEventId documentation> -getLastEventId ::-               (MonadDOM m, FromJSString result) => MessageEvent -> m result-getLastEventId self-  = liftDOM ((self ^. js "lastEventId") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation> -getSource :: (MonadDOM m) => MessageEvent -> m (Maybe EventTarget)-getSource self = liftDOM ((self ^. js "source") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.data Mozilla MessageEvent.data documentation> -getData :: (MonadDOM m) => MessageEvent -> m JSVal-getData self = liftDOM ((self ^. js "data") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.ports Mozilla MessageEvent.ports documentation> -getPorts :: (MonadDOM m) => MessageEvent -> m [Maybe MessagePort]-getPorts self = liftDOM ((self ^. js "ports") >>= fromJSArray)
− src/Language/Javascript/JSaddle/DOM/Generated/MessagePort.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MessagePort-       (postMessage, start, close, message, MessagePort,-        castToMessagePort, gTypeMessagePort)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.postMessage Mozilla MessagePort.postMessage documentation> -postMessage ::-            (MonadDOM m, IsArray messagePorts) =>-              MessagePort -> JSVal -> Maybe messagePorts -> m ()-postMessage self message messagePorts-  = liftDOM-      (void-         (self ^. jsf "postMessage"-            [toJSVal message, toJSVal messagePorts]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.start Mozilla MessagePort.start documentation> -start :: (MonadDOM m) => MessagePort -> m ()-start self = liftDOM (void (self ^. js "start"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.close Mozilla MessagePort.close documentation> -close :: (MonadDOM m) => MessagePort -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.onmessage Mozilla MessagePort.onmessage documentation> -message :: EventName MessagePort MessageEvent-message = unsafeEventName (toJSString "message")
− src/Language/Javascript/JSaddle/DOM/Generated/MimeType.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MimeType-       (getType, getSuffixes, getDescription, getEnabledPlugin, MimeType,-        castToMimeType, gTypeMimeType)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.type Mozilla MimeType.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => MimeType -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.suffixes Mozilla MimeType.suffixes documentation> -getSuffixes ::-            (MonadDOM m, FromJSString result) => MimeType -> m result-getSuffixes self-  = liftDOM ((self ^. js "suffixes") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.description Mozilla MimeType.description documentation> -getDescription ::-               (MonadDOM m, FromJSString result) => MimeType -> m result-getDescription self-  = liftDOM ((self ^. js "description") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> -getEnabledPlugin :: (MonadDOM m) => MimeType -> m (Maybe Plugin)-getEnabledPlugin self-  = liftDOM ((self ^. js "enabledPlugin") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MimeTypeArray.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MimeTypeArray-       (item, namedItem, getLength, MimeTypeArray, castToMimeTypeArray,-        gTypeMimeTypeArray)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation> -item :: (MonadDOM m) => MimeTypeArray -> Word -> m (Maybe MimeType)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            MimeTypeArray -> name -> m (Maybe MimeType)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.length Mozilla MimeTypeArray.length documentation> -getLength :: (MonadDOM m) => MimeTypeArray -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MouseEvent.hs 
@@ -1,161 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MouseEvent-       (initMouseEvent, getScreenX, getScreenY, getClientX, getClientY,-        getCtrlKey, getShiftKey, getAltKey, getMetaKey, getButton,-        getRelatedTarget, getMovementX, getMovementY, getOffsetX,-        getOffsetY, getX, getY, getFromElement, getToElement,-        getDataTransfer, MouseEvent, castToMouseEvent, gTypeMouseEvent,-        IsMouseEvent, toMouseEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.initMouseEvent Mozilla MouseEvent.initMouseEvent documentation> -initMouseEvent ::-               (MonadDOM m, IsMouseEvent self, ToJSString type',-                IsEventTarget relatedTarget) =>-                 self ->-                   type' ->-                     Bool ->-                       Bool ->-                         Maybe Window ->-                           Int ->-                             Int ->-                               Int ->-                                 Int ->-                                   Int ->-                                     Bool ->-                                       Bool -> Bool -> Bool -> Word -> Maybe relatedTarget -> m ()-initMouseEvent self type' canBubble cancelable view detail screenX-  screenY clientX clientY ctrlKey altKey shiftKey metaKey button-  relatedTarget-  = liftDOM-      (void-         ((toMouseEvent self) ^. jsf "initMouseEvent"-            [toJSVal type', toJSVal canBubble, toJSVal cancelable,-             toJSVal view, toJSVal detail, toJSVal screenX, toJSVal screenY,-             toJSVal clientX, toJSVal clientY, toJSVal ctrlKey, toJSVal altKey,-             toJSVal shiftKey, toJSVal metaKey, toJSVal button,-             toJSVal relatedTarget]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenX Mozilla MouseEvent.screenX documentation> -getScreenX :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getScreenX self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "screenX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenY Mozilla MouseEvent.screenY documentation> -getScreenY :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getScreenY self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "screenY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientX Mozilla MouseEvent.clientX documentation> -getClientX :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getClientX self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "clientX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientY Mozilla MouseEvent.clientY documentation> -getClientY :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getClientY self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "clientY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.ctrlKey Mozilla MouseEvent.ctrlKey documentation> -getCtrlKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool-getCtrlKey self-  = liftDOM (((toMouseEvent self) ^. js "ctrlKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.shiftKey Mozilla MouseEvent.shiftKey documentation> -getShiftKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool-getShiftKey self-  = liftDOM (((toMouseEvent self) ^. js "shiftKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.altKey Mozilla MouseEvent.altKey documentation> -getAltKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool-getAltKey self-  = liftDOM (((toMouseEvent self) ^. js "altKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.metaKey Mozilla MouseEvent.metaKey documentation> -getMetaKey :: (MonadDOM m, IsMouseEvent self) => self -> m Bool-getMetaKey self-  = liftDOM (((toMouseEvent self) ^. js "metaKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.button Mozilla MouseEvent.button documentation> -getButton :: (MonadDOM m, IsMouseEvent self) => self -> m Word-getButton self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "button") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation> -getRelatedTarget ::-                 (MonadDOM m, IsMouseEvent self) => self -> m (Maybe EventTarget)-getRelatedTarget self-  = liftDOM-      (((toMouseEvent self) ^. js "relatedTarget") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementX Mozilla MouseEvent.movementX documentation> -getMovementX :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getMovementX self-  = liftDOM-      (round <$>-         (((toMouseEvent self) ^. js "movementX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementY Mozilla MouseEvent.movementY documentation> -getMovementY :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getMovementY self-  = liftDOM-      (round <$>-         (((toMouseEvent self) ^. js "movementY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetX Mozilla MouseEvent.offsetX documentation> -getOffsetX :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getOffsetX self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "offsetX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetY Mozilla MouseEvent.offsetY documentation> -getOffsetY :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getOffsetY self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "offsetY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.x Mozilla MouseEvent.x documentation> -getX :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getX self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.y Mozilla MouseEvent.y documentation> -getY :: (MonadDOM m, IsMouseEvent self) => self -> m Int-getY self-  = liftDOM-      (round <$> (((toMouseEvent self) ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation> -getFromElement ::-               (MonadDOM m, IsMouseEvent self) => self -> m (Maybe Node)-getFromElement self-  = liftDOM (((toMouseEvent self) ^. js "fromElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation> -getToElement ::-             (MonadDOM m, IsMouseEvent self) => self -> m (Maybe Node)-getToElement self-  = liftDOM (((toMouseEvent self) ^. js "toElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation> -getDataTransfer ::-                (MonadDOM m, IsMouseEvent self) => self -> m (Maybe DataTransfer)-getDataTransfer self-  = liftDOM-      (((toMouseEvent self) ^. js "dataTransfer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/MutationEvent.hs 
@@ -1,68 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MutationEvent-       (initMutationEvent, pattern MODIFICATION, pattern ADDITION,-        pattern REMOVAL, getRelatedNode, getPrevValue, getNewValue,-        getAttrName, getAttrChange, MutationEvent, castToMutationEvent,-        gTypeMutationEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.initMutationEvent Mozilla MutationEvent.initMutationEvent documentation> -initMutationEvent ::-                  (MonadDOM m, ToJSString type', IsNode relatedNode,-                   ToJSString prevValue, ToJSString newValue, ToJSString attrName) =>-                    MutationEvent ->-                      type' ->-                        Bool ->-                          Bool ->-                            Maybe relatedNode ->-                              prevValue -> newValue -> attrName -> Word -> m ()-initMutationEvent self type' canBubble cancelable relatedNode-  prevValue newValue attrName attrChange-  = liftDOM-      (void-         (self ^. jsf "initMutationEvent"-            [toJSVal type', toJSVal canBubble, toJSVal cancelable,-             toJSVal relatedNode, toJSVal prevValue, toJSVal newValue,-             toJSVal attrName, toJSVal attrChange]))-pattern MODIFICATION = 1-pattern ADDITION = 2-pattern REMOVAL = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation> -getRelatedNode :: (MonadDOM m) => MutationEvent -> m (Maybe Node)-getRelatedNode self-  = liftDOM ((self ^. js "relatedNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.prevValue Mozilla MutationEvent.prevValue documentation> -getPrevValue ::-             (MonadDOM m, FromJSString result) => MutationEvent -> m result-getPrevValue self-  = liftDOM ((self ^. js "prevValue") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.newValue Mozilla MutationEvent.newValue documentation> -getNewValue ::-            (MonadDOM m, FromJSString result) => MutationEvent -> m result-getNewValue self-  = liftDOM ((self ^. js "newValue") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrName Mozilla MutationEvent.attrName documentation> -getAttrName ::-            (MonadDOM m, FromJSString result) => MutationEvent -> m result-getAttrName self-  = liftDOM ((self ^. js "attrName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrChange Mozilla MutationEvent.attrChange documentation> -getAttrChange :: (MonadDOM m) => MutationEvent -> m Word-getAttrChange self-  = liftDOM (round <$> ((self ^. js "attrChange") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/MutationObserver.hs 
@@ -1,43 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MutationObserver-       (newMutationObserver, observe, takeRecords, disconnect,-        MutationObserver, castToMutationObserver, gTypeMutationObserver)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver Mozilla MutationObserver documentation> -newMutationObserver ::-                    (MonadDOM m, IsMutationCallback callback) =>-                      Maybe callback -> m MutationObserver-newMutationObserver callback-  = liftDOM-      (MutationObserver <$>-         new (jsg "MutationObserver") [toJSVal callback])---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.observe Mozilla MutationObserver.observe documentation> -observe ::-        (MonadDOM m, IsNode target, IsDictionary options) =>-          MutationObserver -> Maybe target -> Maybe options -> m ()-observe self target options-  = liftDOM-      (void (self ^. jsf "observe" [toJSVal target, toJSVal options]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.takeRecords Mozilla MutationObserver.takeRecords documentation> -takeRecords ::-            (MonadDOM m) => MutationObserver -> m [Maybe MutationRecord]-takeRecords self-  = liftDOM ((self ^. js "takeRecords") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.disconnect Mozilla MutationObserver.disconnect documentation> -disconnect :: (MonadDOM m) => MutationObserver -> m ()-disconnect self = liftDOM (void (self ^. js "disconnect"))
− src/Language/Javascript/JSaddle/DOM/Generated/MutationRecord.hs 
@@ -1,71 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.MutationRecord-       (getType, getTarget, getAddedNodes, getRemovedNodes,-        getPreviousSibling, getNextSibling, getAttributeName,-        getAttributeNamespace, getOldValue, MutationRecord,-        castToMutationRecord, gTypeMutationRecord)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.type Mozilla MutationRecord.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => MutationRecord -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> -getTarget :: (MonadDOM m) => MutationRecord -> m (Maybe Node)-getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> -getAddedNodes ::-              (MonadDOM m) => MutationRecord -> m (Maybe NodeList)-getAddedNodes self-  = liftDOM ((self ^. js "addedNodes") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> -getRemovedNodes ::-                (MonadDOM m) => MutationRecord -> m (Maybe NodeList)-getRemovedNodes self-  = liftDOM ((self ^. js "removedNodes") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> -getPreviousSibling ::-                   (MonadDOM m) => MutationRecord -> m (Maybe Node)-getPreviousSibling self-  = liftDOM ((self ^. js "previousSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> -getNextSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node)-getNextSibling self-  = liftDOM ((self ^. js "nextSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation> -getAttributeName ::-                 (MonadDOM m, FromJSString result) =>-                   MutationRecord -> m (Maybe result)-getAttributeName self-  = liftDOM ((self ^. js "attributeName") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation> -getAttributeNamespace ::-                      (MonadDOM m, FromJSString result) =>-                        MutationRecord -> m (Maybe result)-getAttributeNamespace self-  = liftDOM ((self ^. js "attributeNamespace") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation> -getOldValue ::-            (MonadDOM m, FromJSString result) =>-              MutationRecord -> m (Maybe result)-getOldValue self-  = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/NamedNodeMap.hs 
@@ -1,79 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NamedNodeMap-       (getNamedItem, setNamedItem, removeNamedItem, item, getNamedItemNS,-        setNamedItemNS, removeNamedItemNS, getLength, NamedNodeMap,-        castToNamedNodeMap, gTypeNamedNodeMap)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation> -getNamedItem ::-             (MonadDOM m, ToJSString name) =>-               NamedNodeMap -> name -> m (Maybe Node)-getNamedItem self name-  = liftDOM-      ((self ^. jsf "getNamedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> -setNamedItem ::-             (MonadDOM m, IsNode node) =>-               NamedNodeMap -> Maybe node -> m (Maybe Node)-setNamedItem self node-  = liftDOM-      ((self ^. jsf "setNamedItem" [toJSVal node]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> -removeNamedItem ::-                (MonadDOM m, ToJSString name) =>-                  NamedNodeMap -> name -> m (Maybe Node)-removeNamedItem self name-  = liftDOM-      ((self ^. jsf "removeNamedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> -item :: (MonadDOM m) => NamedNodeMap -> Word -> m (Maybe Node)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> -getNamedItemNS ::-               (MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>-                 NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)-getNamedItemNS self namespaceURI localName-  = liftDOM-      ((self ^. jsf "getNamedItemNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> -setNamedItemNS ::-               (MonadDOM m, IsNode node) =>-                 NamedNodeMap -> Maybe node -> m (Maybe Node)-setNamedItemNS self node-  = liftDOM-      ((self ^. jsf "setNamedItemNS" [toJSVal node]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> -removeNamedItemNS ::-                  (MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>-                    NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node)-removeNamedItemNS self namespaceURI localName-  = liftDOM-      ((self ^. jsf "removeNamedItemNS"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.length Mozilla NamedNodeMap.length documentation> -getLength :: (MonadDOM m) => NamedNodeMap -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Navigator.hs 
@@ -1,203 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Navigator-       (getGamepads, webkitGetUserMedia, registerProtocolHandler,-        isProtocolHandlerRegistered, unregisterProtocolHandler,-        vibratePattern, vibrate, javaEnabled, getStorageUpdates,-        getWebkitBattery, getGeolocation, getWebkitTemporaryStorage,-        getWebkitPersistentStorage, getAppCodeName, getAppName,-        getAppVersion, getLanguage, getUserAgent, getPlatform, getPlugins,-        getMimeTypes, getProduct, getProductSub, getVendor, getVendorSub,-        getCookieEnabled, getOnLine, getHardwareConcurrency, Navigator,-        castToNavigator, gTypeNavigator)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getGamepads Mozilla Navigator.getGamepads documentation> -getGamepads :: (MonadDOM m) => Navigator -> m [Maybe Gamepad]-getGamepads self-  = liftDOM ((self ^. js "getGamepads") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitGetUserMedia Mozilla Navigator.webkitGetUserMedia documentation> -webkitGetUserMedia ::-                   (MonadDOM m, IsDictionary options) =>-                     Navigator ->-                       Maybe options ->-                         Maybe NavigatorUserMediaSuccessCallback ->-                           Maybe NavigatorUserMediaErrorCallback -> m ()-webkitGetUserMedia self options successCallback errorCallback-  = liftDOM-      (void-         (self ^. jsf "webkitGetUserMedia"-            [toJSVal options, toJSVal successCallback, toJSVal errorCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.registerProtocolHandler Mozilla Navigator.registerProtocolHandler documentation> -registerProtocolHandler ::-                        (MonadDOM m, ToJSString scheme, ToJSString url,-                         ToJSString title) =>-                          Navigator -> scheme -> url -> title -> m ()-registerProtocolHandler self scheme url title-  = liftDOM-      (void-         (self ^. jsf "registerProtocolHandler"-            [toJSVal scheme, toJSVal url, toJSVal title]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.isProtocolHandlerRegistered Mozilla Navigator.isProtocolHandlerRegistered documentation> -isProtocolHandlerRegistered ::-                            (MonadDOM m, ToJSString scheme, ToJSString url,-                             FromJSString result) =>-                              Navigator -> scheme -> url -> m result-isProtocolHandlerRegistered self scheme url-  = liftDOM-      ((self ^. jsf "isProtocolHandlerRegistered"-          [toJSVal scheme, toJSVal url])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.unregisterProtocolHandler Mozilla Navigator.unregisterProtocolHandler documentation> -unregisterProtocolHandler ::-                          (MonadDOM m, ToJSString scheme, ToJSString url) =>-                            Navigator -> scheme -> url -> m ()-unregisterProtocolHandler self scheme url-  = liftDOM-      (void-         (self ^. jsf "unregisterProtocolHandler"-            [toJSVal scheme, toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> -vibratePattern :: (MonadDOM m) => Navigator -> [Word] -> m Bool-vibratePattern self pattern'-  = liftDOM-      ((self ^. jsf "vibrate" [toJSVal (array pattern')]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> -vibrate :: (MonadDOM m) => Navigator -> Word -> m Bool-vibrate self time-  = liftDOM ((self ^. jsf "vibrate" [toJSVal time]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation> -javaEnabled :: (MonadDOM m) => Navigator -> m Bool-javaEnabled self-  = liftDOM ((self ^. js "javaEnabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getStorageUpdates Mozilla Navigator.getStorageUpdates documentation> -getStorageUpdates :: (MonadDOM m) => Navigator -> m ()-getStorageUpdates self-  = liftDOM (void (self ^. js "getStorageUpdates"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> -getWebkitBattery ::-                 (MonadDOM m) => Navigator -> m (Maybe BatteryManager)-getWebkitBattery self-  = liftDOM ((self ^. js "webkitBattery") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> -getGeolocation ::-               (MonadDOM m) => Navigator -> m (Maybe Geolocation)-getGeolocation self-  = liftDOM ((self ^. js "geolocation") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> -getWebkitTemporaryStorage ::-                          (MonadDOM m) => Navigator -> m (Maybe StorageQuota)-getWebkitTemporaryStorage self-  = liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> -getWebkitPersistentStorage ::-                           (MonadDOM m) => Navigator -> m (Maybe StorageQuota)-getWebkitPersistentStorage self-  = liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appCodeName Mozilla Navigator.appCodeName documentation> -getAppCodeName ::-               (MonadDOM m, FromJSString result) => Navigator -> m result-getAppCodeName self-  = liftDOM ((self ^. js "appCodeName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appName Mozilla Navigator.appName documentation> -getAppName ::-           (MonadDOM m, FromJSString result) => Navigator -> m result-getAppName self-  = liftDOM ((self ^. js "appName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appVersion Mozilla Navigator.appVersion documentation> -getAppVersion ::-              (MonadDOM m, FromJSString result) => Navigator -> m result-getAppVersion self-  = liftDOM ((self ^. js "appVersion") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.language Mozilla Navigator.language documentation> -getLanguage ::-            (MonadDOM m, FromJSString result) => Navigator -> m result-getLanguage self-  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.userAgent Mozilla Navigator.userAgent documentation> -getUserAgent ::-             (MonadDOM m, FromJSString result) => Navigator -> m result-getUserAgent self-  = liftDOM ((self ^. js "userAgent") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.platform Mozilla Navigator.platform documentation> -getPlatform ::-            (MonadDOM m, FromJSString result) => Navigator -> m result-getPlatform self-  = liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> -getPlugins :: (MonadDOM m) => Navigator -> m (Maybe PluginArray)-getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> -getMimeTypes ::-             (MonadDOM m) => Navigator -> m (Maybe MimeTypeArray)-getMimeTypes self-  = liftDOM ((self ^. js "mimeTypes") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.product Mozilla Navigator.product documentation> -getProduct ::-           (MonadDOM m, FromJSString result) => Navigator -> m result-getProduct self-  = liftDOM ((self ^. js "product") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.productSub Mozilla Navigator.productSub documentation> -getProductSub ::-              (MonadDOM m, FromJSString result) => Navigator -> m result-getProductSub self-  = liftDOM ((self ^. js "productSub") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendor Mozilla Navigator.vendor documentation> -getVendor ::-          (MonadDOM m, FromJSString result) => Navigator -> m result-getVendor self-  = liftDOM ((self ^. js "vendor") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendorSub Mozilla Navigator.vendorSub documentation> -getVendorSub ::-             (MonadDOM m, FromJSString result) => Navigator -> m result-getVendorSub self-  = liftDOM ((self ^. js "vendorSub") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.cookieEnabled Mozilla Navigator.cookieEnabled documentation> -getCookieEnabled :: (MonadDOM m) => Navigator -> m Bool-getCookieEnabled self-  = liftDOM ((self ^. js "cookieEnabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.onLine Mozilla Navigator.onLine documentation> -getOnLine :: (MonadDOM m) => Navigator -> m Bool-getOnLine self = liftDOM ((self ^. js "onLine") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.hardwareConcurrency Mozilla Navigator.hardwareConcurrency documentation> -getHardwareConcurrency :: (MonadDOM m) => Navigator -> m Int-getHardwareConcurrency self-  = liftDOM-      (round <$> ((self ^. js "hardwareConcurrency") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/NavigatorUserMediaError.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaError-       (getConstraintName, NavigatorUserMediaError,-        castToNavigatorUserMediaError, gTypeNavigatorUserMediaError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaError.constraintName Mozilla NavigatorUserMediaError.constraintName documentation> -getConstraintName ::-                  (MonadDOM m, FromJSString result) =>-                    NavigatorUserMediaError -> m result-getConstraintName self-  = liftDOM ((self ^. js "constraintName") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/NavigatorUserMediaErrorCallback.hs 
@@ -1,51 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaErrorCallback-       (newNavigatorUserMediaErrorCallback,-        newNavigatorUserMediaErrorCallbackSync,-        newNavigatorUserMediaErrorCallbackAsync,-        NavigatorUserMediaErrorCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> -newNavigatorUserMediaErrorCallback ::-                                   (MonadDOM m) =>-                                     (Maybe NavigatorUserMediaError -> JSM ()) ->-                                       m NavigatorUserMediaErrorCallback-newNavigatorUserMediaErrorCallback callback-  = liftDOM-      (NavigatorUserMediaErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> -newNavigatorUserMediaErrorCallbackSync ::-                                       (MonadDOM m) =>-                                         (Maybe NavigatorUserMediaError -> JSM ()) ->-                                           m NavigatorUserMediaErrorCallback-newNavigatorUserMediaErrorCallbackSync callback-  = liftDOM-      (NavigatorUserMediaErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation> -newNavigatorUserMediaErrorCallbackAsync ::-                                        (MonadDOM m) =>-                                          (Maybe NavigatorUserMediaError -> JSM ()) ->-                                            m NavigatorUserMediaErrorCallback-newNavigatorUserMediaErrorCallbackAsync callback-  = liftDOM-      (NavigatorUserMediaErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
− src/Language/Javascript/JSaddle/DOM/Generated/NavigatorUserMediaSuccessCallback.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NavigatorUserMediaSuccessCallback-       (newNavigatorUserMediaSuccessCallback,-        newNavigatorUserMediaSuccessCallbackSync,-        newNavigatorUserMediaSuccessCallbackAsync,-        NavigatorUserMediaSuccessCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> -newNavigatorUserMediaSuccessCallback ::-                                     (MonadDOM m) =>-                                       (Maybe MediaStream -> JSM ()) ->-                                         m NavigatorUserMediaSuccessCallback-newNavigatorUserMediaSuccessCallback callback-  = liftDOM-      (NavigatorUserMediaSuccessCallback . Callback <$>-         function ""-           (\ _ _ [stream] ->-              fromJSVal stream >>= \ stream' -> callback stream'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> -newNavigatorUserMediaSuccessCallbackSync ::-                                         (MonadDOM m) =>-                                           (Maybe MediaStream -> JSM ()) ->-                                             m NavigatorUserMediaSuccessCallback-newNavigatorUserMediaSuccessCallbackSync callback-  = liftDOM-      (NavigatorUserMediaSuccessCallback . Callback <$>-         function ""-           (\ _ _ [stream] ->-              fromJSVal stream >>= \ stream' -> callback stream'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation> -newNavigatorUserMediaSuccessCallbackAsync ::-                                          (MonadDOM m) =>-                                            (Maybe MediaStream -> JSM ()) ->-                                              m NavigatorUserMediaSuccessCallback-newNavigatorUserMediaSuccessCallbackAsync callback-  = liftDOM-      (NavigatorUserMediaSuccessCallback . Callback <$>-         function ""-           (\ _ _ [stream] ->-              fromJSVal stream >>= \ stream' -> callback stream'))
− src/Language/Javascript/JSaddle/DOM/Generated/Node.hs 
@@ -1,307 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Node-       (insertBefore, replaceChild, removeChild, appendChild,-        hasChildNodes, cloneNode, normalize, isSupported, isSameNode,-        isEqualNode, lookupPrefix, isDefaultNamespace, lookupNamespaceURI,-        compareDocumentPosition, contains, pattern ELEMENT_NODE,-        pattern ATTRIBUTE_NODE, pattern TEXT_NODE,-        pattern CDATA_SECTION_NODE, pattern ENTITY_REFERENCE_NODE,-        pattern ENTITY_NODE, pattern PROCESSING_INSTRUCTION_NODE,-        pattern COMMENT_NODE, pattern DOCUMENT_NODE,-        pattern DOCUMENT_TYPE_NODE, pattern DOCUMENT_FRAGMENT_NODE,-        pattern NOTATION_NODE, pattern DOCUMENT_POSITION_DISCONNECTED,-        pattern DOCUMENT_POSITION_PRECEDING,-        pattern DOCUMENT_POSITION_FOLLOWING,-        pattern DOCUMENT_POSITION_CONTAINS,-        pattern DOCUMENT_POSITION_CONTAINED_BY,-        pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, getNodeName,-        setNodeValue, getNodeValue, getNodeType, getParentNode,-        getChildNodes, getFirstChild, getLastChild, getPreviousSibling,-        getNextSibling, getOwnerDocument, getNamespaceURI, setPrefix,-        getPrefix, getLocalName, getBaseURI, setTextContent,-        getTextContent, getParentElement, Node, castToNode, gTypeNode,-        IsNode, toNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> -insertBefore ::-             (MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) =>-               self -> Maybe newChild -> Maybe refChild -> m (Maybe Node)-insertBefore self newChild refChild-  = liftDOM-      (((toNode self) ^. jsf "insertBefore"-          [toJSVal newChild, toJSVal refChild])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> -replaceChild ::-             (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) =>-               self -> Maybe newChild -> Maybe oldChild -> m (Maybe Node)-replaceChild self newChild oldChild-  = liftDOM-      (((toNode self) ^. jsf "replaceChild"-          [toJSVal newChild, toJSVal oldChild])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> -removeChild ::-            (MonadDOM m, IsNode self, IsNode oldChild) =>-              self -> Maybe oldChild -> m (Maybe Node)-removeChild self oldChild-  = liftDOM-      (((toNode self) ^. jsf "removeChild" [toJSVal oldChild]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> -appendChild ::-            (MonadDOM m, IsNode self, IsNode newChild) =>-              self -> Maybe newChild -> m (Maybe Node)-appendChild self newChild-  = liftDOM-      (((toNode self) ^. jsf "appendChild" [toJSVal newChild]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.hasChildNodes Mozilla Node.hasChildNodes documentation> -hasChildNodes :: (MonadDOM m, IsNode self) => self -> m Bool-hasChildNodes self-  = liftDOM (((toNode self) ^. js "hasChildNodes") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> -cloneNode ::-          (MonadDOM m, IsNode self) => self -> Bool -> m (Maybe Node)-cloneNode self deep-  = liftDOM-      (((toNode self) ^. jsf "cloneNode" [toJSVal deep]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.normalize Mozilla Node.normalize documentation> -normalize :: (MonadDOM m, IsNode self) => self -> m ()-normalize self = liftDOM (void ((toNode self) ^. js "normalize"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSupported Mozilla Node.isSupported documentation> -isSupported ::-            (MonadDOM m, IsNode self, ToJSString feature,-             ToJSString version) =>-              self -> feature -> Maybe version -> m Bool-isSupported self feature version-  = liftDOM-      (((toNode self) ^. jsf "isSupported"-          [toJSVal feature, toJSVal version])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation> -isSameNode ::-           (MonadDOM m, IsNode self, IsNode other) =>-             self -> Maybe other -> m Bool-isSameNode self other-  = liftDOM-      (((toNode self) ^. jsf "isSameNode" [toJSVal other]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation> -isEqualNode ::-            (MonadDOM m, IsNode self, IsNode other) =>-              self -> Maybe other -> m Bool-isEqualNode self other-  = liftDOM-      (((toNode self) ^. jsf "isEqualNode" [toJSVal other]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> -lookupPrefix ::-             (MonadDOM m, IsNode self, ToJSString namespaceURI,-              FromJSString result) =>-               self -> Maybe namespaceURI -> m (Maybe result)-lookupPrefix self namespaceURI-  = liftDOM-      (((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isDefaultNamespace Mozilla Node.isDefaultNamespace documentation> -isDefaultNamespace ::-                   (MonadDOM m, IsNode self, ToJSString namespaceURI) =>-                     self -> Maybe namespaceURI -> m Bool-isDefaultNamespace self namespaceURI-  = liftDOM-      (((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> -lookupNamespaceURI ::-                   (MonadDOM m, IsNode self, ToJSString prefix,-                    FromJSString result) =>-                     self -> Maybe prefix -> m (Maybe result)-lookupNamespaceURI self prefix-  = liftDOM-      (((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.compareDocumentPosition Mozilla Node.compareDocumentPosition documentation> -compareDocumentPosition ::-                        (MonadDOM m, IsNode self, IsNode other) =>-                          self -> Maybe other -> m Word-compareDocumentPosition self other-  = liftDOM-      (round <$>-         (((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation> -contains ::-         (MonadDOM m, IsNode self, IsNode other) =>-           self -> Maybe other -> m Bool-contains self other-  = liftDOM-      (((toNode self) ^. jsf "contains" [toJSVal other]) >>= valToBool)-pattern ELEMENT_NODE = 1-pattern ATTRIBUTE_NODE = 2-pattern TEXT_NODE = 3-pattern CDATA_SECTION_NODE = 4-pattern ENTITY_REFERENCE_NODE = 5-pattern ENTITY_NODE = 6-pattern PROCESSING_INSTRUCTION_NODE = 7-pattern COMMENT_NODE = 8-pattern DOCUMENT_NODE = 9-pattern DOCUMENT_TYPE_NODE = 10-pattern DOCUMENT_FRAGMENT_NODE = 11-pattern NOTATION_NODE = 12-pattern DOCUMENT_POSITION_DISCONNECTED = 1-pattern DOCUMENT_POSITION_PRECEDING = 2-pattern DOCUMENT_POSITION_FOLLOWING = 4-pattern DOCUMENT_POSITION_CONTAINS = 8-pattern DOCUMENT_POSITION_CONTAINED_BY = 16-pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> -getNodeName ::-            (MonadDOM m, IsNode self, FromJSString result) =>-              self -> m (Maybe result)-getNodeName self-  = liftDOM (((toNode self) ^. js "nodeName") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> -setNodeValue ::-             (MonadDOM m, IsNode self, ToJSString val) =>-               self -> Maybe val -> m ()-setNodeValue self val-  = liftDOM ((toNode self) ^. jss "nodeValue" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> -getNodeValue ::-             (MonadDOM m, IsNode self, FromJSString result) =>-               self -> m (Maybe result)-getNodeValue self-  = liftDOM (((toNode self) ^. js "nodeValue") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeType Mozilla Node.nodeType documentation> -getNodeType :: (MonadDOM m, IsNode self) => self -> m Word-getNodeType self-  = liftDOM-      (round <$> (((toNode self) ^. js "nodeType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation> -getParentNode ::-              (MonadDOM m, IsNode self) => self -> m (Maybe Node)-getParentNode self-  = liftDOM (((toNode self) ^. js "parentNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> -getChildNodes ::-              (MonadDOM m, IsNode self) => self -> m (Maybe NodeList)-getChildNodes self-  = liftDOM (((toNode self) ^. js "childNodes") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation> -getFirstChild ::-              (MonadDOM m, IsNode self) => self -> m (Maybe Node)-getFirstChild self-  = liftDOM (((toNode self) ^. js "firstChild") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation> -getLastChild :: (MonadDOM m, IsNode self) => self -> m (Maybe Node)-getLastChild self-  = liftDOM (((toNode self) ^. js "lastChild") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation> -getPreviousSibling ::-                   (MonadDOM m, IsNode self) => self -> m (Maybe Node)-getPreviousSibling self-  = liftDOM (((toNode self) ^. js "previousSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation> -getNextSibling ::-               (MonadDOM m, IsNode self) => self -> m (Maybe Node)-getNextSibling self-  = liftDOM (((toNode self) ^. js "nextSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation> -getOwnerDocument ::-                 (MonadDOM m, IsNode self) => self -> m (Maybe Document)-getOwnerDocument self-  = liftDOM (((toNode self) ^. js "ownerDocument") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> -getNamespaceURI ::-                (MonadDOM m, IsNode self, FromJSString result) =>-                  self -> m (Maybe result)-getNamespaceURI self-  = liftDOM-      (((toNode self) ^. js "namespaceURI") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> -setPrefix ::-          (MonadDOM m, IsNode self, ToJSString val) =>-            self -> Maybe val -> m ()-setPrefix self val-  = liftDOM ((toNode self) ^. jss "prefix" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> -getPrefix ::-          (MonadDOM m, IsNode self, FromJSString result) =>-            self -> m (Maybe result)-getPrefix self-  = liftDOM (((toNode self) ^. js "prefix") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> -getLocalName ::-             (MonadDOM m, IsNode self, FromJSString result) =>-               self -> m (Maybe result)-getLocalName self-  = liftDOM (((toNode self) ^. js "localName") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> -getBaseURI ::-           (MonadDOM m, IsNode self, FromJSString result) =>-             self -> m (Maybe result)-getBaseURI self-  = liftDOM (((toNode self) ^. js "baseURI") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> -setTextContent ::-               (MonadDOM m, IsNode self, ToJSString val) =>-                 self -> Maybe val -> m ()-setTextContent self val-  = liftDOM ((toNode self) ^. jss "textContent" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> -getTextContent ::-               (MonadDOM m, IsNode self, FromJSString result) =>-                 self -> m (Maybe result)-getTextContent self-  = liftDOM-      (((toNode self) ^. js "textContent") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation> -getParentElement ::-                 (MonadDOM m, IsNode self) => self -> m (Maybe Element)-getParentElement self-  = liftDOM (((toNode self) ^. js "parentElement") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/NodeFilter.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NodeFilter-       (acceptNode, pattern FILTER_ACCEPT, pattern FILTER_REJECT,-        pattern FILTER_SKIP, pattern SHOW_ALL, pattern SHOW_ELEMENT,-        pattern SHOW_ATTRIBUTE, pattern SHOW_TEXT,-        pattern SHOW_CDATA_SECTION, pattern SHOW_ENTITY_REFERENCE,-        pattern SHOW_ENTITY, pattern SHOW_PROCESSING_INSTRUCTION,-        pattern SHOW_COMMENT, pattern SHOW_DOCUMENT,-        pattern SHOW_DOCUMENT_TYPE, pattern SHOW_DOCUMENT_FRAGMENT,-        pattern SHOW_NOTATION, NodeFilter, castToNodeFilter,-        gTypeNodeFilter)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter.acceptNode Mozilla NodeFilter.acceptNode documentation> -acceptNode ::-           (MonadDOM m, IsNode n) => NodeFilter -> Maybe n -> m Int-acceptNode self n-  = liftDOM-      (round <$>-         ((self ^. jsf "acceptNode" [toJSVal n]) >>= valToNumber))-pattern FILTER_ACCEPT = 1-pattern FILTER_REJECT = 2-pattern FILTER_SKIP = 3-pattern SHOW_ALL = 4294967295-pattern SHOW_ELEMENT = 1-pattern SHOW_ATTRIBUTE = 2-pattern SHOW_TEXT = 4-pattern SHOW_CDATA_SECTION = 8-pattern SHOW_ENTITY_REFERENCE = 16-pattern SHOW_ENTITY = 32-pattern SHOW_PROCESSING_INSTRUCTION = 64-pattern SHOW_COMMENT = 128-pattern SHOW_DOCUMENT = 256-pattern SHOW_DOCUMENT_TYPE = 512-pattern SHOW_DOCUMENT_FRAGMENT = 1024-pattern SHOW_NOTATION = 2048
− src/Language/Javascript/JSaddle/DOM/Generated/NodeIterator.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NodeIterator-       (nextNode, previousNode, detach, getRoot, getWhatToShow, getFilter,-        getExpandEntityReferences, getReferenceNode,-        getPointerBeforeReferenceNode, NodeIterator, castToNodeIterator,-        gTypeNodeIterator)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> -nextNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)-nextNode self = liftDOM ((self ^. js "nextNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> -previousNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)-previousNode self-  = liftDOM ((self ^. js "previousNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.detach Mozilla NodeIterator.detach documentation> -detach :: (MonadDOM m) => NodeIterator -> m ()-detach self = liftDOM (void (self ^. js "detach"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> -getRoot :: (MonadDOM m) => NodeIterator -> m (Maybe Node)-getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.whatToShow Mozilla NodeIterator.whatToShow documentation> -getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word-getWhatToShow self-  = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> -getFilter :: (MonadDOM m) => NodeIterator -> m (Maybe NodeFilter)-getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.expandEntityReferences Mozilla NodeIterator.expandEntityReferences documentation> -getExpandEntityReferences :: (MonadDOM m) => NodeIterator -> m Bool-getExpandEntityReferences self-  = liftDOM ((self ^. js "expandEntityReferences") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> -getReferenceNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)-getReferenceNode self-  = liftDOM ((self ^. js "referenceNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.pointerBeforeReferenceNode Mozilla NodeIterator.pointerBeforeReferenceNode documentation> -getPointerBeforeReferenceNode ::-                              (MonadDOM m) => NodeIterator -> m Bool-getPointerBeforeReferenceNode self-  = liftDOM ((self ^. js "pointerBeforeReferenceNode") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/NodeList.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NodeList-       (item, getLength, NodeList, castToNodeList, gTypeNodeList,-        IsNodeList, toNodeList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> -item ::-     (MonadDOM m, IsNodeList self) => self -> Word -> m (Maybe Node)-item self index-  = liftDOM-      (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.length Mozilla NodeList.length documentation> -getLength :: (MonadDOM m, IsNodeList self) => self -> m Word-getLength self-  = liftDOM-      (round <$> (((toNodeList self) ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Notification.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Notification-       (show, showEvent, error, close, click, Notification,-        castToNotification, gTypeNotification)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.show Mozilla Notification.show documentation> -show :: (MonadDOM m) => Notification -> m ()-show self = liftDOM (void (self ^. js "show"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onshow Mozilla Notification.onshow documentation> -showEvent :: EventName Notification MouseEvent-showEvent = unsafeEventName (toJSString "show")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onerror Mozilla Notification.onerror documentation> -error :: EventName Notification UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclose Mozilla Notification.onclose documentation> -close :: EventName Notification Event-close = unsafeEventName (toJSString "close")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onclick Mozilla Notification.onclick documentation> -click :: EventName Notification MouseEvent-click = unsafeEventName (toJSString "click")
− src/Language/Javascript/JSaddle/DOM/Generated/NotificationCenter.hs 
@@ -1,42 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NotificationCenter-       (createNotification, checkPermission, requestPermission,-        NotificationCenter, castToNotificationCenter,-        gTypeNotificationCenter)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> -createNotification ::-                   (MonadDOM m, ToJSString iconUrl, ToJSString title,-                    ToJSString body) =>-                     NotificationCenter ->-                       iconUrl -> title -> body -> m (Maybe Notification)-createNotification self iconUrl title body-  = liftDOM-      ((self ^. jsf "createNotification"-          [toJSVal iconUrl, toJSVal title, toJSVal body])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation> -checkPermission :: (MonadDOM m) => NotificationCenter -> m Int-checkPermission self-  = liftDOM-      (round <$> ((self ^. js "checkPermission") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.requestPermission Mozilla NotificationCenter.requestPermission documentation> -requestPermission ::-                  (MonadDOM m) => NotificationCenter -> Maybe VoidCallback -> m ()-requestPermission self callback-  = liftDOM-      (void (self ^. jsf "requestPermission" [toJSVal callback]))
− src/Language/Javascript/JSaddle/DOM/Generated/NotificationPermissionCallback.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.NotificationPermissionCallback-       (newNotificationPermissionCallback,-        newNotificationPermissionCallbackSync,-        newNotificationPermissionCallbackAsync,-        NotificationPermissionCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> -newNotificationPermissionCallback ::-                                  (MonadDOM m, FromJSString permission) =>-                                    (permission -> JSM ()) ->-                                      m (NotificationPermissionCallback permission)-newNotificationPermissionCallback callback-  = liftDOM-      (NotificationPermissionCallback . Callback <$>-         function ""-           (\ _ _ [permission] ->-              fromJSValUnchecked permission >>=-                \ permission' -> callback permission'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> -newNotificationPermissionCallbackSync ::-                                      (MonadDOM m, FromJSString permission) =>-                                        (permission -> JSM ()) ->-                                          m (NotificationPermissionCallback permission)-newNotificationPermissionCallbackSync callback-  = liftDOM-      (NotificationPermissionCallback . Callback <$>-         function ""-           (\ _ _ [permission] ->-              fromJSValUnchecked permission >>=-                \ permission' -> callback permission'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation> -newNotificationPermissionCallbackAsync ::-                                       (MonadDOM m, FromJSString permission) =>-                                         (permission -> JSM ()) ->-                                           m (NotificationPermissionCallback permission)-newNotificationPermissionCallbackAsync callback-  = liftDOM-      (NotificationPermissionCallback . Callback <$>-         function ""-           (\ _ _ [permission] ->-              fromJSValUnchecked permission >>=-                \ permission' -> callback permission'))
− src/Language/Javascript/JSaddle/DOM/Generated/OESStandardDerivatives.hs 
@@ -1,18 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OESStandardDerivatives-       (pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES,-        OESStandardDerivatives, castToOESStandardDerivatives,-        gTypeOESStandardDerivatives)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES = 35723
− src/Language/Javascript/JSaddle/DOM/Generated/OESTextureHalfFloat.hs 
@@ -1,17 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OESTextureHalfFloat-       (pattern HALF_FLOAT_OES, OESTextureHalfFloat,-        castToOESTextureHalfFloat, gTypeOESTextureHalfFloat)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern HALF_FLOAT_OES = 36193
− src/Language/Javascript/JSaddle/DOM/Generated/OESVertexArrayObject.hs 
@@ -1,51 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OESVertexArrayObject-       (createVertexArrayOES, deleteVertexArrayOES, isVertexArrayOES,-        bindVertexArrayOES, pattern VERTEX_ARRAY_BINDING_OES,-        OESVertexArrayObject, castToOESVertexArrayObject,-        gTypeOESVertexArrayObject)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> -createVertexArrayOES ::-                     (MonadDOM m) =>-                       OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES)-createVertexArrayOES self-  = liftDOM ((self ^. js "createVertexArrayOES") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.deleteVertexArrayOES Mozilla OESVertexArrayObject.deleteVertexArrayOES documentation> -deleteVertexArrayOES ::-                     (MonadDOM m) =>-                       OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()-deleteVertexArrayOES self arrayObject-  = liftDOM-      (void (self ^. jsf "deleteVertexArrayOES" [toJSVal arrayObject]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.isVertexArrayOES Mozilla OESVertexArrayObject.isVertexArrayOES documentation> -isVertexArrayOES ::-                 (MonadDOM m) =>-                   OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool-isVertexArrayOES self arrayObject-  = liftDOM-      ((self ^. jsf "isVertexArrayOES" [toJSVal arrayObject]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.bindVertexArrayOES Mozilla OESVertexArrayObject.bindVertexArrayOES documentation> -bindVertexArrayOES ::-                   (MonadDOM m) =>-                     OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()-bindVertexArrayOES self arrayObject-  = liftDOM-      (void (self ^. jsf "bindVertexArrayOES" [toJSVal arrayObject]))-pattern VERTEX_ARRAY_BINDING_OES = 34229
− src/Language/Javascript/JSaddle/DOM/Generated/OfflineAudioCompletionEvent.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OfflineAudioCompletionEvent-       (getRenderedBuffer, OfflineAudioCompletionEvent,-        castToOfflineAudioCompletionEvent,-        gTypeOfflineAudioCompletionEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> -getRenderedBuffer ::-                  (MonadDOM m) =>-                    OfflineAudioCompletionEvent -> m (Maybe AudioBuffer)-getRenderedBuffer self-  = liftDOM ((self ^. js "renderedBuffer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/OfflineAudioContext.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OfflineAudioContext-       (newOfflineAudioContext, OfflineAudioContext,-        castToOfflineAudioContext, gTypeOfflineAudioContext)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioContext Mozilla OfflineAudioContext documentation> -newOfflineAudioContext ::-                       (MonadDOM m) => Word -> Word -> Float -> m OfflineAudioContext-newOfflineAudioContext numberOfChannels numberOfFrames sampleRate-  = liftDOM-      (OfflineAudioContext <$>-         new (jsg "OfflineAudioContext")-           [toJSVal numberOfChannels, toJSVal numberOfFrames,-            toJSVal sampleRate])
− src/Language/Javascript/JSaddle/DOM/Generated/OscillatorNode.hs 
@@ -1,84 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OscillatorNode-       (start, stop, noteOn, noteOff, setPeriodicWave, pattern SINE,-        pattern SQUARE, pattern SAWTOOTH, pattern TRIANGLE, pattern CUSTOM,-        pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,-        pattern PLAYING_STATE, pattern FINISHED_STATE, setType, getType,-        getPlaybackState, getFrequency, getDetune, ended, OscillatorNode,-        castToOscillatorNode, gTypeOscillatorNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.start Mozilla OscillatorNode.start documentation> -start :: (MonadDOM m) => OscillatorNode -> Double -> m ()-start self when-  = liftDOM (void (self ^. jsf "start" [toJSVal when]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.stop Mozilla OscillatorNode.stop documentation> -stop :: (MonadDOM m) => OscillatorNode -> Double -> m ()-stop self when = liftDOM (void (self ^. jsf "stop" [toJSVal when]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOn Mozilla OscillatorNode.noteOn documentation> -noteOn :: (MonadDOM m) => OscillatorNode -> Double -> m ()-noteOn self when-  = liftDOM (void (self ^. jsf "noteOn" [toJSVal when]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOff Mozilla OscillatorNode.noteOff documentation> -noteOff :: (MonadDOM m) => OscillatorNode -> Double -> m ()-noteOff self when-  = liftDOM (void (self ^. jsf "noteOff" [toJSVal when]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.setPeriodicWave Mozilla OscillatorNode.setPeriodicWave documentation> -setPeriodicWave ::-                (MonadDOM m) => OscillatorNode -> Maybe PeriodicWave -> m ()-setPeriodicWave self wave-  = liftDOM (void (self ^. jsf "setPeriodicWave" [toJSVal wave]))-pattern SINE = 0-pattern SQUARE = 1-pattern SAWTOOTH = 2-pattern TRIANGLE = 3-pattern CUSTOM = 4-pattern UNSCHEDULED_STATE = 0-pattern SCHEDULED_STATE = 1-pattern PLAYING_STATE = 2-pattern FINISHED_STATE = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => OscillatorNode -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => OscillatorNode -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.playbackState Mozilla OscillatorNode.playbackState documentation> -getPlaybackState :: (MonadDOM m) => OscillatorNode -> m Word-getPlaybackState self-  = liftDOM-      (round <$> ((self ^. js "playbackState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> -getFrequency ::-             (MonadDOM m) => OscillatorNode -> m (Maybe AudioParam)-getFrequency self-  = liftDOM ((self ^. js "frequency") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation> -getDetune :: (MonadDOM m) => OscillatorNode -> m (Maybe AudioParam)-getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.onended Mozilla OscillatorNode.onended documentation> -ended :: EventName OscillatorNode Event-ended = unsafeEventName (toJSString "ended")
− src/Language/Javascript/JSaddle/DOM/Generated/OverflowEvent.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.OverflowEvent-       (pattern HORIZONTAL, pattern VERTICAL, pattern BOTH, getOrient,-        getHorizontalOverflow, getVerticalOverflow, OverflowEvent,-        castToOverflowEvent, gTypeOverflowEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern HORIZONTAL = 0-pattern VERTICAL = 1-pattern BOTH = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.orient Mozilla OverflowEvent.orient documentation> -getOrient :: (MonadDOM m) => OverflowEvent -> m Word-getOrient self-  = liftDOM (round <$> ((self ^. js "orient") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.horizontalOverflow Mozilla OverflowEvent.horizontalOverflow documentation> -getHorizontalOverflow :: (MonadDOM m) => OverflowEvent -> m Bool-getHorizontalOverflow self-  = liftDOM ((self ^. js "horizontalOverflow") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.verticalOverflow Mozilla OverflowEvent.verticalOverflow documentation> -getVerticalOverflow :: (MonadDOM m) => OverflowEvent -> m Bool-getVerticalOverflow self-  = liftDOM ((self ^. js "verticalOverflow") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/PageTransitionEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PageTransitionEvent-       (getPersisted, PageTransitionEvent, castToPageTransitionEvent,-        gTypePageTransitionEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent.persisted Mozilla PageTransitionEvent.persisted documentation> -getPersisted :: (MonadDOM m) => PageTransitionEvent -> m Bool-getPersisted self-  = liftDOM ((self ^. js "persisted") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/PannerNode.hs 
@@ -1,137 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PannerNode-       (setPosition, setOrientation, setVelocity, pattern EQUALPOWER,-        pattern HRTF, pattern SOUNDFIELD, pattern LINEAR_DISTANCE,-        pattern INVERSE_DISTANCE, pattern EXPONENTIAL_DISTANCE,-        setPanningModel, getPanningModel, setDistanceModel,-        getDistanceModel, setRefDistance, getRefDistance, setMaxDistance,-        getMaxDistance, setRolloffFactor, getRolloffFactor,-        setConeInnerAngle, getConeInnerAngle, setConeOuterAngle,-        getConeOuterAngle, setConeOuterGain, getConeOuterGain, PannerNode,-        castToPannerNode, gTypePannerNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setPosition Mozilla webkitAudioPannerNode.setPosition documentation> -setPosition ::-            (MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()-setPosition self x y z-  = liftDOM-      (void-         (self ^. jsf "setPosition" [toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setOrientation Mozilla webkitAudioPannerNode.setOrientation documentation> -setOrientation ::-               (MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()-setOrientation self x y z-  = liftDOM-      (void-         (self ^. jsf "setOrientation" [toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setVelocity Mozilla webkitAudioPannerNode.setVelocity documentation> -setVelocity ::-            (MonadDOM m) => PannerNode -> Float -> Float -> Float -> m ()-setVelocity self x y z-  = liftDOM-      (void-         (self ^. jsf "setVelocity" [toJSVal x, toJSVal y, toJSVal z]))-pattern EQUALPOWER = 0-pattern HRTF = 1-pattern SOUNDFIELD = 2-pattern LINEAR_DISTANCE = 0-pattern INVERSE_DISTANCE = 1-pattern EXPONENTIAL_DISTANCE = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> -setPanningModel ::-                (MonadDOM m, ToJSString val) => PannerNode -> val -> m ()-setPanningModel self val-  = liftDOM (self ^. jss "panningModel" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation> -getPanningModel ::-                (MonadDOM m, FromJSString result) => PannerNode -> m result-getPanningModel self-  = liftDOM ((self ^. js "panningModel") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation> -setDistanceModel ::-                 (MonadDOM m, ToJSString val) => PannerNode -> val -> m ()-setDistanceModel self val-  = liftDOM (self ^. jss "distanceModel" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation> -getDistanceModel ::-                 (MonadDOM m, FromJSString result) => PannerNode -> m result-getDistanceModel self-  = liftDOM ((self ^. js "distanceModel") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation> -setRefDistance :: (MonadDOM m) => PannerNode -> Double -> m ()-setRefDistance self val-  = liftDOM (self ^. jss "refDistance" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation> -getRefDistance :: (MonadDOM m) => PannerNode -> m Double-getRefDistance self-  = liftDOM ((self ^. js "refDistance") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation> -setMaxDistance :: (MonadDOM m) => PannerNode -> Double -> m ()-setMaxDistance self val-  = liftDOM (self ^. jss "maxDistance" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation> -getMaxDistance :: (MonadDOM m) => PannerNode -> m Double-getMaxDistance self-  = liftDOM ((self ^. js "maxDistance") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation> -setRolloffFactor :: (MonadDOM m) => PannerNode -> Double -> m ()-setRolloffFactor self val-  = liftDOM (self ^. jss "rolloffFactor" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation> -getRolloffFactor :: (MonadDOM m) => PannerNode -> m Double-getRolloffFactor self-  = liftDOM ((self ^. js "rolloffFactor") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation> -setConeInnerAngle :: (MonadDOM m) => PannerNode -> Double -> m ()-setConeInnerAngle self val-  = liftDOM (self ^. jss "coneInnerAngle" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation> -getConeInnerAngle :: (MonadDOM m) => PannerNode -> m Double-getConeInnerAngle self-  = liftDOM ((self ^. js "coneInnerAngle") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation> -setConeOuterAngle :: (MonadDOM m) => PannerNode -> Double -> m ()-setConeOuterAngle self val-  = liftDOM (self ^. jss "coneOuterAngle" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation> -getConeOuterAngle :: (MonadDOM m) => PannerNode -> m Double-getConeOuterAngle self-  = liftDOM ((self ^. js "coneOuterAngle") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation> -setConeOuterGain :: (MonadDOM m) => PannerNode -> Double -> m ()-setConeOuterGain self val-  = liftDOM (self ^. jss "coneOuterGain" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation> -getConeOuterGain :: (MonadDOM m) => PannerNode -> m Double-getConeOuterGain self-  = liftDOM ((self ^. js "coneOuterGain") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/Path2D.hs 
@@ -1,103 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Path2D-       (newPath2D, newPath2D', newPath2D'', addPath, closePath, moveTo,-        lineTo, quadraticCurveTo, bezierCurveTo, arcTo, rect, arc, Path2D,-        castToPath2D, gTypePath2D)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> -newPath2D :: (MonadDOM m) => m Path2D-newPath2D = liftDOM (Path2D <$> new (jsg "Path2D") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> -newPath2D' :: (MonadDOM m) => Maybe Path2D -> m Path2D-newPath2D' path-  = liftDOM (Path2D <$> new (jsg "Path2D") [toJSVal path])---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation> -newPath2D'' :: (MonadDOM m, ToJSString text) => text -> m Path2D-newPath2D'' text-  = liftDOM (Path2D <$> new (jsg "Path2D") [toJSVal text])---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.addPath Mozilla Path2D.addPath documentation> -addPath ::-        (MonadDOM m) => Path2D -> Maybe Path2D -> Maybe SVGMatrix -> m ()-addPath self path transform-  = liftDOM-      (void (self ^. jsf "addPath" [toJSVal path, toJSVal transform]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.closePath Mozilla Path2D.closePath documentation> -closePath :: (MonadDOM m) => Path2D -> m ()-closePath self = liftDOM (void (self ^. js "closePath"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.moveTo Mozilla Path2D.moveTo documentation> -moveTo :: (MonadDOM m) => Path2D -> Float -> Float -> m ()-moveTo self x y-  = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.lineTo Mozilla Path2D.lineTo documentation> -lineTo :: (MonadDOM m) => Path2D -> Float -> Float -> m ()-lineTo self x y-  = liftDOM (void (self ^. jsf "lineTo" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.quadraticCurveTo Mozilla Path2D.quadraticCurveTo documentation> -quadraticCurveTo ::-                 (MonadDOM m) => Path2D -> Float -> Float -> Float -> Float -> m ()-quadraticCurveTo self cpx cpy x y-  = liftDOM-      (void-         (self ^. jsf "quadraticCurveTo"-            [toJSVal cpx, toJSVal cpy, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.bezierCurveTo Mozilla Path2D.bezierCurveTo documentation> -bezierCurveTo ::-              (MonadDOM m) =>-                Path2D ->-                  Float -> Float -> Float -> Float -> Float -> Float -> m ()-bezierCurveTo self cp1x cp1y cp2x cp2y x y-  = liftDOM-      (void-         (self ^. jsf "bezierCurveTo"-            [toJSVal cp1x, toJSVal cp1y, toJSVal cp2x, toJSVal cp2y, toJSVal x,-             toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arcTo Mozilla Path2D.arcTo documentation> -arcTo ::-      (MonadDOM m) =>-        Path2D -> Float -> Float -> Float -> Float -> Float -> m ()-arcTo self x1 y1 x2 y2 radius-  = liftDOM-      (void-         (self ^. jsf "arcTo"-            [toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2, toJSVal radius]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.rect Mozilla Path2D.rect documentation> -rect ::-     (MonadDOM m) => Path2D -> Float -> Float -> Float -> Float -> m ()-rect self x y width height-  = liftDOM-      (void-         (self ^. jsf "rect"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arc Mozilla Path2D.arc documentation> -arc ::-    (MonadDOM m) =>-      Path2D -> Float -> Float -> Float -> Float -> Float -> Bool -> m ()-arc self x y radius startAngle endAngle anticlockwise-  = liftDOM-      (void-         (self ^. jsf "arc"-            [toJSVal x, toJSVal y, toJSVal radius, toJSVal startAngle,-             toJSVal endAngle, toJSVal anticlockwise]))
− src/Language/Javascript/JSaddle/DOM/Generated/Performance.hs 
@@ -1,112 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Performance-       (webkitGetEntries, webkitGetEntriesByType, webkitGetEntriesByName,-        webkitClearResourceTimings, webkitSetResourceTimingBufferSize,-        webkitMark, webkitClearMarks, webkitMeasure, webkitClearMeasures,-        now, getNavigation, getTiming, webKitResourceTimingBufferFull,-        Performance, castToPerformance, gTypePerformance)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> -webkitGetEntries ::-                 (MonadDOM m) => Performance -> m (Maybe PerformanceEntryList)-webkitGetEntries self-  = liftDOM ((self ^. js "webkitGetEntries") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> -webkitGetEntriesByType ::-                       (MonadDOM m, ToJSString entryType) =>-                         Performance -> entryType -> m (Maybe PerformanceEntryList)-webkitGetEntriesByType self entryType-  = liftDOM-      ((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> -webkitGetEntriesByName ::-                       (MonadDOM m, ToJSString name, ToJSString entryType) =>-                         Performance -> name -> entryType -> m (Maybe PerformanceEntryList)-webkitGetEntriesByName self name entryType-  = liftDOM-      ((self ^. jsf "webkitGetEntriesByName"-          [toJSVal name, toJSVal entryType])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearResourceTimings Mozilla Performance.webkitClearResourceTimings documentation> -webkitClearResourceTimings :: (MonadDOM m) => Performance -> m ()-webkitClearResourceTimings self-  = liftDOM (void (self ^. js "webkitClearResourceTimings"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitSetResourceTimingBufferSize Mozilla Performance.webkitSetResourceTimingBufferSize documentation> -webkitSetResourceTimingBufferSize ::-                                  (MonadDOM m) => Performance -> Word -> m ()-webkitSetResourceTimingBufferSize self maxSize-  = liftDOM-      (void-         (self ^. jsf "webkitSetResourceTimingBufferSize"-            [toJSVal maxSize]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMark Mozilla Performance.webkitMark documentation> -webkitMark ::-           (MonadDOM m, ToJSString markName) =>-             Performance -> markName -> m ()-webkitMark self markName-  = liftDOM (void (self ^. jsf "webkitMark" [toJSVal markName]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMarks Mozilla Performance.webkitClearMarks documentation> -webkitClearMarks ::-                 (MonadDOM m, ToJSString markName) =>-                   Performance -> markName -> m ()-webkitClearMarks self markName-  = liftDOM-      (void (self ^. jsf "webkitClearMarks" [toJSVal markName]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMeasure Mozilla Performance.webkitMeasure documentation> -webkitMeasure ::-              (MonadDOM m, ToJSString measureName, ToJSString startMark,-               ToJSString endMark) =>-                Performance -> measureName -> startMark -> endMark -> m ()-webkitMeasure self measureName startMark endMark-  = liftDOM-      (void-         (self ^. jsf "webkitMeasure"-            [toJSVal measureName, toJSVal startMark, toJSVal endMark]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMeasures Mozilla Performance.webkitClearMeasures documentation> -webkitClearMeasures ::-                    (MonadDOM m, ToJSString measureName) =>-                      Performance -> measureName -> m ()-webkitClearMeasures self measureName-  = liftDOM-      (void (self ^. jsf "webkitClearMeasures" [toJSVal measureName]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> -now :: (MonadDOM m) => Performance -> m Double-now self = liftDOM ((self ^. js "now") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> -getNavigation ::-              (MonadDOM m) => Performance -> m (Maybe PerformanceNavigation)-getNavigation self-  = liftDOM ((self ^. js "navigation") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation> -getTiming ::-          (MonadDOM m) => Performance -> m (Maybe PerformanceTiming)-getTiming self = liftDOM ((self ^. js "timing") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.onwebkitresourcetimingbufferfull Mozilla Performance.onwebkitresourcetimingbufferfull documentation> -webKitResourceTimingBufferFull :: EventName Performance Event-webKitResourceTimingBufferFull-  = unsafeEventName (toJSString "webkitresourcetimingbufferfull")
− src/Language/Javascript/JSaddle/DOM/Generated/PerformanceEntry.hs 
@@ -1,48 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PerformanceEntry-       (getName, getEntryType, getStartTime, getDuration,-        PerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry,-        IsPerformanceEntry, toPerformanceEntry)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.name Mozilla PerformanceEntry.name documentation> -getName ::-        (MonadDOM m, IsPerformanceEntry self, FromJSString result) =>-          self -> m result-getName self-  = liftDOM-      (((toPerformanceEntry self) ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.entryType Mozilla PerformanceEntry.entryType documentation> -getEntryType ::-             (MonadDOM m, IsPerformanceEntry self, FromJSString result) =>-               self -> m result-getEntryType self-  = liftDOM-      (((toPerformanceEntry self) ^. js "entryType") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.startTime Mozilla PerformanceEntry.startTime documentation> -getStartTime ::-             (MonadDOM m, IsPerformanceEntry self) => self -> m Double-getStartTime self-  = liftDOM-      (((toPerformanceEntry self) ^. js "startTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.duration Mozilla PerformanceEntry.duration documentation> -getDuration ::-            (MonadDOM m, IsPerformanceEntry self) => self -> m Double-getDuration self-  = liftDOM-      (((toPerformanceEntry self) ^. js "duration") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/PerformanceEntryList.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PerformanceEntryList-       (item, getLength, PerformanceEntryList, castToPerformanceEntryList,-        gTypePerformanceEntryList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> -item ::-     (MonadDOM m) =>-       PerformanceEntryList -> Word -> m (Maybe PerformanceEntry)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.length Mozilla PerformanceEntryList.length documentation> -getLength :: (MonadDOM m) => PerformanceEntryList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/PerformanceNavigation.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PerformanceNavigation-       (pattern TYPE_NAVIGATE, pattern TYPE_RELOAD,-        pattern TYPE_BACK_FORWARD, pattern TYPE_RESERVED, getType,-        getRedirectCount, PerformanceNavigation,-        castToPerformanceNavigation, gTypePerformanceNavigation)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern TYPE_NAVIGATE = 0-pattern TYPE_RELOAD = 1-pattern TYPE_BACK_FORWARD = 2-pattern TYPE_RESERVED = 255---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.type Mozilla PerformanceNavigation.type documentation> -getType :: (MonadDOM m) => PerformanceNavigation -> m Word-getType self-  = liftDOM (round <$> ((self ^. js "type") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.redirectCount Mozilla PerformanceNavigation.redirectCount documentation> -getRedirectCount :: (MonadDOM m) => PerformanceNavigation -> m Word-getRedirectCount self-  = liftDOM-      (round <$> ((self ^. js "redirectCount") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/PerformanceResourceTiming.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PerformanceResourceTiming-       (getInitiatorType, getRedirectStart, getRedirectEnd, getFetchStart,-        getDomainLookupStart, getDomainLookupEnd, getConnectStart,-        getConnectEnd, getSecureConnectionStart, getRequestStart,-        getResponseEnd, PerformanceResourceTiming,-        castToPerformanceResourceTiming, gTypePerformanceResourceTiming)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.initiatorType Mozilla PerformanceResourceTiming.initiatorType documentation> -getInitiatorType ::-                 (MonadDOM m, FromJSString result) =>-                   PerformanceResourceTiming -> m result-getInitiatorType self-  = liftDOM ((self ^. js "initiatorType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectStart Mozilla PerformanceResourceTiming.redirectStart documentation> -getRedirectStart ::-                 (MonadDOM m) => PerformanceResourceTiming -> m Double-getRedirectStart self-  = liftDOM ((self ^. js "redirectStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectEnd Mozilla PerformanceResourceTiming.redirectEnd documentation> -getRedirectEnd ::-               (MonadDOM m) => PerformanceResourceTiming -> m Double-getRedirectEnd self-  = liftDOM ((self ^. js "redirectEnd") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.fetchStart Mozilla PerformanceResourceTiming.fetchStart documentation> -getFetchStart ::-              (MonadDOM m) => PerformanceResourceTiming -> m Double-getFetchStart self-  = liftDOM ((self ^. js "fetchStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupStart Mozilla PerformanceResourceTiming.domainLookupStart documentation> -getDomainLookupStart ::-                     (MonadDOM m) => PerformanceResourceTiming -> m Double-getDomainLookupStart self-  = liftDOM ((self ^. js "domainLookupStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupEnd Mozilla PerformanceResourceTiming.domainLookupEnd documentation> -getDomainLookupEnd ::-                   (MonadDOM m) => PerformanceResourceTiming -> m Double-getDomainLookupEnd self-  = liftDOM ((self ^. js "domainLookupEnd") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectStart Mozilla PerformanceResourceTiming.connectStart documentation> -getConnectStart ::-                (MonadDOM m) => PerformanceResourceTiming -> m Double-getConnectStart self-  = liftDOM ((self ^. js "connectStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectEnd Mozilla PerformanceResourceTiming.connectEnd documentation> -getConnectEnd ::-              (MonadDOM m) => PerformanceResourceTiming -> m Double-getConnectEnd self-  = liftDOM ((self ^. js "connectEnd") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.secureConnectionStart Mozilla PerformanceResourceTiming.secureConnectionStart documentation> -getSecureConnectionStart ::-                         (MonadDOM m) => PerformanceResourceTiming -> m Double-getSecureConnectionStart self-  = liftDOM ((self ^. js "secureConnectionStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.requestStart Mozilla PerformanceResourceTiming.requestStart documentation> -getRequestStart ::-                (MonadDOM m) => PerformanceResourceTiming -> m Double-getRequestStart self-  = liftDOM ((self ^. js "requestStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.responseEnd Mozilla PerformanceResourceTiming.responseEnd documentation> -getResponseEnd ::-               (MonadDOM m) => PerformanceResourceTiming -> m Double-getResponseEnd self-  = liftDOM ((self ^. js "responseEnd") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/PerformanceTiming.hs 
@@ -1,146 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PerformanceTiming-       (getNavigationStart, getUnloadEventStart, getUnloadEventEnd,-        getRedirectStart, getRedirectEnd, getFetchStart,-        getDomainLookupStart, getDomainLookupEnd, getConnectStart,-        getConnectEnd, getSecureConnectionStart, getRequestStart,-        getResponseStart, getResponseEnd, getDomLoading, getDomInteractive,-        getDomContentLoadedEventStart, getDomContentLoadedEventEnd,-        getDomComplete, getLoadEventStart, getLoadEventEnd,-        PerformanceTiming, castToPerformanceTiming, gTypePerformanceTiming)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.navigationStart Mozilla PerformanceTiming.navigationStart documentation> -getNavigationStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getNavigationStart self-  = liftDOM-      (round <$> ((self ^. js "navigationStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventStart Mozilla PerformanceTiming.unloadEventStart documentation> -getUnloadEventStart ::-                    (MonadDOM m) => PerformanceTiming -> m Word64-getUnloadEventStart self-  = liftDOM-      (round <$> ((self ^. js "unloadEventStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventEnd Mozilla PerformanceTiming.unloadEventEnd documentation> -getUnloadEventEnd :: (MonadDOM m) => PerformanceTiming -> m Word64-getUnloadEventEnd self-  = liftDOM-      (round <$> ((self ^. js "unloadEventEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectStart Mozilla PerformanceTiming.redirectStart documentation> -getRedirectStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getRedirectStart self-  = liftDOM-      (round <$> ((self ^. js "redirectStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectEnd Mozilla PerformanceTiming.redirectEnd documentation> -getRedirectEnd :: (MonadDOM m) => PerformanceTiming -> m Word64-getRedirectEnd self-  = liftDOM (round <$> ((self ^. js "redirectEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.fetchStart Mozilla PerformanceTiming.fetchStart documentation> -getFetchStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getFetchStart self-  = liftDOM (round <$> ((self ^. js "fetchStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupStart Mozilla PerformanceTiming.domainLookupStart documentation> -getDomainLookupStart ::-                     (MonadDOM m) => PerformanceTiming -> m Word64-getDomainLookupStart self-  = liftDOM-      (round <$> ((self ^. js "domainLookupStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupEnd Mozilla PerformanceTiming.domainLookupEnd documentation> -getDomainLookupEnd :: (MonadDOM m) => PerformanceTiming -> m Word64-getDomainLookupEnd self-  = liftDOM-      (round <$> ((self ^. js "domainLookupEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectStart Mozilla PerformanceTiming.connectStart documentation> -getConnectStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getConnectStart self-  = liftDOM (round <$> ((self ^. js "connectStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectEnd Mozilla PerformanceTiming.connectEnd documentation> -getConnectEnd :: (MonadDOM m) => PerformanceTiming -> m Word64-getConnectEnd self-  = liftDOM (round <$> ((self ^. js "connectEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.secureConnectionStart Mozilla PerformanceTiming.secureConnectionStart documentation> -getSecureConnectionStart ::-                         (MonadDOM m) => PerformanceTiming -> m Word64-getSecureConnectionStart self-  = liftDOM-      (round <$> ((self ^. js "secureConnectionStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.requestStart Mozilla PerformanceTiming.requestStart documentation> -getRequestStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getRequestStart self-  = liftDOM (round <$> ((self ^. js "requestStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseStart Mozilla PerformanceTiming.responseStart documentation> -getResponseStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getResponseStart self-  = liftDOM-      (round <$> ((self ^. js "responseStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseEnd Mozilla PerformanceTiming.responseEnd documentation> -getResponseEnd :: (MonadDOM m) => PerformanceTiming -> m Word64-getResponseEnd self-  = liftDOM (round <$> ((self ^. js "responseEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domLoading Mozilla PerformanceTiming.domLoading documentation> -getDomLoading :: (MonadDOM m) => PerformanceTiming -> m Word64-getDomLoading self-  = liftDOM (round <$> ((self ^. js "domLoading") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domInteractive Mozilla PerformanceTiming.domInteractive documentation> -getDomInteractive :: (MonadDOM m) => PerformanceTiming -> m Word64-getDomInteractive self-  = liftDOM-      (round <$> ((self ^. js "domInteractive") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventStart Mozilla PerformanceTiming.domContentLoadedEventStart documentation> -getDomContentLoadedEventStart ::-                              (MonadDOM m) => PerformanceTiming -> m Word64-getDomContentLoadedEventStart self-  = liftDOM-      (round <$>-         ((self ^. js "domContentLoadedEventStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventEnd Mozilla PerformanceTiming.domContentLoadedEventEnd documentation> -getDomContentLoadedEventEnd ::-                            (MonadDOM m) => PerformanceTiming -> m Word64-getDomContentLoadedEventEnd self-  = liftDOM-      (round <$>-         ((self ^. js "domContentLoadedEventEnd") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domComplete Mozilla PerformanceTiming.domComplete documentation> -getDomComplete :: (MonadDOM m) => PerformanceTiming -> m Word64-getDomComplete self-  = liftDOM (round <$> ((self ^. js "domComplete") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventStart Mozilla PerformanceTiming.loadEventStart documentation> -getLoadEventStart :: (MonadDOM m) => PerformanceTiming -> m Word64-getLoadEventStart self-  = liftDOM-      (round <$> ((self ^. js "loadEventStart") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventEnd Mozilla PerformanceTiming.loadEventEnd documentation> -getLoadEventEnd :: (MonadDOM m) => PerformanceTiming -> m Word64-getLoadEventEnd self-  = liftDOM (round <$> ((self ^. js "loadEventEnd") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Plugin.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Plugin-       (item, namedItem, getName, getFilename, getDescription, getLength,-        Plugin, castToPlugin, gTypePlugin)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation> -item :: (MonadDOM m) => Plugin -> Word -> m (Maybe MimeType)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            Plugin -> name -> m (Maybe MimeType)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.name Mozilla Plugin.name documentation> -getName :: (MonadDOM m, FromJSString result) => Plugin -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.filename Mozilla Plugin.filename documentation> -getFilename ::-            (MonadDOM m, FromJSString result) => Plugin -> m result-getFilename self-  = liftDOM ((self ^. js "filename") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.description Mozilla Plugin.description documentation> -getDescription ::-               (MonadDOM m, FromJSString result) => Plugin -> m result-getDescription self-  = liftDOM ((self ^. js "description") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.length Mozilla Plugin.length documentation> -getLength :: (MonadDOM m) => Plugin -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/PluginArray.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PluginArray-       (item, namedItem, refresh, getLength, PluginArray,-        castToPluginArray, gTypePluginArray)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation> -item :: (MonadDOM m) => PluginArray -> Word -> m (Maybe Plugin)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            PluginArray -> name -> m (Maybe Plugin)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.refresh Mozilla PluginArray.refresh documentation> -refresh :: (MonadDOM m) => PluginArray -> Bool -> m ()-refresh self reload-  = liftDOM (void (self ^. jsf "refresh" [toJSVal reload]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.length Mozilla PluginArray.length documentation> -getLength :: (MonadDOM m) => PluginArray -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/PopStateEvent.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PopStateEvent-       (getState, PopStateEvent, castToPopStateEvent, gTypePopStateEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent.state Mozilla PopStateEvent.state documentation> -getState :: (MonadDOM m) => PopStateEvent -> m JSVal-getState self = liftDOM ((self ^. js "state") >>= toJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/PositionCallback.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PositionCallback-       (newPositionCallback, newPositionCallbackSync,-        newPositionCallbackAsync, PositionCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> -newPositionCallback ::-                    (MonadDOM m) => (Maybe Geoposition -> JSM ()) -> m PositionCallback-newPositionCallback callback-  = liftDOM-      (PositionCallback . Callback <$>-         function ""-           (\ _ _ [position] ->-              fromJSVal position >>= \ position' -> callback position'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> -newPositionCallbackSync ::-                        (MonadDOM m) => (Maybe Geoposition -> JSM ()) -> m PositionCallback-newPositionCallbackSync callback-  = liftDOM-      (PositionCallback . Callback <$>-         function ""-           (\ _ _ [position] ->-              fromJSVal position >>= \ position' -> callback position'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation> -newPositionCallbackAsync ::-                         (MonadDOM m) => (Maybe Geoposition -> JSM ()) -> m PositionCallback-newPositionCallbackAsync callback-  = liftDOM-      (PositionCallback . Callback <$>-         function ""-           (\ _ _ [position] ->-              fromJSVal position >>= \ position' -> callback position'))
− src/Language/Javascript/JSaddle/DOM/Generated/PositionError.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PositionError-       (pattern PERMISSION_DENIED, pattern POSITION_UNAVAILABLE,-        pattern TIMEOUT, getCode, getMessage, PositionError,-        castToPositionError, gTypePositionError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern PERMISSION_DENIED = 1-pattern POSITION_UNAVAILABLE = 2-pattern TIMEOUT = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.code Mozilla PositionError.code documentation> -getCode :: (MonadDOM m) => PositionError -> m Word-getCode self-  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.message Mozilla PositionError.message documentation> -getMessage ::-           (MonadDOM m, FromJSString result) => PositionError -> m result-getMessage self-  = liftDOM ((self ^. js "message") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/PositionErrorCallback.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.PositionErrorCallback-       (newPositionErrorCallback, newPositionErrorCallbackSync,-        newPositionErrorCallbackAsync, PositionErrorCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> -newPositionErrorCallback ::-                         (MonadDOM m) =>-                           (Maybe PositionError -> JSM ()) -> m PositionErrorCallback-newPositionErrorCallback callback-  = liftDOM-      (PositionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> -newPositionErrorCallbackSync ::-                             (MonadDOM m) =>-                               (Maybe PositionError -> JSM ()) -> m PositionErrorCallback-newPositionErrorCallbackSync callback-  = liftDOM-      (PositionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation> -newPositionErrorCallbackAsync ::-                              (MonadDOM m) =>-                                (Maybe PositionError -> JSM ()) -> m PositionErrorCallback-newPositionErrorCallbackAsync callback-  = liftDOM-      (PositionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
− src/Language/Javascript/JSaddle/DOM/Generated/ProcessingInstruction.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ProcessingInstruction-       (getTarget, getSheet, ProcessingInstruction,-        castToProcessingInstruction, gTypeProcessingInstruction)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation> -getTarget ::-          (MonadDOM m, FromJSString result) =>-            ProcessingInstruction -> m (Maybe result)-getTarget self-  = liftDOM ((self ^. js "target") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> -getSheet ::-         (MonadDOM m) => ProcessingInstruction -> m (Maybe StyleSheet)-getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/ProgressEvent.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ProgressEvent-       (getLengthComputable, getLoaded, getTotal, ProgressEvent,-        castToProgressEvent, gTypeProgressEvent, IsProgressEvent,-        toProgressEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.lengthComputable Mozilla ProgressEvent.lengthComputable documentation> -getLengthComputable ::-                    (MonadDOM m, IsProgressEvent self) => self -> m Bool-getLengthComputable self-  = liftDOM-      (((toProgressEvent self) ^. js "lengthComputable") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.loaded Mozilla ProgressEvent.loaded documentation> -getLoaded :: (MonadDOM m, IsProgressEvent self) => self -> m Word64-getLoaded self-  = liftDOM-      (round <$>-         (((toProgressEvent self) ^. js "loaded") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.total Mozilla ProgressEvent.total documentation> -getTotal :: (MonadDOM m, IsProgressEvent self) => self -> m Word64-getTotal self-  = liftDOM-      (round <$>-         (((toProgressEvent self) ^. js "total") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/QuickTimePluginReplacement.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.QuickTimePluginReplacement-       (postEvent, getMovieSize, getTimedMetaData, getAccessLog,-        getErrorLog, QuickTimePluginReplacement,-        castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.postEvent Mozilla QuickTimePluginReplacement.postEvent documentation> -postEvent ::-          (MonadDOM m, ToJSString eventName) =>-            QuickTimePluginReplacement -> eventName -> m ()-postEvent self eventName-  = liftDOM (void (self ^. jsf "postEvent" [toJSVal eventName]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.movieSize Mozilla QuickTimePluginReplacement.movieSize documentation> -getMovieSize ::-             (MonadDOM m) => QuickTimePluginReplacement -> m Word64-getMovieSize self-  = liftDOM (round <$> ((self ^. js "movieSize") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.timedMetaData Mozilla QuickTimePluginReplacement.timedMetaData documentation> -getTimedMetaData ::-                 (MonadDOM m) => QuickTimePluginReplacement -> m JSVal-getTimedMetaData self-  = liftDOM ((self ^. js "timedMetaData") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.accessLog Mozilla QuickTimePluginReplacement.accessLog documentation> -getAccessLog ::-             (MonadDOM m) => QuickTimePluginReplacement -> m JSVal-getAccessLog self = liftDOM ((self ^. js "accessLog") >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.errorLog Mozilla QuickTimePluginReplacement.errorLog documentation> -getErrorLog ::-            (MonadDOM m) => QuickTimePluginReplacement -> m JSVal-getErrorLog self = liftDOM ((self ^. js "errorLog") >>= toJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RGBColor.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RGBColor-       (getRed, getGreen, getBlue, RGBColor, castToRGBColor,-        gTypeRGBColor)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> -getRed :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)-getRed self = liftDOM ((self ^. js "red") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> -getGreen :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)-getGreen self = liftDOM ((self ^. js "green") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> -getBlue :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)-getBlue self = liftDOM ((self ^. js "blue") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCConfiguration.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCConfiguration-       (getIceServers, getIceTransports, getRequestIdentity,-        RTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceServers Mozilla RTCConfiguration.iceServers documentation> -getIceServers ::-              (MonadDOM m) => RTCConfiguration -> m [Maybe RTCIceServer]-getIceServers self-  = liftDOM ((self ^. js "iceServers") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceTransports Mozilla RTCConfiguration.iceTransports documentation> -getIceTransports ::-                 (MonadDOM m) => RTCConfiguration -> m RTCIceTransportsEnum-getIceTransports self-  = liftDOM ((self ^. js "iceTransports") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.requestIdentity Mozilla RTCConfiguration.requestIdentity documentation> -getRequestIdentity ::-                   (MonadDOM m) => RTCConfiguration -> m RTCIdentityOptionEnum-getRequestIdentity self-  = liftDOM ((self ^. js "requestIdentity") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCDTMFSender.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCDTMFSender-       (insertDTMF, getCanInsertDTMF, getTrack, getToneBuffer,-        getDuration, getInterToneGap, toneChange, RTCDTMFSender,-        castToRTCDTMFSender, gTypeRTCDTMFSender)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.insertDTMF Mozilla RTCDTMFSender.insertDTMF documentation> -insertDTMF ::-           (MonadDOM m, ToJSString tones) =>-             RTCDTMFSender -> tones -> Int -> Int -> m ()-insertDTMF self tones duration interToneGap-  = liftDOM-      (void-         (self ^. jsf "insertDTMF"-            [toJSVal tones, toJSVal duration, toJSVal interToneGap]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.canInsertDTMF Mozilla RTCDTMFSender.canInsertDTMF documentation> -getCanInsertDTMF :: (MonadDOM m) => RTCDTMFSender -> m Bool-getCanInsertDTMF self-  = liftDOM ((self ^. js "canInsertDTMF") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> -getTrack ::-         (MonadDOM m) => RTCDTMFSender -> m (Maybe MediaStreamTrack)-getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.toneBuffer Mozilla RTCDTMFSender.toneBuffer documentation> -getToneBuffer ::-              (MonadDOM m, FromJSString result) => RTCDTMFSender -> m result-getToneBuffer self-  = liftDOM ((self ^. js "toneBuffer") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.duration Mozilla RTCDTMFSender.duration documentation> -getDuration :: (MonadDOM m) => RTCDTMFSender -> m Int-getDuration self-  = liftDOM (round <$> ((self ^. js "duration") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.interToneGap Mozilla RTCDTMFSender.interToneGap documentation> -getInterToneGap :: (MonadDOM m) => RTCDTMFSender -> m Int-getInterToneGap self-  = liftDOM (round <$> ((self ^. js "interToneGap") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.ontonechange Mozilla RTCDTMFSender.ontonechange documentation> -toneChange :: EventName RTCDTMFSender Event-toneChange = unsafeEventName (toJSString "tonechange")
− src/Language/Javascript/JSaddle/DOM/Generated/RTCDTMFToneChangeEvent.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCDTMFToneChangeEvent-       (getTone, RTCDTMFToneChangeEvent, castToRTCDTMFToneChangeEvent,-        gTypeRTCDTMFToneChangeEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent.tone Mozilla RTCDTMFToneChangeEvent.tone documentation> -getTone ::-        (MonadDOM m, FromJSString result) =>-          RTCDTMFToneChangeEvent -> m result-getTone self = liftDOM ((self ^. js "tone") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCDataChannel.hs 
@@ -1,127 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCDataChannel-       (send, sendView, sendBlob, sendString, close, getLabel, getOrdered,-        getMaxRetransmitTime, getMaxRetransmits, getProtocol,-        getNegotiated, getId, getReadyState, getBufferedAmount,-        setBinaryType, getBinaryType, open, error, closeEvent, message,-        RTCDataChannel, castToRTCDataChannel, gTypeRTCDataChannel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> -send ::-     (MonadDOM m, IsArrayBuffer data') =>-       RTCDataChannel -> Maybe data' -> m ()-send self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> -sendView ::-         (MonadDOM m, IsArrayBufferView data') =>-           RTCDataChannel -> Maybe data' -> m ()-sendView self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> -sendBlob ::-         (MonadDOM m, IsBlob data') => RTCDataChannel -> Maybe data' -> m ()-sendBlob self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation> -sendString ::-           (MonadDOM m, ToJSString data') => RTCDataChannel -> data' -> m ()-sendString self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.close Mozilla RTCDataChannel.close documentation> -close :: (MonadDOM m) => RTCDataChannel -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.label Mozilla RTCDataChannel.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => RTCDataChannel -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.ordered Mozilla RTCDataChannel.ordered documentation> -getOrdered :: (MonadDOM m) => RTCDataChannel -> m Bool-getOrdered self = liftDOM ((self ^. js "ordered") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmitTime Mozilla RTCDataChannel.maxRetransmitTime documentation> -getMaxRetransmitTime :: (MonadDOM m) => RTCDataChannel -> m Word-getMaxRetransmitTime self-  = liftDOM-      (round <$> ((self ^. js "maxRetransmitTime") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmits Mozilla RTCDataChannel.maxRetransmits documentation> -getMaxRetransmits :: (MonadDOM m) => RTCDataChannel -> m Word-getMaxRetransmits self-  = liftDOM-      (round <$> ((self ^. js "maxRetransmits") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.protocol Mozilla RTCDataChannel.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) => RTCDataChannel -> m result-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.negotiated Mozilla RTCDataChannel.negotiated documentation> -getNegotiated :: (MonadDOM m) => RTCDataChannel -> m Bool-getNegotiated self-  = liftDOM ((self ^. js "negotiated") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.id Mozilla RTCDataChannel.id documentation> -getId :: (MonadDOM m) => RTCDataChannel -> m Word-getId self-  = liftDOM (round <$> ((self ^. js "id") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.readyState Mozilla RTCDataChannel.readyState documentation> -getReadyState ::-              (MonadDOM m, FromJSString result) => RTCDataChannel -> m result-getReadyState self-  = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.bufferedAmount Mozilla RTCDataChannel.bufferedAmount documentation> -getBufferedAmount :: (MonadDOM m) => RTCDataChannel -> m Word-getBufferedAmount self-  = liftDOM-      (round <$> ((self ^. js "bufferedAmount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation> -setBinaryType ::-              (MonadDOM m, ToJSString val) => RTCDataChannel -> val -> m ()-setBinaryType self val-  = liftDOM (self ^. jss "binaryType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation> -getBinaryType ::-              (MonadDOM m, FromJSString result) => RTCDataChannel -> m result-getBinaryType self-  = liftDOM ((self ^. js "binaryType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onopen Mozilla RTCDataChannel.onopen documentation> -open :: EventName RTCDataChannel Event-open = unsafeEventName (toJSString "open")---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onerror Mozilla RTCDataChannel.onerror documentation> -error :: EventName RTCDataChannel UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onclose Mozilla RTCDataChannel.onclose documentation> -closeEvent :: EventName RTCDataChannel Event-closeEvent = unsafeEventName (toJSString "close")---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onmessage Mozilla RTCDataChannel.onmessage documentation> -message :: EventName RTCDataChannel MessageEvent-message = unsafeEventName (toJSString "message")
− src/Language/Javascript/JSaddle/DOM/Generated/RTCDataChannelEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCDataChannelEvent-       (getChannel, RTCDataChannelEvent, castToRTCDataChannelEvent,-        gTypeRTCDataChannelEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> -getChannel ::-           (MonadDOM m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel)-getChannel self = liftDOM ((self ^. js "channel") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCIceCandidate.hs 
@@ -1,43 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCIceCandidate-       (newRTCIceCandidate, getCandidate, getSdpMid, getSdpMLineIndex,-        RTCIceCandidate, castToRTCIceCandidate, gTypeRTCIceCandidate)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate Mozilla RTCIceCandidate documentation> -newRTCIceCandidate ::-                   (MonadDOM m, IsDictionary dictionary) =>-                     Maybe dictionary -> m RTCIceCandidate-newRTCIceCandidate dictionary-  = liftDOM-      (RTCIceCandidate <$>-         new (jsg "RTCIceCandidate") [toJSVal dictionary])---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.candidate Mozilla RTCIceCandidate.candidate documentation> -getCandidate ::-             (MonadDOM m, FromJSString result) => RTCIceCandidate -> m result-getCandidate self-  = liftDOM ((self ^. js "candidate") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMid Mozilla RTCIceCandidate.sdpMid documentation> -getSdpMid ::-          (MonadDOM m, FromJSString result) => RTCIceCandidate -> m result-getSdpMid self-  = liftDOM ((self ^. js "sdpMid") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMLineIndex Mozilla RTCIceCandidate.sdpMLineIndex documentation> -getSdpMLineIndex :: (MonadDOM m) => RTCIceCandidate -> m Word-getSdpMLineIndex self-  = liftDOM-      (round <$> ((self ^. js "sdpMLineIndex") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/RTCIceCandidateEvent.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCIceCandidateEvent-       (getCandidate, RTCIceCandidateEvent, castToRTCIceCandidateEvent,-        gTypeRTCIceCandidateEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> -getCandidate ::-             (MonadDOM m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate)-getCandidate self-  = liftDOM ((self ^. js "candidate") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCIceServer.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCIceServer-       (getUrls, getUsername, getCredential, RTCIceServer,-        castToRTCIceServer, gTypeRTCIceServer)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.urls Mozilla RTCIceServer.urls documentation> -getUrls ::-        (MonadDOM m, FromJSString result) => RTCIceServer -> m [result]-getUrls self-  = liftDOM ((self ^. js "urls") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.username Mozilla RTCIceServer.username documentation> -getUsername ::-            (MonadDOM m, FromJSString result) => RTCIceServer -> m result-getUsername self-  = liftDOM ((self ^. js "username") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.credential Mozilla RTCIceServer.credential documentation> -getCredential ::-              (MonadDOM m, FromJSString result) => RTCIceServer -> m result-getCredential self-  = liftDOM ((self ^. js "credential") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCPeerConnection.hs 
@@ -1,244 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnection-       (newRTCPeerConnection, createOffer, createAnswer,-        setLocalDescription, setRemoteDescription, updateIce,-        addIceCandidate, getLocalStreams, getRemoteStreams, getStreamById,-        getConfiguration, addStream, removeStream, getStats,-        createDataChannel, createDTMFSender, close, getLocalDescription,-        getRemoteDescription, getSignalingState, getIceGatheringState,-        getIceConnectionState, negotiationNeeded, iceCandidate,-        signalingStateChange, addStreamEvent, removeStreamEvent,-        iceConnectionStateChange, dataChannel, RTCPeerConnection,-        castToRTCPeerConnection, gTypeRTCPeerConnection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection Mozilla webkitRTCPeerConnection documentation> -newRTCPeerConnection ::-                     (MonadDOM m, IsDictionary rtcConfiguration) =>-                       Maybe rtcConfiguration -> m RTCPeerConnection-newRTCPeerConnection rtcConfiguration-  = liftDOM-      (RTCPeerConnection <$>-         new (jsg "RTCPeerConnection") [toJSVal rtcConfiguration])---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createOffer Mozilla webkitRTCPeerConnection.createOffer documentation> -createOffer ::-            (MonadDOM m, IsDictionary offerOptions) =>-              RTCPeerConnection ->-                Maybe RTCSessionDescriptionCallback ->-                  Maybe RTCPeerConnectionErrorCallback -> Maybe offerOptions -> m ()-createOffer self successCallback failureCallback offerOptions-  = liftDOM-      (void-         (self ^. jsf "createOffer"-            [toJSVal successCallback, toJSVal failureCallback,-             toJSVal offerOptions]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation> -createAnswer ::-             (MonadDOM m, IsDictionary answerOptions) =>-               RTCPeerConnection ->-                 Maybe RTCSessionDescriptionCallback ->-                   Maybe RTCPeerConnectionErrorCallback -> Maybe answerOptions -> m ()-createAnswer self successCallback failureCallback answerOptions-  = liftDOM-      (void-         (self ^. jsf "createAnswer"-            [toJSVal successCallback, toJSVal failureCallback,-             toJSVal answerOptions]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation> -setLocalDescription ::-                    (MonadDOM m) =>-                      RTCPeerConnection ->-                        Maybe RTCSessionDescription ->-                          Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()-setLocalDescription self description successCallback-  failureCallback-  = liftDOM-      (void-         (self ^. jsf "setLocalDescription"-            [toJSVal description, toJSVal successCallback,-             toJSVal failureCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation> -setRemoteDescription ::-                     (MonadDOM m) =>-                       RTCPeerConnection ->-                         Maybe RTCSessionDescription ->-                           Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()-setRemoteDescription self description successCallback-  failureCallback-  = liftDOM-      (void-         (self ^. jsf "setRemoteDescription"-            [toJSVal description, toJSVal successCallback,-             toJSVal failureCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.updateIce Mozilla webkitRTCPeerConnection.updateIce documentation> -updateIce ::-          (MonadDOM m, IsDictionary configuration) =>-            RTCPeerConnection -> Maybe configuration -> m ()-updateIce self configuration-  = liftDOM (void (self ^. jsf "updateIce" [toJSVal configuration]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation> -addIceCandidate ::-                (MonadDOM m) =>-                  RTCPeerConnection ->-                    Maybe RTCIceCandidate ->-                      Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m ()-addIceCandidate self candidate successCallback failureCallback-  = liftDOM-      (void-         (self ^. jsf "addIceCandidate"-            [toJSVal candidate, toJSVal successCallback,-             toJSVal failureCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getLocalStreams Mozilla webkitRTCPeerConnection.getLocalStreams documentation> -getLocalStreams ::-                (MonadDOM m) => RTCPeerConnection -> m [Maybe MediaStream]-getLocalStreams self-  = liftDOM ((self ^. js "getLocalStreams") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getRemoteStreams Mozilla webkitRTCPeerConnection.getRemoteStreams documentation> -getRemoteStreams ::-                 (MonadDOM m) => RTCPeerConnection -> m [Maybe MediaStream]-getRemoteStreams self-  = liftDOM ((self ^. js "getRemoteStreams") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> -getStreamById ::-              (MonadDOM m, ToJSString streamId) =>-                RTCPeerConnection -> streamId -> m (Maybe MediaStream)-getStreamById self streamId-  = liftDOM-      ((self ^. jsf "getStreamById" [toJSVal streamId]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> -getConfiguration ::-                 (MonadDOM m) => RTCPeerConnection -> m (Maybe RTCConfiguration)-getConfiguration self-  = liftDOM ((self ^. js "getConfiguration") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addStream Mozilla webkitRTCPeerConnection.addStream documentation> -addStream ::-          (MonadDOM m) => RTCPeerConnection -> Maybe MediaStream -> m ()-addStream self stream-  = liftDOM (void (self ^. jsf "addStream" [toJSVal stream]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.removeStream Mozilla webkitRTCPeerConnection.removeStream documentation> -removeStream ::-             (MonadDOM m) => RTCPeerConnection -> Maybe MediaStream -> m ()-removeStream self stream-  = liftDOM (void (self ^. jsf "removeStream" [toJSVal stream]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStats Mozilla webkitRTCPeerConnection.getStats documentation> -getStats ::-         (MonadDOM m, IsMediaStreamTrack selector) =>-           RTCPeerConnection ->-             Maybe RTCStatsCallback ->-               Maybe RTCPeerConnectionErrorCallback -> Maybe selector -> m ()-getStats self successCallback failureCallback selector-  = liftDOM-      (void-         (self ^. jsf "getStats"-            [toJSVal successCallback, toJSVal failureCallback,-             toJSVal selector]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> -createDataChannel ::-                  (MonadDOM m, ToJSString label, IsDictionary options) =>-                    RTCPeerConnection ->-                      Maybe label -> Maybe options -> m (Maybe RTCDataChannel)-createDataChannel self label options-  = liftDOM-      ((self ^. jsf "createDataChannel" [toJSVal label, toJSVal options])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> -createDTMFSender ::-                 (MonadDOM m, IsMediaStreamTrack track) =>-                   RTCPeerConnection -> Maybe track -> m (Maybe RTCDTMFSender)-createDTMFSender self track-  = liftDOM-      ((self ^. jsf "createDTMFSender" [toJSVal track]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.close Mozilla webkitRTCPeerConnection.close documentation> -close :: (MonadDOM m) => RTCPeerConnection -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> -getLocalDescription ::-                    (MonadDOM m) =>-                      RTCPeerConnection -> m (Maybe RTCSessionDescription)-getLocalDescription self-  = liftDOM ((self ^. js "localDescription") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> -getRemoteDescription ::-                     (MonadDOM m) =>-                       RTCPeerConnection -> m (Maybe RTCSessionDescription)-getRemoteDescription self-  = liftDOM ((self ^. js "remoteDescription") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.signalingState Mozilla webkitRTCPeerConnection.signalingState documentation> -getSignalingState ::-                  (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result-getSignalingState self-  = liftDOM ((self ^. js "signalingState") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceGatheringState Mozilla webkitRTCPeerConnection.iceGatheringState documentation> -getIceGatheringState ::-                     (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result-getIceGatheringState self-  = liftDOM ((self ^. js "iceGatheringState") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceConnectionState Mozilla webkitRTCPeerConnection.iceConnectionState documentation> -getIceConnectionState ::-                      (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result-getIceConnectionState self-  = liftDOM-      ((self ^. js "iceConnectionState") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onnegotiationneeded Mozilla webkitRTCPeerConnection.onnegotiationneeded documentation> -negotiationNeeded :: EventName RTCPeerConnection Event-negotiationNeeded-  = unsafeEventName (toJSString "negotiationneeded")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onicecandidate Mozilla webkitRTCPeerConnection.onicecandidate documentation> -iceCandidate :: EventName RTCPeerConnection RTCIceCandidateEvent-iceCandidate = unsafeEventName (toJSString "icecandidate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onsignalingstatechange Mozilla webkitRTCPeerConnection.onsignalingstatechange documentation> -signalingStateChange :: EventName RTCPeerConnection Event-signalingStateChange-  = unsafeEventName (toJSString "signalingstatechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onaddstream Mozilla webkitRTCPeerConnection.onaddstream documentation> -addStreamEvent :: EventName RTCPeerConnection Event-addStreamEvent = unsafeEventName (toJSString "addstream")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onremovestream Mozilla webkitRTCPeerConnection.onremovestream documentation> -removeStreamEvent :: EventName RTCPeerConnection Event-removeStreamEvent = unsafeEventName (toJSString "removestream")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.oniceconnectionstatechange Mozilla webkitRTCPeerConnection.oniceconnectionstatechange documentation> -iceConnectionStateChange :: EventName RTCPeerConnection Event-iceConnectionStateChange-  = unsafeEventName (toJSString "iceconnectionstatechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.ondatachannel Mozilla webkitRTCPeerConnection.ondatachannel documentation> -dataChannel :: EventName RTCPeerConnection Event-dataChannel = unsafeEventName (toJSString "datachannel")
− src/Language/Javascript/JSaddle/DOM/Generated/RTCPeerConnectionErrorCallback.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCPeerConnectionErrorCallback-       (newRTCPeerConnectionErrorCallback,-        newRTCPeerConnectionErrorCallbackSync,-        newRTCPeerConnectionErrorCallbackAsync,-        RTCPeerConnectionErrorCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> -newRTCPeerConnectionErrorCallback ::-                                  (MonadDOM m) =>-                                    (Maybe DOMError -> JSM ()) -> m RTCPeerConnectionErrorCallback-newRTCPeerConnectionErrorCallback callback-  = liftDOM-      (RTCPeerConnectionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> -newRTCPeerConnectionErrorCallbackSync ::-                                      (MonadDOM m) =>-                                        (Maybe DOMError -> JSM ()) ->-                                          m RTCPeerConnectionErrorCallback-newRTCPeerConnectionErrorCallbackSync callback-  = liftDOM-      (RTCPeerConnectionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation> -newRTCPeerConnectionErrorCallbackAsync ::-                                       (MonadDOM m) =>-                                         (Maybe DOMError -> JSM ()) ->-                                           m RTCPeerConnectionErrorCallback-newRTCPeerConnectionErrorCallbackAsync callback-  = liftDOM-      (RTCPeerConnectionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
− src/Language/Javascript/JSaddle/DOM/Generated/RTCSessionDescription.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescription-       (newRTCSessionDescription, setType, getType, setSdp, getSdp,-        RTCSessionDescription, castToRTCSessionDescription,-        gTypeRTCSessionDescription)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription Mozilla RTCSessionDescription documentation> -newRTCSessionDescription ::-                         (MonadDOM m, IsDictionary dictionary) =>-                           Maybe dictionary -> m RTCSessionDescription-newRTCSessionDescription dictionary-  = liftDOM-      (RTCSessionDescription <$>-         new (jsg "RTCSessionDescription") [toJSVal dictionary])---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation> -setType ::-        (MonadDOM m, ToJSString val) =>-          RTCSessionDescription -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation> -getType ::-        (MonadDOM m, FromJSString result) =>-          RTCSessionDescription -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation> -setSdp ::-       (MonadDOM m, ToJSString val) =>-         RTCSessionDescription -> val -> m ()-setSdp self val = liftDOM (self ^. jss "sdp" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation> -getSdp ::-       (MonadDOM m, FromJSString result) =>-         RTCSessionDescription -> m result-getSdp self = liftDOM ((self ^. js "sdp") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCSessionDescriptionCallback.hs 
@@ -1,51 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCSessionDescriptionCallback-       (newRTCSessionDescriptionCallback,-        newRTCSessionDescriptionCallbackSync,-        newRTCSessionDescriptionCallbackAsync,-        RTCSessionDescriptionCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> -newRTCSessionDescriptionCallback ::-                                 (MonadDOM m) =>-                                   (Maybe RTCSessionDescription -> JSM ()) ->-                                     m RTCSessionDescriptionCallback-newRTCSessionDescriptionCallback callback-  = liftDOM-      (RTCSessionDescriptionCallback . Callback <$>-         function ""-           (\ _ _ [sdp] -> fromJSVal sdp >>= \ sdp' -> callback sdp'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> -newRTCSessionDescriptionCallbackSync ::-                                     (MonadDOM m) =>-                                       (Maybe RTCSessionDescription -> JSM ()) ->-                                         m RTCSessionDescriptionCallback-newRTCSessionDescriptionCallbackSync callback-  = liftDOM-      (RTCSessionDescriptionCallback . Callback <$>-         function ""-           (\ _ _ [sdp] -> fromJSVal sdp >>= \ sdp' -> callback sdp'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation> -newRTCSessionDescriptionCallbackAsync ::-                                      (MonadDOM m) =>-                                        (Maybe RTCSessionDescription -> JSM ()) ->-                                          m RTCSessionDescriptionCallback-newRTCSessionDescriptionCallbackAsync callback-  = liftDOM-      (RTCSessionDescriptionCallback . Callback <$>-         function ""-           (\ _ _ [sdp] -> fromJSVal sdp >>= \ sdp' -> callback sdp'))
− src/Language/Javascript/JSaddle/DOM/Generated/RTCStatsCallback.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCStatsCallback-       (newRTCStatsCallback, newRTCStatsCallbackSync,-        newRTCStatsCallbackAsync, RTCStatsCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> -newRTCStatsCallback ::-                    (MonadDOM m) =>-                      (Maybe RTCStatsResponse -> JSM ()) -> m RTCStatsCallback-newRTCStatsCallback callback-  = liftDOM-      (RTCStatsCallback . Callback <$>-         function ""-           (\ _ _ [response] ->-              fromJSVal response >>= \ response' -> callback response'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> -newRTCStatsCallbackSync ::-                        (MonadDOM m) =>-                          (Maybe RTCStatsResponse -> JSM ()) -> m RTCStatsCallback-newRTCStatsCallbackSync callback-  = liftDOM-      (RTCStatsCallback . Callback <$>-         function ""-           (\ _ _ [response] ->-              fromJSVal response >>= \ response' -> callback response'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation> -newRTCStatsCallbackAsync ::-                         (MonadDOM m) =>-                           (Maybe RTCStatsResponse -> JSM ()) -> m RTCStatsCallback-newRTCStatsCallbackAsync callback-  = liftDOM-      (RTCStatsCallback . Callback <$>-         function ""-           (\ _ _ [response] ->-              fromJSVal response >>= \ response' -> callback response'))
− src/Language/Javascript/JSaddle/DOM/Generated/RTCStatsReport.hs 
@@ -1,55 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCStatsReport-       (stat, names, getTimestamp, getId, getType, getLocal, getRemote,-        RTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.stat Mozilla RTCStatsReport.stat documentation> -stat ::-     (MonadDOM m, ToJSString name, FromJSString result) =>-       RTCStatsReport -> name -> m result-stat self name-  = liftDOM-      ((self ^. jsf "stat" [toJSVal name]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.names Mozilla RTCStatsReport.names documentation> -names ::-      (MonadDOM m, FromJSString result) => RTCStatsReport -> m [result]-names self-  = liftDOM ((self ^. js "names") >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> -getTimestamp :: (MonadDOM m) => RTCStatsReport -> m (Maybe Date)-getTimestamp self-  = liftDOM ((self ^. js "timestamp") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.id Mozilla RTCStatsReport.id documentation> -getId ::-      (MonadDOM m, FromJSString result) => RTCStatsReport -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.type Mozilla RTCStatsReport.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => RTCStatsReport -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> -getLocal ::-         (MonadDOM m) => RTCStatsReport -> m (Maybe RTCStatsReport)-getLocal self = liftDOM ((self ^. js "local") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> -getRemote ::-          (MonadDOM m) => RTCStatsReport -> m (Maybe RTCStatsReport)-getRemote self = liftDOM ((self ^. js "remote") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RTCStatsResponse.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RTCStatsResponse-       (result, namedItem, RTCStatsResponse, castToRTCStatsResponse,-        gTypeRTCStatsResponse)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.result Mozilla RTCStatsResponse.result documentation> -result ::-       (MonadDOM m) => RTCStatsResponse -> m [Maybe RTCStatsReport]-result self = liftDOM ((self ^. js "result") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> -namedItem ::-          (MonadDOM m, ToJSString name) =>-            RTCStatsResponse -> name -> m (Maybe RTCStatsReport)-namedItem self name-  = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RadioNodeList.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RadioNodeList-       (_get, setValue, getValue, RadioNodeList, castToRadioNodeList,-        gTypeRadioNodeList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> -_get :: (MonadDOM m) => RadioNodeList -> Word -> m (Maybe Node)-_get self index-  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation> -setValue ::-         (MonadDOM m, ToJSString val) => RadioNodeList -> val -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation> -getValue ::-         (MonadDOM m, FromJSString result) => RadioNodeList -> m result-getValue self-  = liftDOM ((self ^. js "value") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/Range.hs 
@@ -1,239 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Range-       (newRange, setStart, setEnd, setStartBefore, setStartAfter,-        setEndBefore, setEndAfter, collapse, selectNode,-        selectNodeContents, compareBoundaryPoints, deleteContents,-        extractContents, cloneContents, insertNode, surroundContents,-        cloneRange, toString, detach, getClientRects,-        getBoundingClientRect, createContextualFragment, intersectsNode,-        compareNode, comparePoint, isPointInRange, expand,-        pattern START_TO_START, pattern START_TO_END, pattern END_TO_END,-        pattern END_TO_START, pattern NODE_BEFORE, pattern NODE_AFTER,-        pattern NODE_BEFORE_AND_AFTER, pattern NODE_INSIDE,-        getStartContainer, getStartOffset, getEndContainer, getEndOffset,-        getCollapsed, getCommonAncestorContainer, Range, castToRange,-        gTypeRange)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range Mozilla Range documentation> -newRange :: (MonadDOM m) => m Range-newRange = liftDOM (Range <$> new (jsg "Range") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStart Mozilla Range.setStart documentation> -setStart ::-         (MonadDOM m, IsNode refNode) =>-           Range -> Maybe refNode -> Int -> m ()-setStart self refNode offset-  = liftDOM-      (void (self ^. jsf "setStart" [toJSVal refNode, toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEnd Mozilla Range.setEnd documentation> -setEnd ::-       (MonadDOM m, IsNode refNode) =>-         Range -> Maybe refNode -> Int -> m ()-setEnd self refNode offset-  = liftDOM-      (void (self ^. jsf "setEnd" [toJSVal refNode, toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartBefore Mozilla Range.setStartBefore documentation> -setStartBefore ::-               (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()-setStartBefore self refNode-  = liftDOM (void (self ^. jsf "setStartBefore" [toJSVal refNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartAfter Mozilla Range.setStartAfter documentation> -setStartAfter ::-              (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()-setStartAfter self refNode-  = liftDOM (void (self ^. jsf "setStartAfter" [toJSVal refNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndBefore Mozilla Range.setEndBefore documentation> -setEndBefore ::-             (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()-setEndBefore self refNode-  = liftDOM (void (self ^. jsf "setEndBefore" [toJSVal refNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndAfter Mozilla Range.setEndAfter documentation> -setEndAfter ::-            (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()-setEndAfter self refNode-  = liftDOM (void (self ^. jsf "setEndAfter" [toJSVal refNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapse Mozilla Range.collapse documentation> -collapse :: (MonadDOM m) => Range -> Bool -> m ()-collapse self toStart-  = liftDOM (void (self ^. jsf "collapse" [toJSVal toStart]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNode Mozilla Range.selectNode documentation> -selectNode ::-           (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()-selectNode self refNode-  = liftDOM (void (self ^. jsf "selectNode" [toJSVal refNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNodeContents Mozilla Range.selectNodeContents documentation> -selectNodeContents ::-                   (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m ()-selectNodeContents self refNode-  = liftDOM-      (void (self ^. jsf "selectNodeContents" [toJSVal refNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareBoundaryPoints Mozilla Range.compareBoundaryPoints documentation> -compareBoundaryPoints ::-                      (MonadDOM m) => Range -> Word -> Maybe Range -> m Int-compareBoundaryPoints self how sourceRange-  = liftDOM-      (round <$>-         ((self ^. jsf "compareBoundaryPoints"-             [toJSVal how, toJSVal sourceRange])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.deleteContents Mozilla Range.deleteContents documentation> -deleteContents :: (MonadDOM m) => Range -> m ()-deleteContents self = liftDOM (void (self ^. js "deleteContents"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> -extractContents ::-                (MonadDOM m) => Range -> m (Maybe DocumentFragment)-extractContents self-  = liftDOM ((self ^. js "extractContents") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> -cloneContents ::-              (MonadDOM m) => Range -> m (Maybe DocumentFragment)-cloneContents self-  = liftDOM ((self ^. js "cloneContents") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.insertNode Mozilla Range.insertNode documentation> -insertNode ::-           (MonadDOM m, IsNode newNode) => Range -> Maybe newNode -> m ()-insertNode self newNode-  = liftDOM (void (self ^. jsf "insertNode" [toJSVal newNode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.surroundContents Mozilla Range.surroundContents documentation> -surroundContents ::-                 (MonadDOM m, IsNode newParent) => Range -> Maybe newParent -> m ()-surroundContents self newParent-  = liftDOM-      (void (self ^. jsf "surroundContents" [toJSVal newParent]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> -cloneRange :: (MonadDOM m) => Range -> m (Maybe Range)-cloneRange self = liftDOM ((self ^. js "cloneRange") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation> -toString :: (MonadDOM m, FromJSString result) => Range -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.detach Mozilla Range.detach documentation> -detach :: (MonadDOM m) => Range -> m ()-detach self = liftDOM (void (self ^. js "detach"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> -getClientRects :: (MonadDOM m) => Range -> m (Maybe ClientRectList)-getClientRects self-  = liftDOM ((self ^. js "getClientRects") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> -getBoundingClientRect ::-                      (MonadDOM m) => Range -> m (Maybe ClientRect)-getBoundingClientRect self-  = liftDOM ((self ^. js "getBoundingClientRect") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> -createContextualFragment ::-                         (MonadDOM m, ToJSString html) =>-                           Range -> html -> m (Maybe DocumentFragment)-createContextualFragment self html-  = liftDOM-      ((self ^. jsf "createContextualFragment" [toJSVal html]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.intersectsNode Mozilla Range.intersectsNode documentation> -intersectsNode ::-               (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m Bool-intersectsNode self refNode-  = liftDOM-      ((self ^. jsf "intersectsNode" [toJSVal refNode]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> -compareNode ::-            (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m Int-compareNode self refNode-  = liftDOM-      (round <$>-         ((self ^. jsf "compareNode" [toJSVal refNode]) >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.comparePoint Mozilla Range.comparePoint documentation> -comparePoint ::-             (MonadDOM m, IsNode refNode) =>-               Range -> Maybe refNode -> Int -> m Int-comparePoint self refNode offset-  = liftDOM-      (round <$>-         ((self ^. jsf "comparePoint" [toJSVal refNode, toJSVal offset]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.isPointInRange Mozilla Range.isPointInRange documentation> -isPointInRange ::-               (MonadDOM m, IsNode refNode) =>-                 Range -> Maybe refNode -> Int -> m Bool-isPointInRange self refNode offset-  = liftDOM-      ((self ^. jsf "isPointInRange" [toJSVal refNode, toJSVal offset])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.expand Mozilla Range.expand documentation> -expand :: (MonadDOM m, ToJSString unit) => Range -> unit -> m ()-expand self unit-  = liftDOM (void (self ^. jsf "expand" [toJSVal unit]))-pattern START_TO_START = 0-pattern START_TO_END = 1-pattern END_TO_END = 2-pattern END_TO_START = 3-pattern NODE_BEFORE = 0-pattern NODE_AFTER = 1-pattern NODE_BEFORE_AND_AFTER = 2-pattern NODE_INSIDE = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> -getStartContainer :: (MonadDOM m) => Range -> m (Maybe Node)-getStartContainer self-  = liftDOM ((self ^. js "startContainer") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startOffset Mozilla Range.startOffset documentation> -getStartOffset :: (MonadDOM m) => Range -> m Int-getStartOffset self-  = liftDOM (round <$> ((self ^. js "startOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> -getEndContainer :: (MonadDOM m) => Range -> m (Maybe Node)-getEndContainer self-  = liftDOM ((self ^. js "endContainer") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endOffset Mozilla Range.endOffset documentation> -getEndOffset :: (MonadDOM m) => Range -> m Int-getEndOffset self-  = liftDOM (round <$> ((self ^. js "endOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapsed Mozilla Range.collapsed documentation> -getCollapsed :: (MonadDOM m) => Range -> m Bool-getCollapsed self-  = liftDOM ((self ^. js "collapsed") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> -getCommonAncestorContainer ::-                           (MonadDOM m) => Range -> m (Maybe Node)-getCommonAncestorContainer self-  = liftDOM ((self ^. js "commonAncestorContainer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/ReadableStream.hs 
@@ -1,67 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ReadableStream-       (newReadableStream, read, cancel, pipeTo, pipeThrough, getState,-        getClosed, getReady, ReadableStream, castToReadableStream,-        gTypeReadableStream)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream Mozilla ReadableStream documentation> -newReadableStream :: (MonadDOM m) => JSVal -> m ReadableStream-newReadableStream properties-  = liftDOM-      (ReadableStream <$>-         new (jsg "ReadableStream") [toJSVal properties])---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> -read :: (MonadDOM m) => ReadableStream -> m (Maybe GObject)-read self = liftDOM ((self ^. js "read") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> -cancel ::-       (MonadDOM m, ToJSString reason) =>-         ReadableStream -> reason -> m (Maybe Promise)-cancel self reason-  = liftDOM ((self ^. jsf "cancel" [toJSVal reason]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> -pipeTo ::-       (MonadDOM m) =>-         ReadableStream -> JSVal -> JSVal -> m (Maybe Promise)-pipeTo self streams options-  = liftDOM-      ((self ^. jsf "pipeTo" [toJSVal streams, toJSVal options]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> -pipeThrough ::-            (MonadDOM m) =>-              ReadableStream -> JSVal -> JSVal -> m (Maybe GObject)-pipeThrough self dest options-  = liftDOM-      ((self ^. jsf "pipeThrough" [toJSVal dest, toJSVal options]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.state Mozilla ReadableStream.state documentation> -getState ::-         (MonadDOM m) => ReadableStream -> m ReadableStreamStateType-getState self-  = liftDOM ((self ^. js "state") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> -getClosed :: (MonadDOM m) => ReadableStream -> m (Maybe Promise)-getClosed self = liftDOM ((self ^. js "closed") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> -getReady :: (MonadDOM m) => ReadableStream -> m (Maybe Promise)-getReady self = liftDOM ((self ^. js "ready") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Rect.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Rect-       (getTop, getRight, getBottom, getLeft, Rect, castToRect, gTypeRect)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> -getTop :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)-getTop self = liftDOM ((self ^. js "top") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> -getRight :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)-getRight self = liftDOM ((self ^. js "right") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> -getBottom :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)-getBottom self = liftDOM ((self ^. js "bottom") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> -getLeft :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)-getLeft self = liftDOM ((self ^. js "left") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/RequestAnimationFrameCallback.hs 
@@ -1,54 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.RequestAnimationFrameCallback-       (newRequestAnimationFrameCallback,-        newRequestAnimationFrameCallbackSync,-        newRequestAnimationFrameCallbackAsync,-        RequestAnimationFrameCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> -newRequestAnimationFrameCallback ::-                                 (MonadDOM m) =>-                                   (Double -> JSM ()) -> m RequestAnimationFrameCallback-newRequestAnimationFrameCallback callback-  = liftDOM-      (RequestAnimationFrameCallback . Callback <$>-         function ""-           (\ _ _ [highResTime] ->-              fromJSValUnchecked highResTime >>=-                \ highResTime' -> callback highResTime'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> -newRequestAnimationFrameCallbackSync ::-                                     (MonadDOM m) =>-                                       (Double -> JSM ()) -> m RequestAnimationFrameCallback-newRequestAnimationFrameCallbackSync callback-  = liftDOM-      (RequestAnimationFrameCallback . Callback <$>-         function ""-           (\ _ _ [highResTime] ->-              fromJSValUnchecked highResTime >>=-                \ highResTime' -> callback highResTime'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation> -newRequestAnimationFrameCallbackAsync ::-                                      (MonadDOM m) =>-                                        (Double -> JSM ()) -> m RequestAnimationFrameCallback-newRequestAnimationFrameCallbackAsync callback-  = liftDOM-      (RequestAnimationFrameCallback . Callback <$>-         function ""-           (\ _ _ [highResTime] ->-              fromJSValUnchecked highResTime >>=-                \ highResTime' -> callback highResTime'))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLError.hs 
@@ -1,37 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLError-       (pattern UNKNOWN_ERR, pattern DATABASE_ERR, pattern VERSION_ERR,-        pattern TOO_LARGE_ERR, pattern QUOTA_ERR, pattern SYNTAX_ERR,-        pattern CONSTRAINT_ERR, pattern TIMEOUT_ERR, getCode, getMessage,-        SQLError, castToSQLError, gTypeSQLError)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern UNKNOWN_ERR = 0-pattern DATABASE_ERR = 1-pattern VERSION_ERR = 2-pattern TOO_LARGE_ERR = 3-pattern QUOTA_ERR = 4-pattern SYNTAX_ERR = 5-pattern CONSTRAINT_ERR = 6-pattern TIMEOUT_ERR = 7---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.code Mozilla SQLError.code documentation> -getCode :: (MonadDOM m) => SQLError -> m Word-getCode self-  = liftDOM (round <$> ((self ^. js "code") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.message Mozilla SQLError.message documentation> -getMessage ::-           (MonadDOM m, FromJSString result) => SQLError -> m result-getMessage self-  = liftDOM ((self ^. js "message") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SQLResultSet.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLResultSet-       (getRows, getInsertId, getRowsAffected, SQLResultSet,-        castToSQLResultSet, gTypeSQLResultSet)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> -getRows ::-        (MonadDOM m) => SQLResultSet -> m (Maybe SQLResultSetRowList)-getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.insertId Mozilla SQLResultSet.insertId documentation> -getInsertId :: (MonadDOM m) => SQLResultSet -> m Int-getInsertId self-  = liftDOM (round <$> ((self ^. js "insertId") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rowsAffected Mozilla SQLResultSet.rowsAffected documentation> -getRowsAffected :: (MonadDOM m) => SQLResultSet -> m Int-getRowsAffected self-  = liftDOM (round <$> ((self ^. js "rowsAffected") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLResultSetRowList.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLResultSetRowList-       (item, getLength, SQLResultSetRowList, castToSQLResultSetRowList,-        gTypeSQLResultSetRowList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation> -item :: (MonadDOM m) => SQLResultSetRowList -> Word -> m JSVal-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.length Mozilla SQLResultSetRowList.length documentation> -getLength :: (MonadDOM m) => SQLResultSetRowList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLStatementCallback.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLStatementCallback-       (newSQLStatementCallback, newSQLStatementCallbackSync,-        newSQLStatementCallbackAsync, SQLStatementCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> -newSQLStatementCallback ::-                        (MonadDOM m) =>-                          (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->-                            m SQLStatementCallback-newSQLStatementCallback callback-  = liftDOM-      (SQLStatementCallback . Callback <$>-         function ""-           (\ _ _ [transaction, resultSet] ->-              fromJSVal resultSet >>=-                \ resultSet' ->-                  fromJSVal transaction >>= \ transaction' -> callback transaction'-                    resultSet'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> -newSQLStatementCallbackSync ::-                            (MonadDOM m) =>-                              (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->-                                m SQLStatementCallback-newSQLStatementCallbackSync callback-  = liftDOM-      (SQLStatementCallback . Callback <$>-         function ""-           (\ _ _ [transaction, resultSet] ->-              fromJSVal resultSet >>=-                \ resultSet' ->-                  fromJSVal transaction >>= \ transaction' -> callback transaction'-                    resultSet'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation> -newSQLStatementCallbackAsync ::-                             (MonadDOM m) =>-                               (Maybe SQLTransaction -> Maybe SQLResultSet -> JSM ()) ->-                                 m SQLStatementCallback-newSQLStatementCallbackAsync callback-  = liftDOM-      (SQLStatementCallback . Callback <$>-         function ""-           (\ _ _ [transaction, resultSet] ->-              fromJSVal resultSet >>=-                \ resultSet' ->-                  fromJSVal transaction >>= \ transaction' -> callback transaction'-                    resultSet'))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLStatementErrorCallback.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLStatementErrorCallback-       (newSQLStatementErrorCallback, newSQLStatementErrorCallbackSync,-        newSQLStatementErrorCallbackAsync, SQLStatementErrorCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> -newSQLStatementErrorCallback ::-                             (MonadDOM m) =>-                               (Maybe SQLTransaction -> Maybe SQLError -> JSM ()) ->-                                 m SQLStatementErrorCallback-newSQLStatementErrorCallback callback-  = liftDOM-      (SQLStatementErrorCallback . Callback <$>-         function ""-           (\ _ _ [transaction, error] ->-              fromJSVal error >>=-                \ error' ->-                  fromJSVal transaction >>= \ transaction' -> callback transaction'-                    error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> -newSQLStatementErrorCallbackSync ::-                                 (MonadDOM m) =>-                                   (Maybe SQLTransaction -> Maybe SQLError -> JSM ()) ->-                                     m SQLStatementErrorCallback-newSQLStatementErrorCallbackSync callback-  = liftDOM-      (SQLStatementErrorCallback . Callback <$>-         function ""-           (\ _ _ [transaction, error] ->-              fromJSVal error >>=-                \ error' ->-                  fromJSVal transaction >>= \ transaction' -> callback transaction'-                    error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation> -newSQLStatementErrorCallbackAsync ::-                                  (MonadDOM m) =>-                                    (Maybe SQLTransaction -> Maybe SQLError -> JSM ()) ->-                                      m SQLStatementErrorCallback-newSQLStatementErrorCallbackAsync callback-  = liftDOM-      (SQLStatementErrorCallback . Callback <$>-         function ""-           (\ _ _ [transaction, error] ->-              fromJSVal error >>=-                \ error' ->-                  fromJSVal transaction >>= \ transaction' -> callback transaction'-                    error'))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLTransaction.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLTransaction-       (executeSql, SQLTransaction, castToSQLTransaction,-        gTypeSQLTransaction)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction.executeSql Mozilla SQLTransaction.executeSql documentation> -executeSql ::-           (MonadDOM m, ToJSString sqlStatement, IsObjectArray arguments) =>-             SQLTransaction ->-               sqlStatement ->-                 Maybe arguments ->-                   Maybe SQLStatementCallback ->-                     Maybe SQLStatementErrorCallback -> m ()-executeSql self sqlStatement arguments callback errorCallback-  = liftDOM-      (void-         (self ^. jsf "executeSql"-            [toJSVal sqlStatement, toJSVal arguments, toJSVal callback,-             toJSVal errorCallback]))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLTransactionCallback.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLTransactionCallback-       (newSQLTransactionCallback, newSQLTransactionCallbackSync,-        newSQLTransactionCallbackAsync, SQLTransactionCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> -newSQLTransactionCallback ::-                          (MonadDOM m) =>-                            (Maybe SQLTransaction -> JSM ()) -> m SQLTransactionCallback-newSQLTransactionCallback callback-  = liftDOM-      (SQLTransactionCallback . Callback <$>-         function ""-           (\ _ _ [transaction] ->-              fromJSVal transaction >>= \ transaction' -> callback transaction'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> -newSQLTransactionCallbackSync ::-                              (MonadDOM m) =>-                                (Maybe SQLTransaction -> JSM ()) -> m SQLTransactionCallback-newSQLTransactionCallbackSync callback-  = liftDOM-      (SQLTransactionCallback . Callback <$>-         function ""-           (\ _ _ [transaction] ->-              fromJSVal transaction >>= \ transaction' -> callback transaction'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation> -newSQLTransactionCallbackAsync ::-                               (MonadDOM m) =>-                                 (Maybe SQLTransaction -> JSM ()) -> m SQLTransactionCallback-newSQLTransactionCallbackAsync callback-  = liftDOM-      (SQLTransactionCallback . Callback <$>-         function ""-           (\ _ _ [transaction] ->-              fromJSVal transaction >>= \ transaction' -> callback transaction'))
− src/Language/Javascript/JSaddle/DOM/Generated/SQLTransactionErrorCallback.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SQLTransactionErrorCallback-       (newSQLTransactionErrorCallback,-        newSQLTransactionErrorCallbackSync,-        newSQLTransactionErrorCallbackAsync, SQLTransactionErrorCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> -newSQLTransactionErrorCallback ::-                               (MonadDOM m) =>-                                 (Maybe SQLError -> JSM ()) -> m SQLTransactionErrorCallback-newSQLTransactionErrorCallback callback-  = liftDOM-      (SQLTransactionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> -newSQLTransactionErrorCallbackSync ::-                                   (MonadDOM m) =>-                                     (Maybe SQLError -> JSM ()) -> m SQLTransactionErrorCallback-newSQLTransactionErrorCallbackSync callback-  = liftDOM-      (SQLTransactionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation> -newSQLTransactionErrorCallbackAsync ::-                                    (MonadDOM m) =>-                                      (Maybe SQLError -> JSM ()) -> m SQLTransactionErrorCallback-newSQLTransactionErrorCallbackAsync callback-  = liftDOM-      (SQLTransactionErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAElement.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAElement-       (getTarget, SVGAElement, castToSVGAElement, gTypeSVGAElement) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> -getTarget ::-          (MonadDOM m) => SVGAElement -> m (Maybe SVGAnimatedString)-getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAltGlyphElement.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAltGlyphElement-       (setGlyphRef, getGlyphRef, setFormat, getFormat,-        SVGAltGlyphElement, castToSVGAltGlyphElement,-        gTypeSVGAltGlyphElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation> -setGlyphRef ::-            (MonadDOM m, ToJSString val) => SVGAltGlyphElement -> val -> m ()-setGlyphRef self val-  = liftDOM (self ^. jss "glyphRef" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation> -getGlyphRef ::-            (MonadDOM m, FromJSString result) => SVGAltGlyphElement -> m result-getGlyphRef self-  = liftDOM ((self ^. js "glyphRef") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation> -setFormat ::-          (MonadDOM m, ToJSString val) => SVGAltGlyphElement -> val -> m ()-setFormat self val = liftDOM (self ^. jss "format" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation> -getFormat ::-          (MonadDOM m, FromJSString result) => SVGAltGlyphElement -> m result-getFormat self-  = liftDOM ((self ^. js "format") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAngle.hs 
@@ -1,80 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAngle-       (newValueSpecifiedUnits, convertToSpecifiedUnits,-        pattern SVG_ANGLETYPE_UNKNOWN, pattern SVG_ANGLETYPE_UNSPECIFIED,-        pattern SVG_ANGLETYPE_DEG, pattern SVG_ANGLETYPE_RAD,-        pattern SVG_ANGLETYPE_GRAD, getUnitType, setValue, getValue,-        setValueInSpecifiedUnits, getValueInSpecifiedUnits,-        setValueAsString, getValueAsString, SVGAngle, castToSVGAngle,-        gTypeSVGAngle)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.newValueSpecifiedUnits Mozilla SVGAngle.newValueSpecifiedUnits documentation> -newValueSpecifiedUnits ::-                       (MonadDOM m) => SVGAngle -> Word -> Float -> m ()-newValueSpecifiedUnits self unitType valueInSpecifiedUnits-  = liftDOM-      (void-         (self ^. jsf "newValueSpecifiedUnits"-            [toJSVal unitType, toJSVal valueInSpecifiedUnits]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.convertToSpecifiedUnits Mozilla SVGAngle.convertToSpecifiedUnits documentation> -convertToSpecifiedUnits :: (MonadDOM m) => SVGAngle -> Word -> m ()-convertToSpecifiedUnits self unitType-  = liftDOM-      (void (self ^. jsf "convertToSpecifiedUnits" [toJSVal unitType]))-pattern SVG_ANGLETYPE_UNKNOWN = 0-pattern SVG_ANGLETYPE_UNSPECIFIED = 1-pattern SVG_ANGLETYPE_DEG = 2-pattern SVG_ANGLETYPE_RAD = 3-pattern SVG_ANGLETYPE_GRAD = 4---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.unitType Mozilla SVGAngle.unitType documentation> -getUnitType :: (MonadDOM m) => SVGAngle -> m Word-getUnitType self-  = liftDOM (round <$> ((self ^. js "unitType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation> -setValue :: (MonadDOM m) => SVGAngle -> Float -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation> -getValue :: (MonadDOM m) => SVGAngle -> m Float-getValue self-  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation> -setValueInSpecifiedUnits ::-                         (MonadDOM m) => SVGAngle -> Float -> m ()-setValueInSpecifiedUnits self val-  = liftDOM (self ^. jss "valueInSpecifiedUnits" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation> -getValueInSpecifiedUnits :: (MonadDOM m) => SVGAngle -> m Float-getValueInSpecifiedUnits self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "valueInSpecifiedUnits") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> -setValueAsString ::-                 (MonadDOM m, ToJSString val) => SVGAngle -> Maybe val -> m ()-setValueAsString self val-  = liftDOM (self ^. jss "valueAsString" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> -getValueAsString ::-                 (MonadDOM m, FromJSString result) => SVGAngle -> m (Maybe result)-getValueAsString self-  = liftDOM ((self ^. js "valueAsString") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedAngle.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedAngle-       (getBaseVal, getAnimVal, SVGAnimatedAngle, castToSVGAnimatedAngle,-        gTypeSVGAnimatedAngle)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> -getBaseVal ::-           (MonadDOM m) => SVGAnimatedAngle -> m (Maybe SVGAngle)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> -getAnimVal ::-           (MonadDOM m) => SVGAnimatedAngle -> m (Maybe SVGAngle)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedBoolean.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedBoolean-       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedBoolean,-        castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation> -setBaseVal :: (MonadDOM m) => SVGAnimatedBoolean -> Bool -> m ()-setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation> -getBaseVal :: (MonadDOM m) => SVGAnimatedBoolean -> m Bool-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.animVal Mozilla SVGAnimatedBoolean.animVal documentation> -getAnimVal :: (MonadDOM m) => SVGAnimatedBoolean -> m Bool-getAnimVal self = liftDOM ((self ^. js "animVal") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedEnumeration.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedEnumeration-       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedEnumeration,-        castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation> -setBaseVal ::-           (MonadDOM m) => SVGAnimatedEnumeration -> Word -> m ()-setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation> -getBaseVal :: (MonadDOM m) => SVGAnimatedEnumeration -> m Word-getBaseVal self-  = liftDOM (round <$> ((self ^. js "baseVal") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.animVal Mozilla SVGAnimatedEnumeration.animVal documentation> -getAnimVal :: (MonadDOM m) => SVGAnimatedEnumeration -> m Word-getAnimVal self-  = liftDOM (round <$> ((self ^. js "animVal") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedInteger.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedInteger-       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedInteger,-        castToSVGAnimatedInteger, gTypeSVGAnimatedInteger)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation> -setBaseVal :: (MonadDOM m) => SVGAnimatedInteger -> Int -> m ()-setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation> -getBaseVal :: (MonadDOM m) => SVGAnimatedInteger -> m Int-getBaseVal self-  = liftDOM (round <$> ((self ^. js "baseVal") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.animVal Mozilla SVGAnimatedInteger.animVal documentation> -getAnimVal :: (MonadDOM m) => SVGAnimatedInteger -> m Int-getAnimVal self-  = liftDOM (round <$> ((self ^. js "animVal") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedLength.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedLength-       (getBaseVal, getAnimVal, SVGAnimatedLength,-        castToSVGAnimatedLength, gTypeSVGAnimatedLength)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> -getBaseVal ::-           (MonadDOM m) => SVGAnimatedLength -> m (Maybe SVGLength)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> -getAnimVal ::-           (MonadDOM m) => SVGAnimatedLength -> m (Maybe SVGLength)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedLengthList.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedLengthList-       (getBaseVal, getAnimVal, SVGAnimatedLengthList,-        castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> -getBaseVal ::-           (MonadDOM m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> -getAnimVal ::-           (MonadDOM m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedNumber.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedNumber-       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedNumber,-        castToSVGAnimatedNumber, gTypeSVGAnimatedNumber)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation> -setBaseVal :: (MonadDOM m) => SVGAnimatedNumber -> Float -> m ()-setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation> -getBaseVal :: (MonadDOM m) => SVGAnimatedNumber -> m Float-getBaseVal self-  = liftDOM (realToFrac <$> ((self ^. js "baseVal") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.animVal Mozilla SVGAnimatedNumber.animVal documentation> -getAnimVal :: (MonadDOM m) => SVGAnimatedNumber -> m Float-getAnimVal self-  = liftDOM (realToFrac <$> ((self ^. js "animVal") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedNumberList.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedNumberList-       (getBaseVal, getAnimVal, SVGAnimatedNumberList,-        castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> -getBaseVal ::-           (MonadDOM m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> -getAnimVal ::-           (MonadDOM m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedPreserveAspectRatio.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedPreserveAspectRatio-       (getBaseVal, getAnimVal, SVGAnimatedPreserveAspectRatio,-        castToSVGAnimatedPreserveAspectRatio,-        gTypeSVGAnimatedPreserveAspectRatio)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> -getBaseVal ::-           (MonadDOM m) =>-             SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> -getAnimVal ::-           (MonadDOM m) =>-             SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedRect.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedRect-       (getBaseVal, getAnimVal, SVGAnimatedRect, castToSVGAnimatedRect,-        gTypeSVGAnimatedRect)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> -getBaseVal :: (MonadDOM m) => SVGAnimatedRect -> m (Maybe SVGRect)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> -getAnimVal :: (MonadDOM m) => SVGAnimatedRect -> m (Maybe SVGRect)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedString.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedString-       (setBaseVal, getBaseVal, getAnimVal, SVGAnimatedString,-        castToSVGAnimatedString, gTypeSVGAnimatedString)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation> -setBaseVal ::-           (MonadDOM m, ToJSString val) => SVGAnimatedString -> val -> m ()-setBaseVal self val = liftDOM (self ^. jss "baseVal" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation> -getBaseVal ::-           (MonadDOM m, FromJSString result) => SVGAnimatedString -> m result-getBaseVal self-  = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.animVal Mozilla SVGAnimatedString.animVal documentation> -getAnimVal ::-           (MonadDOM m, FromJSString result) => SVGAnimatedString -> m result-getAnimVal self-  = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimatedTransformList.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimatedTransformList-       (getBaseVal, getAnimVal, SVGAnimatedTransformList,-        castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> -getBaseVal ::-           (MonadDOM m) =>-             SVGAnimatedTransformList -> m (Maybe SVGTransformList)-getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> -getAnimVal ::-           (MonadDOM m) =>-             SVGAnimatedTransformList -> m (Maybe SVGTransformList)-getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGAnimationElement.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGAnimationElement-       (getStartTime, getCurrentTime, getSimpleDuration, beginElement,-        beginElementAt, endElement, endElementAt, getTargetElement,-        SVGAnimationElement, castToSVGAnimationElement,-        gTypeSVGAnimationElement, IsSVGAnimationElement,-        toSVGAnimationElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getStartTime Mozilla SVGAnimationElement.getStartTime documentation> -getStartTime ::-             (MonadDOM m, IsSVGAnimationElement self) => self -> m Float-getStartTime self-  = liftDOM-      (realToFrac <$>-         (((toSVGAnimationElement self) ^. js "getStartTime") >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getCurrentTime Mozilla SVGAnimationElement.getCurrentTime documentation> -getCurrentTime ::-               (MonadDOM m, IsSVGAnimationElement self) => self -> m Float-getCurrentTime self-  = liftDOM-      (realToFrac <$>-         (((toSVGAnimationElement self) ^. js "getCurrentTime") >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getSimpleDuration Mozilla SVGAnimationElement.getSimpleDuration documentation> -getSimpleDuration ::-                  (MonadDOM m, IsSVGAnimationElement self) => self -> m Float-getSimpleDuration self-  = liftDOM-      (realToFrac <$>-         (((toSVGAnimationElement self) ^. js "getSimpleDuration") >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElement Mozilla SVGAnimationElement.beginElement documentation> -beginElement ::-             (MonadDOM m, IsSVGAnimationElement self) => self -> m ()-beginElement self-  = liftDOM-      (void ((toSVGAnimationElement self) ^. js "beginElement"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElementAt Mozilla SVGAnimationElement.beginElementAt documentation> -beginElementAt ::-               (MonadDOM m, IsSVGAnimationElement self) => self -> Float -> m ()-beginElementAt self offset-  = liftDOM-      (void-         ((toSVGAnimationElement self) ^. jsf "beginElementAt"-            [toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElement Mozilla SVGAnimationElement.endElement documentation> -endElement ::-           (MonadDOM m, IsSVGAnimationElement self) => self -> m ()-endElement self-  = liftDOM (void ((toSVGAnimationElement self) ^. js "endElement"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElementAt Mozilla SVGAnimationElement.endElementAt documentation> -endElementAt ::-             (MonadDOM m, IsSVGAnimationElement self) => self -> Float -> m ()-endElementAt self offset-  = liftDOM-      (void-         ((toSVGAnimationElement self) ^. jsf "endElementAt"-            [toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> -getTargetElement ::-                 (MonadDOM m, IsSVGAnimationElement self) =>-                   self -> m (Maybe SVGElement)-getTargetElement self-  = liftDOM-      (((toSVGAnimationElement self) ^. js "targetElement") >>=-         fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGCircleElement.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGCircleElement-       (getCx, getCy, getR, SVGCircleElement, castToSVGCircleElement,-        gTypeSVGCircleElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> -getCx ::-      (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)-getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> -getCy ::-      (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)-getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> -getR ::-     (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)-getR self = liftDOM ((self ^. js "r") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGClipPathElement.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGClipPathElement-       (getClipPathUnits, SVGClipPathElement, castToSVGClipPathElement,-        gTypeSVGClipPathElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> -getClipPathUnits ::-                 (MonadDOM m) =>-                   SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration)-getClipPathUnits self-  = liftDOM ((self ^. js "clipPathUnits") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGColor.hs 
@@ -1,65 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGColor-       (setRGBColor, setRGBColorICCColor, setColor,-        pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR,-        pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR,-        pattern SVG_COLORTYPE_CURRENTCOLOR, getColorType, getRgbColor,-        SVGColor, castToSVGColor, gTypeSVGColor, IsSVGColor, toSVGColor)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColor Mozilla SVGColor.setRGBColor documentation> -setRGBColor ::-            (MonadDOM m, IsSVGColor self, ToJSString rgbColor) =>-              self -> rgbColor -> m ()-setRGBColor self rgbColor-  = liftDOM-      (void ((toSVGColor self) ^. jsf "setRGBColor" [toJSVal rgbColor]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColorICCColor Mozilla SVGColor.setRGBColorICCColor documentation> -setRGBColorICCColor ::-                    (MonadDOM m, IsSVGColor self, ToJSString rgbColor,-                     ToJSString iccColor) =>-                      self -> rgbColor -> iccColor -> m ()-setRGBColorICCColor self rgbColor iccColor-  = liftDOM-      (void-         ((toSVGColor self) ^. jsf "setRGBColorICCColor"-            [toJSVal rgbColor, toJSVal iccColor]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setColor Mozilla SVGColor.setColor documentation> -setColor ::-         (MonadDOM m, IsSVGColor self, ToJSString rgbColor,-          ToJSString iccColor) =>-           self -> Word -> rgbColor -> iccColor -> m ()-setColor self colorType rgbColor iccColor-  = liftDOM-      (void-         ((toSVGColor self) ^. jsf "setColor"-            [toJSVal colorType, toJSVal rgbColor, toJSVal iccColor]))-pattern SVG_COLORTYPE_UNKNOWN = 0-pattern SVG_COLORTYPE_RGBCOLOR = 1-pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR = 2-pattern SVG_COLORTYPE_CURRENTCOLOR = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.colorType Mozilla SVGColor.colorType documentation> -getColorType :: (MonadDOM m, IsSVGColor self) => self -> m Word-getColorType self-  = liftDOM-      (round <$> (((toSVGColor self) ^. js "colorType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> -getRgbColor ::-            (MonadDOM m, IsSVGColor self) => self -> m (Maybe RGBColor)-getRgbColor self-  = liftDOM (((toSVGColor self) ^. js "rgbColor") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGComponentTransferFunctionElement.hs 
@@ -1,95 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGComponentTransferFunctionElement-       (pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN,-        pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY,-        pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE,-        pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE,-        pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR,-        pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, getType,-        getTableValues, getSlope, getIntercept, getAmplitude, getExponent,-        getOffset, SVGComponentTransferFunctionElement,-        castToSVGComponentTransferFunctionElement,-        gTypeSVGComponentTransferFunctionElement,-        IsSVGComponentTransferFunctionElement,-        toSVGComponentTransferFunctionElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0-pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1-pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2-pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE = 3-pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR = 4-pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> -getType ::-        (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-          self -> m (Maybe SVGAnimatedEnumeration)-getType self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "type") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> -getTableValues ::-               (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-                 self -> m (Maybe SVGAnimatedNumberList)-getTableValues self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "tableValues")-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> -getSlope ::-         (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-           self -> m (Maybe SVGAnimatedNumber)-getSlope self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "slope") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> -getIntercept ::-             (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-               self -> m (Maybe SVGAnimatedNumber)-getIntercept self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "intercept")-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> -getAmplitude ::-             (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-               self -> m (Maybe SVGAnimatedNumber)-getAmplitude self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "amplitude")-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> -getExponent ::-            (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-              self -> m (Maybe SVGAnimatedNumber)-getExponent self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "exponent")-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> -getOffset ::-          (MonadDOM m, IsSVGComponentTransferFunctionElement self) =>-            self -> m (Maybe SVGAnimatedNumber)-getOffset self-  = liftDOM-      (((toSVGComponentTransferFunctionElement self) ^. js "offset") >>=-         fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGCursorElement.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGCursorElement-       (getX, getY, SVGCursorElement, castToSVGCursorElement,-        gTypeSVGCursorElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> -getX ::-     (MonadDOM m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> -getY ::-     (MonadDOM m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGDocument.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGDocument-       (createEvent, getRootElement, SVGDocument, castToSVGDocument,-        gTypeSVGDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> -createEvent ::-            (MonadDOM m, ToJSString eventType) =>-              SVGDocument -> eventType -> m (Maybe Event)-createEvent self eventType-  = liftDOM-      ((self ^. jsf "createEvent" [toJSVal eventType]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> -getRootElement ::-               (MonadDOM m) => SVGDocument -> m (Maybe SVGSVGElement)-getRootElement self-  = liftDOM ((self ^. js "rootElement") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGElement.hs 
@@ -1,115 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGElement-       (getPresentationAttribute, setXmlbase, getXmlbase,-        getOwnerSVGElement, getViewportElement, setXmllang, getXmllang,-        setXmlspace, getXmlspace, getClassName, getStyle, setTabIndex,-        getTabIndex, SVGElement, castToSVGElement, gTypeSVGElement,-        IsSVGElement, toSVGElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> -getPresentationAttribute ::-                         (MonadDOM m, IsSVGElement self, ToJSString name) =>-                           self -> name -> m (Maybe CSSValue)-getPresentationAttribute self name-  = liftDOM-      (((toSVGElement self) ^. jsf "getPresentationAttribute"-          [toJSVal name])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> -setXmlbase ::-           (MonadDOM m, IsSVGElement self, ToJSString val) =>-             self -> Maybe val -> m ()-setXmlbase self val-  = liftDOM ((toSVGElement self) ^. jss "xmlbase" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> -getXmlbase ::-           (MonadDOM m, IsSVGElement self, FromJSString result) =>-             self -> m (Maybe result)-getXmlbase self-  = liftDOM-      (((toSVGElement self) ^. js "xmlbase") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> -getOwnerSVGElement ::-                   (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGSVGElement)-getOwnerSVGElement self-  = liftDOM-      (((toSVGElement self) ^. js "ownerSVGElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> -getViewportElement ::-                   (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGElement)-getViewportElement self-  = liftDOM-      (((toSVGElement self) ^. js "viewportElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation> -setXmllang ::-           (MonadDOM m, IsSVGElement self, ToJSString val) =>-             self -> val -> m ()-setXmllang self val-  = liftDOM ((toSVGElement self) ^. jss "xmllang" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation> -getXmllang ::-           (MonadDOM m, IsSVGElement self, FromJSString result) =>-             self -> m result-getXmllang self-  = liftDOM-      (((toSVGElement self) ^. js "xmllang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation> -setXmlspace ::-            (MonadDOM m, IsSVGElement self, ToJSString val) =>-              self -> val -> m ()-setXmlspace self val-  = liftDOM ((toSVGElement self) ^. jss "xmlspace" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation> -getXmlspace ::-            (MonadDOM m, IsSVGElement self, FromJSString result) =>-              self -> m result-getXmlspace self-  = liftDOM-      (((toSVGElement self) ^. js "xmlspace") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> -getClassName ::-             (MonadDOM m, IsSVGElement self) =>-               self -> m (Maybe SVGAnimatedString)-getClassName self-  = liftDOM (((toSVGElement self) ^. js "className") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> -getStyle ::-         (MonadDOM m, IsSVGElement self) =>-           self -> m (Maybe CSSStyleDeclaration)-getStyle self-  = liftDOM (((toSVGElement self) ^. js "style") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation> -setTabIndex ::-            (MonadDOM m, IsSVGElement self) => self -> Int -> m ()-setTabIndex self val-  = liftDOM ((toSVGElement self) ^. jss "tabIndex" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation> -getTabIndex :: (MonadDOM m, IsSVGElement self) => self -> m Int-getTabIndex self-  = liftDOM-      (round <$>-         (((toSVGElement self) ^. js "tabIndex") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGEllipseElement.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGEllipseElement-       (getCx, getCy, getRx, getRy, SVGEllipseElement,-        castToSVGEllipseElement, gTypeSVGEllipseElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> -getCx ::-      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> -getCy ::-      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> -getRx ::-      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> -getRy ::-      (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGExternalResourcesRequired.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGExternalResourcesRequired-       (getExternalResourcesRequired, SVGExternalResourcesRequired,-        castToSVGExternalResourcesRequired,-        gTypeSVGExternalResourcesRequired)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation> -getExternalResourcesRequired ::-                             (MonadDOM m) =>-                               SVGExternalResourcesRequired -> m (Maybe SVGAnimatedBoolean)-getExternalResourcesRequired self-  = liftDOM ((self ^. js "externalResourcesRequired") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEBlendElement.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEBlendElement-       (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL,-        pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN,-        pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN,-        getIn1, getIn2, getMode, SVGFEBlendElement,-        castToSVGFEBlendElement, gTypeSVGFEBlendElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_FEBLEND_MODE_UNKNOWN = 0-pattern SVG_FEBLEND_MODE_NORMAL = 1-pattern SVG_FEBLEND_MODE_MULTIPLY = 2-pattern SVG_FEBLEND_MODE_SCREEN = 3-pattern SVG_FEBLEND_MODE_DARKEN = 4-pattern SVG_FEBLEND_MODE_LIGHTEN = 5---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation> -getIn1 ::-       (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation> -getIn2 ::-       (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)-getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation> -getMode ::-        (MonadDOM m) =>-          SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration)-getMode self = liftDOM ((self ^. js "mode") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEColorMatrixElement.hs 
@@ -1,44 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEColorMatrixElement-       (pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN,-        pattern SVG_FECOLORMATRIX_TYPE_MATRIX,-        pattern SVG_FECOLORMATRIX_TYPE_SATURATE,-        pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE,-        pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, getIn1, getType,-        getValues, SVGFEColorMatrixElement, castToSVGFEColorMatrixElement,-        gTypeSVGFEColorMatrixElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN = 0-pattern SVG_FECOLORMATRIX_TYPE_MATRIX = 1-pattern SVG_FECOLORMATRIX_TYPE_SATURATE = 2-pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE = 3-pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA = 4---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation> -getType ::-        (MonadDOM m) =>-          SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration)-getType self = liftDOM ((self ^. js "type") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation> -getValues ::-          (MonadDOM m) =>-            SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList)-getValues self = liftDOM ((self ^. js "values") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEComponentTransferElement.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEComponentTransferElement-       (getIn1, SVGFEComponentTransferElement,-        castToSVGFEComponentTransferElement,-        gTypeSVGFEComponentTransferElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFECompositeElement.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFECompositeElement-       (pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN,-        pattern SVG_FECOMPOSITE_OPERATOR_OVER,-        pattern SVG_FECOMPOSITE_OPERATOR_IN,-        pattern SVG_FECOMPOSITE_OPERATOR_OUT,-        pattern SVG_FECOMPOSITE_OPERATOR_ATOP,-        pattern SVG_FECOMPOSITE_OPERATOR_XOR,-        pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, getIn1, getIn2,-        getOperator, getK1, getK2, getK3, getK4, SVGFECompositeElement,-        castToSVGFECompositeElement, gTypeSVGFECompositeElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0-pattern SVG_FECOMPOSITE_OPERATOR_OVER = 1-pattern SVG_FECOMPOSITE_OPERATOR_IN = 2-pattern SVG_FECOMPOSITE_OPERATOR_OUT = 3-pattern SVG_FECOMPOSITE_OPERATOR_ATOP = 4-pattern SVG_FECOMPOSITE_OPERATOR_XOR = 5-pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC = 6---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFECompositeElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation> -getIn2 ::-       (MonadDOM m) =>-         SVGFECompositeElement -> m (Maybe SVGAnimatedString)-getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation> -getOperator ::-            (MonadDOM m) =>-              SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration)-getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation> -getK1 ::-      (MonadDOM m) =>-        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK1 self = liftDOM ((self ^. js "k1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation> -getK2 ::-      (MonadDOM m) =>-        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK2 self = liftDOM ((self ^. js "k2") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation> -getK3 ::-      (MonadDOM m) =>-        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK3 self = liftDOM ((self ^. js "k3") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation> -getK4 ::-      (MonadDOM m) =>-        SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK4 self = liftDOM ((self ^. js "k4") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEConvolveMatrixElement.hs 
@@ -1,100 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEConvolveMatrixElement-       (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE,-        pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, getIn1,-        getOrderX, getOrderY, getKernelMatrix, getDivisor, getBias,-        getTargetX, getTargetY, getEdgeMode, getKernelUnitLengthX,-        getKernelUnitLengthY, getPreserveAlpha, SVGFEConvolveMatrixElement,-        castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_EDGEMODE_UNKNOWN = 0-pattern SVG_EDGEMODE_DUPLICATE = 1-pattern SVG_EDGEMODE_WRAP = 2-pattern SVG_EDGEMODE_NONE = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation> -getOrderX ::-          (MonadDOM m) =>-            SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)-getOrderX self = liftDOM ((self ^. js "orderX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation> -getOrderY ::-          (MonadDOM m) =>-            SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)-getOrderY self = liftDOM ((self ^. js "orderY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation> -getKernelMatrix ::-                (MonadDOM m) =>-                  SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumberList)-getKernelMatrix self-  = liftDOM ((self ^. js "kernelMatrix") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation> -getDivisor ::-           (MonadDOM m) =>-             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)-getDivisor self = liftDOM ((self ^. js "divisor") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation> -getBias ::-        (MonadDOM m) =>-          SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)-getBias self = liftDOM ((self ^. js "bias") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation> -getTargetX ::-           (MonadDOM m) =>-             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)-getTargetX self = liftDOM ((self ^. js "targetX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation> -getTargetY ::-           (MonadDOM m) =>-             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)-getTargetY self = liftDOM ((self ^. js "targetY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation> -getEdgeMode ::-            (MonadDOM m) =>-              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration)-getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation> -getKernelUnitLengthX ::-                     (MonadDOM m) =>-                       SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)-getKernelUnitLengthX self-  = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation> -getKernelUnitLengthY ::-                     (MonadDOM m) =>-                       SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)-getKernelUnitLengthY self-  = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation> -getPreserveAlpha ::-                 (MonadDOM m) =>-                   SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean)-getPreserveAlpha self-  = liftDOM ((self ^. js "preserveAlpha") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEDiffuseLightingElement.hs 
@@ -1,52 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEDiffuseLightingElement-       (getIn1, getSurfaceScale, getDiffuseConstant, getKernelUnitLengthX,-        getKernelUnitLengthY, SVGFEDiffuseLightingElement,-        castToSVGFEDiffuseLightingElement,-        gTypeSVGFEDiffuseLightingElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation> -getSurfaceScale ::-                (MonadDOM m) =>-                  SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)-getSurfaceScale self-  = liftDOM ((self ^. js "surfaceScale") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation> -getDiffuseConstant ::-                   (MonadDOM m) =>-                     SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)-getDiffuseConstant self-  = liftDOM ((self ^. js "diffuseConstant") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation> -getKernelUnitLengthX ::-                     (MonadDOM m) =>-                       SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)-getKernelUnitLengthX self-  = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation> -getKernelUnitLengthY ::-                     (MonadDOM m) =>-                       SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber)-getKernelUnitLengthY self-  = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEDisplacementMapElement.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEDisplacementMapElement-       (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R,-        pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B,-        pattern SVG_CHANNEL_A, getIn1, getIn2, getScale,-        getXChannelSelector, getYChannelSelector,-        SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement,-        gTypeSVGFEDisplacementMapElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_CHANNEL_UNKNOWN = 0-pattern SVG_CHANNEL_R = 1-pattern SVG_CHANNEL_G = 2-pattern SVG_CHANNEL_B = 3-pattern SVG_CHANNEL_A = 4---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation> -getIn2 ::-       (MonadDOM m) =>-         SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)-getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation> -getScale ::-         (MonadDOM m) =>-           SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber)-getScale self = liftDOM ((self ^. js "scale") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation> -getXChannelSelector ::-                    (MonadDOM m) =>-                      SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration)-getXChannelSelector self-  = liftDOM ((self ^. js "xChannelSelector") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation> -getYChannelSelector ::-                    (MonadDOM m) =>-                      SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration)-getYChannelSelector self-  = liftDOM ((self ^. js "yChannelSelector") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEDistantLightElement.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEDistantLightElement-       (getAzimuth, getElevation, SVGFEDistantLightElement,-        castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation> -getAzimuth ::-           (MonadDOM m) =>-             SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber)-getAzimuth self = liftDOM ((self ^. js "azimuth") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation> -getElevation ::-             (MonadDOM m) =>-               SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber)-getElevation self-  = liftDOM ((self ^. js "elevation") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEDropShadowElement.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEDropShadowElement-       (setStdDeviation, getIn1, getDx, getDy, getStdDeviationX,-        getStdDeviationY, SVGFEDropShadowElement,-        castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.setStdDeviation Mozilla SVGFEDropShadowElement.setStdDeviation documentation> -setStdDeviation ::-                (MonadDOM m) => SVGFEDropShadowElement -> Float -> Float -> m ()-setStdDeviation self stdDeviationX stdDeviationY-  = liftDOM-      (void-         (self ^. jsf "setStdDeviation"-            [toJSVal stdDeviationX, toJSVal stdDeviationY]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEDropShadowElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation> -getDx ::-      (MonadDOM m) =>-        SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)-getDx self = liftDOM ((self ^. js "dx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation> -getDy ::-      (MonadDOM m) =>-        SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)-getDy self = liftDOM ((self ^. js "dy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation> -getStdDeviationX ::-                 (MonadDOM m) =>-                   SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)-getStdDeviationX self-  = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation> -getStdDeviationY ::-                 (MonadDOM m) =>-                   SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)-getStdDeviationY self-  = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEGaussianBlurElement.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEGaussianBlurElement-       (setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN,-        pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP,-        pattern SVG_EDGEMODE_NONE, getIn1, getStdDeviationX,-        getStdDeviationY, getEdgeMode, SVGFEGaussianBlurElement,-        castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.setStdDeviation Mozilla SVGFEGaussianBlurElement.setStdDeviation documentation> -setStdDeviation ::-                (MonadDOM m) => SVGFEGaussianBlurElement -> Float -> Float -> m ()-setStdDeviation self stdDeviationX stdDeviationY-  = liftDOM-      (void-         (self ^. jsf "setStdDeviation"-            [toJSVal stdDeviationX, toJSVal stdDeviationY]))-pattern SVG_EDGEMODE_UNKNOWN = 0-pattern SVG_EDGEMODE_DUPLICATE = 1-pattern SVG_EDGEMODE_WRAP = 2-pattern SVG_EDGEMODE_NONE = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation> -getStdDeviationX ::-                 (MonadDOM m) =>-                   SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber)-getStdDeviationX self-  = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation> -getStdDeviationY ::-                 (MonadDOM m) =>-                   SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber)-getStdDeviationY self-  = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation> -getEdgeMode ::-            (MonadDOM m) =>-              SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration)-getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEImageElement.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEImageElement-       (getPreserveAspectRatio, SVGFEImageElement,-        castToSVGFEImageElement, gTypeSVGFEImageElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation> -getPreserveAspectRatio ::-                       (MonadDOM m) =>-                         SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio)-getPreserveAspectRatio self-  = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEMergeNodeElement.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEMergeNodeElement-       (getIn1, SVGFEMergeNodeElement, castToSVGFEMergeNodeElement,-        gTypeSVGFEMergeNodeElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEMorphologyElement.hs 
@@ -1,53 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEMorphologyElement-       (setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN,-        pattern SVG_MORPHOLOGY_OPERATOR_ERODE,-        pattern SVG_MORPHOLOGY_OPERATOR_DILATE, getIn1, getOperator,-        getRadiusX, getRadiusY, SVGFEMorphologyElement,-        castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.setRadius Mozilla SVGFEMorphologyElement.setRadius documentation> -setRadius ::-          (MonadDOM m) => SVGFEMorphologyElement -> Float -> Float -> m ()-setRadius self radiusX radiusY-  = liftDOM-      (void (self ^. jsf "setRadius" [toJSVal radiusX, toJSVal radiusY]))-pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0-pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1-pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFEMorphologyElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation> -getOperator ::-            (MonadDOM m) =>-              SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration)-getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation> -getRadiusX ::-           (MonadDOM m) =>-             SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber)-getRadiusX self = liftDOM ((self ^. js "radiusX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation> -getRadiusY ::-           (MonadDOM m) =>-             SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber)-getRadiusY self = liftDOM ((self ^. js "radiusY") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEOffsetElement.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEOffsetElement-       (getIn1, getDx, getDy, SVGFEOffsetElement,-        castToSVGFEOffsetElement, gTypeSVGFEOffsetElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation> -getIn1 ::-       (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation> -getDx ::-      (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)-getDx self = liftDOM ((self ^. js "dx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation> -getDy ::-      (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)-getDy self = liftDOM ((self ^. js "dy") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFEPointLightElement.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFEPointLightElement-       (getX, getY, getZ, SVGFEPointLightElement,-        castToSVGFEPointLightElement, gTypeSVGFEPointLightElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation> -getX ::-     (MonadDOM m) =>-       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation> -getY ::-     (MonadDOM m) =>-       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation> -getZ ::-     (MonadDOM m) =>-       SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)-getZ self = liftDOM ((self ^. js "z") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFESpecularLightingElement.hs 
@@ -1,44 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFESpecularLightingElement-       (getIn1, getSurfaceScale, getSpecularConstant, getSpecularExponent,-        SVGFESpecularLightingElement, castToSVGFESpecularLightingElement,-        gTypeSVGFESpecularLightingElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation> -getIn1 ::-       (MonadDOM m) =>-         SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation> -getSurfaceScale ::-                (MonadDOM m) =>-                  SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)-getSurfaceScale self-  = liftDOM ((self ^. js "surfaceScale") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation> -getSpecularConstant ::-                    (MonadDOM m) =>-                      SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)-getSpecularConstant self-  = liftDOM ((self ^. js "specularConstant") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation> -getSpecularExponent ::-                    (MonadDOM m) =>-                      SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber)-getSpecularExponent self-  = liftDOM ((self ^. js "specularExponent") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFESpotLightElement.hs 
@@ -1,70 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFESpotLightElement-       (getX, getY, getZ, getPointsAtX, getPointsAtY, getPointsAtZ,-        getSpecularExponent, getLimitingConeAngle, SVGFESpotLightElement,-        castToSVGFESpotLightElement, gTypeSVGFESpotLightElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation> -getX ::-     (MonadDOM m) =>-       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation> -getY ::-     (MonadDOM m) =>-       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation> -getZ ::-     (MonadDOM m) =>-       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getZ self = liftDOM ((self ^. js "z") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation> -getPointsAtX ::-             (MonadDOM m) =>-               SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getPointsAtX self-  = liftDOM ((self ^. js "pointsAtX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation> -getPointsAtY ::-             (MonadDOM m) =>-               SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getPointsAtY self-  = liftDOM ((self ^. js "pointsAtY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation> -getPointsAtZ ::-             (MonadDOM m) =>-               SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getPointsAtZ self-  = liftDOM ((self ^. js "pointsAtZ") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation> -getSpecularExponent ::-                    (MonadDOM m) =>-                      SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getSpecularExponent self-  = liftDOM ((self ^. js "specularExponent") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation> -getLimitingConeAngle ::-                     (MonadDOM m) =>-                       SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getLimitingConeAngle self-  = liftDOM ((self ^. js "limitingConeAngle") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFETileElement.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFETileElement-       (getIn1, SVGFETileElement, castToSVGFETileElement,-        gTypeSVGFETileElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation> -getIn1 ::-       (MonadDOM m) => SVGFETileElement -> m (Maybe SVGAnimatedString)-getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFETurbulenceElement.hs 
@@ -1,68 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFETurbulenceElement-       (pattern SVG_TURBULENCE_TYPE_UNKNOWN,-        pattern SVG_TURBULENCE_TYPE_FRACTALNOISE,-        pattern SVG_TURBULENCE_TYPE_TURBULENCE,-        pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH,-        pattern SVG_STITCHTYPE_NOSTITCH, getBaseFrequencyX,-        getBaseFrequencyY, getNumOctaves, getSeed, getStitchTiles, getType,-        SVGFETurbulenceElement, castToSVGFETurbulenceElement,-        gTypeSVGFETurbulenceElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_TURBULENCE_TYPE_UNKNOWN = 0-pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1-pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2-pattern SVG_STITCHTYPE_UNKNOWN = 0-pattern SVG_STITCHTYPE_STITCH = 1-pattern SVG_STITCHTYPE_NOSTITCH = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation> -getBaseFrequencyX ::-                  (MonadDOM m) =>-                    SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)-getBaseFrequencyX self-  = liftDOM ((self ^. js "baseFrequencyX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation> -getBaseFrequencyY ::-                  (MonadDOM m) =>-                    SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)-getBaseFrequencyY self-  = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation> -getNumOctaves ::-              (MonadDOM m) =>-                SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger)-getNumOctaves self-  = liftDOM ((self ^. js "numOctaves") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation> -getSeed ::-        (MonadDOM m) =>-          SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)-getSeed self = liftDOM ((self ^. js "seed") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation> -getStitchTiles ::-               (MonadDOM m) =>-                 SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)-getStitchTiles self-  = liftDOM ((self ^. js "stitchTiles") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation> -getType ::-        (MonadDOM m) =>-          SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)-getType self = liftDOM ((self ^. js "type") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFilterElement.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFilterElement-       (setFilterRes, getFilterUnits, getPrimitiveUnits, getX, getY,-        getWidth, getHeight, getFilterResX, getFilterResY,-        SVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.setFilterRes Mozilla SVGFilterElement.setFilterRes documentation> -setFilterRes ::-             (MonadDOM m) => SVGFilterElement -> Word -> Word -> m ()-setFilterRes self filterResX filterResY-  = liftDOM-      (void-         (self ^. jsf "setFilterRes"-            [toJSVal filterResX, toJSVal filterResY]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation> -getFilterUnits ::-               (MonadDOM m) =>-                 SVGFilterElement -> m (Maybe SVGAnimatedEnumeration)-getFilterUnits self-  = liftDOM ((self ^. js "filterUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation> -getPrimitiveUnits ::-                  (MonadDOM m) =>-                    SVGFilterElement -> m (Maybe SVGAnimatedEnumeration)-getPrimitiveUnits self-  = liftDOM ((self ^. js "primitiveUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation> -getX ::-     (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation> -getY ::-     (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation> -getFilterResX ::-              (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger)-getFilterResX self-  = liftDOM ((self ^. js "filterResX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation> -getFilterResY ::-              (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger)-getFilterResY self-  = liftDOM ((self ^. js "filterResY") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFilterPrimitiveStandardAttributes.hs 
@@ -1,48 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFilterPrimitiveStandardAttributes-       (getX, getY, getWidth, getHeight, getResult,-        SVGFilterPrimitiveStandardAttributes,-        castToSVGFilterPrimitiveStandardAttributes,-        gTypeSVGFilterPrimitiveStandardAttributes)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation> -getX ::-     (MonadDOM m) =>-       SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation> -getY ::-     (MonadDOM m) =>-       SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation> -getWidth ::-         (MonadDOM m) =>-           SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation> -getHeight ::-          (MonadDOM m) =>-            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation> -getResult ::-          (MonadDOM m) =>-            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString)-getResult self = liftDOM ((self ^. js "result") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGFitToViewBox.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGFitToViewBox-       (getViewBox, getPreserveAspectRatio, SVGFitToViewBox,-        castToSVGFitToViewBox, gTypeSVGFitToViewBox)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation> -getViewBox ::-           (MonadDOM m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect)-getViewBox self = liftDOM ((self ^. js "viewBox") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation> -getPreserveAspectRatio ::-                       (MonadDOM m) =>-                         SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio)-getPreserveAspectRatio self-  = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGForeignObjectElement.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGForeignObjectElement-       (getX, getY, getWidth, getHeight, SVGForeignObjectElement,-        castToSVGForeignObjectElement, gTypeSVGForeignObjectElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation> -getX ::-     (MonadDOM m) =>-       SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation> -getY ::-     (MonadDOM m) =>-       SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation> -getWidth ::-         (MonadDOM m) =>-           SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation> -getHeight ::-          (MonadDOM m) =>-            SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGGlyphRefElement.hs 
@@ -1,76 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGGlyphRefElement-       (setGlyphRef, getGlyphRef, setFormat, getFormat, setX, getX, setY,-        getY, setDx, getDx, setDy, getDy, SVGGlyphRefElement,-        castToSVGGlyphRefElement, gTypeSVGGlyphRefElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation> -setGlyphRef ::-            (MonadDOM m, ToJSString val) => SVGGlyphRefElement -> val -> m ()-setGlyphRef self val-  = liftDOM (self ^. jss "glyphRef" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation> -getGlyphRef ::-            (MonadDOM m, FromJSString result) => SVGGlyphRefElement -> m result-getGlyphRef self-  = liftDOM ((self ^. js "glyphRef") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation> -setFormat ::-          (MonadDOM m, ToJSString val) => SVGGlyphRefElement -> val -> m ()-setFormat self val = liftDOM (self ^. jss "format" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation> -getFormat ::-          (MonadDOM m, FromJSString result) => SVGGlyphRefElement -> m result-getFormat self-  = liftDOM ((self ^. js "format") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation> -setX :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation> -getX :: (MonadDOM m) => SVGGlyphRefElement -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation> -setY :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation> -getY :: (MonadDOM m) => SVGGlyphRefElement -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation> -setDx :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()-setDx self val = liftDOM (self ^. jss "dx" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation> -getDx :: (MonadDOM m) => SVGGlyphRefElement -> m Float-getDx self-  = liftDOM (realToFrac <$> ((self ^. js "dx") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation> -setDy :: (MonadDOM m) => SVGGlyphRefElement -> Float -> m ()-setDy self val = liftDOM (self ^. jss "dy" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation> -getDy :: (MonadDOM m) => SVGGlyphRefElement -> m Float-getDy self-  = liftDOM (realToFrac <$> ((self ^. js "dy") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGGradientElement.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGGradientElement-       (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD,-        pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT,-        getGradientUnits, getGradientTransform, getSpreadMethod,-        SVGGradientElement, castToSVGGradientElement,-        gTypeSVGGradientElement, IsSVGGradientElement,-        toSVGGradientElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_SPREADMETHOD_UNKNOWN = 0-pattern SVG_SPREADMETHOD_PAD = 1-pattern SVG_SPREADMETHOD_REFLECT = 2-pattern SVG_SPREADMETHOD_REPEAT = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation> -getGradientUnits ::-                 (MonadDOM m, IsSVGGradientElement self) =>-                   self -> m (Maybe SVGAnimatedEnumeration)-getGradientUnits self-  = liftDOM-      (((toSVGGradientElement self) ^. js "gradientUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation> -getGradientTransform ::-                     (MonadDOM m, IsSVGGradientElement self) =>-                       self -> m (Maybe SVGAnimatedTransformList)-getGradientTransform self-  = liftDOM-      (((toSVGGradientElement self) ^. js "gradientTransform") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation> -getSpreadMethod ::-                (MonadDOM m, IsSVGGradientElement self) =>-                  self -> m (Maybe SVGAnimatedEnumeration)-getSpreadMethod self-  = liftDOM-      (((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGGraphicsElement.hs 
@@ -1,79 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGGraphicsElement-       (getBBox, getCTM, getScreenCTM, getTransformToElement,-        getTransform, getNearestViewportElement,-        getFarthestViewportElement, SVGGraphicsElement,-        castToSVGGraphicsElement, gTypeSVGGraphicsElement,-        IsSVGGraphicsElement, toSVGGraphicsElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation> -getBBox ::-        (MonadDOM m, IsSVGGraphicsElement self) =>-          self -> m (Maybe SVGRect)-getBBox self-  = liftDOM-      (((toSVGGraphicsElement self) ^. js "getBBox") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation> -getCTM ::-       (MonadDOM m, IsSVGGraphicsElement self) =>-         self -> m (Maybe SVGMatrix)-getCTM self-  = liftDOM-      (((toSVGGraphicsElement self) ^. js "getCTM") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation> -getScreenCTM ::-             (MonadDOM m, IsSVGGraphicsElement self) =>-               self -> m (Maybe SVGMatrix)-getScreenCTM self-  = liftDOM-      (((toSVGGraphicsElement self) ^. js "getScreenCTM") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation> -getTransformToElement ::-                      (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) =>-                        self -> Maybe element -> m (Maybe SVGMatrix)-getTransformToElement self element-  = liftDOM-      (((toSVGGraphicsElement self) ^. jsf "getTransformToElement"-          [toJSVal element])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation> -getTransform ::-             (MonadDOM m, IsSVGGraphicsElement self) =>-               self -> m (Maybe SVGAnimatedTransformList)-getTransform self-  = liftDOM-      (((toSVGGraphicsElement self) ^. js "transform") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation> -getNearestViewportElement ::-                          (MonadDOM m, IsSVGGraphicsElement self) =>-                            self -> m (Maybe SVGElement)-getNearestViewportElement self-  = liftDOM-      (((toSVGGraphicsElement self) ^. js "nearestViewportElement") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation> -getFarthestViewportElement ::-                           (MonadDOM m, IsSVGGraphicsElement self) =>-                             self -> m (Maybe SVGElement)-getFarthestViewportElement self-  = liftDOM-      (((toSVGGraphicsElement self) ^. js "farthestViewportElement") >>=-         fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGImageElement.hs 
@@ -1,43 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGImageElement-       (getX, getY, getWidth, getHeight, getPreserveAspectRatio,-        SVGImageElement, castToSVGImageElement, gTypeSVGImageElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation> -getX ::-     (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation> -getY ::-     (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation> -getPreserveAspectRatio ::-                       (MonadDOM m) =>-                         SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio)-getPreserveAspectRatio self-  = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGLength.hs 
@@ -1,90 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGLength-       (newValueSpecifiedUnits, convertToSpecifiedUnits,-        pattern SVG_LENGTHTYPE_UNKNOWN, pattern SVG_LENGTHTYPE_NUMBER,-        pattern SVG_LENGTHTYPE_PERCENTAGE, pattern SVG_LENGTHTYPE_EMS,-        pattern SVG_LENGTHTYPE_EXS, pattern SVG_LENGTHTYPE_PX,-        pattern SVG_LENGTHTYPE_CM, pattern SVG_LENGTHTYPE_MM,-        pattern SVG_LENGTHTYPE_IN, pattern SVG_LENGTHTYPE_PT,-        pattern SVG_LENGTHTYPE_PC, getUnitType, setValue, getValue,-        setValueInSpecifiedUnits, getValueInSpecifiedUnits,-        setValueAsString, getValueAsString, SVGLength, castToSVGLength,-        gTypeSVGLength)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.newValueSpecifiedUnits Mozilla SVGLength.newValueSpecifiedUnits documentation> -newValueSpecifiedUnits ::-                       (MonadDOM m) => SVGLength -> Word -> Float -> m ()-newValueSpecifiedUnits self unitType valueInSpecifiedUnits-  = liftDOM-      (void-         (self ^. jsf "newValueSpecifiedUnits"-            [toJSVal unitType, toJSVal valueInSpecifiedUnits]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.convertToSpecifiedUnits Mozilla SVGLength.convertToSpecifiedUnits documentation> -convertToSpecifiedUnits ::-                        (MonadDOM m) => SVGLength -> Word -> m ()-convertToSpecifiedUnits self unitType-  = liftDOM-      (void (self ^. jsf "convertToSpecifiedUnits" [toJSVal unitType]))-pattern SVG_LENGTHTYPE_UNKNOWN = 0-pattern SVG_LENGTHTYPE_NUMBER = 1-pattern SVG_LENGTHTYPE_PERCENTAGE = 2-pattern SVG_LENGTHTYPE_EMS = 3-pattern SVG_LENGTHTYPE_EXS = 4-pattern SVG_LENGTHTYPE_PX = 5-pattern SVG_LENGTHTYPE_CM = 6-pattern SVG_LENGTHTYPE_MM = 7-pattern SVG_LENGTHTYPE_IN = 8-pattern SVG_LENGTHTYPE_PT = 9-pattern SVG_LENGTHTYPE_PC = 10---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.unitType Mozilla SVGLength.unitType documentation> -getUnitType :: (MonadDOM m) => SVGLength -> m Word-getUnitType self-  = liftDOM (round <$> ((self ^. js "unitType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation> -setValue :: (MonadDOM m) => SVGLength -> Float -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation> -getValue :: (MonadDOM m) => SVGLength -> m Float-getValue self-  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation> -setValueInSpecifiedUnits ::-                         (MonadDOM m) => SVGLength -> Float -> m ()-setValueInSpecifiedUnits self val-  = liftDOM (self ^. jss "valueInSpecifiedUnits" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation> -getValueInSpecifiedUnits :: (MonadDOM m) => SVGLength -> m Float-getValueInSpecifiedUnits self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "valueInSpecifiedUnits") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> -setValueAsString ::-                 (MonadDOM m, ToJSString val) => SVGLength -> Maybe val -> m ()-setValueAsString self val-  = liftDOM (self ^. jss "valueAsString" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> -getValueAsString ::-                 (MonadDOM m, FromJSString result) => SVGLength -> m (Maybe result)-getValueAsString self-  = liftDOM ((self ^. js "valueAsString") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGLengthList.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGLengthList-       (clear, initialize, getItem, insertItemBefore, replaceItem,-        removeItem, appendItem, getNumberOfItems, SVGLengthList,-        castToSVGLengthList, gTypeSVGLengthList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.clear Mozilla SVGLengthList.clear documentation> -clear :: (MonadDOM m) => SVGLengthList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation> -initialize ::-           (MonadDOM m) =>-             SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength)-initialize self item-  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation> -getItem ::-        (MonadDOM m) => SVGLengthList -> Word -> m (Maybe SVGLength)-getItem self index-  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation> -insertItemBefore ::-                 (MonadDOM m) =>-                   SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength)-insertItemBefore self item index-  = liftDOM-      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation> -replaceItem ::-            (MonadDOM m) =>-              SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength)-replaceItem self item index-  = liftDOM-      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation> -removeItem ::-           (MonadDOM m) => SVGLengthList -> Word -> m (Maybe SVGLength)-removeItem self index-  = liftDOM-      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation> -appendItem ::-           (MonadDOM m) =>-             SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength)-appendItem self item-  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.numberOfItems Mozilla SVGLengthList.numberOfItems documentation> -getNumberOfItems :: (MonadDOM m) => SVGLengthList -> m Word-getNumberOfItems self-  = liftDOM-      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGLineElement.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGLineElement-       (getX1, getY1, getX2, getY2, SVGLineElement, castToSVGLineElement,-        gTypeSVGLineElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation> -getX1 ::-      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation> -getY1 ::-      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation> -getX2 ::-      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation> -getY2 ::-      (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGLinearGradientElement.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGLinearGradientElement-       (getX1, getY1, getX2, getY2, SVGLinearGradientElement,-        castToSVGLinearGradientElement, gTypeSVGLinearGradientElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation> -getX1 ::-      (MonadDOM m) =>-        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation> -getY1 ::-      (MonadDOM m) =>-        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation> -getX2 ::-      (MonadDOM m) =>-        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation> -getY2 ::-      (MonadDOM m) =>-        SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGMarkerElement.hs 
@@ -1,81 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGMarkerElement-       (setOrientToAuto, setOrientToAngle,-        pattern SVG_MARKERUNITS_UNKNOWN,-        pattern SVG_MARKERUNITS_USERSPACEONUSE,-        pattern SVG_MARKERUNITS_STROKEWIDTH,-        pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO,-        pattern SVG_MARKER_ORIENT_ANGLE, getRefX, getRefY, getMarkerUnits,-        getMarkerWidth, getMarkerHeight, getOrientType, getOrientAngle,-        SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAuto Mozilla SVGMarkerElement.setOrientToAuto documentation> -setOrientToAuto :: (MonadDOM m) => SVGMarkerElement -> m ()-setOrientToAuto self-  = liftDOM (void (self ^. js "setOrientToAuto"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAngle Mozilla SVGMarkerElement.setOrientToAngle documentation> -setOrientToAngle ::-                 (MonadDOM m) => SVGMarkerElement -> Maybe SVGAngle -> m ()-setOrientToAngle self angle-  = liftDOM (void (self ^. jsf "setOrientToAngle" [toJSVal angle]))-pattern SVG_MARKERUNITS_UNKNOWN = 0-pattern SVG_MARKERUNITS_USERSPACEONUSE = 1-pattern SVG_MARKERUNITS_STROKEWIDTH = 2-pattern SVG_MARKER_ORIENT_UNKNOWN = 0-pattern SVG_MARKER_ORIENT_AUTO = 1-pattern SVG_MARKER_ORIENT_ANGLE = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation> -getRefX ::-        (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)-getRefX self = liftDOM ((self ^. js "refX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation> -getRefY ::-        (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)-getRefY self = liftDOM ((self ^. js "refY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation> -getMarkerUnits ::-               (MonadDOM m) =>-                 SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)-getMarkerUnits self-  = liftDOM ((self ^. js "markerUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation> -getMarkerWidth ::-               (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)-getMarkerWidth self-  = liftDOM ((self ^. js "markerWidth") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation> -getMarkerHeight ::-                (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)-getMarkerHeight self-  = liftDOM ((self ^. js "markerHeight") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation> -getOrientType ::-              (MonadDOM m) =>-                SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)-getOrientType self-  = liftDOM ((self ^. js "orientType") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation> -getOrientAngle ::-               (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle)-getOrientAngle self-  = liftDOM ((self ^. js "orientAngle") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGMaskElement.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGMaskElement-       (getMaskUnits, getMaskContentUnits, getX, getY, getWidth,-        getHeight, SVGMaskElement, castToSVGMaskElement,-        gTypeSVGMaskElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation> -getMaskUnits ::-             (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration)-getMaskUnits self-  = liftDOM ((self ^. js "maskUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation> -getMaskContentUnits ::-                    (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration)-getMaskContentUnits self-  = liftDOM ((self ^. js "maskContentUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation> -getX ::-     (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation> -getY ::-     (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGMatrix.hs 
@@ -1,130 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGMatrix-       (multiply, inverse, translate, scale, scaleNonUniform, rotate,-        rotateFromVector, flipX, flipY, skewX, skewY, setA, getA, setB,-        getB, setC, getC, setD, getD, setE, getE, setF, getF, SVGMatrix,-        castToSVGMatrix, gTypeSVGMatrix)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation> -multiply ::-         (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m (Maybe SVGMatrix)-multiply self secondMatrix-  = liftDOM-      ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation> -inverse :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix)-inverse self = liftDOM ((self ^. js "inverse") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation> -translate ::-          (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)-translate self x y-  = liftDOM-      ((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation> -scale :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)-scale self scaleFactor-  = liftDOM-      ((self ^. jsf "scale" [toJSVal scaleFactor]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation> -scaleNonUniform ::-                (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)-scaleNonUniform self scaleFactorX scaleFactorY-  = liftDOM-      ((self ^. jsf "scaleNonUniform"-          [toJSVal scaleFactorX, toJSVal scaleFactorY])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation> -rotate :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)-rotate self angle-  = liftDOM ((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation> -rotateFromVector ::-                 (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix)-rotateFromVector self x y-  = liftDOM-      ((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation> -flipX :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix)-flipX self = liftDOM ((self ^. js "flipX") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation> -flipY :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix)-flipY self = liftDOM ((self ^. js "flipY") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation> -skewX :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)-skewX self angle-  = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation> -skewY :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix)-skewY self angle-  = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation> -setA :: (MonadDOM m) => SVGMatrix -> Double -> m ()-setA self val = liftDOM (self ^. jss "a" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation> -getA :: (MonadDOM m) => SVGMatrix -> m Double-getA self = liftDOM ((self ^. js "a") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation> -setB :: (MonadDOM m) => SVGMatrix -> Double -> m ()-setB self val = liftDOM (self ^. jss "b" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation> -getB :: (MonadDOM m) => SVGMatrix -> m Double-getB self = liftDOM ((self ^. js "b") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation> -setC :: (MonadDOM m) => SVGMatrix -> Double -> m ()-setC self val = liftDOM (self ^. jss "c" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation> -getC :: (MonadDOM m) => SVGMatrix -> m Double-getC self = liftDOM ((self ^. js "c") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation> -setD :: (MonadDOM m) => SVGMatrix -> Double -> m ()-setD self val = liftDOM (self ^. jss "d" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation> -getD :: (MonadDOM m) => SVGMatrix -> m Double-getD self = liftDOM ((self ^. js "d") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation> -setE :: (MonadDOM m) => SVGMatrix -> Double -> m ()-setE self val = liftDOM (self ^. jss "e" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation> -getE :: (MonadDOM m) => SVGMatrix -> m Double-getE self = liftDOM ((self ^. js "e") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation> -setF :: (MonadDOM m) => SVGMatrix -> Double -> m ()-setF self val = liftDOM (self ^. jss "f" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation> -getF :: (MonadDOM m) => SVGMatrix -> m Double-getF self = liftDOM ((self ^. js "f") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGNumber.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGNumber-       (setValue, getValue, SVGNumber, castToSVGNumber, gTypeSVGNumber)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation> -setValue :: (MonadDOM m) => SVGNumber -> Float -> m ()-setValue self val = liftDOM (self ^. jss "value" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation> -getValue :: (MonadDOM m) => SVGNumber -> m Float-getValue self-  = liftDOM (realToFrac <$> ((self ^. js "value") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGNumberList.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGNumberList-       (clear, initialize, getItem, insertItemBefore, replaceItem,-        removeItem, appendItem, getNumberOfItems, SVGNumberList,-        castToSVGNumberList, gTypeSVGNumberList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.clear Mozilla SVGNumberList.clear documentation> -clear :: (MonadDOM m) => SVGNumberList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation> -initialize ::-           (MonadDOM m) =>-             SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber)-initialize self item-  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation> -getItem ::-        (MonadDOM m) => SVGNumberList -> Word -> m (Maybe SVGNumber)-getItem self index-  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation> -insertItemBefore ::-                 (MonadDOM m) =>-                   SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber)-insertItemBefore self item index-  = liftDOM-      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation> -replaceItem ::-            (MonadDOM m) =>-              SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber)-replaceItem self item index-  = liftDOM-      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation> -removeItem ::-           (MonadDOM m) => SVGNumberList -> Word -> m (Maybe SVGNumber)-removeItem self index-  = liftDOM-      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation> -appendItem ::-           (MonadDOM m) =>-             SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber)-appendItem self item-  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.numberOfItems Mozilla SVGNumberList.numberOfItems documentation> -getNumberOfItems :: (MonadDOM m) => SVGNumberList -> m Word-getNumberOfItems self-  = liftDOM-      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPaint.hs 
@@ -1,60 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPaint-       (setUri, setPaint, pattern SVG_PAINTTYPE_UNKNOWN,-        pattern SVG_PAINTTYPE_RGBCOLOR,-        pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR,-        pattern SVG_PAINTTYPE_NONE, pattern SVG_PAINTTYPE_CURRENTCOLOR,-        pattern SVG_PAINTTYPE_URI_NONE,-        pattern SVG_PAINTTYPE_URI_CURRENTCOLOR,-        pattern SVG_PAINTTYPE_URI_RGBCOLOR,-        pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR,-        pattern SVG_PAINTTYPE_URI, getPaintType, getUri, SVGPaint,-        castToSVGPaint, gTypeSVGPaint)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setUri Mozilla SVGPaint.setUri documentation> -setUri :: (MonadDOM m, ToJSString uri) => SVGPaint -> uri -> m ()-setUri self uri-  = liftDOM (void (self ^. jsf "setUri" [toJSVal uri]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setPaint Mozilla SVGPaint.setPaint documentation> -setPaint ::-         (MonadDOM m, ToJSString uri, ToJSString rgbColor,-          ToJSString iccColor) =>-           SVGPaint -> Word -> uri -> rgbColor -> iccColor -> m ()-setPaint self paintType uri rgbColor iccColor-  = liftDOM-      (void-         (self ^. jsf "setPaint"-            [toJSVal paintType, toJSVal uri, toJSVal rgbColor,-             toJSVal iccColor]))-pattern SVG_PAINTTYPE_UNKNOWN = 0-pattern SVG_PAINTTYPE_RGBCOLOR = 1-pattern SVG_PAINTTYPE_RGBCOLOR_ICCCOLOR = 2-pattern SVG_PAINTTYPE_NONE = 101-pattern SVG_PAINTTYPE_CURRENTCOLOR = 102-pattern SVG_PAINTTYPE_URI_NONE = 103-pattern SVG_PAINTTYPE_URI_CURRENTCOLOR = 104-pattern SVG_PAINTTYPE_URI_RGBCOLOR = 105-pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR = 106-pattern SVG_PAINTTYPE_URI = 107---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.paintType Mozilla SVGPaint.paintType documentation> -getPaintType :: (MonadDOM m) => SVGPaint -> m Word-getPaintType self-  = liftDOM (round <$> ((self ^. js "paintType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.uri Mozilla SVGPaint.uri documentation> -getUri :: (MonadDOM m, FromJSString result) => SVGPaint -> m result-getUri self = liftDOM ((self ^. js "uri") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathElement.hs 
@@ -1,309 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathElement-       (getTotalLength, getPointAtLength, getPathSegAtLength,-        createSVGPathSegClosePath, createSVGPathSegMovetoAbs,-        createSVGPathSegMovetoRel, createSVGPathSegLinetoAbs,-        createSVGPathSegLinetoRel, createSVGPathSegCurvetoCubicAbs,-        createSVGPathSegCurvetoCubicRel,-        createSVGPathSegCurvetoQuadraticAbs,-        createSVGPathSegCurvetoQuadraticRel, createSVGPathSegArcAbs,-        createSVGPathSegArcRel, createSVGPathSegLinetoHorizontalAbs,-        createSVGPathSegLinetoHorizontalRel,-        createSVGPathSegLinetoVerticalAbs,-        createSVGPathSegLinetoVerticalRel,-        createSVGPathSegCurvetoCubicSmoothAbs,-        createSVGPathSegCurvetoCubicSmoothRel,-        createSVGPathSegCurvetoQuadraticSmoothAbs,-        createSVGPathSegCurvetoQuadraticSmoothRel, getPathLength,-        getPathSegList, getNormalizedPathSegList, getAnimatedPathSegList,-        getAnimatedNormalizedPathSegList, SVGPathElement,-        castToSVGPathElement, gTypeSVGPathElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getTotalLength Mozilla SVGPathElement.getTotalLength documentation> -getTotalLength :: (MonadDOM m) => SVGPathElement -> m Float-getTotalLength self-  = liftDOM-      (realToFrac <$> ((self ^. js "getTotalLength") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation> -getPointAtLength ::-                 (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPoint)-getPointAtLength self distance-  = liftDOM-      ((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPathSegAtLength Mozilla SVGPathElement.getPathSegAtLength documentation> -getPathSegAtLength ::-                   (MonadDOM m) => SVGPathElement -> Float -> m Word-getPathSegAtLength self distance-  = liftDOM-      (round <$>-         ((self ^. jsf "getPathSegAtLength" [toJSVal distance]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation> -createSVGPathSegClosePath ::-                          (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegClosePath)-createSVGPathSegClosePath self-  = liftDOM ((self ^. js "createSVGPathSegClosePath") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation> -createSVGPathSegMovetoAbs ::-                          (MonadDOM m) =>-                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoAbs)-createSVGPathSegMovetoAbs self x y-  = liftDOM-      ((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation> -createSVGPathSegMovetoRel ::-                          (MonadDOM m) =>-                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoRel)-createSVGPathSegMovetoRel self x y-  = liftDOM-      ((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation> -createSVGPathSegLinetoAbs ::-                          (MonadDOM m) =>-                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoAbs)-createSVGPathSegLinetoAbs self x y-  = liftDOM-      ((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation> -createSVGPathSegLinetoRel ::-                          (MonadDOM m) =>-                            SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoRel)-createSVGPathSegLinetoRel self x y-  = liftDOM-      ((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation> -createSVGPathSegCurvetoCubicAbs ::-                                (MonadDOM m) =>-                                  SVGPathElement ->-                                    Float ->-                                      Float ->-                                        Float ->-                                          Float ->-                                            Float -> Float -> m (Maybe SVGPathSegCurvetoCubicAbs)-createSVGPathSegCurvetoCubicAbs self x y x1 y1 x2 y2-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoCubicAbs"-          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2,-           toJSVal y2])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation> -createSVGPathSegCurvetoCubicRel ::-                                (MonadDOM m) =>-                                  SVGPathElement ->-                                    Float ->-                                      Float ->-                                        Float ->-                                          Float ->-                                            Float -> Float -> m (Maybe SVGPathSegCurvetoCubicRel)-createSVGPathSegCurvetoCubicRel self x y x1 y1 x2 y2-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoCubicRel"-          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2,-           toJSVal y2])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation> -createSVGPathSegCurvetoQuadraticAbs ::-                                    (MonadDOM m) =>-                                      SVGPathElement ->-                                        Float ->-                                          Float ->-                                            Float ->-                                              Float -> m (Maybe SVGPathSegCurvetoQuadraticAbs)-createSVGPathSegCurvetoQuadraticAbs self x y x1 y1-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoQuadraticAbs"-          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation> -createSVGPathSegCurvetoQuadraticRel ::-                                    (MonadDOM m) =>-                                      SVGPathElement ->-                                        Float ->-                                          Float ->-                                            Float ->-                                              Float -> m (Maybe SVGPathSegCurvetoQuadraticRel)-createSVGPathSegCurvetoQuadraticRel self x y x1 y1-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoQuadraticRel"-          [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation> -createSVGPathSegArcAbs ::-                       (MonadDOM m) =>-                         SVGPathElement ->-                           Float ->-                             Float ->-                               Float ->-                                 Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcAbs)-createSVGPathSegArcAbs self x y r1 r2 angle largeArcFlag sweepFlag-  = liftDOM-      ((self ^. jsf "createSVGPathSegArcAbs"-          [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle,-           toJSVal largeArcFlag, toJSVal sweepFlag])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation> -createSVGPathSegArcRel ::-                       (MonadDOM m) =>-                         SVGPathElement ->-                           Float ->-                             Float ->-                               Float ->-                                 Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcRel)-createSVGPathSegArcRel self x y r1 r2 angle largeArcFlag sweepFlag-  = liftDOM-      ((self ^. jsf "createSVGPathSegArcRel"-          [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle,-           toJSVal largeArcFlag, toJSVal sweepFlag])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation> -createSVGPathSegLinetoHorizontalAbs ::-                                    (MonadDOM m) =>-                                      SVGPathElement ->-                                        Float -> m (Maybe SVGPathSegLinetoHorizontalAbs)-createSVGPathSegLinetoHorizontalAbs self x-  = liftDOM-      ((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation> -createSVGPathSegLinetoHorizontalRel ::-                                    (MonadDOM m) =>-                                      SVGPathElement ->-                                        Float -> m (Maybe SVGPathSegLinetoHorizontalRel)-createSVGPathSegLinetoHorizontalRel self x-  = liftDOM-      ((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation> -createSVGPathSegLinetoVerticalAbs ::-                                  (MonadDOM m) =>-                                    SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalAbs)-createSVGPathSegLinetoVerticalAbs self y-  = liftDOM-      ((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation> -createSVGPathSegLinetoVerticalRel ::-                                  (MonadDOM m) =>-                                    SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalRel)-createSVGPathSegLinetoVerticalRel self y-  = liftDOM-      ((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation> -createSVGPathSegCurvetoCubicSmoothAbs ::-                                      (MonadDOM m) =>-                                        SVGPathElement ->-                                          Float ->-                                            Float ->-                                              Float ->-                                                Float -> m (Maybe SVGPathSegCurvetoCubicSmoothAbs)-createSVGPathSegCurvetoCubicSmoothAbs self x y x2 y2-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs"-          [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation> -createSVGPathSegCurvetoCubicSmoothRel ::-                                      (MonadDOM m) =>-                                        SVGPathElement ->-                                          Float ->-                                            Float ->-                                              Float ->-                                                Float -> m (Maybe SVGPathSegCurvetoCubicSmoothRel)-createSVGPathSegCurvetoCubicSmoothRel self x y x2 y2-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel"-          [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation> -createSVGPathSegCurvetoQuadraticSmoothAbs ::-                                          (MonadDOM m) =>-                                            SVGPathElement ->-                                              Float ->-                                                Float ->-                                                  m (Maybe SVGPathSegCurvetoQuadraticSmoothAbs)-createSVGPathSegCurvetoQuadraticSmoothAbs self x y-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs"-          [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation> -createSVGPathSegCurvetoQuadraticSmoothRel ::-                                          (MonadDOM m) =>-                                            SVGPathElement ->-                                              Float ->-                                                Float ->-                                                  m (Maybe SVGPathSegCurvetoQuadraticSmoothRel)-createSVGPathSegCurvetoQuadraticSmoothRel self x y-  = liftDOM-      ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel"-          [toJSVal x, toJSVal y])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation> -getPathLength ::-              (MonadDOM m) => SVGPathElement -> m (Maybe SVGAnimatedNumber)-getPathLength self-  = liftDOM ((self ^. js "pathLength") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation> -getPathSegList ::-               (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)-getPathSegList self-  = liftDOM ((self ^. js "pathSegList") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation> -getNormalizedPathSegList ::-                         (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)-getNormalizedPathSegList self-  = liftDOM ((self ^. js "normalizedPathSegList") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation> -getAnimatedPathSegList ::-                       (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)-getAnimatedPathSegList self-  = liftDOM ((self ^. js "animatedPathSegList") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation> -getAnimatedNormalizedPathSegList ::-                                 (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList)-getAnimatedNormalizedPathSegList self-  = liftDOM-      ((self ^. js "animatedNormalizedPathSegList") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSeg.hs 
@@ -1,67 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSeg-       (pattern PATHSEG_UNKNOWN, pattern PATHSEG_CLOSEPATH,-        pattern PATHSEG_MOVETO_ABS, pattern PATHSEG_MOVETO_REL,-        pattern PATHSEG_LINETO_ABS, pattern PATHSEG_LINETO_REL,-        pattern PATHSEG_CURVETO_CUBIC_ABS,-        pattern PATHSEG_CURVETO_CUBIC_REL,-        pattern PATHSEG_CURVETO_QUADRATIC_ABS,-        pattern PATHSEG_CURVETO_QUADRATIC_REL, pattern PATHSEG_ARC_ABS,-        pattern PATHSEG_ARC_REL, pattern PATHSEG_LINETO_HORIZONTAL_ABS,-        pattern PATHSEG_LINETO_HORIZONTAL_REL,-        pattern PATHSEG_LINETO_VERTICAL_ABS,-        pattern PATHSEG_LINETO_VERTICAL_REL,-        pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS,-        pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL,-        pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS,-        pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL, getPathSegType,-        getPathSegTypeAsLetter, SVGPathSeg, castToSVGPathSeg,-        gTypeSVGPathSeg, IsSVGPathSeg, toSVGPathSeg)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern PATHSEG_UNKNOWN = 0-pattern PATHSEG_CLOSEPATH = 1-pattern PATHSEG_MOVETO_ABS = 2-pattern PATHSEG_MOVETO_REL = 3-pattern PATHSEG_LINETO_ABS = 4-pattern PATHSEG_LINETO_REL = 5-pattern PATHSEG_CURVETO_CUBIC_ABS = 6-pattern PATHSEG_CURVETO_CUBIC_REL = 7-pattern PATHSEG_CURVETO_QUADRATIC_ABS = 8-pattern PATHSEG_CURVETO_QUADRATIC_REL = 9-pattern PATHSEG_ARC_ABS = 10-pattern PATHSEG_ARC_REL = 11-pattern PATHSEG_LINETO_HORIZONTAL_ABS = 12-pattern PATHSEG_LINETO_HORIZONTAL_REL = 13-pattern PATHSEG_LINETO_VERTICAL_ABS = 14-pattern PATHSEG_LINETO_VERTICAL_REL = 15-pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS = 16-pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL = 17-pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS = 18-pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL = 19---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegType Mozilla SVGPathSeg.pathSegType documentation> -getPathSegType :: (MonadDOM m, IsSVGPathSeg self) => self -> m Word-getPathSegType self-  = liftDOM-      (round <$>-         (((toSVGPathSeg self) ^. js "pathSegType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegTypeAsLetter Mozilla SVGPathSeg.pathSegTypeAsLetter documentation> -getPathSegTypeAsLetter ::-                       (MonadDOM m, IsSVGPathSeg self, FromJSString result) =>-                         self -> m result-getPathSegTypeAsLetter self-  = liftDOM-      (((toSVGPathSeg self) ^. js "pathSegTypeAsLetter") >>=-         fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegArcAbs.hs 
@@ -1,83 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegArcAbs-       (setX, getX, setY, getY, setR1, getR1, setR2, getR2, setAngle,-        getAngle, setLargeArcFlag, getLargeArcFlag, setSweepFlag,-        getSweepFlag, SVGPathSegArcAbs, castToSVGPathSegArcAbs,-        gTypeSVGPathSegArcAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation> -setX :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegArcAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation> -setY :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegArcAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation> -setR1 :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()-setR1 self val = liftDOM (self ^. jss "r1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation> -getR1 :: (MonadDOM m) => SVGPathSegArcAbs -> m Float-getR1 self-  = liftDOM (realToFrac <$> ((self ^. js "r1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation> -setR2 :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()-setR2 self val = liftDOM (self ^. jss "r2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation> -getR2 :: (MonadDOM m) => SVGPathSegArcAbs -> m Float-getR2 self-  = liftDOM (realToFrac <$> ((self ^. js "r2") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation> -setAngle :: (MonadDOM m) => SVGPathSegArcAbs -> Float -> m ()-setAngle self val = liftDOM (self ^. jss "angle" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation> -getAngle :: (MonadDOM m) => SVGPathSegArcAbs -> m Float-getAngle self-  = liftDOM (realToFrac <$> ((self ^. js "angle") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation> -setLargeArcFlag :: (MonadDOM m) => SVGPathSegArcAbs -> Bool -> m ()-setLargeArcFlag self val-  = liftDOM (self ^. jss "largeArcFlag" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation> -getLargeArcFlag :: (MonadDOM m) => SVGPathSegArcAbs -> m Bool-getLargeArcFlag self-  = liftDOM ((self ^. js "largeArcFlag") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation> -setSweepFlag :: (MonadDOM m) => SVGPathSegArcAbs -> Bool -> m ()-setSweepFlag self val-  = liftDOM (self ^. jss "sweepFlag" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation> -getSweepFlag :: (MonadDOM m) => SVGPathSegArcAbs -> m Bool-getSweepFlag self-  = liftDOM ((self ^. js "sweepFlag") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegArcRel.hs 
@@ -1,83 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegArcRel-       (setX, getX, setY, getY, setR1, getR1, setR2, getR2, setAngle,-        getAngle, setLargeArcFlag, getLargeArcFlag, setSweepFlag,-        getSweepFlag, SVGPathSegArcRel, castToSVGPathSegArcRel,-        gTypeSVGPathSegArcRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation> -setX :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegArcRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation> -setY :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegArcRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation> -setR1 :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()-setR1 self val = liftDOM (self ^. jss "r1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation> -getR1 :: (MonadDOM m) => SVGPathSegArcRel -> m Float-getR1 self-  = liftDOM (realToFrac <$> ((self ^. js "r1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation> -setR2 :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()-setR2 self val = liftDOM (self ^. jss "r2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation> -getR2 :: (MonadDOM m) => SVGPathSegArcRel -> m Float-getR2 self-  = liftDOM (realToFrac <$> ((self ^. js "r2") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation> -setAngle :: (MonadDOM m) => SVGPathSegArcRel -> Float -> m ()-setAngle self val = liftDOM (self ^. jss "angle" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation> -getAngle :: (MonadDOM m) => SVGPathSegArcRel -> m Float-getAngle self-  = liftDOM (realToFrac <$> ((self ^. js "angle") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation> -setLargeArcFlag :: (MonadDOM m) => SVGPathSegArcRel -> Bool -> m ()-setLargeArcFlag self val-  = liftDOM (self ^. jss "largeArcFlag" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation> -getLargeArcFlag :: (MonadDOM m) => SVGPathSegArcRel -> m Bool-getLargeArcFlag self-  = liftDOM ((self ^. js "largeArcFlag") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation> -setSweepFlag :: (MonadDOM m) => SVGPathSegArcRel -> Bool -> m ()-setSweepFlag self val-  = liftDOM (self ^. jss "sweepFlag" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation> -getSweepFlag :: (MonadDOM m) => SVGPathSegArcRel -> m Bool-getSweepFlag self-  = liftDOM ((self ^. js "sweepFlag") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoCubicAbs.hs 
@@ -1,71 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicAbs-       (setX, getX, setY, getY, setX1, getX1, setY1, getY1, setX2, getX2,-        setY2, getY2, SVGPathSegCurvetoCubicAbs,-        castToSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation> -setX :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation> -setY :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation> -setX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation> -getX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float-getX1 self-  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation> -setY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation> -getY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float-getY1 self-  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation> -setX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation> -getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float-getX2 self-  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation> -setY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation> -getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicAbs -> m Float-getY2 self-  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoCubicRel.hs 
@@ -1,71 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicRel-       (setX, getX, setY, getY, setX1, getX1, setY1, getY1, setX2, getX2,-        setY2, getY2, SVGPathSegCurvetoCubicRel,-        castToSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation> -setX :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation> -setY :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation> -setX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation> -getX1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float-getX1 self-  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation> -setY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation> -getY1 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float-getY1 self-  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation> -setX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation> -getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float-getX2 self-  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation> -setY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation> -getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicRel -> m Float-getY2 self-  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicSmoothAbs-       (setX, getX, setY, getY, setX2, getX2, setY2, getY2,-        SVGPathSegCurvetoCubicSmoothAbs,-        castToSVGPathSegCurvetoCubicSmoothAbs,-        gTypeSVGPathSegCurvetoCubicSmoothAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation> -setX ::-     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation> -setY ::-     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation> -setX2 ::-      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation> -getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getX2 self-  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation> -setY2 ::-      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation> -getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getY2 self-  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoCubicSmoothRel.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoCubicSmoothRel-       (setX, getX, setY, getY, setX2, getX2, setY2, getY2,-        SVGPathSegCurvetoCubicSmoothRel,-        castToSVGPathSegCurvetoCubicSmoothRel,-        gTypeSVGPathSegCurvetoCubicSmoothRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation> -setX ::-     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation> -setY ::-     (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation> -setX2 ::-      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setX2 self val = liftDOM (self ^. jss "x2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation> -getX2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getX2 self-  = liftDOM (realToFrac <$> ((self ^. js "x2") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation> -setY2 ::-      (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setY2 self val = liftDOM (self ^. jss "y2" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation> -getY2 :: (MonadDOM m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getY2 self-  = liftDOM (realToFrac <$> ((self ^. js "y2") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoQuadraticAbs.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticAbs-       (setX, getX, setY, getY, setX1, getX1, setY1, getY1,-        SVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs,-        gTypeSVGPathSegCurvetoQuadraticAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation> -setX ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation> -setY ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation> -setX1 ::-      (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation> -getX1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getX1 self-  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation> -setY1 ::-      (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation> -getY1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getY1 self-  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoQuadraticRel.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticRel-       (setX, getX, setY, getY, setX1, getX1, setY1, getY1,-        SVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel,-        gTypeSVGPathSegCurvetoQuadraticRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation> -setX ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation> -setY ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation> -setX1 ::-      (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setX1 self val = liftDOM (self ^. jss "x1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation> -getX1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float-getX1 self-  = liftDOM (realToFrac <$> ((self ^. js "x1") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation> -setY1 ::-      (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setY1 self val = liftDOM (self ^. jss "y1" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation> -getY1 :: (MonadDOM m) => SVGPathSegCurvetoQuadraticRel -> m Float-getY1 self-  = liftDOM (realToFrac <$> ((self ^. js "y1") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticSmoothAbs-       (setX, getX, setY, getY, SVGPathSegCurvetoQuadraticSmoothAbs,-        castToSVGPathSegCurvetoQuadraticSmoothAbs,-        gTypeSVGPathSegCurvetoQuadraticSmoothAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation> -setX ::-     (MonadDOM m) =>-       SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation> -getX ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation> -setY ::-     (MonadDOM m) =>-       SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation> -getY ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegCurvetoQuadraticSmoothRel-       (setX, getX, setY, getY, SVGPathSegCurvetoQuadraticSmoothRel,-        castToSVGPathSegCurvetoQuadraticSmoothRel,-        gTypeSVGPathSegCurvetoQuadraticSmoothRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation> -setX ::-     (MonadDOM m) =>-       SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation> -getX ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation> -setY ::-     (MonadDOM m) =>-       SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation> -getY ::-     (MonadDOM m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegLinetoAbs.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoAbs-       (setX, getX, setY, getY, SVGPathSegLinetoAbs,-        castToSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation> -setX :: (MonadDOM m) => SVGPathSegLinetoAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegLinetoAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation> -setY :: (MonadDOM m) => SVGPathSegLinetoAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegLinetoAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegLinetoHorizontalAbs.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoHorizontalAbs-       (setX, getX, SVGPathSegLinetoHorizontalAbs,-        castToSVGPathSegLinetoHorizontalAbs,-        gTypeSVGPathSegLinetoHorizontalAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation> -setX ::-     (MonadDOM m) => SVGPathSegLinetoHorizontalAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegLinetoHorizontalAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegLinetoHorizontalRel.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoHorizontalRel-       (setX, getX, SVGPathSegLinetoHorizontalRel,-        castToSVGPathSegLinetoHorizontalRel,-        gTypeSVGPathSegLinetoHorizontalRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation> -setX ::-     (MonadDOM m) => SVGPathSegLinetoHorizontalRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegLinetoHorizontalRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegLinetoRel.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoRel-       (setX, getX, setY, getY, SVGPathSegLinetoRel,-        castToSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation> -setX :: (MonadDOM m) => SVGPathSegLinetoRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegLinetoRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation> -setY :: (MonadDOM m) => SVGPathSegLinetoRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegLinetoRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegLinetoVerticalAbs.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoVerticalAbs-       (setY, getY, SVGPathSegLinetoVerticalAbs,-        castToSVGPathSegLinetoVerticalAbs,-        gTypeSVGPathSegLinetoVerticalAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation> -setY ::-     (MonadDOM m) => SVGPathSegLinetoVerticalAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegLinetoVerticalAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegLinetoVerticalRel.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegLinetoVerticalRel-       (setY, getY, SVGPathSegLinetoVerticalRel,-        castToSVGPathSegLinetoVerticalRel,-        gTypeSVGPathSegLinetoVerticalRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation> -setY ::-     (MonadDOM m) => SVGPathSegLinetoVerticalRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegLinetoVerticalRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegList.hs 
@@ -1,74 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegList-       (clear, initialize, getItem, insertItemBefore, replaceItem,-        removeItem, appendItem, getNumberOfItems, SVGPathSegList,-        castToSVGPathSegList, gTypeSVGPathSegList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.clear Mozilla SVGPathSegList.clear documentation> -clear :: (MonadDOM m) => SVGPathSegList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation> -initialize ::-           (MonadDOM m, IsSVGPathSeg newItem) =>-             SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg)-initialize self newItem-  = liftDOM-      ((self ^. jsf "initialize" [toJSVal newItem]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation> -getItem ::-        (MonadDOM m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg)-getItem self index-  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation> -insertItemBefore ::-                 (MonadDOM m, IsSVGPathSeg newItem) =>-                   SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg)-insertItemBefore self newItem index-  = liftDOM-      ((self ^. jsf "insertItemBefore" [toJSVal newItem, toJSVal index])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation> -replaceItem ::-            (MonadDOM m, IsSVGPathSeg newItem) =>-              SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg)-replaceItem self newItem index-  = liftDOM-      ((self ^. jsf "replaceItem" [toJSVal newItem, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation> -removeItem ::-           (MonadDOM m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg)-removeItem self index-  = liftDOM-      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation> -appendItem ::-           (MonadDOM m, IsSVGPathSeg newItem) =>-             SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg)-appendItem self newItem-  = liftDOM-      ((self ^. jsf "appendItem" [toJSVal newItem]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.numberOfItems Mozilla SVGPathSegList.numberOfItems documentation> -getNumberOfItems :: (MonadDOM m) => SVGPathSegList -> m Word-getNumberOfItems self-  = liftDOM-      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegMovetoAbs.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegMovetoAbs-       (setX, getX, setY, getY, SVGPathSegMovetoAbs,-        castToSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation> -setX :: (MonadDOM m) => SVGPathSegMovetoAbs -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation> -getX :: (MonadDOM m) => SVGPathSegMovetoAbs -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation> -setY :: (MonadDOM m) => SVGPathSegMovetoAbs -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation> -getY :: (MonadDOM m) => SVGPathSegMovetoAbs -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPathSegMovetoRel.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPathSegMovetoRel-       (setX, getX, setY, getY, SVGPathSegMovetoRel,-        castToSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation> -setX :: (MonadDOM m) => SVGPathSegMovetoRel -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation> -getX :: (MonadDOM m) => SVGPathSegMovetoRel -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation> -setY :: (MonadDOM m) => SVGPathSegMovetoRel -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation> -getY :: (MonadDOM m) => SVGPathSegMovetoRel -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPatternElement.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPatternElement-       (getPatternUnits, getPatternContentUnits, getPatternTransform,-        getX, getY, getWidth, getHeight, SVGPatternElement,-        castToSVGPatternElement, gTypeSVGPatternElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation> -getPatternUnits ::-                (MonadDOM m) =>-                  SVGPatternElement -> m (Maybe SVGAnimatedEnumeration)-getPatternUnits self-  = liftDOM ((self ^. js "patternUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation> -getPatternContentUnits ::-                       (MonadDOM m) =>-                         SVGPatternElement -> m (Maybe SVGAnimatedEnumeration)-getPatternContentUnits self-  = liftDOM ((self ^. js "patternContentUnits") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation> -getPatternTransform ::-                    (MonadDOM m) =>-                      SVGPatternElement -> m (Maybe SVGAnimatedTransformList)-getPatternTransform self-  = liftDOM ((self ^. js "patternTransform") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation> -getX ::-     (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation> -getY ::-     (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPoint.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPoint-       (matrixTransform, setX, getX, setY, getY, SVGPoint, castToSVGPoint,-        gTypeSVGPoint)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation> -matrixTransform ::-                (MonadDOM m) => SVGPoint -> Maybe SVGMatrix -> m (Maybe SVGPoint)-matrixTransform self matrix-  = liftDOM-      ((self ^. jsf "matrixTransform" [toJSVal matrix]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation> -setX :: (MonadDOM m) => SVGPoint -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation> -getX :: (MonadDOM m) => SVGPoint -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation> -setY :: (MonadDOM m) => SVGPoint -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation> -getY :: (MonadDOM m) => SVGPoint -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPointList.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPointList-       (clear, initialize, getItem, insertItemBefore, replaceItem,-        removeItem, appendItem, getNumberOfItems, SVGPointList,-        castToSVGPointList, gTypeSVGPointList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.clear Mozilla SVGPointList.clear documentation> -clear :: (MonadDOM m) => SVGPointList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation> -initialize ::-           (MonadDOM m) =>-             SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint)-initialize self item-  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation> -getItem ::-        (MonadDOM m) => SVGPointList -> Word -> m (Maybe SVGPoint)-getItem self index-  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation> -insertItemBefore ::-                 (MonadDOM m) =>-                   SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint)-insertItemBefore self item index-  = liftDOM-      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation> -replaceItem ::-            (MonadDOM m) =>-              SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint)-replaceItem self item index-  = liftDOM-      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation> -removeItem ::-           (MonadDOM m) => SVGPointList -> Word -> m (Maybe SVGPoint)-removeItem self index-  = liftDOM-      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation> -appendItem ::-           (MonadDOM m) =>-             SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint)-appendItem self item-  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.numberOfItems Mozilla SVGPointList.numberOfItems documentation> -getNumberOfItems :: (MonadDOM m) => SVGPointList -> m Word-getNumberOfItems self-  = liftDOM-      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPolygonElement.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPolygonElement-       (getPoints, getAnimatedPoints, SVGPolygonElement,-        castToSVGPolygonElement, gTypeSVGPolygonElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation> -getPoints ::-          (MonadDOM m) => SVGPolygonElement -> m (Maybe SVGPointList)-getPoints self = liftDOM ((self ^. js "points") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation> -getAnimatedPoints ::-                  (MonadDOM m) => SVGPolygonElement -> m (Maybe SVGPointList)-getAnimatedPoints self-  = liftDOM ((self ^. js "animatedPoints") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPolylineElement.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPolylineElement-       (getPoints, getAnimatedPoints, SVGPolylineElement,-        castToSVGPolylineElement, gTypeSVGPolylineElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.points Mozilla SVGPolylineElement.points documentation> -getPoints ::-          (MonadDOM m) => SVGPolylineElement -> m (Maybe SVGPointList)-getPoints self = liftDOM ((self ^. js "points") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.animatedPoints Mozilla SVGPolylineElement.animatedPoints documentation> -getAnimatedPoints ::-                  (MonadDOM m) => SVGPolylineElement -> m (Maybe SVGPointList)-getAnimatedPoints self-  = liftDOM ((self ^. js "animatedPoints") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGPreserveAspectRatio.hs 
@@ -1,63 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGPreserveAspectRatio-       (pattern SVG_PRESERVEASPECTRATIO_UNKNOWN,-        pattern SVG_PRESERVEASPECTRATIO_NONE,-        pattern SVG_PRESERVEASPECTRATIO_XMINYMIN,-        pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN,-        pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN,-        pattern SVG_PRESERVEASPECTRATIO_XMINYMID,-        pattern SVG_PRESERVEASPECTRATIO_XMIDYMID,-        pattern SVG_PRESERVEASPECTRATIO_XMAXYMID,-        pattern SVG_PRESERVEASPECTRATIO_XMINYMAX,-        pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX,-        pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX,-        pattern SVG_MEETORSLICE_UNKNOWN, pattern SVG_MEETORSLICE_MEET,-        pattern SVG_MEETORSLICE_SLICE, setAlign, getAlign, setMeetOrSlice,-        getMeetOrSlice, SVGPreserveAspectRatio,-        castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_PRESERVEASPECTRATIO_UNKNOWN = 0-pattern SVG_PRESERVEASPECTRATIO_NONE = 1-pattern SVG_PRESERVEASPECTRATIO_XMINYMIN = 2-pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN = 3-pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN = 4-pattern SVG_PRESERVEASPECTRATIO_XMINYMID = 5-pattern SVG_PRESERVEASPECTRATIO_XMIDYMID = 6-pattern SVG_PRESERVEASPECTRATIO_XMAXYMID = 7-pattern SVG_PRESERVEASPECTRATIO_XMINYMAX = 8-pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX = 9-pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX = 10-pattern SVG_MEETORSLICE_UNKNOWN = 0-pattern SVG_MEETORSLICE_MEET = 1-pattern SVG_MEETORSLICE_SLICE = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.align Mozilla SVGPreserveAspectRatio.align documentation> -setAlign :: (MonadDOM m) => SVGPreserveAspectRatio -> Word -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.align Mozilla SVGPreserveAspectRatio.align documentation> -getAlign :: (MonadDOM m) => SVGPreserveAspectRatio -> m Word-getAlign self-  = liftDOM (round <$> ((self ^. js "align") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.meetOrSlice Mozilla SVGPreserveAspectRatio.meetOrSlice documentation> -setMeetOrSlice ::-               (MonadDOM m) => SVGPreserveAspectRatio -> Word -> m ()-setMeetOrSlice self val-  = liftDOM (self ^. jss "meetOrSlice" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.meetOrSlice Mozilla SVGPreserveAspectRatio.meetOrSlice documentation> -getMeetOrSlice :: (MonadDOM m) => SVGPreserveAspectRatio -> m Word-getMeetOrSlice self-  = liftDOM (round <$> ((self ^. js "meetOrSlice") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGRadialGradientElement.hs 
@@ -1,52 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGRadialGradientElement-       (getCx, getCy, getR, getFx, getFy, getFr, SVGRadialGradientElement,-        castToSVGRadialGradientElement, gTypeSVGRadialGradientElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cx Mozilla SVGRadialGradientElement.cx documentation> -getCx ::-      (MonadDOM m) =>-        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cy Mozilla SVGRadialGradientElement.cy documentation> -getCy ::-      (MonadDOM m) =>-        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.r Mozilla SVGRadialGradientElement.r documentation> -getR ::-     (MonadDOM m) =>-       SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getR self = liftDOM ((self ^. js "r") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fx Mozilla SVGRadialGradientElement.fx documentation> -getFx ::-      (MonadDOM m) =>-        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getFx self = liftDOM ((self ^. js "fx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fy Mozilla SVGRadialGradientElement.fy documentation> -getFy ::-      (MonadDOM m) =>-        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getFy self = liftDOM ((self ^. js "fy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fr Mozilla SVGRadialGradientElement.fr documentation> -getFr ::-      (MonadDOM m) =>-        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getFr self = liftDOM ((self ^. js "fr") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGRect.hs 
@@ -1,52 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGRect-       (setX, getX, setY, getY, setWidth, getWidth, setHeight, getHeight,-        SVGRect, castToSVGRect, gTypeSVGRect)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.x Mozilla SVGRect.x documentation> -setX :: (MonadDOM m) => SVGRect -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.x Mozilla SVGRect.x documentation> -getX :: (MonadDOM m) => SVGRect -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.y Mozilla SVGRect.y documentation> -setY :: (MonadDOM m) => SVGRect -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.y Mozilla SVGRect.y documentation> -getY :: (MonadDOM m) => SVGRect -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.width Mozilla SVGRect.width documentation> -setWidth :: (MonadDOM m) => SVGRect -> Float -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.width Mozilla SVGRect.width documentation> -getWidth :: (MonadDOM m) => SVGRect -> m Float-getWidth self-  = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.height Mozilla SVGRect.height documentation> -setHeight :: (MonadDOM m) => SVGRect -> Float -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.height Mozilla SVGRect.height documentation> -getHeight :: (MonadDOM m) => SVGRect -> m Float-getHeight self-  = liftDOM (realToFrac <$> ((self ^. js "height") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGRectElement.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGRectElement-       (getX, getY, getWidth, getHeight, getRx, getRy, SVGRectElement,-        castToSVGRectElement, gTypeSVGRectElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.x Mozilla SVGRectElement.x documentation> -getX ::-     (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.y Mozilla SVGRectElement.y documentation> -getY ::-     (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.width Mozilla SVGRectElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.height Mozilla SVGRectElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.rx Mozilla SVGRectElement.rx documentation> -getRx ::-      (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.ry Mozilla SVGRectElement.ry documentation> -getRy ::-      (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGRenderingIntent.hs 
@@ -1,26 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGRenderingIntent-       (pattern RENDERING_INTENT_UNKNOWN, pattern RENDERING_INTENT_AUTO,-        pattern RENDERING_INTENT_PERCEPTUAL,-        pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC,-        pattern RENDERING_INTENT_SATURATION,-        pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC, SVGRenderingIntent,-        castToSVGRenderingIntent, gTypeSVGRenderingIntent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern RENDERING_INTENT_UNKNOWN = 0-pattern RENDERING_INTENT_AUTO = 1-pattern RENDERING_INTENT_PERCEPTUAL = 2-pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC = 3-pattern RENDERING_INTENT_SATURATION = 4-pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC = 5
− src/Language/Javascript/JSaddle/DOM/Generated/SVGSVGElement.hs 
@@ -1,287 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGSVGElement-       (suspendRedraw, unsuspendRedraw, unsuspendRedrawAll, forceRedraw,-        pauseAnimations, unpauseAnimations, animationsPaused,-        getCurrentTime, setCurrentTime, getIntersectionList,-        getEnclosureList, checkIntersection, checkEnclosure, deselectAll,-        createSVGNumber, createSVGLength, createSVGAngle, createSVGPoint,-        createSVGMatrix, createSVGRect, createSVGTransform,-        createSVGTransformFromMatrix, getElementById, getX, getY, getWidth,-        getHeight, setContentScriptType, getContentScriptType,-        setContentStyleType, getContentStyleType, getViewport,-        getPixelUnitToMillimeterX, getPixelUnitToMillimeterY,-        getScreenPixelToMillimeterX, getScreenPixelToMillimeterY,-        getUseCurrentView, getCurrentView, setCurrentScale,-        getCurrentScale, getCurrentTranslate, SVGSVGElement,-        castToSVGSVGElement, gTypeSVGSVGElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.suspendRedraw Mozilla SVGSVGElement.suspendRedraw documentation> -suspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m Word-suspendRedraw self maxWaitMilliseconds-  = liftDOM-      (round <$>-         ((self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.unsuspendRedraw Mozilla SVGSVGElement.unsuspendRedraw documentation> -unsuspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m ()-unsuspendRedraw self suspendHandleId-  = liftDOM-      (void (self ^. jsf "unsuspendRedraw" [toJSVal suspendHandleId]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.unsuspendRedrawAll Mozilla SVGSVGElement.unsuspendRedrawAll documentation> -unsuspendRedrawAll :: (MonadDOM m) => SVGSVGElement -> m ()-unsuspendRedrawAll self-  = liftDOM (void (self ^. js "unsuspendRedrawAll"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.forceRedraw Mozilla SVGSVGElement.forceRedraw documentation> -forceRedraw :: (MonadDOM m) => SVGSVGElement -> m ()-forceRedraw self = liftDOM (void (self ^. js "forceRedraw"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.pauseAnimations Mozilla SVGSVGElement.pauseAnimations documentation> -pauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()-pauseAnimations self-  = liftDOM (void (self ^. js "pauseAnimations"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.unpauseAnimations Mozilla SVGSVGElement.unpauseAnimations documentation> -unpauseAnimations :: (MonadDOM m) => SVGSVGElement -> m ()-unpauseAnimations self-  = liftDOM (void (self ^. js "unpauseAnimations"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.animationsPaused Mozilla SVGSVGElement.animationsPaused documentation> -animationsPaused :: (MonadDOM m) => SVGSVGElement -> m Bool-animationsPaused self-  = liftDOM ((self ^. js "animationsPaused") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getCurrentTime Mozilla SVGSVGElement.getCurrentTime documentation> -getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float-getCurrentTime self-  = liftDOM-      (realToFrac <$> ((self ^. js "getCurrentTime") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.setCurrentTime Mozilla SVGSVGElement.setCurrentTime documentation> -setCurrentTime :: (MonadDOM m) => SVGSVGElement -> Float -> m ()-setCurrentTime self seconds-  = liftDOM (void (self ^. jsf "setCurrentTime" [toJSVal seconds]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getIntersectionList Mozilla SVGSVGElement.getIntersectionList documentation> -getIntersectionList ::-                    (MonadDOM m, IsSVGElement referenceElement) =>-                      SVGSVGElement ->-                        Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList)-getIntersectionList self rect referenceElement-  = liftDOM-      ((self ^. jsf "getIntersectionList"-          [toJSVal rect, toJSVal referenceElement])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getEnclosureList Mozilla SVGSVGElement.getEnclosureList documentation> -getEnclosureList ::-                 (MonadDOM m, IsSVGElement referenceElement) =>-                   SVGSVGElement ->-                     Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList)-getEnclosureList self rect referenceElement-  = liftDOM-      ((self ^. jsf "getEnclosureList"-          [toJSVal rect, toJSVal referenceElement])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.checkIntersection Mozilla SVGSVGElement.checkIntersection documentation> -checkIntersection ::-                  (MonadDOM m, IsSVGElement element) =>-                    SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool-checkIntersection self element rect-  = liftDOM-      ((self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.checkEnclosure Mozilla SVGSVGElement.checkEnclosure documentation> -checkEnclosure ::-               (MonadDOM m, IsSVGElement element) =>-                 SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool-checkEnclosure self element rect-  = liftDOM-      ((self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]) >>=-         valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.deselectAll Mozilla SVGSVGElement.deselectAll documentation> -deselectAll :: (MonadDOM m) => SVGSVGElement -> m ()-deselectAll self = liftDOM (void (self ^. js "deselectAll"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGNumber Mozilla SVGSVGElement.createSVGNumber documentation> -createSVGNumber ::-                (MonadDOM m) => SVGSVGElement -> m (Maybe SVGNumber)-createSVGNumber self-  = liftDOM ((self ^. js "createSVGNumber") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGLength Mozilla SVGSVGElement.createSVGLength documentation> -createSVGLength ::-                (MonadDOM m) => SVGSVGElement -> m (Maybe SVGLength)-createSVGLength self-  = liftDOM ((self ^. js "createSVGLength") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGAngle Mozilla SVGSVGElement.createSVGAngle documentation> -createSVGAngle ::-               (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAngle)-createSVGAngle self-  = liftDOM ((self ^. js "createSVGAngle") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGPoint Mozilla SVGSVGElement.createSVGPoint documentation> -createSVGPoint ::-               (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint)-createSVGPoint self-  = liftDOM ((self ^. js "createSVGPoint") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGMatrix Mozilla SVGSVGElement.createSVGMatrix documentation> -createSVGMatrix ::-                (MonadDOM m) => SVGSVGElement -> m (Maybe SVGMatrix)-createSVGMatrix self-  = liftDOM ((self ^. js "createSVGMatrix") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGRect Mozilla SVGSVGElement.createSVGRect documentation> -createSVGRect :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect)-createSVGRect self-  = liftDOM ((self ^. js "createSVGRect") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransform Mozilla SVGSVGElement.createSVGTransform documentation> -createSVGTransform ::-                   (MonadDOM m) => SVGSVGElement -> m (Maybe SVGTransform)-createSVGTransform self-  = liftDOM ((self ^. js "createSVGTransform") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransformFromMatrix Mozilla SVGSVGElement.createSVGTransformFromMatrix documentation> -createSVGTransformFromMatrix ::-                             (MonadDOM m) =>-                               SVGSVGElement -> Maybe SVGMatrix -> m (Maybe SVGTransform)-createSVGTransformFromMatrix self matrix-  = liftDOM-      ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getElementById Mozilla SVGSVGElement.getElementById documentation> -getElementById ::-               (MonadDOM m, ToJSString elementId) =>-                 SVGSVGElement -> elementId -> m (Maybe Element)-getElementById self elementId-  = liftDOM-      ((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.x Mozilla SVGSVGElement.x documentation> -getX ::-     (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.y Mozilla SVGSVGElement.y documentation> -getY ::-     (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.width Mozilla SVGSVGElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.height Mozilla SVGSVGElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentScriptType Mozilla SVGSVGElement.contentScriptType documentation> -setContentScriptType ::-                     (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()-setContentScriptType self val-  = liftDOM (self ^. jss "contentScriptType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentScriptType Mozilla SVGSVGElement.contentScriptType documentation> -getContentScriptType ::-                     (MonadDOM m, FromJSString result) => SVGSVGElement -> m result-getContentScriptType self-  = liftDOM ((self ^. js "contentScriptType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentStyleType Mozilla SVGSVGElement.contentStyleType documentation> -setContentStyleType ::-                    (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m ()-setContentStyleType self val-  = liftDOM (self ^. jss "contentStyleType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.contentStyleType Mozilla SVGSVGElement.contentStyleType documentation> -getContentStyleType ::-                    (MonadDOM m, FromJSString result) => SVGSVGElement -> m result-getContentStyleType self-  = liftDOM ((self ^. js "contentStyleType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.viewport Mozilla SVGSVGElement.viewport documentation> -getViewport :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect)-getViewport self = liftDOM ((self ^. js "viewport") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.pixelUnitToMillimeterX Mozilla SVGSVGElement.pixelUnitToMillimeterX documentation> -getPixelUnitToMillimeterX ::-                          (MonadDOM m) => SVGSVGElement -> m Float-getPixelUnitToMillimeterX self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "pixelUnitToMillimeterX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.pixelUnitToMillimeterY Mozilla SVGSVGElement.pixelUnitToMillimeterY documentation> -getPixelUnitToMillimeterY ::-                          (MonadDOM m) => SVGSVGElement -> m Float-getPixelUnitToMillimeterY self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "pixelUnitToMillimeterY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.screenPixelToMillimeterX Mozilla SVGSVGElement.screenPixelToMillimeterX documentation> -getScreenPixelToMillimeterX ::-                            (MonadDOM m) => SVGSVGElement -> m Float-getScreenPixelToMillimeterX self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "screenPixelToMillimeterX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.screenPixelToMillimeterY Mozilla SVGSVGElement.screenPixelToMillimeterY documentation> -getScreenPixelToMillimeterY ::-                            (MonadDOM m) => SVGSVGElement -> m Float-getScreenPixelToMillimeterY self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "screenPixelToMillimeterY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.useCurrentView Mozilla SVGSVGElement.useCurrentView documentation> -getUseCurrentView :: (MonadDOM m) => SVGSVGElement -> m Bool-getUseCurrentView self-  = liftDOM ((self ^. js "useCurrentView") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentView Mozilla SVGSVGElement.currentView documentation> -getCurrentView ::-               (MonadDOM m) => SVGSVGElement -> m (Maybe SVGViewSpec)-getCurrentView self-  = liftDOM ((self ^. js "currentView") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentScale Mozilla SVGSVGElement.currentScale documentation> -setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m ()-setCurrentScale self val-  = liftDOM (self ^. jss "currentScale" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentScale Mozilla SVGSVGElement.currentScale documentation> -getCurrentScale :: (MonadDOM m) => SVGSVGElement -> m Float-getCurrentScale self-  = liftDOM-      (realToFrac <$> ((self ^. js "currentScale") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentTranslate Mozilla SVGSVGElement.currentTranslate documentation> -getCurrentTranslate ::-                    (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint)-getCurrentTranslate self-  = liftDOM ((self ^. js "currentTranslate") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGScriptElement.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGScriptElement-       (setType, getType, SVGScriptElement, castToSVGScriptElement,-        gTypeSVGScriptElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) =>-          SVGScriptElement -> Maybe val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) =>-          SVGScriptElement -> m (Maybe result)-getType self = liftDOM ((self ^. js "type") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGStopElement.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGStopElement-       (getOffset, SVGStopElement, castToSVGStopElement,-        gTypeSVGStopElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStopElement.offset Mozilla SVGStopElement.offset documentation> -getOffset ::-          (MonadDOM m) => SVGStopElement -> m (Maybe SVGAnimatedNumber)-getOffset self = liftDOM ((self ^. js "offset") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGStringList.hs 
@@ -1,77 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGStringList-       (clear, initialize, getItem, insertItemBefore, replaceItem,-        removeItem, appendItem, getNumberOfItems, SVGStringList,-        castToSVGStringList, gTypeSVGStringList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.clear Mozilla SVGStringList.clear documentation> -clear :: (MonadDOM m) => SVGStringList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.initialize Mozilla SVGStringList.initialize documentation> -initialize ::-           (MonadDOM m, ToJSString item, FromJSString result) =>-             SVGStringList -> item -> m result-initialize self item-  = liftDOM-      ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.getItem Mozilla SVGStringList.getItem documentation> -getItem ::-        (MonadDOM m, FromJSString result) =>-          SVGStringList -> Word -> m result-getItem self index-  = liftDOM-      ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.insertItemBefore Mozilla SVGStringList.insertItemBefore documentation> -insertItemBefore ::-                 (MonadDOM m, ToJSString item, FromJSString result) =>-                   SVGStringList -> item -> Word -> m result-insertItemBefore self item index-  = liftDOM-      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.replaceItem Mozilla SVGStringList.replaceItem documentation> -replaceItem ::-            (MonadDOM m, ToJSString item, FromJSString result) =>-              SVGStringList -> item -> Word -> m result-replaceItem self item index-  = liftDOM-      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.removeItem Mozilla SVGStringList.removeItem documentation> -removeItem ::-           (MonadDOM m, FromJSString result) =>-             SVGStringList -> Word -> m result-removeItem self index-  = liftDOM-      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.appendItem Mozilla SVGStringList.appendItem documentation> -appendItem ::-           (MonadDOM m, ToJSString item, FromJSString result) =>-             SVGStringList -> item -> m result-appendItem self item-  = liftDOM-      ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList.numberOfItems Mozilla SVGStringList.numberOfItems documentation> -getNumberOfItems :: (MonadDOM m) => SVGStringList -> m Word-getNumberOfItems self-  = liftDOM-      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGStyleElement.hs 
@@ -1,58 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGStyleElement-       (setDisabled, getDisabled, setType, getType, setMedia, getMedia,-        setTitle, getTitle, SVGStyleElement, castToSVGStyleElement,-        gTypeSVGStyleElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.disabled Mozilla SVGStyleElement.disabled documentation> -setDisabled :: (MonadDOM m) => SVGStyleElement -> Bool -> m ()-setDisabled self val-  = liftDOM (self ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.disabled Mozilla SVGStyleElement.disabled documentation> -getDisabled :: (MonadDOM m) => SVGStyleElement -> m Bool-getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.type Mozilla SVGStyleElement.type documentation> -setType ::-        (MonadDOM m, ToJSString val) => SVGStyleElement -> val -> m ()-setType self val = liftDOM (self ^. jss "type" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.type Mozilla SVGStyleElement.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => SVGStyleElement -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.media Mozilla SVGStyleElement.media documentation> -setMedia ::-         (MonadDOM m, ToJSString val) => SVGStyleElement -> val -> m ()-setMedia self val = liftDOM (self ^. jss "media" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.media Mozilla SVGStyleElement.media documentation> -getMedia ::-         (MonadDOM m, FromJSString result) => SVGStyleElement -> m result-getMedia self-  = liftDOM ((self ^. js "media") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.title Mozilla SVGStyleElement.title documentation> -setTitle ::-         (MonadDOM m, ToJSString val) => SVGStyleElement -> val -> m ()-setTitle self val = liftDOM (self ^. jss "title" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement.title Mozilla SVGStyleElement.title documentation> -getTitle ::-         (MonadDOM m, FromJSString result) => SVGStyleElement -> m result-getTitle self-  = liftDOM ((self ^. js "title") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGTests.hs 
@@ -1,42 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGTests-       (hasExtension, getRequiredFeatures, getRequiredExtensions,-        getSystemLanguage, SVGTests, castToSVGTests, gTypeSVGTests)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.hasExtension Mozilla SVGTests.hasExtension documentation> -hasExtension ::-             (MonadDOM m, ToJSString extension) =>-               SVGTests -> extension -> m Bool-hasExtension self extension-  = liftDOM-      ((self ^. jsf "hasExtension" [toJSVal extension]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.requiredFeatures Mozilla SVGTests.requiredFeatures documentation> -getRequiredFeatures ::-                    (MonadDOM m) => SVGTests -> m (Maybe SVGStringList)-getRequiredFeatures self-  = liftDOM ((self ^. js "requiredFeatures") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.requiredExtensions Mozilla SVGTests.requiredExtensions documentation> -getRequiredExtensions ::-                      (MonadDOM m) => SVGTests -> m (Maybe SVGStringList)-getRequiredExtensions self-  = liftDOM ((self ^. js "requiredExtensions") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests.systemLanguage Mozilla SVGTests.systemLanguage documentation> -getSystemLanguage ::-                  (MonadDOM m) => SVGTests -> m (Maybe SVGStringList)-getSystemLanguage self-  = liftDOM ((self ^. js "systemLanguage") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGTextContentElement.hs 
@@ -1,133 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGTextContentElement-       (getNumberOfChars, getComputedTextLength, getSubStringLength,-        getStartPositionOfChar, getEndPositionOfChar, getExtentOfChar,-        getRotationOfChar, getCharNumAtPosition, selectSubString,-        pattern LENGTHADJUST_UNKNOWN, pattern LENGTHADJUST_SPACING,-        pattern LENGTHADJUST_SPACINGANDGLYPHS, getTextLength,-        getLengthAdjust, SVGTextContentElement,-        castToSVGTextContentElement, gTypeSVGTextContentElement,-        IsSVGTextContentElement, toSVGTextContentElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getNumberOfChars Mozilla SVGTextContentElement.getNumberOfChars documentation> -getNumberOfChars ::-                 (MonadDOM m, IsSVGTextContentElement self) => self -> m Int-getNumberOfChars self-  = liftDOM-      (round <$>-         (((toSVGTextContentElement self) ^. js "getNumberOfChars") >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getComputedTextLength Mozilla SVGTextContentElement.getComputedTextLength documentation> -getComputedTextLength ::-                      (MonadDOM m, IsSVGTextContentElement self) => self -> m Float-getComputedTextLength self-  = liftDOM-      (realToFrac <$>-         (((toSVGTextContentElement self) ^. js "getComputedTextLength") >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getSubStringLength Mozilla SVGTextContentElement.getSubStringLength documentation> -getSubStringLength ::-                   (MonadDOM m, IsSVGTextContentElement self) =>-                     self -> Word -> Word -> m Float-getSubStringLength self offset length-  = liftDOM-      (realToFrac <$>-         (((toSVGTextContentElement self) ^. jsf "getSubStringLength"-             [toJSVal offset, toJSVal length])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getStartPositionOfChar Mozilla SVGTextContentElement.getStartPositionOfChar documentation> -getStartPositionOfChar ::-                       (MonadDOM m, IsSVGTextContentElement self) =>-                         self -> Word -> m (Maybe SVGPoint)-getStartPositionOfChar self offset-  = liftDOM-      (((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar"-          [toJSVal offset])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getEndPositionOfChar Mozilla SVGTextContentElement.getEndPositionOfChar documentation> -getEndPositionOfChar ::-                     (MonadDOM m, IsSVGTextContentElement self) =>-                       self -> Word -> m (Maybe SVGPoint)-getEndPositionOfChar self offset-  = liftDOM-      (((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar"-          [toJSVal offset])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getExtentOfChar Mozilla SVGTextContentElement.getExtentOfChar documentation> -getExtentOfChar ::-                (MonadDOM m, IsSVGTextContentElement self) =>-                  self -> Word -> m (Maybe SVGRect)-getExtentOfChar self offset-  = liftDOM-      (((toSVGTextContentElement self) ^. jsf "getExtentOfChar"-          [toJSVal offset])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getRotationOfChar Mozilla SVGTextContentElement.getRotationOfChar documentation> -getRotationOfChar ::-                  (MonadDOM m, IsSVGTextContentElement self) =>-                    self -> Word -> m Float-getRotationOfChar self offset-  = liftDOM-      (realToFrac <$>-         (((toSVGTextContentElement self) ^. jsf "getRotationOfChar"-             [toJSVal offset])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.getCharNumAtPosition Mozilla SVGTextContentElement.getCharNumAtPosition documentation> -getCharNumAtPosition ::-                     (MonadDOM m, IsSVGTextContentElement self) =>-                       self -> Maybe SVGPoint -> m Int-getCharNumAtPosition self point-  = liftDOM-      (round <$>-         (((toSVGTextContentElement self) ^. jsf "getCharNumAtPosition"-             [toJSVal point])-            >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.selectSubString Mozilla SVGTextContentElement.selectSubString documentation> -selectSubString ::-                (MonadDOM m, IsSVGTextContentElement self) =>-                  self -> Word -> Word -> m ()-selectSubString self offset length-  = liftDOM-      (void-         ((toSVGTextContentElement self) ^. jsf "selectSubString"-            [toJSVal offset, toJSVal length]))-pattern LENGTHADJUST_UNKNOWN = 0-pattern LENGTHADJUST_SPACING = 1-pattern LENGTHADJUST_SPACINGANDGLYPHS = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.textLength Mozilla SVGTextContentElement.textLength documentation> -getTextLength ::-              (MonadDOM m, IsSVGTextContentElement self) =>-                self -> m (Maybe SVGAnimatedLength)-getTextLength self-  = liftDOM-      (((toSVGTextContentElement self) ^. js "textLength") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement.lengthAdjust Mozilla SVGTextContentElement.lengthAdjust documentation> -getLengthAdjust ::-                (MonadDOM m, IsSVGTextContentElement self) =>-                  self -> m (Maybe SVGAnimatedEnumeration)-getLengthAdjust self-  = liftDOM-      (((toSVGTextContentElement self) ^. js "lengthAdjust") >>=-         fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGTextPathElement.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGTextPathElement-       (pattern TEXTPATH_METHODTYPE_UNKNOWN,-        pattern TEXTPATH_METHODTYPE_ALIGN,-        pattern TEXTPATH_METHODTYPE_STRETCH,-        pattern TEXTPATH_SPACINGTYPE_UNKNOWN,-        pattern TEXTPATH_SPACINGTYPE_AUTO,-        pattern TEXTPATH_SPACINGTYPE_EXACT, getStartOffset, getMethod,-        getSpacing, SVGTextPathElement, castToSVGTextPathElement,-        gTypeSVGTextPathElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern TEXTPATH_METHODTYPE_UNKNOWN = 0-pattern TEXTPATH_METHODTYPE_ALIGN = 1-pattern TEXTPATH_METHODTYPE_STRETCH = 2-pattern TEXTPATH_SPACINGTYPE_UNKNOWN = 0-pattern TEXTPATH_SPACINGTYPE_AUTO = 1-pattern TEXTPATH_SPACINGTYPE_EXACT = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement.startOffset Mozilla SVGTextPathElement.startOffset documentation> -getStartOffset ::-               (MonadDOM m) => SVGTextPathElement -> m (Maybe SVGAnimatedLength)-getStartOffset self-  = liftDOM ((self ^. js "startOffset") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement.method Mozilla SVGTextPathElement.method documentation> -getMethod ::-          (MonadDOM m) =>-            SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration)-getMethod self = liftDOM ((self ^. js "method") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement.spacing Mozilla SVGTextPathElement.spacing documentation> -getSpacing ::-           (MonadDOM m) =>-             SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration)-getSpacing self = liftDOM ((self ^. js "spacing") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGTextPositioningElement.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGTextPositioningElement-       (getX, getY, getDx, getDy, getRotate, SVGTextPositioningElement,-        castToSVGTextPositioningElement, gTypeSVGTextPositioningElement,-        IsSVGTextPositioningElement, toSVGTextPositioningElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.x Mozilla SVGTextPositioningElement.x documentation> -getX ::-     (MonadDOM m, IsSVGTextPositioningElement self) =>-       self -> m (Maybe SVGAnimatedLengthList)-getX self-  = liftDOM-      (((toSVGTextPositioningElement self) ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.y Mozilla SVGTextPositioningElement.y documentation> -getY ::-     (MonadDOM m, IsSVGTextPositioningElement self) =>-       self -> m (Maybe SVGAnimatedLengthList)-getY self-  = liftDOM-      (((toSVGTextPositioningElement self) ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.dx Mozilla SVGTextPositioningElement.dx documentation> -getDx ::-      (MonadDOM m, IsSVGTextPositioningElement self) =>-        self -> m (Maybe SVGAnimatedLengthList)-getDx self-  = liftDOM-      (((toSVGTextPositioningElement self) ^. js "dx") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.dy Mozilla SVGTextPositioningElement.dy documentation> -getDy ::-      (MonadDOM m, IsSVGTextPositioningElement self) =>-        self -> m (Maybe SVGAnimatedLengthList)-getDy self-  = liftDOM-      (((toSVGTextPositioningElement self) ^. js "dy") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement.rotate Mozilla SVGTextPositioningElement.rotate documentation> -getRotate ::-          (MonadDOM m, IsSVGTextPositioningElement self) =>-            self -> m (Maybe SVGAnimatedNumberList)-getRotate self-  = liftDOM-      (((toSVGTextPositioningElement self) ^. js "rotate") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGTransform.hs 
@@ -1,77 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGTransform-       (setMatrix, setTranslate, setScale, setRotate, setSkewX, setSkewY,-        pattern SVG_TRANSFORM_UNKNOWN, pattern SVG_TRANSFORM_MATRIX,-        pattern SVG_TRANSFORM_TRANSLATE, pattern SVG_TRANSFORM_SCALE,-        pattern SVG_TRANSFORM_ROTATE, pattern SVG_TRANSFORM_SKEWX,-        pattern SVG_TRANSFORM_SKEWY, getType, getMatrix, getAngle,-        SVGTransform, castToSVGTransform, gTypeSVGTransform)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setMatrix Mozilla SVGTransform.setMatrix documentation> -setMatrix ::-          (MonadDOM m) => SVGTransform -> Maybe SVGMatrix -> m ()-setMatrix self matrix-  = liftDOM (void (self ^. jsf "setMatrix" [toJSVal matrix]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setTranslate Mozilla SVGTransform.setTranslate documentation> -setTranslate ::-             (MonadDOM m) => SVGTransform -> Float -> Float -> m ()-setTranslate self tx ty-  = liftDOM-      (void (self ^. jsf "setTranslate" [toJSVal tx, toJSVal ty]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setScale Mozilla SVGTransform.setScale documentation> -setScale :: (MonadDOM m) => SVGTransform -> Float -> Float -> m ()-setScale self sx sy-  = liftDOM (void (self ^. jsf "setScale" [toJSVal sx, toJSVal sy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setRotate Mozilla SVGTransform.setRotate documentation> -setRotate ::-          (MonadDOM m) => SVGTransform -> Float -> Float -> Float -> m ()-setRotate self angle cx cy-  = liftDOM-      (void-         (self ^. jsf "setRotate" [toJSVal angle, toJSVal cx, toJSVal cy]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setSkewX Mozilla SVGTransform.setSkewX documentation> -setSkewX :: (MonadDOM m) => SVGTransform -> Float -> m ()-setSkewX self angle-  = liftDOM (void (self ^. jsf "setSkewX" [toJSVal angle]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.setSkewY Mozilla SVGTransform.setSkewY documentation> -setSkewY :: (MonadDOM m) => SVGTransform -> Float -> m ()-setSkewY self angle-  = liftDOM (void (self ^. jsf "setSkewY" [toJSVal angle]))-pattern SVG_TRANSFORM_UNKNOWN = 0-pattern SVG_TRANSFORM_MATRIX = 1-pattern SVG_TRANSFORM_TRANSLATE = 2-pattern SVG_TRANSFORM_SCALE = 3-pattern SVG_TRANSFORM_ROTATE = 4-pattern SVG_TRANSFORM_SKEWX = 5-pattern SVG_TRANSFORM_SKEWY = 6---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.type Mozilla SVGTransform.type documentation> -getType :: (MonadDOM m) => SVGTransform -> m Word-getType self-  = liftDOM (round <$> ((self ^. js "type") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.matrix Mozilla SVGTransform.matrix documentation> -getMatrix :: (MonadDOM m) => SVGTransform -> m (Maybe SVGMatrix)-getMatrix self = liftDOM ((self ^. js "matrix") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform.angle Mozilla SVGTransform.angle documentation> -getAngle :: (MonadDOM m) => SVGTransform -> m Float-getAngle self-  = liftDOM (realToFrac <$> ((self ^. js "angle") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGTransformList.hs 
@@ -1,90 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGTransformList-       (clear, initialize, getItem, insertItemBefore, replaceItem,-        removeItem, appendItem, createSVGTransformFromMatrix, consolidate,-        getNumberOfItems, SVGTransformList, castToSVGTransformList,-        gTypeSVGTransformList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.clear Mozilla SVGTransformList.clear documentation> -clear :: (MonadDOM m) => SVGTransformList -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.initialize Mozilla SVGTransformList.initialize documentation> -initialize ::-           (MonadDOM m) =>-             SVGTransformList -> Maybe SVGTransform -> m (Maybe SVGTransform)-initialize self item-  = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.getItem Mozilla SVGTransformList.getItem documentation> -getItem ::-        (MonadDOM m) => SVGTransformList -> Word -> m (Maybe SVGTransform)-getItem self index-  = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.insertItemBefore Mozilla SVGTransformList.insertItemBefore documentation> -insertItemBefore ::-                 (MonadDOM m) =>-                   SVGTransformList ->-                     Maybe SVGTransform -> Word -> m (Maybe SVGTransform)-insertItemBefore self item index-  = liftDOM-      ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.replaceItem Mozilla SVGTransformList.replaceItem documentation> -replaceItem ::-            (MonadDOM m) =>-              SVGTransformList ->-                Maybe SVGTransform -> Word -> m (Maybe SVGTransform)-replaceItem self item index-  = liftDOM-      ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.removeItem Mozilla SVGTransformList.removeItem documentation> -removeItem ::-           (MonadDOM m) => SVGTransformList -> Word -> m (Maybe SVGTransform)-removeItem self index-  = liftDOM-      ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.appendItem Mozilla SVGTransformList.appendItem documentation> -appendItem ::-           (MonadDOM m) =>-             SVGTransformList -> Maybe SVGTransform -> m (Maybe SVGTransform)-appendItem self item-  = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.createSVGTransformFromMatrix Mozilla SVGTransformList.createSVGTransformFromMatrix documentation> -createSVGTransformFromMatrix ::-                             (MonadDOM m) =>-                               SVGTransformList -> Maybe SVGMatrix -> m (Maybe SVGTransform)-createSVGTransformFromMatrix self matrix-  = liftDOM-      ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.consolidate Mozilla SVGTransformList.consolidate documentation> -consolidate ::-            (MonadDOM m) => SVGTransformList -> m (Maybe SVGTransform)-consolidate self-  = liftDOM ((self ^. js "consolidate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList.numberOfItems Mozilla SVGTransformList.numberOfItems documentation> -getNumberOfItems :: (MonadDOM m) => SVGTransformList -> m Word-getNumberOfItems self-  = liftDOM-      (round <$> ((self ^. js "numberOfItems") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGURIReference.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGURIReference-       (getHref, SVGURIReference, castToSVGURIReference,-        gTypeSVGURIReference)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGURIReference.href Mozilla SVGURIReference.href documentation> -getHref ::-        (MonadDOM m) => SVGURIReference -> m (Maybe SVGAnimatedString)-getHref self = liftDOM ((self ^. js "href") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGUnitTypes.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGUnitTypes-       (pattern SVG_UNIT_TYPE_UNKNOWN,-        pattern SVG_UNIT_TYPE_USERSPACEONUSE,-        pattern SVG_UNIT_TYPE_OBJECTBOUNDINGBOX, SVGUnitTypes,-        castToSVGUnitTypes, gTypeSVGUnitTypes)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_UNIT_TYPE_UNKNOWN = 0-pattern SVG_UNIT_TYPE_USERSPACEONUSE = 1-pattern SVG_UNIT_TYPE_OBJECTBOUNDINGBOX = 2
− src/Language/Javascript/JSaddle/DOM/Generated/SVGUseElement.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGUseElement-       (getX, getY, getWidth, getHeight, SVGUseElement,-        castToSVGUseElement, gTypeSVGUseElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.x Mozilla SVGUseElement.x documentation> -getX ::-     (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)-getX self = liftDOM ((self ^. js "x") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.y Mozilla SVGUseElement.y documentation> -getY ::-     (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)-getY self = liftDOM ((self ^. js "y") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.width Mozilla SVGUseElement.width documentation> -getWidth ::-         (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)-getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement.height Mozilla SVGUseElement.height documentation> -getHeight ::-          (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength)-getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGViewElement.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGViewElement-       (getViewTarget, SVGViewElement, castToSVGViewElement,-        gTypeSVGViewElement)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewElement.viewTarget Mozilla SVGViewElement.viewTarget documentation> -getViewTarget ::-              (MonadDOM m) => SVGViewElement -> m (Maybe SVGStringList)-getViewTarget self-  = liftDOM ((self ^. js "viewTarget") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SVGViewSpec.hs 
@@ -1,65 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGViewSpec-       (getTransform, getViewTarget, getViewBoxString,-        getPreserveAspectRatioString, getTransformString,-        getViewTargetString, setZoomAndPan, getZoomAndPan, SVGViewSpec,-        castToSVGViewSpec, gTypeSVGViewSpec)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.transform Mozilla SVGViewSpec.transform documentation> -getTransform ::-             (MonadDOM m) => SVGViewSpec -> m (Maybe SVGTransformList)-getTransform self-  = liftDOM ((self ^. js "transform") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.viewTarget Mozilla SVGViewSpec.viewTarget documentation> -getViewTarget ::-              (MonadDOM m) => SVGViewSpec -> m (Maybe SVGElement)-getViewTarget self-  = liftDOM ((self ^. js "viewTarget") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.viewBoxString Mozilla SVGViewSpec.viewBoxString documentation> -getViewBoxString ::-                 (MonadDOM m, FromJSString result) => SVGViewSpec -> m result-getViewBoxString self-  = liftDOM ((self ^. js "viewBoxString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.preserveAspectRatioString Mozilla SVGViewSpec.preserveAspectRatioString documentation> -getPreserveAspectRatioString ::-                             (MonadDOM m, FromJSString result) => SVGViewSpec -> m result-getPreserveAspectRatioString self-  = liftDOM-      ((self ^. js "preserveAspectRatioString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.transformString Mozilla SVGViewSpec.transformString documentation> -getTransformString ::-                   (MonadDOM m, FromJSString result) => SVGViewSpec -> m result-getTransformString self-  = liftDOM ((self ^. js "transformString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.viewTargetString Mozilla SVGViewSpec.viewTargetString documentation> -getViewTargetString ::-                    (MonadDOM m, FromJSString result) => SVGViewSpec -> m result-getViewTargetString self-  = liftDOM ((self ^. js "viewTargetString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.zoomAndPan Mozilla SVGViewSpec.zoomAndPan documentation> -setZoomAndPan :: (MonadDOM m) => SVGViewSpec -> Word -> m ()-setZoomAndPan self val-  = liftDOM (self ^. jss "zoomAndPan" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec.zoomAndPan Mozilla SVGViewSpec.zoomAndPan documentation> -getZoomAndPan :: (MonadDOM m) => SVGViewSpec -> m Word-getZoomAndPan self-  = liftDOM (round <$> ((self ^. js "zoomAndPan") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGZoomAndPan.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGZoomAndPan-       (pattern SVG_ZOOMANDPAN_UNKNOWN, pattern SVG_ZOOMANDPAN_DISABLE,-        pattern SVG_ZOOMANDPAN_MAGNIFY, setZoomAndPan, getZoomAndPan,-        SVGZoomAndPan, castToSVGZoomAndPan, gTypeSVGZoomAndPan)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern SVG_ZOOMANDPAN_UNKNOWN = 0-pattern SVG_ZOOMANDPAN_DISABLE = 1-pattern SVG_ZOOMANDPAN_MAGNIFY = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomAndPan.zoomAndPan Mozilla SVGZoomAndPan.zoomAndPan documentation> -setZoomAndPan :: (MonadDOM m) => SVGZoomAndPan -> Word -> m ()-setZoomAndPan self val-  = liftDOM (self ^. jss "zoomAndPan" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomAndPan.zoomAndPan Mozilla SVGZoomAndPan.zoomAndPan documentation> -getZoomAndPan :: (MonadDOM m) => SVGZoomAndPan -> m Word-getZoomAndPan self-  = liftDOM (round <$> ((self ^. js "zoomAndPan") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SVGZoomEvent.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SVGZoomEvent-       (getZoomRectScreen, getPreviousScale, getPreviousTranslate,-        getNewScale, getNewTranslate, SVGZoomEvent, castToSVGZoomEvent,-        gTypeSVGZoomEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.zoomRectScreen Mozilla SVGZoomEvent.zoomRectScreen documentation> -getZoomRectScreen ::-                  (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGRect)-getZoomRectScreen self-  = liftDOM ((self ^. js "zoomRectScreen") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.previousScale Mozilla SVGZoomEvent.previousScale documentation> -getPreviousScale :: (MonadDOM m) => SVGZoomEvent -> m Float-getPreviousScale self-  = liftDOM-      (realToFrac <$> ((self ^. js "previousScale") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.previousTranslate Mozilla SVGZoomEvent.previousTranslate documentation> -getPreviousTranslate ::-                     (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGPoint)-getPreviousTranslate self-  = liftDOM ((self ^. js "previousTranslate") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.newScale Mozilla SVGZoomEvent.newScale documentation> -getNewScale :: (MonadDOM m) => SVGZoomEvent -> m Float-getNewScale self-  = liftDOM-      (realToFrac <$> ((self ^. js "newScale") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent.newTranslate Mozilla SVGZoomEvent.newTranslate documentation> -getNewTranslate ::-                (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGPoint)-getNewTranslate self-  = liftDOM ((self ^. js "newTranslate") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Screen.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Screen-       (getHeight, getWidth, getColorDepth, getPixelDepth, getAvailLeft,-        getAvailTop, getAvailHeight, getAvailWidth, Screen, castToScreen,-        gTypeScreen)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.height Mozilla Screen.height documentation> -getHeight :: (MonadDOM m) => Screen -> m Word-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.width Mozilla Screen.width documentation> -getWidth :: (MonadDOM m) => Screen -> m Word-getWidth self-  = liftDOM (round <$> ((self ^. js "width") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.colorDepth Mozilla Screen.colorDepth documentation> -getColorDepth :: (MonadDOM m) => Screen -> m Word-getColorDepth self-  = liftDOM (round <$> ((self ^. js "colorDepth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.pixelDepth Mozilla Screen.pixelDepth documentation> -getPixelDepth :: (MonadDOM m) => Screen -> m Word-getPixelDepth self-  = liftDOM (round <$> ((self ^. js "pixelDepth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availLeft Mozilla Screen.availLeft documentation> -getAvailLeft :: (MonadDOM m) => Screen -> m Int-getAvailLeft self-  = liftDOM (round <$> ((self ^. js "availLeft") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availTop Mozilla Screen.availTop documentation> -getAvailTop :: (MonadDOM m) => Screen -> m Int-getAvailTop self-  = liftDOM (round <$> ((self ^. js "availTop") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availHeight Mozilla Screen.availHeight documentation> -getAvailHeight :: (MonadDOM m) => Screen -> m Word-getAvailHeight self-  = liftDOM (round <$> ((self ^. js "availHeight") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Screen.availWidth Mozilla Screen.availWidth documentation> -getAvailWidth :: (MonadDOM m) => Screen -> m Word-getAvailWidth self-  = liftDOM (round <$> ((self ^. js "availWidth") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/ScriptProcessorNode.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ScriptProcessorNode-       (audioProcess, getBufferSize, ScriptProcessorNode,-        castToScriptProcessorNode, gTypeScriptProcessorNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProcessorNode.onaudioprocess Mozilla ScriptProcessorNode.onaudioprocess documentation> -audioProcess :: EventName ScriptProcessorNode AudioProcessingEvent-audioProcess = unsafeEventName (toJSString "audioprocess")---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProcessorNode.bufferSize Mozilla ScriptProcessorNode.bufferSize documentation> -getBufferSize :: (MonadDOM m) => ScriptProcessorNode -> m Int-getBufferSize self-  = liftDOM (round <$> ((self ^. js "bufferSize") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/ScriptProfile.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ScriptProfile-       (getTitle, getUid, getRootNode, ScriptProfile, castToScriptProfile,-        gTypeScriptProfile)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile.title Mozilla ScriptProfile.title documentation> -getTitle ::-         (MonadDOM m, FromJSString result) => ScriptProfile -> m result-getTitle self-  = liftDOM ((self ^. js "title") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile.uid Mozilla ScriptProfile.uid documentation> -getUid :: (MonadDOM m) => ScriptProfile -> m Word-getUid self-  = liftDOM (round <$> ((self ^. js "uid") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile.rootNode Mozilla ScriptProfile.rootNode documentation> -getRootNode ::-            (MonadDOM m) => ScriptProfile -> m (Maybe ScriptProfileNode)-getRootNode self = liftDOM ((self ^. js "rootNode") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/ScriptProfileNode.hs 
@@ -1,48 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ScriptProfileNode-       (children, getId, getFunctionName, getUrl, getLineNumber,-        getColumnNumber, ScriptProfileNode, castToScriptProfileNode,-        gTypeScriptProfileNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.children Mozilla ScriptProfileNode.children documentation> -children ::-         (MonadDOM m) => ScriptProfileNode -> m [Maybe ScriptProfileNode]-children self = liftDOM ((self ^. js "children") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.id Mozilla ScriptProfileNode.id documentation> -getId :: (MonadDOM m) => ScriptProfileNode -> m Word-getId self-  = liftDOM (round <$> ((self ^. js "id") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.functionName Mozilla ScriptProfileNode.functionName documentation> -getFunctionName ::-                (MonadDOM m, FromJSString result) => ScriptProfileNode -> m result-getFunctionName self-  = liftDOM ((self ^. js "functionName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.url Mozilla ScriptProfileNode.url documentation> -getUrl ::-       (MonadDOM m, FromJSString result) => ScriptProfileNode -> m result-getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.lineNumber Mozilla ScriptProfileNode.lineNumber documentation> -getLineNumber :: (MonadDOM m) => ScriptProfileNode -> m Word-getLineNumber self-  = liftDOM (round <$> ((self ^. js "lineNumber") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode.columnNumber Mozilla ScriptProfileNode.columnNumber documentation> -getColumnNumber :: (MonadDOM m) => ScriptProfileNode -> m Word-getColumnNumber self-  = liftDOM (round <$> ((self ^. js "columnNumber") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SecurityPolicy.hs 
@@ -1,115 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SecurityPolicy-       (allowsConnectionTo, allowsFontFrom, allowsFormAction,-        allowsFrameFrom, allowsImageFrom, allowsMediaFrom,-        allowsObjectFrom, allowsPluginType, allowsScriptFrom,-        allowsStyleFrom, getAllowsEval, getAllowsInlineScript,-        getAllowsInlineStyle, getIsActive, getReportURIs, SecurityPolicy,-        castToSecurityPolicy, gTypeSecurityPolicy)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsConnectionTo Mozilla SecurityPolicy.allowsConnectionTo documentation> -allowsConnectionTo ::-                   (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsConnectionTo self url-  = liftDOM-      ((self ^. jsf "allowsConnectionTo" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsFontFrom Mozilla SecurityPolicy.allowsFontFrom documentation> -allowsFontFrom ::-               (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsFontFrom self url-  = liftDOM-      ((self ^. jsf "allowsFontFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsFormAction Mozilla SecurityPolicy.allowsFormAction documentation> -allowsFormAction ::-                 (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsFormAction self url-  = liftDOM-      ((self ^. jsf "allowsFormAction" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsFrameFrom Mozilla SecurityPolicy.allowsFrameFrom documentation> -allowsFrameFrom ::-                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsFrameFrom self url-  = liftDOM-      ((self ^. jsf "allowsFrameFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsImageFrom Mozilla SecurityPolicy.allowsImageFrom documentation> -allowsImageFrom ::-                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsImageFrom self url-  = liftDOM-      ((self ^. jsf "allowsImageFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsMediaFrom Mozilla SecurityPolicy.allowsMediaFrom documentation> -allowsMediaFrom ::-                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsMediaFrom self url-  = liftDOM-      ((self ^. jsf "allowsMediaFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsObjectFrom Mozilla SecurityPolicy.allowsObjectFrom documentation> -allowsObjectFrom ::-                 (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsObjectFrom self url-  = liftDOM-      ((self ^. jsf "allowsObjectFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsPluginType Mozilla SecurityPolicy.allowsPluginType documentation> -allowsPluginType ::-                 (MonadDOM m, ToJSString type') => SecurityPolicy -> type' -> m Bool-allowsPluginType self type'-  = liftDOM-      ((self ^. jsf "allowsPluginType" [toJSVal type']) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsScriptFrom Mozilla SecurityPolicy.allowsScriptFrom documentation> -allowsScriptFrom ::-                 (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsScriptFrom self url-  = liftDOM-      ((self ^. jsf "allowsScriptFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsStyleFrom Mozilla SecurityPolicy.allowsStyleFrom documentation> -allowsStyleFrom ::-                (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool-allowsStyleFrom self url-  = liftDOM-      ((self ^. jsf "allowsStyleFrom" [toJSVal url]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsEval Mozilla SecurityPolicy.allowsEval documentation> -getAllowsEval :: (MonadDOM m) => SecurityPolicy -> m Bool-getAllowsEval self-  = liftDOM ((self ^. js "allowsEval") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsInlineScript Mozilla SecurityPolicy.allowsInlineScript documentation> -getAllowsInlineScript :: (MonadDOM m) => SecurityPolicy -> m Bool-getAllowsInlineScript self-  = liftDOM ((self ^. js "allowsInlineScript") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.allowsInlineStyle Mozilla SecurityPolicy.allowsInlineStyle documentation> -getAllowsInlineStyle :: (MonadDOM m) => SecurityPolicy -> m Bool-getAllowsInlineStyle self-  = liftDOM ((self ^. js "allowsInlineStyle") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.isActive Mozilla SecurityPolicy.isActive documentation> -getIsActive :: (MonadDOM m) => SecurityPolicy -> m Bool-getIsActive self = liftDOM ((self ^. js "isActive") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy.reportURIs Mozilla SecurityPolicy.reportURIs documentation> -getReportURIs ::-              (MonadDOM m) => SecurityPolicy -> m (Maybe DOMStringList)-getReportURIs self-  = liftDOM ((self ^. js "reportURIs") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/SecurityPolicyViolationEvent.hs 
@@ -1,75 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SecurityPolicyViolationEvent-       (getDocumentURI, getReferrer, getBlockedURI, getViolatedDirective,-        getEffectiveDirective, getOriginalPolicy, getSourceFile,-        getLineNumber, SecurityPolicyViolationEvent,-        castToSecurityPolicyViolationEvent,-        gTypeSecurityPolicyViolationEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.documentURI Mozilla SecurityPolicyViolationEvent.documentURI documentation> -getDocumentURI ::-               (MonadDOM m, FromJSString result) =>-                 SecurityPolicyViolationEvent -> m result-getDocumentURI self-  = liftDOM ((self ^. js "documentURI") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.referrer Mozilla SecurityPolicyViolationEvent.referrer documentation> -getReferrer ::-            (MonadDOM m, FromJSString result) =>-              SecurityPolicyViolationEvent -> m result-getReferrer self-  = liftDOM ((self ^. js "referrer") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.blockedURI Mozilla SecurityPolicyViolationEvent.blockedURI documentation> -getBlockedURI ::-              (MonadDOM m, FromJSString result) =>-                SecurityPolicyViolationEvent -> m result-getBlockedURI self-  = liftDOM ((self ^. js "blockedURI") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.violatedDirective Mozilla SecurityPolicyViolationEvent.violatedDirective documentation> -getViolatedDirective ::-                     (MonadDOM m, FromJSString result) =>-                       SecurityPolicyViolationEvent -> m result-getViolatedDirective self-  = liftDOM ((self ^. js "violatedDirective") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.effectiveDirective Mozilla SecurityPolicyViolationEvent.effectiveDirective documentation> -getEffectiveDirective ::-                      (MonadDOM m, FromJSString result) =>-                        SecurityPolicyViolationEvent -> m result-getEffectiveDirective self-  = liftDOM-      ((self ^. js "effectiveDirective") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.originalPolicy Mozilla SecurityPolicyViolationEvent.originalPolicy documentation> -getOriginalPolicy ::-                  (MonadDOM m, FromJSString result) =>-                    SecurityPolicyViolationEvent -> m result-getOriginalPolicy self-  = liftDOM ((self ^. js "originalPolicy") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.sourceFile Mozilla SecurityPolicyViolationEvent.sourceFile documentation> -getSourceFile ::-              (MonadDOM m, FromJSString result) =>-                SecurityPolicyViolationEvent -> m result-getSourceFile self-  = liftDOM ((self ^. js "sourceFile") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent.lineNumber Mozilla SecurityPolicyViolationEvent.lineNumber documentation> -getLineNumber ::-              (MonadDOM m) => SecurityPolicyViolationEvent -> m Int-getLineNumber self-  = liftDOM (round <$> ((self ^. js "lineNumber") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Selection.hs 
@@ -1,174 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Selection-       (collapse, collapseToEnd, collapseToStart, deleteFromDocument,-        containsNode, selectAllChildren, extend, getRangeAt,-        removeAllRanges, addRange, toString, modify, setBaseAndExtent,-        setPosition, empty, getAnchorNode, getAnchorOffset, getFocusNode,-        getFocusOffset, getIsCollapsed, getRangeCount, getBaseNode,-        getBaseOffset, getExtentNode, getExtentOffset, getType, Selection,-        castToSelection, gTypeSelection)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.collapse Mozilla Selection.collapse documentation> -collapse ::-         (MonadDOM m, IsNode node) => Selection -> Maybe node -> Int -> m ()-collapse self node index-  = liftDOM-      (void (self ^. jsf "collapse" [toJSVal node, toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.collapseToEnd Mozilla Selection.collapseToEnd documentation> -collapseToEnd :: (MonadDOM m) => Selection -> m ()-collapseToEnd self = liftDOM (void (self ^. js "collapseToEnd"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.collapseToStart Mozilla Selection.collapseToStart documentation> -collapseToStart :: (MonadDOM m) => Selection -> m ()-collapseToStart self-  = liftDOM (void (self ^. js "collapseToStart"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.deleteFromDocument Mozilla Selection.deleteFromDocument documentation> -deleteFromDocument :: (MonadDOM m) => Selection -> m ()-deleteFromDocument self-  = liftDOM (void (self ^. js "deleteFromDocument"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.containsNode Mozilla Selection.containsNode documentation> -containsNode ::-             (MonadDOM m, IsNode node) =>-               Selection -> Maybe node -> Bool -> m Bool-containsNode self node allowPartial-  = liftDOM-      ((self ^. jsf "containsNode" [toJSVal node, toJSVal allowPartial])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.selectAllChildren Mozilla Selection.selectAllChildren documentation> -selectAllChildren ::-                  (MonadDOM m, IsNode node) => Selection -> Maybe node -> m ()-selectAllChildren self node-  = liftDOM (void (self ^. jsf "selectAllChildren" [toJSVal node]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.extend Mozilla Selection.extend documentation> -extend ::-       (MonadDOM m, IsNode node) => Selection -> Maybe node -> Int -> m ()-extend self node offset-  = liftDOM-      (void (self ^. jsf "extend" [toJSVal node, toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.getRangeAt Mozilla Selection.getRangeAt documentation> -getRangeAt :: (MonadDOM m) => Selection -> Int -> m (Maybe Range)-getRangeAt self index-  = liftDOM-      ((self ^. jsf "getRangeAt" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.removeAllRanges Mozilla Selection.removeAllRanges documentation> -removeAllRanges :: (MonadDOM m) => Selection -> m ()-removeAllRanges self-  = liftDOM (void (self ^. js "removeAllRanges"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.addRange Mozilla Selection.addRange documentation> -addRange :: (MonadDOM m) => Selection -> Maybe Range -> m ()-addRange self range-  = liftDOM (void (self ^. jsf "addRange" [toJSVal range]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.toString Mozilla Selection.toString documentation> -toString ::-         (MonadDOM m, FromJSString result) => Selection -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.modify Mozilla Selection.modify documentation> -modify ::-       (MonadDOM m, ToJSString alter, ToJSString direction,-        ToJSString granularity) =>-         Selection -> alter -> direction -> granularity -> m ()-modify self alter direction granularity-  = liftDOM-      (void-         (self ^. jsf "modify"-            [toJSVal alter, toJSVal direction, toJSVal granularity]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.setBaseAndExtent Mozilla Selection.setBaseAndExtent documentation> -setBaseAndExtent ::-                 (MonadDOM m, IsNode baseNode, IsNode extentNode) =>-                   Selection ->-                     Maybe baseNode -> Int -> Maybe extentNode -> Int -> m ()-setBaseAndExtent self baseNode baseOffset extentNode extentOffset-  = liftDOM-      (void-         (self ^. jsf "setBaseAndExtent"-            [toJSVal baseNode, toJSVal baseOffset, toJSVal extentNode,-             toJSVal extentOffset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.setPosition Mozilla Selection.setPosition documentation> -setPosition ::-            (MonadDOM m, IsNode node) => Selection -> Maybe node -> Int -> m ()-setPosition self node offset-  = liftDOM-      (void (self ^. jsf "setPosition" [toJSVal node, toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.empty Mozilla Selection.empty documentation> -empty :: (MonadDOM m) => Selection -> m ()-empty self = liftDOM (void (self ^. js "empty"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.anchorNode Mozilla Selection.anchorNode documentation> -getAnchorNode :: (MonadDOM m) => Selection -> m (Maybe Node)-getAnchorNode self-  = liftDOM ((self ^. js "anchorNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.anchorOffset Mozilla Selection.anchorOffset documentation> -getAnchorOffset :: (MonadDOM m) => Selection -> m Int-getAnchorOffset self-  = liftDOM (round <$> ((self ^. js "anchorOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.focusNode Mozilla Selection.focusNode documentation> -getFocusNode :: (MonadDOM m) => Selection -> m (Maybe Node)-getFocusNode self-  = liftDOM ((self ^. js "focusNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.focusOffset Mozilla Selection.focusOffset documentation> -getFocusOffset :: (MonadDOM m) => Selection -> m Int-getFocusOffset self-  = liftDOM (round <$> ((self ^. js "focusOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.isCollapsed Mozilla Selection.isCollapsed documentation> -getIsCollapsed :: (MonadDOM m) => Selection -> m Bool-getIsCollapsed self-  = liftDOM ((self ^. js "isCollapsed") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.rangeCount Mozilla Selection.rangeCount documentation> -getRangeCount :: (MonadDOM m) => Selection -> m Int-getRangeCount self-  = liftDOM (round <$> ((self ^. js "rangeCount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.baseNode Mozilla Selection.baseNode documentation> -getBaseNode :: (MonadDOM m) => Selection -> m (Maybe Node)-getBaseNode self = liftDOM ((self ^. js "baseNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.baseOffset Mozilla Selection.baseOffset documentation> -getBaseOffset :: (MonadDOM m) => Selection -> m Int-getBaseOffset self-  = liftDOM (round <$> ((self ^. js "baseOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.extentNode Mozilla Selection.extentNode documentation> -getExtentNode :: (MonadDOM m) => Selection -> m (Maybe Node)-getExtentNode self-  = liftDOM ((self ^. js "extentNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.extentOffset Mozilla Selection.extentOffset documentation> -getExtentOffset :: (MonadDOM m) => Selection -> m Int-getExtentOffset self-  = liftDOM (round <$> ((self ^. js "extentOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Selection.type Mozilla Selection.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => Selection -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SourceBuffer.hs 
@@ -1,111 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SourceBuffer-       (appendBuffer, appendBufferView, abort, remove, setMode, getMode,-        getUpdating, getBuffered, setTimestampOffset, getTimestampOffset,-        getAudioTracks, getVideoTracks, getTextTracks,-        setAppendWindowStart, getAppendWindowStart, setAppendWindowEnd,-        getAppendWindowEnd, SourceBuffer, castToSourceBuffer,-        gTypeSourceBuffer)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendBuffer Mozilla SourceBuffer.appendBuffer documentation> -appendBuffer ::-             (MonadDOM m, IsArrayBuffer data') =>-               SourceBuffer -> Maybe data' -> m ()-appendBuffer self data'-  = liftDOM (void (self ^. jsf "appendBuffer" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendBuffer Mozilla SourceBuffer.appendBuffer documentation> -appendBufferView ::-                 (MonadDOM m, IsArrayBufferView data') =>-                   SourceBuffer -> Maybe data' -> m ()-appendBufferView self data'-  = liftDOM (void (self ^. jsf "appendBuffer" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.abort Mozilla SourceBuffer.abort documentation> -abort :: (MonadDOM m) => SourceBuffer -> m ()-abort self = liftDOM (void (self ^. js "abort"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.remove Mozilla SourceBuffer.remove documentation> -remove :: (MonadDOM m) => SourceBuffer -> Double -> Double -> m ()-remove self start end-  = liftDOM-      (void (self ^. jsf "remove" [toJSVal start, toJSVal end]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.mode Mozilla SourceBuffer.mode documentation> -setMode :: (MonadDOM m) => SourceBuffer -> AppendMode -> m ()-setMode self val = liftDOM (self ^. jss "mode" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.mode Mozilla SourceBuffer.mode documentation> -getMode :: (MonadDOM m) => SourceBuffer -> m AppendMode-getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.updating Mozilla SourceBuffer.updating documentation> -getUpdating :: (MonadDOM m) => SourceBuffer -> m Bool-getUpdating self = liftDOM ((self ^. js "updating") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.buffered Mozilla SourceBuffer.buffered documentation> -getBuffered :: (MonadDOM m) => SourceBuffer -> m (Maybe TimeRanges)-getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.timestampOffset Mozilla SourceBuffer.timestampOffset documentation> -setTimestampOffset ::-                   (MonadDOM m) => SourceBuffer -> Double -> m ()-setTimestampOffset self val-  = liftDOM (self ^. jss "timestampOffset" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.timestampOffset Mozilla SourceBuffer.timestampOffset documentation> -getTimestampOffset :: (MonadDOM m) => SourceBuffer -> m Double-getTimestampOffset self-  = liftDOM ((self ^. js "timestampOffset") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.audioTracks Mozilla SourceBuffer.audioTracks documentation> -getAudioTracks ::-               (MonadDOM m) => SourceBuffer -> m (Maybe AudioTrackList)-getAudioTracks self-  = liftDOM ((self ^. js "audioTracks") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.videoTracks Mozilla SourceBuffer.videoTracks documentation> -getVideoTracks ::-               (MonadDOM m) => SourceBuffer -> m (Maybe VideoTrackList)-getVideoTracks self-  = liftDOM ((self ^. js "videoTracks") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.textTracks Mozilla SourceBuffer.textTracks documentation> -getTextTracks ::-              (MonadDOM m) => SourceBuffer -> m (Maybe TextTrackList)-getTextTracks self-  = liftDOM ((self ^. js "textTracks") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowStart Mozilla SourceBuffer.appendWindowStart documentation> -setAppendWindowStart ::-                     (MonadDOM m) => SourceBuffer -> Double -> m ()-setAppendWindowStart self val-  = liftDOM (self ^. jss "appendWindowStart" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowStart Mozilla SourceBuffer.appendWindowStart documentation> -getAppendWindowStart :: (MonadDOM m) => SourceBuffer -> m Double-getAppendWindowStart self-  = liftDOM ((self ^. js "appendWindowStart") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowEnd Mozilla SourceBuffer.appendWindowEnd documentation> -setAppendWindowEnd ::-                   (MonadDOM m) => SourceBuffer -> Double -> m ()-setAppendWindowEnd self val-  = liftDOM (self ^. jss "appendWindowEnd" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer.appendWindowEnd Mozilla SourceBuffer.appendWindowEnd documentation> -getAppendWindowEnd :: (MonadDOM m) => SourceBuffer -> m Double-getAppendWindowEnd self-  = liftDOM ((self ^. js "appendWindowEnd") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/SourceBufferList.hs 
@@ -1,27 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SourceBufferList-       (item, getLength, SourceBufferList, castToSourceBufferList,-        gTypeSourceBufferList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBufferList.item Mozilla SourceBufferList.item documentation> -item ::-     (MonadDOM m) => SourceBufferList -> Word -> m (Maybe SourceBuffer)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceBufferList.length Mozilla SourceBufferList.length documentation> -getLength :: (MonadDOM m) => SourceBufferList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SourceInfo.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SourceInfo-       (getSourceId, getKind, getLabel, SourceInfo, castToSourceInfo,-        gTypeSourceInfo)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo.sourceId Mozilla SourceInfo.sourceId documentation> -getSourceId ::-            (MonadDOM m, FromJSString result) => SourceInfo -> m result-getSourceId self-  = liftDOM ((self ^. js "sourceId") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo.kind Mozilla SourceInfo.kind documentation> -getKind ::-        (MonadDOM m, FromJSString result) => SourceInfo -> m result-getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo.label Mozilla SourceInfo.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => SourceInfo -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SpeechSynthesis.hs 
@@ -1,53 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesis-       (speak, cancel, pause, resume, getVoices, getPending, getSpeaking,-        getPaused, SpeechSynthesis, castToSpeechSynthesis,-        gTypeSpeechSynthesis)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.speak Mozilla SpeechSynthesis.speak documentation> -speak ::-      (MonadDOM m) =>-        SpeechSynthesis -> Maybe SpeechSynthesisUtterance -> m ()-speak self utterance-  = liftDOM (void (self ^. jsf "speak" [toJSVal utterance]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.cancel Mozilla SpeechSynthesis.cancel documentation> -cancel :: (MonadDOM m) => SpeechSynthesis -> m ()-cancel self = liftDOM (void (self ^. js "cancel"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.pause Mozilla SpeechSynthesis.pause documentation> -pause :: (MonadDOM m) => SpeechSynthesis -> m ()-pause self = liftDOM (void (self ^. js "pause"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.resume Mozilla SpeechSynthesis.resume documentation> -resume :: (MonadDOM m) => SpeechSynthesis -> m ()-resume self = liftDOM (void (self ^. js "resume"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.getVoices Mozilla SpeechSynthesis.getVoices documentation> -getVoices ::-          (MonadDOM m) => SpeechSynthesis -> m [Maybe SpeechSynthesisVoice]-getVoices self = liftDOM ((self ^. js "getVoices") >>= fromJSArray)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.pending Mozilla SpeechSynthesis.pending documentation> -getPending :: (MonadDOM m) => SpeechSynthesis -> m Bool-getPending self = liftDOM ((self ^. js "pending") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.speaking Mozilla SpeechSynthesis.speaking documentation> -getSpeaking :: (MonadDOM m) => SpeechSynthesis -> m Bool-getSpeaking self = liftDOM ((self ^. js "speaking") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis.paused Mozilla SpeechSynthesis.paused documentation> -getPaused :: (MonadDOM m) => SpeechSynthesis -> m Bool-getPaused self = liftDOM ((self ^. js "paused") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/SpeechSynthesisEvent.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisEvent-       (getCharIndex, getElapsedTime, getName, SpeechSynthesisEvent,-        castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent.charIndex Mozilla SpeechSynthesisEvent.charIndex documentation> -getCharIndex :: (MonadDOM m) => SpeechSynthesisEvent -> m Word-getCharIndex self-  = liftDOM (round <$> ((self ^. js "charIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent.elapsedTime Mozilla SpeechSynthesisEvent.elapsedTime documentation> -getElapsedTime :: (MonadDOM m) => SpeechSynthesisEvent -> m Float-getElapsedTime self-  = liftDOM-      (realToFrac <$> ((self ^. js "elapsedTime") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent.name Mozilla SpeechSynthesisEvent.name documentation> -getName ::-        (MonadDOM m, FromJSString result) =>-          SpeechSynthesisEvent -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/SpeechSynthesisUtterance.hs 
@@ -1,121 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisUtterance-       (newSpeechSynthesisUtterance, setText, getText, setLang, getLang,-        setVoice, getVoice, setVolume, getVolume, setRate, getRate,-        setPitch, getPitch, start, end, error, pause, resume, mark,-        boundary, SpeechSynthesisUtterance, castToSpeechSynthesisUtterance,-        gTypeSpeechSynthesisUtterance)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance Mozilla SpeechSynthesisUtterance documentation> -newSpeechSynthesisUtterance ::-                            (MonadDOM m, ToJSString text) => text -> m SpeechSynthesisUtterance-newSpeechSynthesisUtterance text-  = liftDOM-      (SpeechSynthesisUtterance <$>-         new (jsg "SpeechSynthesisUtterance") [toJSVal text])---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.text Mozilla SpeechSynthesisUtterance.text documentation> -setText ::-        (MonadDOM m, ToJSString val) =>-          SpeechSynthesisUtterance -> val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.text Mozilla SpeechSynthesisUtterance.text documentation> -getText ::-        (MonadDOM m, FromJSString result) =>-          SpeechSynthesisUtterance -> m result-getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.lang Mozilla SpeechSynthesisUtterance.lang documentation> -setLang ::-        (MonadDOM m, ToJSString val) =>-          SpeechSynthesisUtterance -> val -> m ()-setLang self val = liftDOM (self ^. jss "lang" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.lang Mozilla SpeechSynthesisUtterance.lang documentation> -getLang ::-        (MonadDOM m, FromJSString result) =>-          SpeechSynthesisUtterance -> m result-getLang self = liftDOM ((self ^. js "lang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.voice Mozilla SpeechSynthesisUtterance.voice documentation> -setVoice ::-         (MonadDOM m) =>-           SpeechSynthesisUtterance -> Maybe SpeechSynthesisVoice -> m ()-setVoice self val = liftDOM (self ^. jss "voice" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.voice Mozilla SpeechSynthesisUtterance.voice documentation> -getVoice ::-         (MonadDOM m) =>-           SpeechSynthesisUtterance -> m (Maybe SpeechSynthesisVoice)-getVoice self = liftDOM ((self ^. js "voice") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.volume Mozilla SpeechSynthesisUtterance.volume documentation> -setVolume ::-          (MonadDOM m) => SpeechSynthesisUtterance -> Float -> m ()-setVolume self val = liftDOM (self ^. jss "volume" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.volume Mozilla SpeechSynthesisUtterance.volume documentation> -getVolume :: (MonadDOM m) => SpeechSynthesisUtterance -> m Float-getVolume self-  = liftDOM (realToFrac <$> ((self ^. js "volume") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.rate Mozilla SpeechSynthesisUtterance.rate documentation> -setRate ::-        (MonadDOM m) => SpeechSynthesisUtterance -> Float -> m ()-setRate self val = liftDOM (self ^. jss "rate" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.rate Mozilla SpeechSynthesisUtterance.rate documentation> -getRate :: (MonadDOM m) => SpeechSynthesisUtterance -> m Float-getRate self-  = liftDOM (realToFrac <$> ((self ^. js "rate") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.pitch Mozilla SpeechSynthesisUtterance.pitch documentation> -setPitch ::-         (MonadDOM m) => SpeechSynthesisUtterance -> Float -> m ()-setPitch self val = liftDOM (self ^. jss "pitch" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.pitch Mozilla SpeechSynthesisUtterance.pitch documentation> -getPitch :: (MonadDOM m) => SpeechSynthesisUtterance -> m Float-getPitch self-  = liftDOM (realToFrac <$> ((self ^. js "pitch") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onstart Mozilla SpeechSynthesisUtterance.onstart documentation> -start :: EventName SpeechSynthesisUtterance Event-start = unsafeEventName (toJSString "start")---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onend Mozilla SpeechSynthesisUtterance.onend documentation> -end :: EventName SpeechSynthesisUtterance Event-end = unsafeEventName (toJSString "end")---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onerror Mozilla SpeechSynthesisUtterance.onerror documentation> -error :: EventName SpeechSynthesisUtterance UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onpause Mozilla SpeechSynthesisUtterance.onpause documentation> -pause :: EventName SpeechSynthesisUtterance Event-pause = unsafeEventName (toJSString "pause")---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onresume Mozilla SpeechSynthesisUtterance.onresume documentation> -resume :: EventName SpeechSynthesisUtterance Event-resume = unsafeEventName (toJSString "resume")---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onmark Mozilla SpeechSynthesisUtterance.onmark documentation> -mark :: EventName SpeechSynthesisUtterance Event-mark = unsafeEventName (toJSString "mark")---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance.onboundary Mozilla SpeechSynthesisUtterance.onboundary documentation> -boundary :: EventName SpeechSynthesisUtterance Event-boundary = unsafeEventName (toJSString "boundary")
− src/Language/Javascript/JSaddle/DOM/Generated/SpeechSynthesisVoice.hs 
@@ -1,45 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SpeechSynthesisVoice-       (getVoiceURI, getName, getLang, getLocalService, getDefault,-        SpeechSynthesisVoice, castToSpeechSynthesisVoice,-        gTypeSpeechSynthesisVoice)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.voiceURI Mozilla SpeechSynthesisVoice.voiceURI documentation> -getVoiceURI ::-            (MonadDOM m, FromJSString result) =>-              SpeechSynthesisVoice -> m result-getVoiceURI self-  = liftDOM ((self ^. js "voiceURI") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.name Mozilla SpeechSynthesisVoice.name documentation> -getName ::-        (MonadDOM m, FromJSString result) =>-          SpeechSynthesisVoice -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.lang Mozilla SpeechSynthesisVoice.lang documentation> -getLang ::-        (MonadDOM m, FromJSString result) =>-          SpeechSynthesisVoice -> m result-getLang self = liftDOM ((self ^. js "lang") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.localService Mozilla SpeechSynthesisVoice.localService documentation> -getLocalService :: (MonadDOM m) => SpeechSynthesisVoice -> m Bool-getLocalService self-  = liftDOM ((self ^. js "localService") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice.default Mozilla SpeechSynthesisVoice.default documentation> -getDefault :: (MonadDOM m) => SpeechSynthesisVoice -> m Bool-getDefault self = liftDOM ((self ^. js "default") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/Storage.hs 
@@ -1,55 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Storage-       (key, getItem, setItem, removeItem, clear, getLength, Storage,-        castToStorage, gTypeStorage)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.key Mozilla Storage.key documentation> -key ::-    (MonadDOM m, FromJSString result) =>-      Storage -> Word -> m (Maybe result)-key self index-  = liftDOM-      ((self ^. jsf "key" [toJSVal index]) >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.getItem Mozilla Storage.getItem documentation> -getItem ::-        (MonadDOM m, ToJSString key, FromJSString result) =>-          Storage -> key -> m (Maybe result)-getItem self key-  = liftDOM-      ((self ^. jsf "getItem" [toJSVal key]) >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.setItem Mozilla Storage.setItem documentation> -setItem ::-        (MonadDOM m, ToJSString key, ToJSString data') =>-          Storage -> key -> data' -> m ()-setItem self key data'-  = liftDOM-      (void (self ^. jsf "setItem" [toJSVal key, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.removeItem Mozilla Storage.removeItem documentation> -removeItem ::-           (MonadDOM m, ToJSString key) => Storage -> key -> m ()-removeItem self key-  = liftDOM (void (self ^. jsf "removeItem" [toJSVal key]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.clear Mozilla Storage.clear documentation> -clear :: (MonadDOM m) => Storage -> m ()-clear self = liftDOM (void (self ^. js "clear"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Storage.length Mozilla Storage.length documentation> -getLength :: (MonadDOM m) => Storage -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/StorageErrorCallback.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StorageErrorCallback-       (newStorageErrorCallback, newStorageErrorCallbackSync,-        newStorageErrorCallbackAsync, StorageErrorCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageErrorCallback Mozilla StorageErrorCallback documentation> -newStorageErrorCallback ::-                        (MonadDOM m) =>-                          (Maybe DOMException -> JSM ()) -> m StorageErrorCallback-newStorageErrorCallback callback-  = liftDOM-      (StorageErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageErrorCallback Mozilla StorageErrorCallback documentation> -newStorageErrorCallbackSync ::-                            (MonadDOM m) =>-                              (Maybe DOMException -> JSM ()) -> m StorageErrorCallback-newStorageErrorCallbackSync callback-  = liftDOM-      (StorageErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageErrorCallback Mozilla StorageErrorCallback documentation> -newStorageErrorCallbackAsync ::-                             (MonadDOM m) =>-                               (Maybe DOMException -> JSM ()) -> m StorageErrorCallback-newStorageErrorCallbackAsync callback-  = liftDOM-      (StorageErrorCallback . Callback <$>-         function ""-           (\ _ _ [error] -> fromJSVal error >>= \ error' -> callback error'))
− src/Language/Javascript/JSaddle/DOM/Generated/StorageEvent.hs 
@@ -1,67 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StorageEvent-       (initStorageEvent, getKey, getOldValue, getNewValue, getUrl,-        getStorageArea, StorageEvent, castToStorageEvent,-        gTypeStorageEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.initStorageEvent Mozilla StorageEvent.initStorageEvent documentation> -initStorageEvent ::-                 (MonadDOM m, ToJSString typeArg, ToJSString keyArg,-                  ToJSString oldValueArg, ToJSString newValueArg,-                  ToJSString urlArg) =>-                   StorageEvent ->-                     typeArg ->-                       Bool ->-                         Bool ->-                           keyArg ->-                             Maybe oldValueArg ->-                               Maybe newValueArg -> urlArg -> Maybe Storage -> m ()-initStorageEvent self typeArg canBubbleArg cancelableArg keyArg-  oldValueArg newValueArg urlArg storageAreaArg-  = liftDOM-      (void-         (self ^. jsf "initStorageEvent"-            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,-             toJSVal keyArg, toJSVal oldValueArg, toJSVal newValueArg,-             toJSVal urlArg, toJSVal storageAreaArg]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.key Mozilla StorageEvent.key documentation> -getKey ::-       (MonadDOM m, FromJSString result) => StorageEvent -> m result-getKey self = liftDOM ((self ^. js "key") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.oldValue Mozilla StorageEvent.oldValue documentation> -getOldValue ::-            (MonadDOM m, FromJSString result) =>-              StorageEvent -> m (Maybe result)-getOldValue self-  = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.newValue Mozilla StorageEvent.newValue documentation> -getNewValue ::-            (MonadDOM m, FromJSString result) =>-              StorageEvent -> m (Maybe result)-getNewValue self-  = liftDOM ((self ^. js "newValue") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.url Mozilla StorageEvent.url documentation> -getUrl ::-       (MonadDOM m, FromJSString result) => StorageEvent -> m result-getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent.storageArea Mozilla StorageEvent.storageArea documentation> -getStorageArea :: (MonadDOM m) => StorageEvent -> m (Maybe Storage)-getStorageArea self-  = liftDOM ((self ^. js "storageArea") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/StorageInfo.hs 
@@ -1,47 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StorageInfo-       (queryUsageAndQuota, requestQuota, pattern TEMPORARY,-        pattern PERSISTENT, StorageInfo, castToStorageInfo,-        gTypeStorageInfo)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageInfo.queryUsageAndQuota Mozilla StorageInfo.queryUsageAndQuota documentation> -queryUsageAndQuota ::-                   (MonadDOM m) =>-                     StorageInfo ->-                       Word ->-                         Maybe StorageUsageCallback -> Maybe StorageErrorCallback -> m ()-queryUsageAndQuota self storageType usageCallback errorCallback-  = liftDOM-      (void-         (self ^. jsf "queryUsageAndQuota"-            [toJSVal storageType, toJSVal usageCallback,-             toJSVal errorCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageInfo.requestQuota Mozilla StorageInfo.requestQuota documentation> -requestQuota ::-             (MonadDOM m) =>-               StorageInfo ->-                 Word ->-                   Word64 ->-                     Maybe StorageQuotaCallback -> Maybe StorageErrorCallback -> m ()-requestQuota self storageType newQuotaInBytes quotaCallback-  errorCallback-  = liftDOM-      (void-         (self ^. jsf "requestQuota"-            [toJSVal storageType, toJSVal newQuotaInBytes,-             toJSVal quotaCallback, toJSVal errorCallback]))-pattern TEMPORARY = 0-pattern PERSISTENT = 1
− src/Language/Javascript/JSaddle/DOM/Generated/StorageQuota.hs 
@@ -1,40 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StorageQuota-       (queryUsageAndQuota, requestQuota, StorageQuota,-        castToStorageQuota, gTypeStorageQuota)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuota.queryUsageAndQuota Mozilla StorageQuota.queryUsageAndQuota documentation> -queryUsageAndQuota ::-                   (MonadDOM m) =>-                     StorageQuota ->-                       Maybe StorageUsageCallback -> Maybe StorageErrorCallback -> m ()-queryUsageAndQuota self usageCallback errorCallback-  = liftDOM-      (void-         (self ^. jsf "queryUsageAndQuota"-            [toJSVal usageCallback, toJSVal errorCallback]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuota.requestQuota Mozilla StorageQuota.requestQuota documentation> -requestQuota ::-             (MonadDOM m) =>-               StorageQuota ->-                 Word64 ->-                   Maybe StorageQuotaCallback -> Maybe StorageErrorCallback -> m ()-requestQuota self newQuotaInBytes quotaCallback errorCallback-  = liftDOM-      (void-         (self ^. jsf "requestQuota"-            [toJSVal newQuotaInBytes, toJSVal quotaCallback,-             toJSVal errorCallback]))
− src/Language/Javascript/JSaddle/DOM/Generated/StorageQuotaCallback.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StorageQuotaCallback-       (newStorageQuotaCallback, newStorageQuotaCallbackSync,-        newStorageQuotaCallbackAsync, StorageQuotaCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuotaCallback Mozilla StorageQuotaCallback documentation> -newStorageQuotaCallback ::-                        (MonadDOM m) => (Double -> JSM ()) -> m StorageQuotaCallback-newStorageQuotaCallback callback-  = liftDOM-      (StorageQuotaCallback . Callback <$>-         function ""-           (\ _ _ [grantedQuotaInBytes] ->-              fromJSValUnchecked grantedQuotaInBytes >>=-                \ grantedQuotaInBytes' -> callback grantedQuotaInBytes'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuotaCallback Mozilla StorageQuotaCallback documentation> -newStorageQuotaCallbackSync ::-                            (MonadDOM m) => (Double -> JSM ()) -> m StorageQuotaCallback-newStorageQuotaCallbackSync callback-  = liftDOM-      (StorageQuotaCallback . Callback <$>-         function ""-           (\ _ _ [grantedQuotaInBytes] ->-              fromJSValUnchecked grantedQuotaInBytes >>=-                \ grantedQuotaInBytes' -> callback grantedQuotaInBytes'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuotaCallback Mozilla StorageQuotaCallback documentation> -newStorageQuotaCallbackAsync ::-                             (MonadDOM m) => (Double -> JSM ()) -> m StorageQuotaCallback-newStorageQuotaCallbackAsync callback-  = liftDOM-      (StorageQuotaCallback . Callback <$>-         function ""-           (\ _ _ [grantedQuotaInBytes] ->-              fromJSValUnchecked grantedQuotaInBytes >>=-                \ grantedQuotaInBytes' -> callback grantedQuotaInBytes'))
− src/Language/Javascript/JSaddle/DOM/Generated/StorageUsageCallback.hs 
@@ -1,61 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StorageUsageCallback-       (newStorageUsageCallback, newStorageUsageCallbackSync,-        newStorageUsageCallbackAsync, StorageUsageCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageUsageCallback Mozilla StorageUsageCallback documentation> -newStorageUsageCallback ::-                        (MonadDOM m) =>-                          (Double -> Double -> JSM ()) -> m StorageUsageCallback-newStorageUsageCallback callback-  = liftDOM-      (StorageUsageCallback . Callback <$>-         function ""-           (\ _ _ [currentUsageInBytes, currentQuotaInBytes] ->-              fromJSValUnchecked currentQuotaInBytes >>=-                \ currentQuotaInBytes' ->-                  fromJSValUnchecked currentUsageInBytes >>=-                    \ currentUsageInBytes' -> callback currentUsageInBytes'-                    currentQuotaInBytes'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageUsageCallback Mozilla StorageUsageCallback documentation> -newStorageUsageCallbackSync ::-                            (MonadDOM m) =>-                              (Double -> Double -> JSM ()) -> m StorageUsageCallback-newStorageUsageCallbackSync callback-  = liftDOM-      (StorageUsageCallback . Callback <$>-         function ""-           (\ _ _ [currentUsageInBytes, currentQuotaInBytes] ->-              fromJSValUnchecked currentQuotaInBytes >>=-                \ currentQuotaInBytes' ->-                  fromJSValUnchecked currentUsageInBytes >>=-                    \ currentUsageInBytes' -> callback currentUsageInBytes'-                    currentQuotaInBytes'))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StorageUsageCallback Mozilla StorageUsageCallback documentation> -newStorageUsageCallbackAsync ::-                             (MonadDOM m) =>-                               (Double -> Double -> JSM ()) -> m StorageUsageCallback-newStorageUsageCallbackAsync callback-  = liftDOM-      (StorageUsageCallback . Callback <$>-         function ""-           (\ _ _ [currentUsageInBytes, currentQuotaInBytes] ->-              fromJSValUnchecked currentQuotaInBytes >>=-                \ currentQuotaInBytes' ->-                  fromJSValUnchecked currentUsageInBytes >>=-                    \ currentUsageInBytes' -> callback currentUsageInBytes'-                    currentQuotaInBytes'))
− src/Language/Javascript/JSaddle/DOM/Generated/StringCallback.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StringCallback-       (newStringCallback, newStringCallbackSync, newStringCallbackAsync,-        StringCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StringCallback Mozilla StringCallback documentation> -newStringCallback ::-                  (MonadDOM m, FromJSString data') =>-                    (data' -> JSM ()) -> m (StringCallback data')-newStringCallback callback-  = liftDOM-      (StringCallback . Callback <$>-         function ""-           (\ _ _ [data'] ->-              fromJSValUnchecked data' >>= \ data'' -> callback data''))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StringCallback Mozilla StringCallback documentation> -newStringCallbackSync ::-                      (MonadDOM m, FromJSString data') =>-                        (data' -> JSM ()) -> m (StringCallback data')-newStringCallbackSync callback-  = liftDOM-      (StringCallback . Callback <$>-         function ""-           (\ _ _ [data'] ->-              fromJSValUnchecked data' >>= \ data'' -> callback data''))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StringCallback Mozilla StringCallback documentation> -newStringCallbackAsync ::-                       (MonadDOM m, FromJSString data') =>-                         (data' -> JSM ()) -> m (StringCallback data')-newStringCallbackAsync callback-  = liftDOM-      (StringCallback . Callback <$>-         function ""-           (\ _ _ [data'] ->-              fromJSValUnchecked data' >>= \ data'' -> callback data''))
− src/Language/Javascript/JSaddle/DOM/Generated/StyleMedia.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StyleMedia-       (matchMedium, getType, StyleMedia, castToStyleMedia,-        gTypeStyleMedia)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleMedia.matchMedium Mozilla StyleMedia.matchMedium documentation> -matchMedium ::-            (MonadDOM m, ToJSString mediaquery) =>-              StyleMedia -> mediaquery -> m Bool-matchMedium self mediaquery-  = liftDOM-      ((self ^. jsf "matchMedium" [toJSVal mediaquery]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleMedia.type Mozilla StyleMedia.type documentation> -getType ::-        (MonadDOM m, FromJSString result) => StyleMedia -> m result-getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/StyleSheet.hs 
@@ -1,71 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StyleSheet-       (getType, setDisabled, getDisabled, getOwnerNode,-        getParentStyleSheet, getHref, getTitle, getMedia, StyleSheet,-        castToStyleSheet, gTypeStyleSheet, IsStyleSheet, toStyleSheet)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.type Mozilla StyleSheet.type documentation> -getType ::-        (MonadDOM m, IsStyleSheet self, FromJSString result) =>-          self -> m (Maybe result)-getType self-  = liftDOM-      (((toStyleSheet self) ^. js "type") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.disabled Mozilla StyleSheet.disabled documentation> -setDisabled ::-            (MonadDOM m, IsStyleSheet self) => self -> Bool -> m ()-setDisabled self val-  = liftDOM ((toStyleSheet self) ^. jss "disabled" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.disabled Mozilla StyleSheet.disabled documentation> -getDisabled :: (MonadDOM m, IsStyleSheet self) => self -> m Bool-getDisabled self-  = liftDOM (((toStyleSheet self) ^. js "disabled") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.ownerNode Mozilla StyleSheet.ownerNode documentation> -getOwnerNode ::-             (MonadDOM m, IsStyleSheet self) => self -> m (Maybe Node)-getOwnerNode self-  = liftDOM (((toStyleSheet self) ^. js "ownerNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.parentStyleSheet Mozilla StyleSheet.parentStyleSheet documentation> -getParentStyleSheet ::-                    (MonadDOM m, IsStyleSheet self) => self -> m (Maybe StyleSheet)-getParentStyleSheet self-  = liftDOM-      (((toStyleSheet self) ^. js "parentStyleSheet") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.href Mozilla StyleSheet.href documentation> -getHref ::-        (MonadDOM m, IsStyleSheet self, FromJSString result) =>-          self -> m (Maybe result)-getHref self-  = liftDOM-      (((toStyleSheet self) ^. js "href") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.title Mozilla StyleSheet.title documentation> -getTitle ::-         (MonadDOM m, IsStyleSheet self, FromJSString result) =>-           self -> m (Maybe result)-getTitle self-  = liftDOM-      (((toStyleSheet self) ^. js "title") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet.media Mozilla StyleSheet.media documentation> -getMedia ::-         (MonadDOM m, IsStyleSheet self) => self -> m (Maybe MediaList)-getMedia self-  = liftDOM (((toStyleSheet self) ^. js "media") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/StyleSheetList.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.StyleSheetList-       (item, _get, getLength, StyleSheetList, castToStyleSheetList,-        gTypeStyleSheetList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList.item Mozilla StyleSheetList.item documentation> -item ::-     (MonadDOM m) => StyleSheetList -> Word -> m (Maybe StyleSheet)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList._get Mozilla StyleSheetList._get documentation> -_get ::-     (MonadDOM m, ToJSString name) =>-       StyleSheetList -> name -> m (Maybe CSSStyleSheet)-_get self name-  = liftDOM ((self ^. jsf "_get" [toJSVal name]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList.length Mozilla StyleSheetList.length documentation> -getLength :: (MonadDOM m) => StyleSheetList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/SubtleCrypto.hs 
@@ -1,143 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.SubtleCrypto-       (encrypt, decrypt, sign, verify, digest, generateKey, importKey,-        exportKey, wrapKey, unwrapKey, SubtleCrypto, castToSubtleCrypto,-        gTypeSubtleCrypto)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.encrypt Mozilla WebKitSubtleCrypto.encrypt documentation> -encrypt ::-        (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>-          SubtleCrypto ->-            algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise)-encrypt self algorithm key data'-  = liftDOM-      ((self ^. jsf "encrypt"-          [toJSVal algorithm, toJSVal key, toJSVal (array data')])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.decrypt Mozilla WebKitSubtleCrypto.decrypt documentation> -decrypt ::-        (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>-          SubtleCrypto ->-            algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise)-decrypt self algorithm key data'-  = liftDOM-      ((self ^. jsf "decrypt"-          [toJSVal algorithm, toJSVal key, toJSVal (array data')])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.sign Mozilla WebKitSubtleCrypto.sign documentation> -sign ::-     (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>-       SubtleCrypto ->-         algorithm -> Maybe CryptoKey -> [Maybe data'] -> m (Maybe Promise)-sign self algorithm key data'-  = liftDOM-      ((self ^. jsf "sign"-          [toJSVal algorithm, toJSVal key, toJSVal (array data')])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.verify Mozilla WebKitSubtleCrypto.verify documentation> -verify ::-       (MonadDOM m, ToJSString algorithm, IsCryptoOperationData signature,-        IsCryptoOperationData data') =>-         SubtleCrypto ->-           algorithm ->-             Maybe CryptoKey ->-               Maybe signature -> [Maybe data'] -> m (Maybe Promise)-verify self algorithm key signature data'-  = liftDOM-      ((self ^. jsf "verify"-          [toJSVal algorithm, toJSVal key, toJSVal signature,-           toJSVal (array data')])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.digest Mozilla WebKitSubtleCrypto.digest documentation> -digest ::-       (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') =>-         SubtleCrypto -> algorithm -> [Maybe data'] -> m (Maybe Promise)-digest self algorithm data'-  = liftDOM-      ((self ^. jsf "digest" [toJSVal algorithm, toJSVal (array data')])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.generateKey Mozilla WebKitSubtleCrypto.generateKey documentation> -generateKey ::-            (MonadDOM m, ToJSString algorithm) =>-              SubtleCrypto ->-                algorithm -> Bool -> [KeyUsage] -> m (Maybe Promise)-generateKey self algorithm extractable keyUsages-  = liftDOM-      ((self ^. jsf "generateKey"-          [toJSVal algorithm, toJSVal extractable,-           toJSVal (array keyUsages)])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.importKey Mozilla WebKitSubtleCrypto.importKey documentation> -importKey ::-          (MonadDOM m, ToJSString format, IsCryptoOperationData keyData,-           ToJSString algorithm) =>-            SubtleCrypto ->-              format ->-                Maybe keyData ->-                  algorithm -> Bool -> [KeyUsage] -> m (Maybe Promise)-importKey self format keyData algorithm extractable keyUsages-  = liftDOM-      ((self ^. jsf "importKey"-          [toJSVal format, toJSVal keyData, toJSVal algorithm,-           toJSVal extractable, toJSVal (array keyUsages)])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.exportKey Mozilla WebKitSubtleCrypto.exportKey documentation> -exportKey ::-          (MonadDOM m, ToJSString format) =>-            SubtleCrypto -> format -> Maybe CryptoKey -> m (Maybe Promise)-exportKey self format key-  = liftDOM-      ((self ^. jsf "exportKey" [toJSVal format, toJSVal key]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.wrapKey Mozilla WebKitSubtleCrypto.wrapKey documentation> -wrapKey ::-        (MonadDOM m, ToJSString format, ToJSString wrapAlgorithm) =>-          SubtleCrypto ->-            format ->-              Maybe CryptoKey ->-                Maybe CryptoKey -> wrapAlgorithm -> m (Maybe Promise)-wrapKey self format key wrappingKey wrapAlgorithm-  = liftDOM-      ((self ^. jsf "wrapKey"-          [toJSVal format, toJSVal key, toJSVal wrappingKey,-           toJSVal wrapAlgorithm])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto.unwrapKey Mozilla WebKitSubtleCrypto.unwrapKey documentation> -unwrapKey ::-          (MonadDOM m, ToJSString format, IsCryptoOperationData wrappedKey,-           ToJSString unwrapAlgorithm, ToJSString unwrappedKeyAlgorithm) =>-            SubtleCrypto ->-              format ->-                Maybe wrappedKey ->-                  Maybe CryptoKey ->-                    unwrapAlgorithm ->-                      unwrappedKeyAlgorithm -> Bool -> [KeyUsage] -> m (Maybe Promise)-unwrapKey self format wrappedKey unwrappingKey unwrapAlgorithm-  unwrappedKeyAlgorithm extractable keyUsages-  = liftDOM-      ((self ^. jsf "unwrapKey"-          [toJSVal format, toJSVal wrappedKey, toJSVal unwrappingKey,-           toJSVal unwrapAlgorithm, toJSVal unwrappedKeyAlgorithm,-           toJSVal extractable, toJSVal (array keyUsages)])-         >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/Text.hs 
@@ -1,43 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Text-       (newText, splitText, replaceWholeText, getWholeText, Text,-        castToText, gTypeText, IsText, toText)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Text Mozilla Text documentation> -newText :: (MonadDOM m, ToJSString data') => data' -> m Text-newText data' = liftDOM (Text <$> new (jsg "Text") [toJSVal data'])---- | <https://developer.mozilla.org/en-US/docs/Web/API/Text.splitText Mozilla Text.splitText documentation> -splitText ::-          (MonadDOM m, IsText self) => self -> Word -> m (Maybe Text)-splitText self offset-  = liftDOM-      (((toText self) ^. jsf "splitText" [toJSVal offset]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Text.replaceWholeText Mozilla Text.replaceWholeText documentation> -replaceWholeText ::-                 (MonadDOM m, IsText self, ToJSString content) =>-                   self -> content -> m (Maybe Text)-replaceWholeText self content-  = liftDOM-      (((toText self) ^. jsf "replaceWholeText" [toJSVal content]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Text.wholeText Mozilla Text.wholeText documentation> -getWholeText ::-             (MonadDOM m, IsText self, FromJSString result) => self -> m result-getWholeText self-  = liftDOM-      (((toText self) ^. js "wholeText") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/TextEvent.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TextEvent-       (initTextEvent, getData, TextEvent, castToTextEvent,-        gTypeTextEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextEvent.initTextEvent Mozilla TextEvent.initTextEvent documentation> -initTextEvent ::-              (MonadDOM m, ToJSString typeArg, ToJSString dataArg) =>-                TextEvent ->-                  typeArg -> Bool -> Bool -> Maybe Window -> dataArg -> m ()-initTextEvent self typeArg canBubbleArg cancelableArg viewArg-  dataArg-  = liftDOM-      (void-         (self ^. jsf "initTextEvent"-            [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg,-             toJSVal viewArg, toJSVal dataArg]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextEvent.data Mozilla TextEvent.data documentation> -getData ::-        (MonadDOM m, FromJSString result) => TextEvent -> m result-getData self = liftDOM ((self ^. js "data") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/TextMetrics.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TextMetrics-       (getWidth, TextMetrics, castToTextMetrics, gTypeTextMetrics) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextMetrics.width Mozilla TextMetrics.width documentation> -getWidth :: (MonadDOM m) => TextMetrics -> m Float-getWidth self-  = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/TextTrack.hs 
@@ -1,112 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TextTrack-       (addCue, removeCue, addRegion, removeRegion, getId, setKind,-        getKind, getLabel, setLanguage, getLanguage,-        getInBandMetadataTrackDispatchType, setMode, getMode, getCues,-        getActiveCues, cueChange, getRegions, getSourceBuffer, TextTrack,-        castToTextTrack, gTypeTextTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.addCue Mozilla TextTrack.addCue documentation> -addCue ::-       (MonadDOM m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m ()-addCue self cue-  = liftDOM (void (self ^. jsf "addCue" [toJSVal cue]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.removeCue Mozilla TextTrack.removeCue documentation> -removeCue ::-          (MonadDOM m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m ()-removeCue self cue-  = liftDOM (void (self ^. jsf "removeCue" [toJSVal cue]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.addRegion Mozilla TextTrack.addRegion documentation> -addRegion :: (MonadDOM m) => TextTrack -> Maybe VTTRegion -> m ()-addRegion self region-  = liftDOM (void (self ^. jsf "addRegion" [toJSVal region]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.removeRegion Mozilla TextTrack.removeRegion documentation> -removeRegion ::-             (MonadDOM m) => TextTrack -> Maybe VTTRegion -> m ()-removeRegion self region-  = liftDOM (void (self ^. jsf "removeRegion" [toJSVal region]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.id Mozilla TextTrack.id documentation> -getId :: (MonadDOM m, FromJSString result) => TextTrack -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.kind Mozilla TextTrack.kind documentation> -setKind :: (MonadDOM m) => TextTrack -> TextTrackKind -> m ()-setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.kind Mozilla TextTrack.kind documentation> -getKind :: (MonadDOM m) => TextTrack -> m TextTrackKind-getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.label Mozilla TextTrack.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => TextTrack -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.language Mozilla TextTrack.language documentation> -setLanguage ::-            (MonadDOM m, ToJSString val) => TextTrack -> val -> m ()-setLanguage self val-  = liftDOM (self ^. jss "language" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.language Mozilla TextTrack.language documentation> -getLanguage ::-            (MonadDOM m, FromJSString result) => TextTrack -> m result-getLanguage self-  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.inBandMetadataTrackDispatchType Mozilla TextTrack.inBandMetadataTrackDispatchType documentation> -getInBandMetadataTrackDispatchType ::-                                   (MonadDOM m, FromJSString result) => TextTrack -> m result-getInBandMetadataTrackDispatchType self-  = liftDOM-      ((self ^. js "inBandMetadataTrackDispatchType") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.mode Mozilla TextTrack.mode documentation> -setMode :: (MonadDOM m) => TextTrack -> TextTrackMode -> m ()-setMode self val = liftDOM (self ^. jss "mode" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.mode Mozilla TextTrack.mode documentation> -getMode :: (MonadDOM m) => TextTrack -> m TextTrackMode-getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.cues Mozilla TextTrack.cues documentation> -getCues :: (MonadDOM m) => TextTrack -> m (Maybe TextTrackCueList)-getCues self = liftDOM ((self ^. js "cues") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.activeCues Mozilla TextTrack.activeCues documentation> -getActiveCues ::-              (MonadDOM m) => TextTrack -> m (Maybe TextTrackCueList)-getActiveCues self-  = liftDOM ((self ^. js "activeCues") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.oncuechange Mozilla TextTrack.oncuechange documentation> -cueChange :: EventName TextTrack Event-cueChange = unsafeEventName (toJSString "cuechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.regions Mozilla TextTrack.regions documentation> -getRegions :: (MonadDOM m) => TextTrack -> m (Maybe VTTRegionList)-getRegions self = liftDOM ((self ^. js "regions") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack.sourceBuffer Mozilla TextTrack.sourceBuffer documentation> -getSourceBuffer ::-                (MonadDOM m) => TextTrack -> m (Maybe SourceBuffer)-getSourceBuffer self-  = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/TextTrackCue.hs 
@@ -1,97 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TextTrackCue-       (newTextTrackCue, getTrack, setId, getId, setStartTime,-        getStartTime, setEndTime, getEndTime, setPauseOnExit,-        getPauseOnExit, enter, exit, TextTrackCue, castToTextTrackCue,-        gTypeTextTrackCue, IsTextTrackCue, toTextTrackCue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue Mozilla TextTrackCue documentation> -newTextTrackCue ::-                (MonadDOM m, ToJSString text) =>-                  Double -> Double -> text -> m TextTrackCue-newTextTrackCue startTime endTime text-  = liftDOM-      (TextTrackCue <$>-         new (jsg "TextTrackCue")-           [toJSVal startTime, toJSVal endTime, toJSVal text])---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.track Mozilla TextTrackCue.track documentation> -getTrack ::-         (MonadDOM m, IsTextTrackCue self) => self -> m (Maybe TextTrack)-getTrack self-  = liftDOM (((toTextTrackCue self) ^. js "track") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.id Mozilla TextTrackCue.id documentation> -setId ::-      (MonadDOM m, IsTextTrackCue self, ToJSString val) =>-        self -> val -> m ()-setId self val-  = liftDOM ((toTextTrackCue self) ^. jss "id" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.id Mozilla TextTrackCue.id documentation> -getId ::-      (MonadDOM m, IsTextTrackCue self, FromJSString result) =>-        self -> m result-getId self-  = liftDOM-      (((toTextTrackCue self) ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.startTime Mozilla TextTrackCue.startTime documentation> -setStartTime ::-             (MonadDOM m, IsTextTrackCue self) => self -> Double -> m ()-setStartTime self val-  = liftDOM ((toTextTrackCue self) ^. jss "startTime" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.startTime Mozilla TextTrackCue.startTime documentation> -getStartTime ::-             (MonadDOM m, IsTextTrackCue self) => self -> m Double-getStartTime self-  = liftDOM-      (((toTextTrackCue self) ^. js "startTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.endTime Mozilla TextTrackCue.endTime documentation> -setEndTime ::-           (MonadDOM m, IsTextTrackCue self) => self -> Double -> m ()-setEndTime self val-  = liftDOM ((toTextTrackCue self) ^. jss "endTime" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.endTime Mozilla TextTrackCue.endTime documentation> -getEndTime :: (MonadDOM m, IsTextTrackCue self) => self -> m Double-getEndTime self-  = liftDOM (((toTextTrackCue self) ^. js "endTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.pauseOnExit Mozilla TextTrackCue.pauseOnExit documentation> -setPauseOnExit ::-               (MonadDOM m, IsTextTrackCue self) => self -> Bool -> m ()-setPauseOnExit self val-  = liftDOM-      ((toTextTrackCue self) ^. jss "pauseOnExit" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.pauseOnExit Mozilla TextTrackCue.pauseOnExit documentation> -getPauseOnExit ::-               (MonadDOM m, IsTextTrackCue self) => self -> m Bool-getPauseOnExit self-  = liftDOM-      (((toTextTrackCue self) ^. js "pauseOnExit") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.onenter Mozilla TextTrackCue.onenter documentation> -enter ::-      (IsTextTrackCue self, IsEventTarget self) => EventName self Event-enter = unsafeEventName (toJSString "enter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue.onexit Mozilla TextTrackCue.onexit documentation> -exit ::-     (IsTextTrackCue self, IsEventTarget self) => EventName self Event-exit = unsafeEventName (toJSString "exit")
− src/Language/Javascript/JSaddle/DOM/Generated/TextTrackCueList.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TextTrackCueList-       (item, getCueById, getLength, TextTrackCueList,-        castToTextTrackCueList, gTypeTextTrackCueList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList.item Mozilla TextTrackCueList.item documentation> -item ::-     (MonadDOM m) => TextTrackCueList -> Word -> m (Maybe TextTrackCue)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList.getCueById Mozilla TextTrackCueList.getCueById documentation> -getCueById ::-           (MonadDOM m, ToJSString id) =>-             TextTrackCueList -> id -> m (Maybe TextTrackCue)-getCueById self id-  = liftDOM ((self ^. jsf "getCueById" [toJSVal id]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList.length Mozilla TextTrackCueList.length documentation> -getLength :: (MonadDOM m) => TextTrackCueList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/TextTrackList.hs 
@@ -1,46 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TextTrackList-       (item, getTrackById, getLength, addTrack, change, removeTrack,-        TextTrackList, castToTextTrackList, gTypeTextTrackList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.item Mozilla TextTrackList.item documentation> -item ::-     (MonadDOM m) => TextTrackList -> Word -> m (Maybe TextTrack)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.getTrackById Mozilla TextTrackList.getTrackById documentation> -getTrackById ::-             (MonadDOM m, ToJSString id) =>-               TextTrackList -> id -> m (Maybe TextTrack)-getTrackById self id-  = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.length Mozilla TextTrackList.length documentation> -getLength :: (MonadDOM m) => TextTrackList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.onaddtrack Mozilla TextTrackList.onaddtrack documentation> -addTrack :: EventName TextTrackList Event-addTrack = unsafeEventName (toJSString "addtrack")---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.onchange Mozilla TextTrackList.onchange documentation> -change :: EventName TextTrackList Event-change = unsafeEventName (toJSString "change")---- | <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList.onremovetrack Mozilla TextTrackList.onremovetrack documentation> -removeTrack :: EventName TextTrackList Event-removeTrack = unsafeEventName (toJSString "removetrack")
− src/Language/Javascript/JSaddle/DOM/Generated/TimeRanges.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TimeRanges-       (start, end, getLength, TimeRanges, castToTimeRanges,-        gTypeTimeRanges)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges.start Mozilla TimeRanges.start documentation> -start :: (MonadDOM m) => TimeRanges -> Word -> m Double-start self index-  = liftDOM ((self ^. jsf "start" [toJSVal index]) >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges.end Mozilla TimeRanges.end documentation> -end :: (MonadDOM m) => TimeRanges -> Word -> m Double-end self index-  = liftDOM ((self ^. jsf "end" [toJSVal index]) >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges.length Mozilla TimeRanges.length documentation> -getLength :: (MonadDOM m) => TimeRanges -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/Touch.hs 
@@ -1,82 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Touch-       (getClientX, getClientY, getScreenX, getScreenY, getPageX,-        getPageY, getTarget, getIdentifier, getWebkitRadiusX,-        getWebkitRadiusY, getWebkitRotationAngle, getWebkitForce, Touch,-        castToTouch, gTypeTouch)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.clientX Mozilla Touch.clientX documentation> -getClientX :: (MonadDOM m) => Touch -> m Int-getClientX self-  = liftDOM (round <$> ((self ^. js "clientX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.clientY Mozilla Touch.clientY documentation> -getClientY :: (MonadDOM m) => Touch -> m Int-getClientY self-  = liftDOM (round <$> ((self ^. js "clientY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.screenX Mozilla Touch.screenX documentation> -getScreenX :: (MonadDOM m) => Touch -> m Int-getScreenX self-  = liftDOM (round <$> ((self ^. js "screenX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.screenY Mozilla Touch.screenY documentation> -getScreenY :: (MonadDOM m) => Touch -> m Int-getScreenY self-  = liftDOM (round <$> ((self ^. js "screenY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.pageX Mozilla Touch.pageX documentation> -getPageX :: (MonadDOM m) => Touch -> m Int-getPageX self-  = liftDOM (round <$> ((self ^. js "pageX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.pageY Mozilla Touch.pageY documentation> -getPageY :: (MonadDOM m) => Touch -> m Int-getPageY self-  = liftDOM (round <$> ((self ^. js "pageY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.target Mozilla Touch.target documentation> -getTarget :: (MonadDOM m) => Touch -> m (Maybe EventTarget)-getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.identifier Mozilla Touch.identifier documentation> -getIdentifier :: (MonadDOM m) => Touch -> m Word-getIdentifier self-  = liftDOM (round <$> ((self ^. js "identifier") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitRadiusX Mozilla Touch.webkitRadiusX documentation> -getWebkitRadiusX :: (MonadDOM m) => Touch -> m Int-getWebkitRadiusX self-  = liftDOM-      (round <$> ((self ^. js "webkitRadiusX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitRadiusY Mozilla Touch.webkitRadiusY documentation> -getWebkitRadiusY :: (MonadDOM m) => Touch -> m Int-getWebkitRadiusY self-  = liftDOM-      (round <$> ((self ^. js "webkitRadiusY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitRotationAngle Mozilla Touch.webkitRotationAngle documentation> -getWebkitRotationAngle :: (MonadDOM m) => Touch -> m Float-getWebkitRotationAngle self-  = liftDOM-      (realToFrac <$>-         ((self ^. js "webkitRotationAngle") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Touch.webkitForce Mozilla Touch.webkitForce documentation> -getWebkitForce :: (MonadDOM m) => Touch -> m Float-getWebkitForce self-  = liftDOM-      (realToFrac <$> ((self ^. js "webkitForce") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/TouchEvent.hs 
@@ -1,69 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TouchEvent-       (initTouchEvent, getTouches, getTargetTouches, getChangedTouches,-        getCtrlKey, getShiftKey, getAltKey, getMetaKey, TouchEvent,-        castToTouchEvent, gTypeTouchEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.initTouchEvent Mozilla TouchEvent.initTouchEvent documentation> -initTouchEvent ::-               (MonadDOM m, ToJSString type') =>-                 TouchEvent ->-                   Maybe TouchList ->-                     Maybe TouchList ->-                       Maybe TouchList ->-                         type' ->-                           Maybe Window ->-                             Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m ()-initTouchEvent self touches targetTouches changedTouches type' view-  screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey-  = liftDOM-      (void-         (self ^. jsf "initTouchEvent"-            [toJSVal touches, toJSVal targetTouches, toJSVal changedTouches,-             toJSVal type', toJSVal view, toJSVal screenX, toJSVal screenY,-             toJSVal clientX, toJSVal clientY, toJSVal ctrlKey, toJSVal altKey,-             toJSVal shiftKey, toJSVal metaKey]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.touches Mozilla TouchEvent.touches documentation> -getTouches :: (MonadDOM m) => TouchEvent -> m (Maybe TouchList)-getTouches self = liftDOM ((self ^. js "touches") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.targetTouches Mozilla TouchEvent.targetTouches documentation> -getTargetTouches ::-                 (MonadDOM m) => TouchEvent -> m (Maybe TouchList)-getTargetTouches self-  = liftDOM ((self ^. js "targetTouches") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.changedTouches Mozilla TouchEvent.changedTouches documentation> -getChangedTouches ::-                  (MonadDOM m) => TouchEvent -> m (Maybe TouchList)-getChangedTouches self-  = liftDOM ((self ^. js "changedTouches") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.ctrlKey Mozilla TouchEvent.ctrlKey documentation> -getCtrlKey :: (MonadDOM m) => TouchEvent -> m Bool-getCtrlKey self = liftDOM ((self ^. js "ctrlKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.shiftKey Mozilla TouchEvent.shiftKey documentation> -getShiftKey :: (MonadDOM m) => TouchEvent -> m Bool-getShiftKey self = liftDOM ((self ^. js "shiftKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.altKey Mozilla TouchEvent.altKey documentation> -getAltKey :: (MonadDOM m) => TouchEvent -> m Bool-getAltKey self = liftDOM ((self ^. js "altKey") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent.metaKey Mozilla TouchEvent.metaKey documentation> -getMetaKey :: (MonadDOM m) => TouchEvent -> m Bool-getMetaKey self = liftDOM ((self ^. js "metaKey") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/TouchList.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TouchList-       (item, getLength, TouchList, castToTouchList, gTypeTouchList) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchList.item Mozilla TouchList.item documentation> -item :: (MonadDOM m) => TouchList -> Word -> m (Maybe Touch)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TouchList.length Mozilla TouchList.length documentation> -getLength :: (MonadDOM m) => TouchList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/TrackEvent.hs 
@@ -1,18 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TrackEvent-       (getTrack, TrackEvent, castToTrackEvent, gTypeTrackEvent) where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TrackEvent.track Mozilla TrackEvent.track documentation> -getTrack :: (MonadDOM m) => TrackEvent -> m (Maybe GObject)-getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/TransitionEvent.hs 
@@ -1,33 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TransitionEvent-       (getPropertyName, getElapsedTime, getPseudoElement,-        TransitionEvent, castToTransitionEvent, gTypeTransitionEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent.propertyName Mozilla TransitionEvent.propertyName documentation> -getPropertyName ::-                (MonadDOM m, FromJSString result) => TransitionEvent -> m result-getPropertyName self-  = liftDOM ((self ^. js "propertyName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent.elapsedTime Mozilla TransitionEvent.elapsedTime documentation> -getElapsedTime :: (MonadDOM m) => TransitionEvent -> m Double-getElapsedTime self-  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent.pseudoElement Mozilla TransitionEvent.pseudoElement documentation> -getPseudoElement ::-                 (MonadDOM m, FromJSString result) => TransitionEvent -> m result-getPseudoElement self-  = liftDOM ((self ^. js "pseudoElement") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/TreeWalker.hs 
@@ -1,78 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TreeWalker-       (parentNode, firstChild, lastChild, previousSibling, nextSibling,-        previousNode, nextNode, getRoot, getWhatToShow, getFilter,-        getExpandEntityReferences, setCurrentNode, getCurrentNode,-        TreeWalker, castToTreeWalker, gTypeTreeWalker)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.parentNode Mozilla TreeWalker.parentNode documentation> -parentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-parentNode self = liftDOM ((self ^. js "parentNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.firstChild Mozilla TreeWalker.firstChild documentation> -firstChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-firstChild self = liftDOM ((self ^. js "firstChild") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.lastChild Mozilla TreeWalker.lastChild documentation> -lastChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-lastChild self = liftDOM ((self ^. js "lastChild") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.previousSibling Mozilla TreeWalker.previousSibling documentation> -previousSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-previousSibling self-  = liftDOM ((self ^. js "previousSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.nextSibling Mozilla TreeWalker.nextSibling documentation> -nextSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-nextSibling self-  = liftDOM ((self ^. js "nextSibling") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.previousNode Mozilla TreeWalker.previousNode documentation> -previousNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-previousNode self-  = liftDOM ((self ^. js "previousNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.nextNode Mozilla TreeWalker.nextNode documentation> -nextNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-nextNode self = liftDOM ((self ^. js "nextNode") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.root Mozilla TreeWalker.root documentation> -getRoot :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.whatToShow Mozilla TreeWalker.whatToShow documentation> -getWhatToShow :: (MonadDOM m) => TreeWalker -> m Word-getWhatToShow self-  = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.filter Mozilla TreeWalker.filter documentation> -getFilter :: (MonadDOM m) => TreeWalker -> m (Maybe NodeFilter)-getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.expandEntityReferences Mozilla TreeWalker.expandEntityReferences documentation> -getExpandEntityReferences :: (MonadDOM m) => TreeWalker -> m Bool-getExpandEntityReferences self-  = liftDOM ((self ^. js "expandEntityReferences") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.currentNode Mozilla TreeWalker.currentNode documentation> -setCurrentNode ::-               (MonadDOM m, IsNode val) => TreeWalker -> Maybe val -> m ()-setCurrentNode self val-  = liftDOM (self ^. jss "currentNode" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker.currentNode Mozilla TreeWalker.currentNode documentation> -getCurrentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node)-getCurrentNode self-  = liftDOM ((self ^. js "currentNode") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/TypeConversions.hs 
@@ -1,224 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.TypeConversions-       (setTestLong, getTestLong, setTestEnforceRangeLong,-        getTestEnforceRangeLong, setTestUnsignedLong, getTestUnsignedLong,-        setTestEnforceRangeUnsignedLong, getTestEnforceRangeUnsignedLong,-        setTestLongLong, getTestLongLong, setTestEnforceRangeLongLong,-        getTestEnforceRangeLongLong, setTestUnsignedLongLong,-        getTestUnsignedLongLong, setTestEnforceRangeUnsignedLongLong,-        getTestEnforceRangeUnsignedLongLong, setTestByte, getTestByte,-        setTestEnforceRangeByte, getTestEnforceRangeByte, setTestOctet,-        getTestOctet, setTestEnforceRangeOctet, getTestEnforceRangeOctet,-        setTestShort, getTestShort, setTestEnforceRangeShort,-        getTestEnforceRangeShort, setTestUnsignedShort,-        getTestUnsignedShort, setTestEnforceRangeUnsignedShort,-        getTestEnforceRangeUnsignedShort, TypeConversions,-        castToTypeConversions, gTypeTypeConversions)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLong Mozilla TypeConversions.testLong documentation> -setTestLong :: (MonadDOM m) => TypeConversions -> Int -> m ()-setTestLong self val-  = liftDOM (self ^. jss "testLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLong Mozilla TypeConversions.testLong documentation> -getTestLong :: (MonadDOM m) => TypeConversions -> m Int-getTestLong self-  = liftDOM (round <$> ((self ^. js "testLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLong Mozilla TypeConversions.testEnforceRangeLong documentation> -setTestEnforceRangeLong ::-                        (MonadDOM m) => TypeConversions -> Int -> m ()-setTestEnforceRangeLong self val-  = liftDOM (self ^. jss "testEnforceRangeLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLong Mozilla TypeConversions.testEnforceRangeLong documentation> -getTestEnforceRangeLong :: (MonadDOM m) => TypeConversions -> m Int-getTestEnforceRangeLong self-  = liftDOM-      (round <$> ((self ^. js "testEnforceRangeLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLong Mozilla TypeConversions.testUnsignedLong documentation> -setTestUnsignedLong ::-                    (MonadDOM m) => TypeConversions -> Word -> m ()-setTestUnsignedLong self val-  = liftDOM (self ^. jss "testUnsignedLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLong Mozilla TypeConversions.testUnsignedLong documentation> -getTestUnsignedLong :: (MonadDOM m) => TypeConversions -> m Word-getTestUnsignedLong self-  = liftDOM-      (round <$> ((self ^. js "testUnsignedLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLong Mozilla TypeConversions.testEnforceRangeUnsignedLong documentation> -setTestEnforceRangeUnsignedLong ::-                                (MonadDOM m) => TypeConversions -> Word -> m ()-setTestEnforceRangeUnsignedLong self val-  = liftDOM-      (self ^. jss "testEnforceRangeUnsignedLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLong Mozilla TypeConversions.testEnforceRangeUnsignedLong documentation> -getTestEnforceRangeUnsignedLong ::-                                (MonadDOM m) => TypeConversions -> m Word-getTestEnforceRangeUnsignedLong self-  = liftDOM-      (round <$>-         ((self ^. js "testEnforceRangeUnsignedLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLongLong Mozilla TypeConversions.testLongLong documentation> -setTestLongLong :: (MonadDOM m) => TypeConversions -> Int64 -> m ()-setTestLongLong self val-  = liftDOM (self ^. jss "testLongLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testLongLong Mozilla TypeConversions.testLongLong documentation> -getTestLongLong :: (MonadDOM m) => TypeConversions -> m Int64-getTestLongLong self-  = liftDOM (round <$> ((self ^. js "testLongLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLongLong Mozilla TypeConversions.testEnforceRangeLongLong documentation> -setTestEnforceRangeLongLong ::-                            (MonadDOM m) => TypeConversions -> Int64 -> m ()-setTestEnforceRangeLongLong self val-  = liftDOM (self ^. jss "testEnforceRangeLongLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeLongLong Mozilla TypeConversions.testEnforceRangeLongLong documentation> -getTestEnforceRangeLongLong ::-                            (MonadDOM m) => TypeConversions -> m Int64-getTestEnforceRangeLongLong self-  = liftDOM-      (round <$>-         ((self ^. js "testEnforceRangeLongLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLongLong Mozilla TypeConversions.testUnsignedLongLong documentation> -setTestUnsignedLongLong ::-                        (MonadDOM m) => TypeConversions -> Word64 -> m ()-setTestUnsignedLongLong self val-  = liftDOM (self ^. jss "testUnsignedLongLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedLongLong Mozilla TypeConversions.testUnsignedLongLong documentation> -getTestUnsignedLongLong ::-                        (MonadDOM m) => TypeConversions -> m Word64-getTestUnsignedLongLong self-  = liftDOM-      (round <$> ((self ^. js "testUnsignedLongLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLongLong Mozilla TypeConversions.testEnforceRangeUnsignedLongLong documentation> -setTestEnforceRangeUnsignedLongLong ::-                                    (MonadDOM m) => TypeConversions -> Word64 -> m ()-setTestEnforceRangeUnsignedLongLong self val-  = liftDOM-      (self ^. jss "testEnforceRangeUnsignedLongLong" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedLongLong Mozilla TypeConversions.testEnforceRangeUnsignedLongLong documentation> -getTestEnforceRangeUnsignedLongLong ::-                                    (MonadDOM m) => TypeConversions -> m Word64-getTestEnforceRangeUnsignedLongLong self-  = liftDOM-      (round <$>-         ((self ^. js "testEnforceRangeUnsignedLongLong") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testByte Mozilla TypeConversions.testByte documentation> -setTestByte :: (MonadDOM m) => TypeConversions -> Int -> m ()-setTestByte self val-  = liftDOM (self ^. jss "testByte" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testByte Mozilla TypeConversions.testByte documentation> -getTestByte :: (MonadDOM m) => TypeConversions -> m Int-getTestByte self-  = liftDOM (round <$> ((self ^. js "testByte") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeByte Mozilla TypeConversions.testEnforceRangeByte documentation> -setTestEnforceRangeByte ::-                        (MonadDOM m) => TypeConversions -> Int -> m ()-setTestEnforceRangeByte self val-  = liftDOM (self ^. jss "testEnforceRangeByte" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeByte Mozilla TypeConversions.testEnforceRangeByte documentation> -getTestEnforceRangeByte :: (MonadDOM m) => TypeConversions -> m Int-getTestEnforceRangeByte self-  = liftDOM-      (round <$> ((self ^. js "testEnforceRangeByte") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testOctet Mozilla TypeConversions.testOctet documentation> -setTestOctet :: (MonadDOM m) => TypeConversions -> Word -> m ()-setTestOctet self val-  = liftDOM (self ^. jss "testOctet" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testOctet Mozilla TypeConversions.testOctet documentation> -getTestOctet :: (MonadDOM m) => TypeConversions -> m Word-getTestOctet self-  = liftDOM (round <$> ((self ^. js "testOctet") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeOctet Mozilla TypeConversions.testEnforceRangeOctet documentation> -setTestEnforceRangeOctet ::-                         (MonadDOM m) => TypeConversions -> Word -> m ()-setTestEnforceRangeOctet self val-  = liftDOM (self ^. jss "testEnforceRangeOctet" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeOctet Mozilla TypeConversions.testEnforceRangeOctet documentation> -getTestEnforceRangeOctet ::-                         (MonadDOM m) => TypeConversions -> m Word-getTestEnforceRangeOctet self-  = liftDOM-      (round <$> ((self ^. js "testEnforceRangeOctet") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testShort Mozilla TypeConversions.testShort documentation> -setTestShort :: (MonadDOM m) => TypeConversions -> Int -> m ()-setTestShort self val-  = liftDOM (self ^. jss "testShort" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testShort Mozilla TypeConversions.testShort documentation> -getTestShort :: (MonadDOM m) => TypeConversions -> m Int-getTestShort self-  = liftDOM (round <$> ((self ^. js "testShort") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeShort Mozilla TypeConversions.testEnforceRangeShort documentation> -setTestEnforceRangeShort ::-                         (MonadDOM m) => TypeConversions -> Int -> m ()-setTestEnforceRangeShort self val-  = liftDOM (self ^. jss "testEnforceRangeShort" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeShort Mozilla TypeConversions.testEnforceRangeShort documentation> -getTestEnforceRangeShort ::-                         (MonadDOM m) => TypeConversions -> m Int-getTestEnforceRangeShort self-  = liftDOM-      (round <$> ((self ^. js "testEnforceRangeShort") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedShort Mozilla TypeConversions.testUnsignedShort documentation> -setTestUnsignedShort ::-                     (MonadDOM m) => TypeConversions -> Word -> m ()-setTestUnsignedShort self val-  = liftDOM (self ^. jss "testUnsignedShort" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testUnsignedShort Mozilla TypeConversions.testUnsignedShort documentation> -getTestUnsignedShort :: (MonadDOM m) => TypeConversions -> m Word-getTestUnsignedShort self-  = liftDOM-      (round <$> ((self ^. js "testUnsignedShort") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedShort Mozilla TypeConversions.testEnforceRangeUnsignedShort documentation> -setTestEnforceRangeUnsignedShort ::-                                 (MonadDOM m) => TypeConversions -> Word -> m ()-setTestEnforceRangeUnsignedShort self val-  = liftDOM-      (self ^. jss "testEnforceRangeUnsignedShort" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions.testEnforceRangeUnsignedShort Mozilla TypeConversions.testEnforceRangeUnsignedShort documentation> -getTestEnforceRangeUnsignedShort ::-                                 (MonadDOM m) => TypeConversions -> m Word-getTestEnforceRangeUnsignedShort self-  = liftDOM-      (round <$>-         ((self ^. js "testEnforceRangeUnsignedShort") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/UIEvent.hs 
@@ -1,80 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.UIEvent-       (initUIEvent, getView, getDetail, getKeyCode, getCharCode,-        getLayerX, getLayerY, getPageX, getPageY, getWhich, UIEvent,-        castToUIEvent, gTypeUIEvent, IsUIEvent, toUIEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.initUIEvent Mozilla UIEvent.initUIEvent documentation> -initUIEvent ::-            (MonadDOM m, IsUIEvent self, ToJSString type') =>-              self -> type' -> Bool -> Bool -> Maybe Window -> Int -> m ()-initUIEvent self type' canBubble cancelable view detail-  = liftDOM-      (void-         ((toUIEvent self) ^. jsf "initUIEvent"-            [toJSVal type', toJSVal canBubble, toJSVal cancelable,-             toJSVal view, toJSVal detail]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.view Mozilla UIEvent.view documentation> -getView :: (MonadDOM m, IsUIEvent self) => self -> m (Maybe Window)-getView self-  = liftDOM (((toUIEvent self) ^. js "view") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.detail Mozilla UIEvent.detail documentation> -getDetail :: (MonadDOM m, IsUIEvent self) => self -> m Int-getDetail self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "detail") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.keyCode Mozilla UIEvent.keyCode documentation> -getKeyCode :: (MonadDOM m, IsUIEvent self) => self -> m Int-getKeyCode self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "keyCode") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.charCode Mozilla UIEvent.charCode documentation> -getCharCode :: (MonadDOM m, IsUIEvent self) => self -> m Int-getCharCode self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "charCode") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.layerX Mozilla UIEvent.layerX documentation> -getLayerX :: (MonadDOM m, IsUIEvent self) => self -> m Int-getLayerX self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "layerX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.layerY Mozilla UIEvent.layerY documentation> -getLayerY :: (MonadDOM m, IsUIEvent self) => self -> m Int-getLayerY self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "layerY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.pageX Mozilla UIEvent.pageX documentation> -getPageX :: (MonadDOM m, IsUIEvent self) => self -> m Int-getPageX self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "pageX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.pageY Mozilla UIEvent.pageY documentation> -getPageY :: (MonadDOM m, IsUIEvent self) => self -> m Int-getPageY self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "pageY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent.which Mozilla UIEvent.which documentation> -getWhich :: (MonadDOM m, IsUIEvent self) => self -> m Int-getWhich self-  = liftDOM-      (round <$> (((toUIEvent self) ^. js "which") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/UIRequestEvent.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.UIRequestEvent-       (getReceiver, UIRequestEvent, castToUIRequestEvent,-        gTypeUIRequestEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/UIRequestEvent.receiver Mozilla UIRequestEvent.receiver documentation> -getReceiver ::-            (MonadDOM m) => UIRequestEvent -> m (Maybe EventTarget)-getReceiver self = liftDOM ((self ^. js "receiver") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/URL.hs 
@@ -1,67 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.URL-       (newURL, newURL', newURL'', createObjectURL, revokeObjectURL,-        createObjectURLSource, createObjectURLStream, URL, castToURL,-        gTypeURL)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation> -newURL :: (MonadDOM m, ToJSString url) => url -> m URL-newURL url = liftDOM (URL <$> new (jsg "URL") [toJSVal url])---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation> -newURL' ::-        (MonadDOM m, ToJSString url, ToJSString base) =>-          url -> base -> m URL-newURL' url base-  = liftDOM (URL <$> new (jsg "URL") [toJSVal url, toJSVal base])---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation> -newURL'' ::-         (MonadDOM m, ToJSString url) => url -> Maybe URL -> m URL-newURL'' url base-  = liftDOM (URL <$> new (jsg "URL") [toJSVal url, toJSVal base])---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.createObjectURL Mozilla URL.createObjectURL documentation> -createObjectURL ::-                (MonadDOM m, IsBlob blob, FromJSString result) =>-                  URL -> Maybe blob -> m (Maybe result)-createObjectURL self blob-  = liftDOM-      ((self ^. jsf "createObjectURL" [toJSVal blob]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.revokeObjectURL Mozilla URL.revokeObjectURL documentation> -revokeObjectURL ::-                (MonadDOM m, ToJSString url) => URL -> url -> m ()-revokeObjectURL self url-  = liftDOM (void (self ^. jsf "revokeObjectURL" [toJSVal url]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.createObjectURL Mozilla URL.createObjectURL documentation> -createObjectURLSource ::-                      (MonadDOM m, FromJSString result) =>-                        URL -> Maybe MediaSource -> m (Maybe result)-createObjectURLSource self source-  = liftDOM-      ((self ^. jsf "createObjectURL" [toJSVal source]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URL.createObjectURL Mozilla URL.createObjectURL documentation> -createObjectURLStream ::-                      (MonadDOM m, FromJSString result) =>-                        URL -> Maybe MediaStream -> m (Maybe result)-createObjectURLStream self stream-  = liftDOM-      ((self ^. jsf "createObjectURL" [toJSVal stream]) >>=-         fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/URLUtils.hs 
@@ -1,141 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.URLUtils-       (toString, setHref, getHref, getOrigin, setProtocol, getProtocol,-        setUsername, getUsername, setPassword, getPassword, setHost,-        getHost, setHostname, getHostname, setPort, getPort, setPathname,-        getPathname, setSearch, getSearch, setHash, getHash, URLUtils,-        castToURLUtils, gTypeURLUtils)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.toString Mozilla URLUtils.toString documentation> -toString ::-         (MonadDOM m, FromJSString result) => URLUtils -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.href Mozilla URLUtils.href documentation> -setHref :: (MonadDOM m, ToJSString val) => URLUtils -> val -> m ()-setHref self val = liftDOM (self ^. jss "href" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.href Mozilla URLUtils.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) => URLUtils -> m result-getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.origin Mozilla URLUtils.origin documentation> -getOrigin ::-          (MonadDOM m, FromJSString result) => URLUtils -> m result-getOrigin self-  = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.protocol Mozilla URLUtils.protocol documentation> -setProtocol ::-            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setProtocol self val-  = liftDOM (self ^. jss "protocol" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.protocol Mozilla URLUtils.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.username Mozilla URLUtils.username documentation> -setUsername ::-            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setUsername self val-  = liftDOM (self ^. jss "username" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.username Mozilla URLUtils.username documentation> -getUsername ::-            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getUsername self-  = liftDOM ((self ^. js "username") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.password Mozilla URLUtils.password documentation> -setPassword ::-            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setPassword self val-  = liftDOM (self ^. jss "password" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.password Mozilla URLUtils.password documentation> -getPassword ::-            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getPassword self-  = liftDOM ((self ^. js "password") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.host Mozilla URLUtils.host documentation> -setHost ::-        (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setHost self val = liftDOM (self ^. jss "host" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.host Mozilla URLUtils.host documentation> -getHost ::-        (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hostname Mozilla URLUtils.hostname documentation> -setHostname ::-            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setHostname self val-  = liftDOM (self ^. jss "hostname" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hostname Mozilla URLUtils.hostname documentation> -getHostname ::-            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getHostname self-  = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.port Mozilla URLUtils.port documentation> -setPort ::-        (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setPort self val = liftDOM (self ^. jss "port" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.port Mozilla URLUtils.port documentation> -getPort ::-        (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.pathname Mozilla URLUtils.pathname documentation> -setPathname ::-            (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setPathname self val-  = liftDOM (self ^. jss "pathname" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.pathname Mozilla URLUtils.pathname documentation> -getPathname ::-            (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getPathname self-  = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.search Mozilla URLUtils.search documentation> -setSearch ::-          (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.search Mozilla URLUtils.search documentation> -getSearch ::-          (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getSearch self-  = liftDOM ((self ^. js "search") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hash Mozilla URLUtils.hash documentation> -setHash ::-        (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m ()-setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils.hash Mozilla URLUtils.hash documentation> -getHash ::-        (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result)-getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/UserMessageHandler.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.UserMessageHandler-       (postMessage, UserMessageHandler, castToUserMessageHandler,-        gTypeUserMessageHandler)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/UserMessageHandler.postMessage Mozilla UserMessageHandler.postMessage documentation> -postMessage ::-            (MonadDOM m, IsSerializedScriptValue message) =>-              UserMessageHandler -> Maybe message -> m ()-postMessage self message-  = liftDOM (void (self ^. jsf "postMessage" [toJSVal message]))
− src/Language/Javascript/JSaddle/DOM/Generated/VTTCue.hs 
@@ -1,111 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VTTCue-       (newVTTCue, getCueAsHTML, setVertical, getVertical, setSnapToLines,-        getSnapToLines, setLine, getLine, setPosition, getPosition,-        setSize, getSize, setAlign, getAlign, setText, getText,-        setRegionId, getRegionId, VTTCue, castToVTTCue, gTypeVTTCue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue Mozilla VTTCue documentation> -newVTTCue ::-          (MonadDOM m, ToJSString text) =>-            Double -> Double -> text -> m VTTCue-newVTTCue startTime endTime text-  = liftDOM-      (VTTCue <$>-         new (jsg "VTTCue")-           [toJSVal startTime, toJSVal endTime, toJSVal text])---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.getCueAsHTML Mozilla VTTCue.getCueAsHTML documentation> -getCueAsHTML ::-             (MonadDOM m) => VTTCue -> m (Maybe DocumentFragment)-getCueAsHTML self-  = liftDOM ((self ^. js "getCueAsHTML") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.vertical Mozilla VTTCue.vertical documentation> -setVertical ::-            (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()-setVertical self val-  = liftDOM (self ^. jss "vertical" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.vertical Mozilla VTTCue.vertical documentation> -getVertical ::-            (MonadDOM m, FromJSString result) => VTTCue -> m result-getVertical self-  = liftDOM ((self ^. js "vertical") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.snapToLines Mozilla VTTCue.snapToLines documentation> -setSnapToLines :: (MonadDOM m) => VTTCue -> Bool -> m ()-setSnapToLines self val-  = liftDOM (self ^. jss "snapToLines" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.snapToLines Mozilla VTTCue.snapToLines documentation> -getSnapToLines :: (MonadDOM m) => VTTCue -> m Bool-getSnapToLines self-  = liftDOM ((self ^. js "snapToLines") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.line Mozilla VTTCue.line documentation> -setLine :: (MonadDOM m) => VTTCue -> Double -> m ()-setLine self val = liftDOM (self ^. jss "line" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.line Mozilla VTTCue.line documentation> -getLine :: (MonadDOM m) => VTTCue -> m Double-getLine self = liftDOM ((self ^. js "line") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.position Mozilla VTTCue.position documentation> -setPosition :: (MonadDOM m) => VTTCue -> Double -> m ()-setPosition self val-  = liftDOM (self ^. jss "position" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.position Mozilla VTTCue.position documentation> -getPosition :: (MonadDOM m) => VTTCue -> m Double-getPosition self-  = liftDOM ((self ^. js "position") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.size Mozilla VTTCue.size documentation> -setSize :: (MonadDOM m) => VTTCue -> Double -> m ()-setSize self val = liftDOM (self ^. jss "size" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.size Mozilla VTTCue.size documentation> -getSize :: (MonadDOM m) => VTTCue -> m Double-getSize self = liftDOM ((self ^. js "size") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.align Mozilla VTTCue.align documentation> -setAlign :: (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()-setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.align Mozilla VTTCue.align documentation> -getAlign :: (MonadDOM m, FromJSString result) => VTTCue -> m result-getAlign self-  = liftDOM ((self ^. js "align") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.text Mozilla VTTCue.text documentation> -setText :: (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()-setText self val = liftDOM (self ^. jss "text" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.text Mozilla VTTCue.text documentation> -getText :: (MonadDOM m, FromJSString result) => VTTCue -> m result-getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.regionId Mozilla VTTCue.regionId documentation> -setRegionId ::-            (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()-setRegionId self val-  = liftDOM (self ^. jss "regionId" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue.regionId Mozilla VTTCue.regionId documentation> -getRegionId ::-            (MonadDOM m, FromJSString result) => VTTCue -> m result-getRegionId self-  = liftDOM ((self ^. js "regionId") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/VTTRegion.hs 
@@ -1,103 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VTTRegion-       (newVTTRegion, getTrack, setId, getId, setWidth, getWidth,-        setHeight, getHeight, setRegionAnchorX, getRegionAnchorX,-        setRegionAnchorY, getRegionAnchorY, setViewportAnchorX,-        getViewportAnchorX, setViewportAnchorY, getViewportAnchorY,-        setScroll, getScroll, VTTRegion, castToVTTRegion, gTypeVTTRegion)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion Mozilla VTTRegion documentation> -newVTTRegion :: (MonadDOM m) => m VTTRegion-newVTTRegion = liftDOM (VTTRegion <$> new (jsg "VTTRegion") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.track Mozilla VTTRegion.track documentation> -getTrack :: (MonadDOM m) => VTTRegion -> m (Maybe TextTrack)-getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.id Mozilla VTTRegion.id documentation> -setId :: (MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()-setId self val = liftDOM (self ^. jss "id" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.id Mozilla VTTRegion.id documentation> -getId :: (MonadDOM m, FromJSString result) => VTTRegion -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.width Mozilla VTTRegion.width documentation> -setWidth :: (MonadDOM m) => VTTRegion -> Double -> m ()-setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.width Mozilla VTTRegion.width documentation> -getWidth :: (MonadDOM m) => VTTRegion -> m Double-getWidth self = liftDOM ((self ^. js "width") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.height Mozilla VTTRegion.height documentation> -setHeight :: (MonadDOM m) => VTTRegion -> Int -> m ()-setHeight self val = liftDOM (self ^. jss "height" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.height Mozilla VTTRegion.height documentation> -getHeight :: (MonadDOM m) => VTTRegion -> m Int-getHeight self-  = liftDOM (round <$> ((self ^. js "height") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorX Mozilla VTTRegion.regionAnchorX documentation> -setRegionAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()-setRegionAnchorX self val-  = liftDOM (self ^. jss "regionAnchorX" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorX Mozilla VTTRegion.regionAnchorX documentation> -getRegionAnchorX :: (MonadDOM m) => VTTRegion -> m Double-getRegionAnchorX self-  = liftDOM ((self ^. js "regionAnchorX") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorY Mozilla VTTRegion.regionAnchorY documentation> -setRegionAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()-setRegionAnchorY self val-  = liftDOM (self ^. jss "regionAnchorY" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.regionAnchorY Mozilla VTTRegion.regionAnchorY documentation> -getRegionAnchorY :: (MonadDOM m) => VTTRegion -> m Double-getRegionAnchorY self-  = liftDOM ((self ^. js "regionAnchorY") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorX Mozilla VTTRegion.viewportAnchorX documentation> -setViewportAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()-setViewportAnchorX self val-  = liftDOM (self ^. jss "viewportAnchorX" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorX Mozilla VTTRegion.viewportAnchorX documentation> -getViewportAnchorX :: (MonadDOM m) => VTTRegion -> m Double-getViewportAnchorX self-  = liftDOM ((self ^. js "viewportAnchorX") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorY Mozilla VTTRegion.viewportAnchorY documentation> -setViewportAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()-setViewportAnchorY self val-  = liftDOM (self ^. jss "viewportAnchorY" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.viewportAnchorY Mozilla VTTRegion.viewportAnchorY documentation> -getViewportAnchorY :: (MonadDOM m) => VTTRegion -> m Double-getViewportAnchorY self-  = liftDOM ((self ^. js "viewportAnchorY") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.scroll Mozilla VTTRegion.scroll documentation> -setScroll ::-          (MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()-setScroll self val = liftDOM (self ^. jss "scroll" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion.scroll Mozilla VTTRegion.scroll documentation> -getScroll ::-          (MonadDOM m, FromJSString result) => VTTRegion -> m result-getScroll self-  = liftDOM ((self ^. js "scroll") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/VTTRegionList.hs 
@@ -1,35 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VTTRegionList-       (item, getRegionById, getLength, VTTRegionList,-        castToVTTRegionList, gTypeVTTRegionList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList.item Mozilla VTTRegionList.item documentation> -item ::-     (MonadDOM m) => VTTRegionList -> Word -> m (Maybe VTTRegion)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList.getRegionById Mozilla VTTRegionList.getRegionById documentation> -getRegionById ::-              (MonadDOM m, ToJSString id) =>-                VTTRegionList -> id -> m (Maybe VTTRegion)-getRegionById self id-  = liftDOM-      ((self ^. jsf "getRegionById" [toJSVal id]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList.length Mozilla VTTRegionList.length documentation> -getLength :: (MonadDOM m) => VTTRegionList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/ValidityState.hs 
@@ -1,65 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.ValidityState-       (getValueMissing, getTypeMismatch, getPatternMismatch, getTooLong,-        getRangeUnderflow, getRangeOverflow, getStepMismatch, getBadInput,-        getCustomError, getValid, ValidityState, castToValidityState,-        gTypeValidityState)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.valueMissing Mozilla ValidityState.valueMissing documentation> -getValueMissing :: (MonadDOM m) => ValidityState -> m Bool-getValueMissing self-  = liftDOM ((self ^. js "valueMissing") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.typeMismatch Mozilla ValidityState.typeMismatch documentation> -getTypeMismatch :: (MonadDOM m) => ValidityState -> m Bool-getTypeMismatch self-  = liftDOM ((self ^. js "typeMismatch") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.patternMismatch Mozilla ValidityState.patternMismatch documentation> -getPatternMismatch :: (MonadDOM m) => ValidityState -> m Bool-getPatternMismatch self-  = liftDOM ((self ^. js "patternMismatch") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.tooLong Mozilla ValidityState.tooLong documentation> -getTooLong :: (MonadDOM m) => ValidityState -> m Bool-getTooLong self = liftDOM ((self ^. js "tooLong") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.rangeUnderflow Mozilla ValidityState.rangeUnderflow documentation> -getRangeUnderflow :: (MonadDOM m) => ValidityState -> m Bool-getRangeUnderflow self-  = liftDOM ((self ^. js "rangeUnderflow") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.rangeOverflow Mozilla ValidityState.rangeOverflow documentation> -getRangeOverflow :: (MonadDOM m) => ValidityState -> m Bool-getRangeOverflow self-  = liftDOM ((self ^. js "rangeOverflow") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.stepMismatch Mozilla ValidityState.stepMismatch documentation> -getStepMismatch :: (MonadDOM m) => ValidityState -> m Bool-getStepMismatch self-  = liftDOM ((self ^. js "stepMismatch") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.badInput Mozilla ValidityState.badInput documentation> -getBadInput :: (MonadDOM m) => ValidityState -> m Bool-getBadInput self = liftDOM ((self ^. js "badInput") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.customError Mozilla ValidityState.customError documentation> -getCustomError :: (MonadDOM m) => ValidityState -> m Bool-getCustomError self-  = liftDOM ((self ^. js "customError") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState.valid Mozilla ValidityState.valid documentation> -getValid :: (MonadDOM m) => ValidityState -> m Bool-getValid self = liftDOM ((self ^. js "valid") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/VideoPlaybackQuality.hs 
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VideoPlaybackQuality-       (getCreationTime, getTotalVideoFrames, getDroppedVideoFrames,-        getCorruptedVideoFrames, getTotalFrameDelay, VideoPlaybackQuality,-        castToVideoPlaybackQuality, gTypeVideoPlaybackQuality)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.creationTime Mozilla VideoPlaybackQuality.creationTime documentation> -getCreationTime :: (MonadDOM m) => VideoPlaybackQuality -> m Double-getCreationTime self-  = liftDOM ((self ^. js "creationTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.totalVideoFrames Mozilla VideoPlaybackQuality.totalVideoFrames documentation> -getTotalVideoFrames ::-                    (MonadDOM m) => VideoPlaybackQuality -> m Word-getTotalVideoFrames self-  = liftDOM-      (round <$> ((self ^. js "totalVideoFrames") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.droppedVideoFrames Mozilla VideoPlaybackQuality.droppedVideoFrames documentation> -getDroppedVideoFrames ::-                      (MonadDOM m) => VideoPlaybackQuality -> m Word-getDroppedVideoFrames self-  = liftDOM-      (round <$> ((self ^. js "droppedVideoFrames") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.corruptedVideoFrames Mozilla VideoPlaybackQuality.corruptedVideoFrames documentation> -getCorruptedVideoFrames ::-                        (MonadDOM m) => VideoPlaybackQuality -> m Word-getCorruptedVideoFrames self-  = liftDOM-      (round <$> ((self ^. js "corruptedVideoFrames") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality.totalFrameDelay Mozilla VideoPlaybackQuality.totalFrameDelay documentation> -getTotalFrameDelay ::-                   (MonadDOM m) => VideoPlaybackQuality -> m Double-getTotalFrameDelay self-  = liftDOM ((self ^. js "totalFrameDelay") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/VideoStreamTrack.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VideoStreamTrack-       (newVideoStreamTrack, VideoStreamTrack, castToVideoStreamTrack,-        gTypeVideoStreamTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoStreamTrack Mozilla VideoStreamTrack documentation> -newVideoStreamTrack ::-                    (MonadDOM m, IsDictionary videoConstraints) =>-                      Maybe videoConstraints -> m VideoStreamTrack-newVideoStreamTrack videoConstraints-  = liftDOM-      (VideoStreamTrack <$>-         new (jsg "VideoStreamTrack") [toJSVal videoConstraints])
− src/Language/Javascript/JSaddle/DOM/Generated/VideoTrack.hs 
@@ -1,65 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VideoTrack-       (getId, setKind, getKind, getLabel, setLanguage, getLanguage,-        setSelected, getSelected, getSourceBuffer, VideoTrack,-        castToVideoTrack, gTypeVideoTrack)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.id Mozilla VideoTrack.id documentation> -getId ::-      (MonadDOM m, FromJSString result) => VideoTrack -> m result-getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.kind Mozilla VideoTrack.kind documentation> -setKind ::-        (MonadDOM m, ToJSString val) => VideoTrack -> val -> m ()-setKind self val = liftDOM (self ^. jss "kind" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.kind Mozilla VideoTrack.kind documentation> -getKind ::-        (MonadDOM m, FromJSString result) => VideoTrack -> m result-getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.label Mozilla VideoTrack.label documentation> -getLabel ::-         (MonadDOM m, FromJSString result) => VideoTrack -> m result-getLabel self-  = liftDOM ((self ^. js "label") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.language Mozilla VideoTrack.language documentation> -setLanguage ::-            (MonadDOM m, ToJSString val) => VideoTrack -> val -> m ()-setLanguage self val-  = liftDOM (self ^. jss "language" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.language Mozilla VideoTrack.language documentation> -getLanguage ::-            (MonadDOM m, FromJSString result) => VideoTrack -> m result-getLanguage self-  = liftDOM ((self ^. js "language") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.selected Mozilla VideoTrack.selected documentation> -setSelected :: (MonadDOM m) => VideoTrack -> Bool -> m ()-setSelected self val-  = liftDOM (self ^. jss "selected" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.selected Mozilla VideoTrack.selected documentation> -getSelected :: (MonadDOM m) => VideoTrack -> m Bool-getSelected self = liftDOM ((self ^. js "selected") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack.sourceBuffer Mozilla VideoTrack.sourceBuffer documentation> -getSourceBuffer ::-                (MonadDOM m) => VideoTrack -> m (Maybe SourceBuffer)-getSourceBuffer self-  = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/VideoTrackList.hs 
@@ -1,53 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VideoTrackList-       (item, getTrackById, getLength, getSelectedIndex, change, addTrack,-        removeTrack, VideoTrackList, castToVideoTrackList,-        gTypeVideoTrackList)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.item Mozilla VideoTrackList.item documentation> -item ::-     (MonadDOM m) => VideoTrackList -> Word -> m (Maybe VideoTrack)-item self index-  = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.getTrackById Mozilla VideoTrackList.getTrackById documentation> -getTrackById ::-             (MonadDOM m, ToJSString id) =>-               VideoTrackList -> id -> m (Maybe VideoTrack)-getTrackById self id-  = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.length Mozilla VideoTrackList.length documentation> -getLength :: (MonadDOM m) => VideoTrackList -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.selectedIndex Mozilla VideoTrackList.selectedIndex documentation> -getSelectedIndex :: (MonadDOM m) => VideoTrackList -> m Int-getSelectedIndex self-  = liftDOM-      (round <$> ((self ^. js "selectedIndex") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.onchange Mozilla VideoTrackList.onchange documentation> -change :: EventName VideoTrackList Event-change = unsafeEventName (toJSString "change")---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.onaddtrack Mozilla VideoTrackList.onaddtrack documentation> -addTrack :: EventName VideoTrackList Event-addTrack = unsafeEventName (toJSString "addtrack")---- | <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList.onremovetrack Mozilla VideoTrackList.onremovetrack documentation> -removeTrack :: EventName VideoTrackList Event-removeTrack = unsafeEventName (toJSString "removetrack")
− src/Language/Javascript/JSaddle/DOM/Generated/VoidCallback.hs 
@@ -1,34 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.VoidCallback-       (newVoidCallback, newVoidCallbackSync, newVoidCallbackAsync,-        VoidCallback)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/VoidCallback Mozilla VoidCallback documentation> -newVoidCallback :: (MonadDOM m) => JSM () -> m VoidCallback-newVoidCallback callback-  = liftDOM-      (VoidCallback . Callback <$> function "" (\ _ _ [] -> callback))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VoidCallback Mozilla VoidCallback documentation> -newVoidCallbackSync :: (MonadDOM m) => JSM () -> m VoidCallback-newVoidCallbackSync callback-  = liftDOM-      (VoidCallback . Callback <$> function "" (\ _ _ [] -> callback))---- | <https://developer.mozilla.org/en-US/docs/Web/API/VoidCallback Mozilla VoidCallback documentation> -newVoidCallbackAsync :: (MonadDOM m) => JSM () -> m VoidCallback-newVoidCallbackAsync callback-  = liftDOM-      (VoidCallback . Callback <$> function "" (\ _ _ [] -> callback))
− src/Language/Javascript/JSaddle/DOM/Generated/WaveShaperNode.hs 
@@ -1,38 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WaveShaperNode-       (setCurve, getCurve, setOversample, getOversample, WaveShaperNode,-        castToWaveShaperNode, gTypeWaveShaperNode)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.curve Mozilla WaveShaperNode.curve documentation> -setCurve ::-         (MonadDOM m, IsFloat32Array val) =>-           WaveShaperNode -> Maybe val -> m ()-setCurve self val = liftDOM (self ^. jss "curve" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.curve Mozilla WaveShaperNode.curve documentation> -getCurve ::-         (MonadDOM m) => WaveShaperNode -> m (Maybe Float32Array)-getCurve self = liftDOM ((self ^. js "curve") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.oversample Mozilla WaveShaperNode.oversample documentation> -setOversample ::-              (MonadDOM m) => WaveShaperNode -> OverSampleType -> m ()-setOversample self val-  = liftDOM (self ^. jss "oversample" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode.oversample Mozilla WaveShaperNode.oversample documentation> -getOversample :: (MonadDOM m) => WaveShaperNode -> m OverSampleType-getOversample self-  = liftDOM ((self ^. js "oversample") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WebGL2RenderingContext.hs 
@@ -1,1478 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGL2RenderingContext-       (copyBufferSubData, getBufferSubDataView, getBufferSubData,-        getFramebufferAttachmentParameter, blitFramebuffer,-        framebufferTextureLayer, getInternalformatParameter,-        invalidateFramebuffer, invalidateSubFramebuffer, readBuffer,-        renderbufferStorageMultisample, texStorage2D, texStorage3D,-        texImage3D, texSubImage3DView, texSubImage3DData, texSubImage3D,-        texSubImage3DCanvas, texSubImage3DVideo, copyTexSubImage3D,-        compressedTexImage3D, compressedTexSubImage3D, getFragDataLocation,-        uniform1ui, uniform2ui, uniform3ui, uniform4ui, uniform1uiv,-        uniform2uiv, uniform3uiv, uniform4uiv, uniformMatrix2x3fv,-        uniformMatrix3x2fv, uniformMatrix2x4fv, uniformMatrix4x2fv,-        uniformMatrix3x4fv, uniformMatrix4x3fv, vertexAttribI4i,-        vertexAttribI4iv, vertexAttribI4ui, vertexAttribI4uiv,-        vertexAttribIPointer, vertexAttribDivisor, drawArraysInstanced,-        drawElementsInstanced, drawRangeElements, drawBuffers,-        clearBufferiv, clearBufferuiv, clearBufferfv, clearBufferfi,-        createQuery, deleteQuery, isQuery, beginQuery, endQuery, getQuery,-        getQueryParameter, createSampler, deleteSampler, isSampler,-        bindSampler, samplerParameteri, samplerParameterf,-        getSamplerParameter, fenceSync, isSync, deleteSync, clientWaitSync,-        waitSync, getSyncParameter, createTransformFeedback,-        deleteTransformFeedback, isTransformFeedback,-        bindTransformFeedback, beginTransformFeedback,-        endTransformFeedback, transformFeedbackVaryings,-        getTransformFeedbackVarying, pauseTransformFeedback,-        resumeTransformFeedback, bindBufferBase, bindBufferRange,-        getIndexedParameter, getUniformIndices, getActiveUniforms,-        getUniformBlockIndex, getActiveUniformBlockParameter,-        getActiveUniformBlockName, uniformBlockBinding, createVertexArray,-        deleteVertexArray, isVertexArray, bindVertexArray,-        pattern READ_BUFFER, pattern UNPACK_ROW_LENGTH,-        pattern UNPACK_SKIP_ROWS, pattern UNPACK_SKIP_PIXELS,-        pattern PACK_ROW_LENGTH, pattern PACK_SKIP_ROWS,-        pattern PACK_SKIP_PIXELS, pattern COLOR, pattern DEPTH,-        pattern STENCIL, pattern RED, pattern RGB8, pattern RGBA8,-        pattern RGB10_A2, pattern TEXTURE_BINDING_3D,-        pattern UNPACK_SKIP_IMAGES, pattern UNPACK_IMAGE_HEIGHT,-        pattern TEXTURE_3D, pattern TEXTURE_WRAP_R,-        pattern MAX_3D_TEXTURE_SIZE, pattern UNSIGNED_INT_2_10_10_10_REV,-        pattern MAX_ELEMENTS_VERTICES, pattern MAX_ELEMENTS_INDICES,-        pattern TEXTURE_MIN_LOD, pattern TEXTURE_MAX_LOD,-        pattern TEXTURE_BASE_LEVEL, pattern TEXTURE_MAX_LEVEL, pattern MIN,-        pattern MAX, pattern DEPTH_COMPONENT24,-        pattern MAX_TEXTURE_LOD_BIAS, pattern TEXTURE_COMPARE_MODE,-        pattern TEXTURE_COMPARE_FUNC, pattern CURRENT_QUERY,-        pattern QUERY_RESULT, pattern QUERY_RESULT_AVAILABLE,-        pattern STREAM_READ, pattern STREAM_COPY, pattern STATIC_READ,-        pattern STATIC_COPY, pattern DYNAMIC_READ, pattern DYNAMIC_COPY,-        pattern MAX_DRAW_BUFFERS, pattern DRAW_BUFFER0,-        pattern DRAW_BUFFER1, pattern DRAW_BUFFER2, pattern DRAW_BUFFER3,-        pattern DRAW_BUFFER4, pattern DRAW_BUFFER5, pattern DRAW_BUFFER6,-        pattern DRAW_BUFFER7, pattern DRAW_BUFFER8, pattern DRAW_BUFFER9,-        pattern DRAW_BUFFER10, pattern DRAW_BUFFER11,-        pattern DRAW_BUFFER12, pattern DRAW_BUFFER13,-        pattern DRAW_BUFFER14, pattern DRAW_BUFFER15,-        pattern MAX_FRAGMENT_UNIFORM_COMPONENTS,-        pattern MAX_VERTEX_UNIFORM_COMPONENTS, pattern SAMPLER_3D,-        pattern SAMPLER_2D_SHADOW, pattern FRAGMENT_SHADER_DERIVATIVE_HINT,-        pattern PIXEL_PACK_BUFFER, pattern PIXEL_UNPACK_BUFFER,-        pattern PIXEL_PACK_BUFFER_BINDING,-        pattern PIXEL_UNPACK_BUFFER_BINDING, pattern FLOAT_MAT2x3,-        pattern FLOAT_MAT2x4, pattern FLOAT_MAT3x2, pattern FLOAT_MAT3x4,-        pattern FLOAT_MAT4x2, pattern FLOAT_MAT4x3, pattern SRGB,-        pattern SRGB8, pattern SRGB8_ALPHA8,-        pattern COMPARE_REF_TO_TEXTURE, pattern RGBA32F, pattern RGB32F,-        pattern RGBA16F, pattern RGB16F,-        pattern VERTEX_ATTRIB_ARRAY_INTEGER,-        pattern MAX_ARRAY_TEXTURE_LAYERS, pattern MIN_PROGRAM_TEXEL_OFFSET,-        pattern MAX_PROGRAM_TEXEL_OFFSET, pattern MAX_VARYING_COMPONENTS,-        pattern TEXTURE_2D_ARRAY, pattern TEXTURE_BINDING_2D_ARRAY,-        pattern R11F_G11F_B10F, pattern UNSIGNED_INT_10F_11F_11F_REV,-        pattern RGB9_E5, pattern UNSIGNED_INT_5_9_9_9_REV,-        pattern TRANSFORM_FEEDBACK_BUFFER_MODE,-        pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS,-        pattern TRANSFORM_FEEDBACK_VARYINGS,-        pattern TRANSFORM_FEEDBACK_BUFFER_START,-        pattern TRANSFORM_FEEDBACK_BUFFER_SIZE,-        pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN,-        pattern RASTERIZER_DISCARD,-        pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS,-        pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS,-        pattern INTERLEAVED_ATTRIBS, pattern SEPARATE_ATTRIBS,-        pattern TRANSFORM_FEEDBACK_BUFFER,-        pattern TRANSFORM_FEEDBACK_BUFFER_BINDING, pattern RGBA32UI,-        pattern RGB32UI, pattern RGBA16UI, pattern RGB16UI,-        pattern RGBA8UI, pattern RGB8UI, pattern RGBA32I, pattern RGB32I,-        pattern RGBA16I, pattern RGB16I, pattern RGBA8I, pattern RGB8I,-        pattern RED_INTEGER, pattern RGB_INTEGER, pattern RGBA_INTEGER,-        pattern SAMPLER_2D_ARRAY, pattern SAMPLER_2D_ARRAY_SHADOW,-        pattern SAMPLER_CUBE_SHADOW, pattern UNSIGNED_INT_VEC2,-        pattern UNSIGNED_INT_VEC3, pattern UNSIGNED_INT_VEC4,-        pattern INT_SAMPLER_2D, pattern INT_SAMPLER_3D,-        pattern INT_SAMPLER_CUBE, pattern INT_SAMPLER_2D_ARRAY,-        pattern UNSIGNED_INT_SAMPLER_2D, pattern UNSIGNED_INT_SAMPLER_3D,-        pattern UNSIGNED_INT_SAMPLER_CUBE,-        pattern UNSIGNED_INT_SAMPLER_2D_ARRAY, pattern DEPTH_COMPONENT32F,-        pattern DEPTH32F_STENCIL8, pattern FLOAT_32_UNSIGNED_INT_24_8_REV,-        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING,-        pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE,-        pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE,-        pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE,-        pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE,-        pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE,-        pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE,-        pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE,-        pattern FRAMEBUFFER_DEFAULT, pattern DEPTH_STENCIL_ATTACHMENT,-        pattern DEPTH_STENCIL, pattern UNSIGNED_INT_24_8,-        pattern DEPTH24_STENCIL8, pattern UNSIGNED_NORMALIZED,-        pattern DRAW_FRAMEBUFFER_BINDING, pattern READ_FRAMEBUFFER,-        pattern DRAW_FRAMEBUFFER, pattern READ_FRAMEBUFFER_BINDING,-        pattern RENDERBUFFER_SAMPLES,-        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER,-        pattern MAX_COLOR_ATTACHMENTS, pattern COLOR_ATTACHMENT1,-        pattern COLOR_ATTACHMENT2, pattern COLOR_ATTACHMENT3,-        pattern COLOR_ATTACHMENT4, pattern COLOR_ATTACHMENT5,-        pattern COLOR_ATTACHMENT6, pattern COLOR_ATTACHMENT7,-        pattern COLOR_ATTACHMENT8, pattern COLOR_ATTACHMENT9,-        pattern COLOR_ATTACHMENT10, pattern COLOR_ATTACHMENT11,-        pattern COLOR_ATTACHMENT12, pattern COLOR_ATTACHMENT13,-        pattern COLOR_ATTACHMENT14, pattern COLOR_ATTACHMENT15,-        pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE, pattern MAX_SAMPLES,-        pattern HALF_FLOAT, pattern RG, pattern RG_INTEGER, pattern R8,-        pattern RG8, pattern R16F, pattern R32F, pattern RG16F,-        pattern RG32F, pattern R8I, pattern R8UI, pattern R16I,-        pattern R16UI, pattern R32I, pattern R32UI, pattern RG8I,-        pattern RG8UI, pattern RG16I, pattern RG16UI, pattern RG32I,-        pattern RG32UI, pattern VERTEX_ARRAY_BINDING, pattern R8_SNORM,-        pattern RG8_SNORM, pattern RGB8_SNORM, pattern RGBA8_SNORM,-        pattern SIGNED_NORMALIZED, pattern PRIMITIVE_RESTART_FIXED_INDEX,-        pattern COPY_READ_BUFFER, pattern COPY_WRITE_BUFFER,-        pattern COPY_READ_BUFFER_BINDING,-        pattern COPY_WRITE_BUFFER_BINDING, pattern UNIFORM_BUFFER,-        pattern UNIFORM_BUFFER_BINDING, pattern UNIFORM_BUFFER_START,-        pattern UNIFORM_BUFFER_SIZE, pattern MAX_VERTEX_UNIFORM_BLOCKS,-        pattern MAX_FRAGMENT_UNIFORM_BLOCKS,-        pattern MAX_COMBINED_UNIFORM_BLOCKS,-        pattern MAX_UNIFORM_BUFFER_BINDINGS,-        pattern MAX_UNIFORM_BLOCK_SIZE,-        pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS,-        pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS,-        pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT,-        pattern ACTIVE_UNIFORM_BLOCKS, pattern UNIFORM_TYPE,-        pattern UNIFORM_SIZE, pattern UNIFORM_BLOCK_INDEX,-        pattern UNIFORM_OFFSET, pattern UNIFORM_ARRAY_STRIDE,-        pattern UNIFORM_MATRIX_STRIDE, pattern UNIFORM_IS_ROW_MAJOR,-        pattern UNIFORM_BLOCK_BINDING, pattern UNIFORM_BLOCK_DATA_SIZE,-        pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS,-        pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES,-        pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER,-        pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER,-        pattern INVALID_INDEX, pattern MAX_VERTEX_OUTPUT_COMPONENTS,-        pattern MAX_FRAGMENT_INPUT_COMPONENTS,-        pattern MAX_SERVER_WAIT_TIMEOUT, pattern OBJECT_TYPE,-        pattern SYNC_CONDITION, pattern SYNC_STATUS, pattern SYNC_FLAGS,-        pattern SYNC_FENCE, pattern SYNC_GPU_COMMANDS_COMPLETE,-        pattern UNSIGNALED, pattern SIGNALED, pattern ALREADY_SIGNALED,-        pattern TIMEOUT_EXPIRED, pattern CONDITION_SATISFIED,-        pattern WAIT_FAILED, pattern SYNC_FLUSH_COMMANDS_BIT,-        pattern VERTEX_ATTRIB_ARRAY_DIVISOR, pattern ANY_SAMPLES_PASSED,-        pattern ANY_SAMPLES_PASSED_CONSERVATIVE, pattern SAMPLER_BINDING,-        pattern RGB10_A2UI, pattern TEXTURE_SWIZZLE_R,-        pattern TEXTURE_SWIZZLE_G, pattern TEXTURE_SWIZZLE_B,-        pattern TEXTURE_SWIZZLE_A, pattern GREEN, pattern BLUE,-        pattern INT_2_10_10_10_REV, pattern TRANSFORM_FEEDBACK,-        pattern TRANSFORM_FEEDBACK_PAUSED,-        pattern TRANSFORM_FEEDBACK_ACTIVE,-        pattern TRANSFORM_FEEDBACK_BINDING, pattern COMPRESSED_R11_EAC,-        pattern COMPRESSED_SIGNED_R11_EAC, pattern COMPRESSED_RG11_EAC,-        pattern COMPRESSED_SIGNED_RG11_EAC, pattern COMPRESSED_RGB8_ETC2,-        pattern COMPRESSED_SRGB8_ETC2,-        pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2,-        pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2,-        pattern COMPRESSED_RGBA8_ETC2_EAC,-        pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC,-        pattern TEXTURE_IMMUTABLE_FORMAT, pattern MAX_ELEMENT_INDEX,-        pattern NUM_SAMPLE_COUNTS, pattern TEXTURE_IMMUTABLE_LEVELS,-        pattern TIMEOUT_IGNORED, WebGL2RenderingContext,-        castToWebGL2RenderingContext, gTypeWebGL2RenderingContext)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.copyBufferSubData Mozilla WebGL2RenderingContext.copyBufferSubData documentation> -copyBufferSubData ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext ->-                      GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> m ()-copyBufferSubData self readTarget writeTarget readOffset-  writeOffset size-  = liftDOM-      (void-         (self ^. jsf "copyBufferSubData"-            [toJSVal readTarget, toJSVal writeTarget, toJSVal readOffset,-             toJSVal writeOffset, toJSVal size]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getBufferSubData Mozilla WebGL2RenderingContext.getBufferSubData documentation> -getBufferSubDataView ::-                     (MonadDOM m, IsArrayBufferView returnedData) =>-                       WebGL2RenderingContext ->-                         GLenum -> GLintptr -> Maybe returnedData -> m ()-getBufferSubDataView self target offset returnedData-  = liftDOM-      (void-         (self ^. jsf "getBufferSubData"-            [toJSVal target, toJSVal offset, toJSVal returnedData]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getBufferSubData Mozilla WebGL2RenderingContext.getBufferSubData documentation> -getBufferSubData ::-                 (MonadDOM m, IsArrayBuffer returnedData) =>-                   WebGL2RenderingContext ->-                     GLenum -> GLintptr -> Maybe returnedData -> m ()-getBufferSubData self target offset returnedData-  = liftDOM-      (void-         (self ^. jsf "getBufferSubData"-            [toJSVal target, toJSVal offset, toJSVal returnedData]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getFramebufferAttachmentParameter Mozilla WebGL2RenderingContext.getFramebufferAttachmentParameter documentation> -getFramebufferAttachmentParameter ::-                                  (MonadDOM m) =>-                                    WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal-getFramebufferAttachmentParameter self target attachment pname-  = liftDOM-      ((self ^. jsf "getFramebufferAttachmentParameter"-          [toJSVal target, toJSVal attachment, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.blitFramebuffer Mozilla WebGL2RenderingContext.blitFramebuffer documentation> -blitFramebuffer ::-                (MonadDOM m) =>-                  WebGL2RenderingContext ->-                    GLint ->-                      GLint ->-                        GLint ->-                          GLint ->-                            GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> m ()-blitFramebuffer self srcX0 srcY0 srcX1 srcY1 dstX0 dstY0 dstX1-  dstY1 mask filter-  = liftDOM-      (void-         (self ^. jsf "blitFramebuffer"-            [toJSVal srcX0, toJSVal srcY0, toJSVal srcX1, toJSVal srcY1,-             toJSVal dstX0, toJSVal dstY0, toJSVal dstX1, toJSVal dstY1,-             toJSVal mask, toJSVal filter]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.framebufferTextureLayer Mozilla WebGL2RenderingContext.framebufferTextureLayer documentation> -framebufferTextureLayer ::-                        (MonadDOM m) =>-                          WebGL2RenderingContext ->-                            GLenum -> GLenum -> GLuint -> GLint -> GLint -> m ()-framebufferTextureLayer self target attachment texture level layer-  = liftDOM-      (void-         (self ^. jsf "framebufferTextureLayer"-            [toJSVal target, toJSVal attachment, toJSVal texture,-             toJSVal level, toJSVal layer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getInternalformatParameter Mozilla WebGL2RenderingContext.getInternalformatParameter documentation> -getInternalformatParameter ::-                           (MonadDOM m) =>-                             WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal-getInternalformatParameter self target internalformat pname-  = liftDOM-      ((self ^. jsf "getInternalformatParameter"-          [toJSVal target, toJSVal internalformat, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.invalidateFramebuffer Mozilla WebGL2RenderingContext.invalidateFramebuffer documentation> -invalidateFramebuffer ::-                      (MonadDOM m) =>-                        WebGL2RenderingContext -> GLenum -> [GLenum] -> m ()-invalidateFramebuffer self target attachments-  = liftDOM-      (void-         (self ^. jsf "invalidateFramebuffer"-            [toJSVal target, toJSVal (array attachments)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.invalidateSubFramebuffer Mozilla WebGL2RenderingContext.invalidateSubFramebuffer documentation> -invalidateSubFramebuffer ::-                         (MonadDOM m) =>-                           WebGL2RenderingContext ->-                             GLenum -> [GLenum] -> GLint -> GLint -> GLsizei -> GLsizei -> m ()-invalidateSubFramebuffer self target attachments x y width height-  = liftDOM-      (void-         (self ^. jsf "invalidateSubFramebuffer"-            [toJSVal target, toJSVal (array attachments), toJSVal x, toJSVal y,-             toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.readBuffer Mozilla WebGL2RenderingContext.readBuffer documentation> -readBuffer ::-           (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()-readBuffer self src-  = liftDOM (void (self ^. jsf "readBuffer" [toJSVal src]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.renderbufferStorageMultisample Mozilla WebGL2RenderingContext.renderbufferStorageMultisample documentation> -renderbufferStorageMultisample ::-                               (MonadDOM m) =>-                                 WebGL2RenderingContext ->-                                   GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m ()-renderbufferStorageMultisample self target samples internalformat-  width height-  = liftDOM-      (void-         (self ^. jsf "renderbufferStorageMultisample"-            [toJSVal target, toJSVal samples, toJSVal internalformat,-             toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texStorage2D Mozilla WebGL2RenderingContext.texStorage2D documentation> -texStorage2D ::-             (MonadDOM m) =>-               WebGL2RenderingContext ->-                 GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m ()-texStorage2D self target levels internalformat width height-  = liftDOM-      (void-         (self ^. jsf "texStorage2D"-            [toJSVal target, toJSVal levels, toJSVal internalformat,-             toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texStorage3D Mozilla WebGL2RenderingContext.texStorage3D documentation> -texStorage3D ::-             (MonadDOM m) =>-               WebGL2RenderingContext ->-                 GLenum ->-                   GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> m ()-texStorage3D self target levels internalformat width height depth-  = liftDOM-      (void-         (self ^. jsf "texStorage3D"-            [toJSVal target, toJSVal levels, toJSVal internalformat,-             toJSVal width, toJSVal height, toJSVal depth]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texImage3D Mozilla WebGL2RenderingContext.texImage3D documentation> -texImage3D ::-           (MonadDOM m, IsArrayBufferView pixels) =>-             WebGL2RenderingContext ->-               GLenum ->-                 GLint ->-                   GLint ->-                     GLsizei ->-                       GLsizei ->-                         GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m ()-texImage3D self target level internalformat width height depth-  border format type' pixels-  = liftDOM-      (void-         (self ^. jsf "texImage3D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal width, toJSVal height, toJSVal depth, toJSVal border,-             toJSVal format, toJSVal type', toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> -texSubImage3DView ::-                  (MonadDOM m, IsArrayBufferView pixels) =>-                    WebGL2RenderingContext ->-                      GLenum ->-                        GLint ->-                          GLint ->-                            GLint ->-                              GLint ->-                                GLsizei ->-                                  GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()-texSubImage3DView self target level xoffset yoffset zoffset width-  height depth format type' pixels-  = liftDOM-      (void-         (self ^. jsf "texSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal width, toJSVal height, toJSVal depth,-             toJSVal format, toJSVal type', toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> -texSubImage3DData ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext ->-                      GLenum ->-                        GLint ->-                          GLint ->-                            GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m ()-texSubImage3DData self target level xoffset yoffset zoffset format-  type' source-  = liftDOM-      (void-         (self ^. jsf "texSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> -texSubImage3D ::-              (MonadDOM m) =>-                WebGL2RenderingContext ->-                  GLenum ->-                    GLint ->-                      GLint ->-                        GLint ->-                          GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m ()-texSubImage3D self target level xoffset yoffset zoffset format-  type' source-  = liftDOM-      (void-         (self ^. jsf "texSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> -texSubImage3DCanvas ::-                    (MonadDOM m) =>-                      WebGL2RenderingContext ->-                        GLenum ->-                          GLint ->-                            GLint ->-                              GLint ->-                                GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m ()-texSubImage3DCanvas self target level xoffset yoffset zoffset-  format type' source-  = liftDOM-      (void-         (self ^. jsf "texSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> -texSubImage3DVideo ::-                   (MonadDOM m) =>-                     WebGL2RenderingContext ->-                       GLenum ->-                         GLint ->-                           GLint ->-                             GLint ->-                               GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m ()-texSubImage3DVideo self target level xoffset yoffset zoffset format-  type' source-  = liftDOM-      (void-         (self ^. jsf "texSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal format, toJSVal type', toJSVal source]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.copyTexSubImage3D Mozilla WebGL2RenderingContext.copyTexSubImage3D documentation> -copyTexSubImage3D ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext ->-                      GLenum ->-                        GLint ->-                          GLint ->-                            GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m ()-copyTexSubImage3D self target level xoffset yoffset zoffset x y-  width height-  = liftDOM-      (void-         (self ^. jsf "copyTexSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal x, toJSVal y, toJSVal width,-             toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.compressedTexImage3D Mozilla WebGL2RenderingContext.compressedTexImage3D documentation> -compressedTexImage3D ::-                     (MonadDOM m, IsArrayBufferView data') =>-                       WebGL2RenderingContext ->-                         GLenum ->-                           GLint ->-                             GLenum ->-                               GLsizei ->-                                 GLsizei -> GLsizei -> GLint -> GLsizei -> Maybe data' -> m ()-compressedTexImage3D self target level internalformat width height-  depth border imageSize data'-  = liftDOM-      (void-         (self ^. jsf "compressedTexImage3D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal width, toJSVal height, toJSVal depth, toJSVal border,-             toJSVal imageSize, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.compressedTexSubImage3D Mozilla WebGL2RenderingContext.compressedTexSubImage3D documentation> -compressedTexSubImage3D ::-                        (MonadDOM m, IsArrayBufferView data') =>-                          WebGL2RenderingContext ->-                            GLenum ->-                              GLint ->-                                GLint ->-                                  GLint ->-                                    GLint ->-                                      GLsizei ->-                                        GLsizei ->-                                          GLsizei -> GLenum -> GLsizei -> Maybe data' -> m ()-compressedTexSubImage3D self target level xoffset yoffset zoffset-  width height depth format imageSize data'-  = liftDOM-      (void-         (self ^. jsf "compressedTexSubImage3D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal zoffset, toJSVal width, toJSVal height, toJSVal depth,-             toJSVal format, toJSVal imageSize, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getFragDataLocation Mozilla WebGL2RenderingContext.getFragDataLocation documentation> -getFragDataLocation ::-                    (MonadDOM m, ToJSString name) =>-                      WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m GLint-getFragDataLocation self program name-  = liftDOM-      ((self ^. jsf "getFragDataLocation"-          [toJSVal program, toJSVal name])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform1ui Mozilla WebGL2RenderingContext.uniform1ui documentation> -uniform1ui ::-           (MonadDOM m) =>-             WebGL2RenderingContext ->-               Maybe WebGLUniformLocation -> GLuint -> m ()-uniform1ui self location v0-  = liftDOM-      (void (self ^. jsf "uniform1ui" [toJSVal location, toJSVal v0]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform2ui Mozilla WebGL2RenderingContext.uniform2ui documentation> -uniform2ui ::-           (MonadDOM m) =>-             WebGL2RenderingContext ->-               Maybe WebGLUniformLocation -> GLuint -> GLuint -> m ()-uniform2ui self location v0 v1-  = liftDOM-      (void-         (self ^. jsf "uniform2ui"-            [toJSVal location, toJSVal v0, toJSVal v1]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform3ui Mozilla WebGL2RenderingContext.uniform3ui documentation> -uniform3ui ::-           (MonadDOM m) =>-             WebGL2RenderingContext ->-               Maybe WebGLUniformLocation -> GLuint -> GLuint -> GLuint -> m ()-uniform3ui self location v0 v1 v2-  = liftDOM-      (void-         (self ^. jsf "uniform3ui"-            [toJSVal location, toJSVal v0, toJSVal v1, toJSVal v2]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform4ui Mozilla WebGL2RenderingContext.uniform4ui documentation> -uniform4ui ::-           (MonadDOM m) =>-             WebGL2RenderingContext ->-               Maybe WebGLUniformLocation ->-                 GLuint -> GLuint -> GLuint -> GLuint -> m ()-uniform4ui self location v0 v1 v2 v3-  = liftDOM-      (void-         (self ^. jsf "uniform4ui"-            [toJSVal location, toJSVal v0, toJSVal v1, toJSVal v2,-             toJSVal v3]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform1uiv Mozilla WebGL2RenderingContext.uniform1uiv documentation> -uniform1uiv ::-            (MonadDOM m, IsUint32Array value) =>-              WebGL2RenderingContext ->-                Maybe WebGLUniformLocation -> Maybe value -> m ()-uniform1uiv self location value-  = liftDOM-      (void-         (self ^. jsf "uniform1uiv" [toJSVal location, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform2uiv Mozilla WebGL2RenderingContext.uniform2uiv documentation> -uniform2uiv ::-            (MonadDOM m, IsUint32Array value) =>-              WebGL2RenderingContext ->-                Maybe WebGLUniformLocation -> Maybe value -> m ()-uniform2uiv self location value-  = liftDOM-      (void-         (self ^. jsf "uniform2uiv" [toJSVal location, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform3uiv Mozilla WebGL2RenderingContext.uniform3uiv documentation> -uniform3uiv ::-            (MonadDOM m, IsUint32Array value) =>-              WebGL2RenderingContext ->-                Maybe WebGLUniformLocation -> Maybe value -> m ()-uniform3uiv self location value-  = liftDOM-      (void-         (self ^. jsf "uniform3uiv" [toJSVal location, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform4uiv Mozilla WebGL2RenderingContext.uniform4uiv documentation> -uniform4uiv ::-            (MonadDOM m, IsUint32Array value) =>-              WebGL2RenderingContext ->-                Maybe WebGLUniformLocation -> Maybe value -> m ()-uniform4uiv self location value-  = liftDOM-      (void-         (self ^. jsf "uniform4uiv" [toJSVal location, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix2x3fv Mozilla WebGL2RenderingContext.uniformMatrix2x3fv documentation> -uniformMatrix2x3fv ::-                   (MonadDOM m, IsFloat32Array value) =>-                     WebGL2RenderingContext ->-                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()-uniformMatrix2x3fv self location transpose value-  = liftDOM-      (void-         (self ^. jsf "uniformMatrix2x3fv"-            [toJSVal location, toJSVal transpose, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix3x2fv Mozilla WebGL2RenderingContext.uniformMatrix3x2fv documentation> -uniformMatrix3x2fv ::-                   (MonadDOM m, IsFloat32Array value) =>-                     WebGL2RenderingContext ->-                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()-uniformMatrix3x2fv self location transpose value-  = liftDOM-      (void-         (self ^. jsf "uniformMatrix3x2fv"-            [toJSVal location, toJSVal transpose, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix2x4fv Mozilla WebGL2RenderingContext.uniformMatrix2x4fv documentation> -uniformMatrix2x4fv ::-                   (MonadDOM m, IsFloat32Array value) =>-                     WebGL2RenderingContext ->-                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()-uniformMatrix2x4fv self location transpose value-  = liftDOM-      (void-         (self ^. jsf "uniformMatrix2x4fv"-            [toJSVal location, toJSVal transpose, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix4x2fv Mozilla WebGL2RenderingContext.uniformMatrix4x2fv documentation> -uniformMatrix4x2fv ::-                   (MonadDOM m, IsFloat32Array value) =>-                     WebGL2RenderingContext ->-                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()-uniformMatrix4x2fv self location transpose value-  = liftDOM-      (void-         (self ^. jsf "uniformMatrix4x2fv"-            [toJSVal location, toJSVal transpose, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix3x4fv Mozilla WebGL2RenderingContext.uniformMatrix3x4fv documentation> -uniformMatrix3x4fv ::-                   (MonadDOM m, IsFloat32Array value) =>-                     WebGL2RenderingContext ->-                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()-uniformMatrix3x4fv self location transpose value-  = liftDOM-      (void-         (self ^. jsf "uniformMatrix3x4fv"-            [toJSVal location, toJSVal transpose, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix4x3fv Mozilla WebGL2RenderingContext.uniformMatrix4x3fv documentation> -uniformMatrix4x3fv ::-                   (MonadDOM m, IsFloat32Array value) =>-                     WebGL2RenderingContext ->-                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()-uniformMatrix4x3fv self location transpose value-  = liftDOM-      (void-         (self ^. jsf "uniformMatrix4x3fv"-            [toJSVal location, toJSVal transpose, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4i Mozilla WebGL2RenderingContext.vertexAttribI4i documentation> -vertexAttribI4i ::-                (MonadDOM m) =>-                  WebGL2RenderingContext ->-                    GLuint -> GLint -> GLint -> GLint -> GLint -> m ()-vertexAttribI4i self index x y z w-  = liftDOM-      (void-         (self ^. jsf "vertexAttribI4i"-            [toJSVal index, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4iv Mozilla WebGL2RenderingContext.vertexAttribI4iv documentation> -vertexAttribI4iv ::-                 (MonadDOM m, IsInt32Array v) =>-                   WebGL2RenderingContext -> GLuint -> Maybe v -> m ()-vertexAttribI4iv self index v-  = liftDOM-      (void (self ^. jsf "vertexAttribI4iv" [toJSVal index, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4ui Mozilla WebGL2RenderingContext.vertexAttribI4ui documentation> -vertexAttribI4ui ::-                 (MonadDOM m) =>-                   WebGL2RenderingContext ->-                     GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> m ()-vertexAttribI4ui self index x y z w-  = liftDOM-      (void-         (self ^. jsf "vertexAttribI4ui"-            [toJSVal index, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4uiv Mozilla WebGL2RenderingContext.vertexAttribI4uiv documentation> -vertexAttribI4uiv ::-                  (MonadDOM m, IsUint32Array v) =>-                    WebGL2RenderingContext -> GLuint -> Maybe v -> m ()-vertexAttribI4uiv self index v-  = liftDOM-      (void (self ^. jsf "vertexAttribI4uiv" [toJSVal index, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribIPointer Mozilla WebGL2RenderingContext.vertexAttribIPointer documentation> -vertexAttribIPointer ::-                     (MonadDOM m) =>-                       WebGL2RenderingContext ->-                         GLuint -> GLint -> GLenum -> GLsizei -> GLintptr -> m ()-vertexAttribIPointer self index size type' stride offset-  = liftDOM-      (void-         (self ^. jsf "vertexAttribIPointer"-            [toJSVal index, toJSVal size, toJSVal type', toJSVal stride,-             toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribDivisor Mozilla WebGL2RenderingContext.vertexAttribDivisor documentation> -vertexAttribDivisor ::-                    (MonadDOM m) => WebGL2RenderingContext -> GLuint -> GLuint -> m ()-vertexAttribDivisor self index divisor-  = liftDOM-      (void-         (self ^. jsf "vertexAttribDivisor"-            [toJSVal index, toJSVal divisor]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawArraysInstanced Mozilla WebGL2RenderingContext.drawArraysInstanced documentation> -drawArraysInstanced ::-                    (MonadDOM m) =>-                      WebGL2RenderingContext ->-                        GLenum -> GLint -> GLsizei -> GLsizei -> m ()-drawArraysInstanced self mode first count instanceCount-  = liftDOM-      (void-         (self ^. jsf "drawArraysInstanced"-            [toJSVal mode, toJSVal first, toJSVal count,-             toJSVal instanceCount]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawElementsInstanced Mozilla WebGL2RenderingContext.drawElementsInstanced documentation> -drawElementsInstanced ::-                      (MonadDOM m) =>-                        WebGL2RenderingContext ->-                          GLenum -> GLsizei -> GLenum -> GLintptr -> GLsizei -> m ()-drawElementsInstanced self mode count type' offset instanceCount-  = liftDOM-      (void-         (self ^. jsf "drawElementsInstanced"-            [toJSVal mode, toJSVal count, toJSVal type', toJSVal offset,-             toJSVal instanceCount]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawRangeElements Mozilla WebGL2RenderingContext.drawRangeElements documentation> -drawRangeElements ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext ->-                      GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> GLintptr -> m ()-drawRangeElements self mode start end count type' offset-  = liftDOM-      (void-         (self ^. jsf "drawRangeElements"-            [toJSVal mode, toJSVal start, toJSVal end, toJSVal count,-             toJSVal type', toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawBuffers Mozilla WebGL2RenderingContext.drawBuffers documentation> -drawBuffers ::-            (MonadDOM m) => WebGL2RenderingContext -> [GLenum] -> m ()-drawBuffers self buffers-  = liftDOM-      (void (self ^. jsf "drawBuffers" [toJSVal (array buffers)]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferiv Mozilla WebGL2RenderingContext.clearBufferiv documentation> -clearBufferiv ::-              (MonadDOM m, IsInt32Array value) =>-                WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()-clearBufferiv self buffer drawbuffer value-  = liftDOM-      (void-         (self ^. jsf "clearBufferiv"-            [toJSVal buffer, toJSVal drawbuffer, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferuiv Mozilla WebGL2RenderingContext.clearBufferuiv documentation> -clearBufferuiv ::-               (MonadDOM m, IsUint32Array value) =>-                 WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()-clearBufferuiv self buffer drawbuffer value-  = liftDOM-      (void-         (self ^. jsf "clearBufferuiv"-            [toJSVal buffer, toJSVal drawbuffer, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferfv Mozilla WebGL2RenderingContext.clearBufferfv documentation> -clearBufferfv ::-              (MonadDOM m, IsFloat32Array value) =>-                WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()-clearBufferfv self buffer drawbuffer value-  = liftDOM-      (void-         (self ^. jsf "clearBufferfv"-            [toJSVal buffer, toJSVal drawbuffer, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferfi Mozilla WebGL2RenderingContext.clearBufferfi documentation> -clearBufferfi ::-              (MonadDOM m) =>-                WebGL2RenderingContext ->-                  GLenum -> GLint -> GLfloat -> GLint -> m ()-clearBufferfi self buffer drawbuffer depth stencil-  = liftDOM-      (void-         (self ^. jsf "clearBufferfi"-            [toJSVal buffer, toJSVal drawbuffer, toJSVal depth,-             toJSVal stencil]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createQuery Mozilla WebGL2RenderingContext.createQuery documentation> -createQuery ::-            (MonadDOM m) => WebGL2RenderingContext -> m (Maybe WebGLQuery)-createQuery self-  = liftDOM ((self ^. js "createQuery") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteQuery Mozilla WebGL2RenderingContext.deleteQuery documentation> -deleteQuery ::-            (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m ()-deleteQuery self query-  = liftDOM (void (self ^. jsf "deleteQuery" [toJSVal query]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isQuery Mozilla WebGL2RenderingContext.isQuery documentation> -isQuery ::-        (MonadDOM m) =>-          WebGL2RenderingContext -> Maybe WebGLQuery -> m GLboolean-isQuery self query-  = liftDOM-      ((self ^. jsf "isQuery" [toJSVal query]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.beginQuery Mozilla WebGL2RenderingContext.beginQuery documentation> -beginQuery ::-           (MonadDOM m) =>-             WebGL2RenderingContext -> GLenum -> Maybe WebGLQuery -> m ()-beginQuery self target query-  = liftDOM-      (void (self ^. jsf "beginQuery" [toJSVal target, toJSVal query]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.endQuery Mozilla WebGL2RenderingContext.endQuery documentation> -endQuery ::-         (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()-endQuery self target-  = liftDOM (void (self ^. jsf "endQuery" [toJSVal target]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQuery Mozilla WebGL2RenderingContext.getQuery documentation> -getQuery ::-         (MonadDOM m) =>-           WebGL2RenderingContext -> GLenum -> GLenum -> m (Maybe WebGLQuery)-getQuery self target pname-  = liftDOM-      ((self ^. jsf "getQuery" [toJSVal target, toJSVal pname]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQueryParameter Mozilla WebGL2RenderingContext.getQueryParameter documentation> -getQueryParameter ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m JSVal-getQueryParameter self query pname-  = liftDOM-      ((self ^. jsf "getQueryParameter" [toJSVal query, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createSampler Mozilla WebGL2RenderingContext.createSampler documentation> -createSampler ::-              (MonadDOM m) => WebGL2RenderingContext -> m (Maybe WebGLSampler)-createSampler self-  = liftDOM ((self ^. js "createSampler") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteSampler Mozilla WebGL2RenderingContext.deleteSampler documentation> -deleteSampler ::-              (MonadDOM m) =>-                WebGL2RenderingContext -> Maybe WebGLSampler -> m ()-deleteSampler self sampler-  = liftDOM (void (self ^. jsf "deleteSampler" [toJSVal sampler]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSampler Mozilla WebGL2RenderingContext.isSampler documentation> -isSampler ::-          (MonadDOM m) =>-            WebGL2RenderingContext -> Maybe WebGLSampler -> m GLboolean-isSampler self sampler-  = liftDOM-      ((self ^. jsf "isSampler" [toJSVal sampler]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindSampler Mozilla WebGL2RenderingContext.bindSampler documentation> -bindSampler ::-            (MonadDOM m) =>-              WebGL2RenderingContext -> GLuint -> Maybe WebGLSampler -> m ()-bindSampler self unit sampler-  = liftDOM-      (void (self ^. jsf "bindSampler" [toJSVal unit, toJSVal sampler]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.samplerParameteri Mozilla WebGL2RenderingContext.samplerParameteri documentation> -samplerParameteri ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext ->-                      Maybe WebGLSampler -> GLenum -> GLint -> m ()-samplerParameteri self sampler pname param-  = liftDOM-      (void-         (self ^. jsf "samplerParameteri"-            [toJSVal sampler, toJSVal pname, toJSVal param]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.samplerParameterf Mozilla WebGL2RenderingContext.samplerParameterf documentation> -samplerParameterf ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext ->-                      Maybe WebGLSampler -> GLenum -> GLfloat -> m ()-samplerParameterf self sampler pname param-  = liftDOM-      (void-         (self ^. jsf "samplerParameterf"-            [toJSVal sampler, toJSVal pname, toJSVal param]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSamplerParameter Mozilla WebGL2RenderingContext.getSamplerParameter documentation> -getSamplerParameter ::-                    (MonadDOM m) =>-                      WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m JSVal-getSamplerParameter self sampler pname-  = liftDOM-      ((self ^. jsf "getSamplerParameter"-          [toJSVal sampler, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.fenceSync Mozilla WebGL2RenderingContext.fenceSync documentation> -fenceSync ::-          (MonadDOM m) =>-            WebGL2RenderingContext ->-              GLenum -> GLbitfield -> m (Maybe WebGLSync)-fenceSync self condition flags-  = liftDOM-      ((self ^. jsf "fenceSync" [toJSVal condition, toJSVal flags]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSync Mozilla WebGL2RenderingContext.isSync documentation> -isSync ::-       (MonadDOM m) =>-         WebGL2RenderingContext -> Maybe WebGLSync -> m GLboolean-isSync self sync-  = liftDOM-      ((self ^. jsf "isSync" [toJSVal sync]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteSync Mozilla WebGL2RenderingContext.deleteSync documentation> -deleteSync ::-           (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLSync -> m ()-deleteSync self sync-  = liftDOM (void (self ^. jsf "deleteSync" [toJSVal sync]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clientWaitSync Mozilla WebGL2RenderingContext.clientWaitSync documentation> -clientWaitSync ::-               (MonadDOM m) =>-                 WebGL2RenderingContext ->-                   Maybe WebGLSync -> GLbitfield -> GLuint64 -> m GLenum-clientWaitSync self sync flags timeout-  = liftDOM-      ((self ^. jsf "clientWaitSync"-          [toJSVal sync, toJSVal flags, toJSVal timeout])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.waitSync Mozilla WebGL2RenderingContext.waitSync documentation> -waitSync ::-         (MonadDOM m) =>-           WebGL2RenderingContext ->-             Maybe WebGLSync -> GLbitfield -> GLuint64 -> m ()-waitSync self sync flags timeout-  = liftDOM-      (void-         (self ^. jsf "waitSync"-            [toJSVal sync, toJSVal flags, toJSVal timeout]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSyncParameter Mozilla WebGL2RenderingContext.getSyncParameter documentation> -getSyncParameter ::-                 (MonadDOM m) =>-                   WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m JSVal-getSyncParameter self sync pname-  = liftDOM-      ((self ^. jsf "getSyncParameter" [toJSVal sync, toJSVal pname]) >>=-         toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createTransformFeedback Mozilla WebGL2RenderingContext.createTransformFeedback documentation> -createTransformFeedback ::-                        (MonadDOM m) =>-                          WebGL2RenderingContext -> m (Maybe WebGLTransformFeedback)-createTransformFeedback self-  = liftDOM ((self ^. js "createTransformFeedback") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteTransformFeedback Mozilla WebGL2RenderingContext.deleteTransformFeedback documentation> -deleteTransformFeedback ::-                        (MonadDOM m) =>-                          WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m ()-deleteTransformFeedback self id-  = liftDOM-      (void (self ^. jsf "deleteTransformFeedback" [toJSVal id]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isTransformFeedback Mozilla WebGL2RenderingContext.isTransformFeedback documentation> -isTransformFeedback ::-                    (MonadDOM m) =>-                      WebGL2RenderingContext ->-                        Maybe WebGLTransformFeedback -> m GLboolean-isTransformFeedback self id-  = liftDOM-      ((self ^. jsf "isTransformFeedback" [toJSVal id]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindTransformFeedback Mozilla WebGL2RenderingContext.bindTransformFeedback documentation> -bindTransformFeedback ::-                      (MonadDOM m) =>-                        WebGL2RenderingContext ->-                          GLenum -> Maybe WebGLTransformFeedback -> m ()-bindTransformFeedback self target id-  = liftDOM-      (void-         (self ^. jsf "bindTransformFeedback" [toJSVal target, toJSVal id]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.beginTransformFeedback Mozilla WebGL2RenderingContext.beginTransformFeedback documentation> -beginTransformFeedback ::-                       (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()-beginTransformFeedback self primitiveMode-  = liftDOM-      (void-         (self ^. jsf "beginTransformFeedback" [toJSVal primitiveMode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.endTransformFeedback Mozilla WebGL2RenderingContext.endTransformFeedback documentation> -endTransformFeedback ::-                     (MonadDOM m) => WebGL2RenderingContext -> m ()-endTransformFeedback self-  = liftDOM (void (self ^. js "endTransformFeedback"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.transformFeedbackVaryings Mozilla WebGL2RenderingContext.transformFeedbackVaryings documentation> -transformFeedbackVaryings ::-                          (MonadDOM m, ToJSString varyings) =>-                            WebGL2RenderingContext ->-                              Maybe WebGLProgram -> [varyings] -> GLenum -> m ()-transformFeedbackVaryings self program varyings bufferMode-  = liftDOM-      (void-         (self ^. jsf "transformFeedbackVaryings"-            [toJSVal program, toJSVal (array varyings), toJSVal bufferMode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getTransformFeedbackVarying Mozilla WebGL2RenderingContext.getTransformFeedbackVarying documentation> -getTransformFeedbackVarying ::-                            (MonadDOM m) =>-                              WebGL2RenderingContext ->-                                Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo)-getTransformFeedbackVarying self program index-  = liftDOM-      ((self ^. jsf "getTransformFeedbackVarying"-          [toJSVal program, toJSVal index])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.pauseTransformFeedback Mozilla WebGL2RenderingContext.pauseTransformFeedback documentation> -pauseTransformFeedback ::-                       (MonadDOM m) => WebGL2RenderingContext -> m ()-pauseTransformFeedback self-  = liftDOM (void (self ^. js "pauseTransformFeedback"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.resumeTransformFeedback Mozilla WebGL2RenderingContext.resumeTransformFeedback documentation> -resumeTransformFeedback ::-                        (MonadDOM m) => WebGL2RenderingContext -> m ()-resumeTransformFeedback self-  = liftDOM (void (self ^. js "resumeTransformFeedback"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindBufferBase Mozilla WebGL2RenderingContext.bindBufferBase documentation> -bindBufferBase ::-               (MonadDOM m) =>-                 WebGL2RenderingContext ->-                   GLenum -> GLuint -> Maybe WebGLBuffer -> m ()-bindBufferBase self target index buffer-  = liftDOM-      (void-         (self ^. jsf "bindBufferBase"-            [toJSVal target, toJSVal index, toJSVal buffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindBufferRange Mozilla WebGL2RenderingContext.bindBufferRange documentation> -bindBufferRange ::-                (MonadDOM m) =>-                  WebGL2RenderingContext ->-                    GLenum ->-                      GLuint -> Maybe WebGLBuffer -> GLintptr -> GLsizeiptr -> m ()-bindBufferRange self target index buffer offset size-  = liftDOM-      (void-         (self ^. jsf "bindBufferRange"-            [toJSVal target, toJSVal index, toJSVal buffer, toJSVal offset,-             toJSVal size]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getIndexedParameter Mozilla WebGL2RenderingContext.getIndexedParameter documentation> -getIndexedParameter ::-                    (MonadDOM m) =>-                      WebGL2RenderingContext -> GLenum -> GLuint -> m JSVal-getIndexedParameter self target index-  = liftDOM-      ((self ^. jsf "getIndexedParameter"-          [toJSVal target, toJSVal index])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformIndices Mozilla WebGL2RenderingContext.getUniformIndices documentation> -getUniformIndices ::-                  (MonadDOM m, ToJSString uniformNames) =>-                    WebGL2RenderingContext ->-                      Maybe WebGLProgram -> [uniformNames] -> m (Maybe Uint32Array)-getUniformIndices self program uniformNames-  = liftDOM-      ((self ^. jsf "getUniformIndices"-          [toJSVal program, toJSVal (array uniformNames)])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniforms Mozilla WebGL2RenderingContext.getActiveUniforms documentation> -getActiveUniforms ::-                  (MonadDOM m, IsUint32Array uniformIndices) =>-                    WebGL2RenderingContext ->-                      Maybe WebGLProgram ->-                        Maybe uniformIndices -> GLenum -> m (Maybe Int32Array)-getActiveUniforms self program uniformIndices pname-  = liftDOM-      ((self ^. jsf "getActiveUniforms"-          [toJSVal program, toJSVal uniformIndices, toJSVal pname])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformBlockIndex Mozilla WebGL2RenderingContext.getUniformBlockIndex documentation> -getUniformBlockIndex ::-                     (MonadDOM m, ToJSString uniformBlockName) =>-                       WebGL2RenderingContext ->-                         Maybe WebGLProgram -> uniformBlockName -> m GLuint-getUniformBlockIndex self program uniformBlockName-  = liftDOM-      ((self ^. jsf "getUniformBlockIndex"-          [toJSVal program, toJSVal uniformBlockName])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockParameter Mozilla WebGL2RenderingContext.getActiveUniformBlockParameter documentation> -getActiveUniformBlockParameter ::-                               (MonadDOM m) =>-                                 WebGL2RenderingContext ->-                                   Maybe WebGLProgram -> GLuint -> GLenum -> m JSVal-getActiveUniformBlockParameter self program uniformBlockIndex pname-  = liftDOM-      ((self ^. jsf "getActiveUniformBlockParameter"-          [toJSVal program, toJSVal uniformBlockIndex, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockName Mozilla WebGL2RenderingContext.getActiveUniformBlockName documentation> -getActiveUniformBlockName ::-                          (MonadDOM m) =>-                            WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m JSVal-getActiveUniformBlockName self program uniformBlockIndex-  = liftDOM-      ((self ^. jsf "getActiveUniformBlockName"-          [toJSVal program, toJSVal uniformBlockIndex])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformBlockBinding Mozilla WebGL2RenderingContext.uniformBlockBinding documentation> -uniformBlockBinding ::-                    (MonadDOM m) =>-                      WebGL2RenderingContext ->-                        Maybe WebGLProgram -> GLuint -> GLuint -> m ()-uniformBlockBinding self program uniformBlockIndex-  uniformBlockBinding-  = liftDOM-      (void-         (self ^. jsf "uniformBlockBinding"-            [toJSVal program, toJSVal uniformBlockIndex,-             toJSVal uniformBlockBinding]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createVertexArray Mozilla WebGL2RenderingContext.createVertexArray documentation> -createVertexArray ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext -> m (Maybe WebGLVertexArrayObject)-createVertexArray self-  = liftDOM ((self ^. js "createVertexArray") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteVertexArray Mozilla WebGL2RenderingContext.deleteVertexArray documentation> -deleteVertexArray ::-                  (MonadDOM m) =>-                    WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()-deleteVertexArray self vertexArray-  = liftDOM-      (void (self ^. jsf "deleteVertexArray" [toJSVal vertexArray]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isVertexArray Mozilla WebGL2RenderingContext.isVertexArray documentation> -isVertexArray ::-              (MonadDOM m) =>-                WebGL2RenderingContext ->-                  Maybe WebGLVertexArrayObject -> m GLboolean-isVertexArray self vertexArray-  = liftDOM-      ((self ^. jsf "isVertexArray" [toJSVal vertexArray]) >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindVertexArray Mozilla WebGL2RenderingContext.bindVertexArray documentation> -bindVertexArray ::-                (MonadDOM m) =>-                  WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()-bindVertexArray self vertexArray-  = liftDOM-      (void (self ^. jsf "bindVertexArray" [toJSVal vertexArray]))-pattern READ_BUFFER = 3074-pattern UNPACK_ROW_LENGTH = 3314-pattern UNPACK_SKIP_ROWS = 3315-pattern UNPACK_SKIP_PIXELS = 3316-pattern PACK_ROW_LENGTH = 3330-pattern PACK_SKIP_ROWS = 3331-pattern PACK_SKIP_PIXELS = 3332-pattern COLOR = 6144-pattern DEPTH = 6145-pattern STENCIL = 6146-pattern RED = 6403-pattern RGB8 = 32849-pattern RGBA8 = 32856-pattern RGB10_A2 = 32857-pattern TEXTURE_BINDING_3D = 32874-pattern UNPACK_SKIP_IMAGES = 32877-pattern UNPACK_IMAGE_HEIGHT = 32878-pattern TEXTURE_3D = 32879-pattern TEXTURE_WRAP_R = 32882-pattern MAX_3D_TEXTURE_SIZE = 32883-pattern UNSIGNED_INT_2_10_10_10_REV = 33640-pattern MAX_ELEMENTS_VERTICES = 33000-pattern MAX_ELEMENTS_INDICES = 33001-pattern TEXTURE_MIN_LOD = 33082-pattern TEXTURE_MAX_LOD = 33083-pattern TEXTURE_BASE_LEVEL = 33084-pattern TEXTURE_MAX_LEVEL = 33085-pattern MIN = 32775-pattern MAX = 32776-pattern DEPTH_COMPONENT24 = 33190-pattern MAX_TEXTURE_LOD_BIAS = 34045-pattern TEXTURE_COMPARE_MODE = 34892-pattern TEXTURE_COMPARE_FUNC = 34893-pattern CURRENT_QUERY = 34917-pattern QUERY_RESULT = 34918-pattern QUERY_RESULT_AVAILABLE = 34919-pattern STREAM_READ = 35041-pattern STREAM_COPY = 35042-pattern STATIC_READ = 35045-pattern STATIC_COPY = 35046-pattern DYNAMIC_READ = 35049-pattern DYNAMIC_COPY = 35050-pattern MAX_DRAW_BUFFERS = 34852-pattern DRAW_BUFFER0 = 34853-pattern DRAW_BUFFER1 = 34854-pattern DRAW_BUFFER2 = 34855-pattern DRAW_BUFFER3 = 34856-pattern DRAW_BUFFER4 = 34857-pattern DRAW_BUFFER5 = 34858-pattern DRAW_BUFFER6 = 34859-pattern DRAW_BUFFER7 = 34860-pattern DRAW_BUFFER8 = 34861-pattern DRAW_BUFFER9 = 34862-pattern DRAW_BUFFER10 = 34863-pattern DRAW_BUFFER11 = 34864-pattern DRAW_BUFFER12 = 34865-pattern DRAW_BUFFER13 = 34866-pattern DRAW_BUFFER14 = 34867-pattern DRAW_BUFFER15 = 34868-pattern MAX_FRAGMENT_UNIFORM_COMPONENTS = 35657-pattern MAX_VERTEX_UNIFORM_COMPONENTS = 35658-pattern SAMPLER_3D = 35679-pattern SAMPLER_2D_SHADOW = 35682-pattern FRAGMENT_SHADER_DERIVATIVE_HINT = 35723-pattern PIXEL_PACK_BUFFER = 35051-pattern PIXEL_UNPACK_BUFFER = 35052-pattern PIXEL_PACK_BUFFER_BINDING = 35053-pattern PIXEL_UNPACK_BUFFER_BINDING = 35055-pattern FLOAT_MAT2x3 = 35685-pattern FLOAT_MAT2x4 = 35686-pattern FLOAT_MAT3x2 = 35687-pattern FLOAT_MAT3x4 = 35688-pattern FLOAT_MAT4x2 = 35689-pattern FLOAT_MAT4x3 = 35690-pattern SRGB = 35904-pattern SRGB8 = 35905-pattern SRGB8_ALPHA8 = 35907-pattern COMPARE_REF_TO_TEXTURE = 34894-pattern RGBA32F = 34836-pattern RGB32F = 34837-pattern RGBA16F = 34842-pattern RGB16F = 34843-pattern VERTEX_ATTRIB_ARRAY_INTEGER = 35069-pattern MAX_ARRAY_TEXTURE_LAYERS = 35071-pattern MIN_PROGRAM_TEXEL_OFFSET = 35076-pattern MAX_PROGRAM_TEXEL_OFFSET = 35077-pattern MAX_VARYING_COMPONENTS = 35659-pattern TEXTURE_2D_ARRAY = 35866-pattern TEXTURE_BINDING_2D_ARRAY = 35869-pattern R11F_G11F_B10F = 35898-pattern UNSIGNED_INT_10F_11F_11F_REV = 35899-pattern RGB9_E5 = 35901-pattern UNSIGNED_INT_5_9_9_9_REV = 35902-pattern TRANSFORM_FEEDBACK_BUFFER_MODE = 35967-pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS = 35968-pattern TRANSFORM_FEEDBACK_VARYINGS = 35971-pattern TRANSFORM_FEEDBACK_BUFFER_START = 35972-pattern TRANSFORM_FEEDBACK_BUFFER_SIZE = 35973-pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN = 35976-pattern RASTERIZER_DISCARD = 35977-pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS = 35978-pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS = 35979-pattern INTERLEAVED_ATTRIBS = 35980-pattern SEPARATE_ATTRIBS = 35981-pattern TRANSFORM_FEEDBACK_BUFFER = 35982-pattern TRANSFORM_FEEDBACK_BUFFER_BINDING = 35983-pattern RGBA32UI = 36208-pattern RGB32UI = 36209-pattern RGBA16UI = 36214-pattern RGB16UI = 36215-pattern RGBA8UI = 36220-pattern RGB8UI = 36221-pattern RGBA32I = 36226-pattern RGB32I = 36227-pattern RGBA16I = 36232-pattern RGB16I = 36233-pattern RGBA8I = 36238-pattern RGB8I = 36239-pattern RED_INTEGER = 36244-pattern RGB_INTEGER = 36248-pattern RGBA_INTEGER = 36249-pattern SAMPLER_2D_ARRAY = 36289-pattern SAMPLER_2D_ARRAY_SHADOW = 36292-pattern SAMPLER_CUBE_SHADOW = 36293-pattern UNSIGNED_INT_VEC2 = 36294-pattern UNSIGNED_INT_VEC3 = 36295-pattern UNSIGNED_INT_VEC4 = 36296-pattern INT_SAMPLER_2D = 36298-pattern INT_SAMPLER_3D = 36299-pattern INT_SAMPLER_CUBE = 36300-pattern INT_SAMPLER_2D_ARRAY = 36303-pattern UNSIGNED_INT_SAMPLER_2D = 36306-pattern UNSIGNED_INT_SAMPLER_3D = 36307-pattern UNSIGNED_INT_SAMPLER_CUBE = 36308-pattern UNSIGNED_INT_SAMPLER_2D_ARRAY = 36311-pattern DEPTH_COMPONENT32F = 36012-pattern DEPTH32F_STENCIL8 = 36013-pattern FLOAT_32_UNSIGNED_INT_24_8_REV = 36269-pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING = 33296-pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE = 33297-pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE = 33298-pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE = 33299-pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE = 33300-pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE = 33301-pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE = 33302-pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE = 33303-pattern FRAMEBUFFER_DEFAULT = 33304-pattern DEPTH_STENCIL_ATTACHMENT = 33306-pattern DEPTH_STENCIL = 34041-pattern UNSIGNED_INT_24_8 = 34042-pattern DEPTH24_STENCIL8 = 35056-pattern UNSIGNED_NORMALIZED = 35863-pattern DRAW_FRAMEBUFFER_BINDING = 36006-pattern READ_FRAMEBUFFER = 36008-pattern DRAW_FRAMEBUFFER = 36009-pattern READ_FRAMEBUFFER_BINDING = 36010-pattern RENDERBUFFER_SAMPLES = 36011-pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER = 36052-pattern MAX_COLOR_ATTACHMENTS = 36063-pattern COLOR_ATTACHMENT1 = 36065-pattern COLOR_ATTACHMENT2 = 36066-pattern COLOR_ATTACHMENT3 = 36067-pattern COLOR_ATTACHMENT4 = 36068-pattern COLOR_ATTACHMENT5 = 36069-pattern COLOR_ATTACHMENT6 = 36070-pattern COLOR_ATTACHMENT7 = 36071-pattern COLOR_ATTACHMENT8 = 36072-pattern COLOR_ATTACHMENT9 = 36073-pattern COLOR_ATTACHMENT10 = 36074-pattern COLOR_ATTACHMENT11 = 36075-pattern COLOR_ATTACHMENT12 = 36076-pattern COLOR_ATTACHMENT13 = 36077-pattern COLOR_ATTACHMENT14 = 36078-pattern COLOR_ATTACHMENT15 = 36079-pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE = 36182-pattern MAX_SAMPLES = 36183-pattern HALF_FLOAT = 5131-pattern RG = 33319-pattern RG_INTEGER = 33320-pattern R8 = 33321-pattern RG8 = 33323-pattern R16F = 33325-pattern R32F = 33326-pattern RG16F = 33327-pattern RG32F = 33328-pattern R8I = 33329-pattern R8UI = 33330-pattern R16I = 33331-pattern R16UI = 33332-pattern R32I = 33333-pattern R32UI = 33334-pattern RG8I = 33335-pattern RG8UI = 33336-pattern RG16I = 33337-pattern RG16UI = 33338-pattern RG32I = 33339-pattern RG32UI = 33340-pattern VERTEX_ARRAY_BINDING = 34229-pattern R8_SNORM = 36756-pattern RG8_SNORM = 36757-pattern RGB8_SNORM = 36758-pattern RGBA8_SNORM = 36759-pattern SIGNED_NORMALIZED = 36764-pattern PRIMITIVE_RESTART_FIXED_INDEX = 36201-pattern COPY_READ_BUFFER = 36662-pattern COPY_WRITE_BUFFER = 36663-pattern COPY_READ_BUFFER_BINDING = 36662-pattern COPY_WRITE_BUFFER_BINDING = 36663-pattern UNIFORM_BUFFER = 35345-pattern UNIFORM_BUFFER_BINDING = 35368-pattern UNIFORM_BUFFER_START = 35369-pattern UNIFORM_BUFFER_SIZE = 35370-pattern MAX_VERTEX_UNIFORM_BLOCKS = 35371-pattern MAX_FRAGMENT_UNIFORM_BLOCKS = 35373-pattern MAX_COMBINED_UNIFORM_BLOCKS = 35374-pattern MAX_UNIFORM_BUFFER_BINDINGS = 35375-pattern MAX_UNIFORM_BLOCK_SIZE = 35376-pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS = 35377-pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS = 35379-pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT = 35380-pattern ACTIVE_UNIFORM_BLOCKS = 35382-pattern UNIFORM_TYPE = 35383-pattern UNIFORM_SIZE = 35384-pattern UNIFORM_BLOCK_INDEX = 35386-pattern UNIFORM_OFFSET = 35387-pattern UNIFORM_ARRAY_STRIDE = 35388-pattern UNIFORM_MATRIX_STRIDE = 35389-pattern UNIFORM_IS_ROW_MAJOR = 35390-pattern UNIFORM_BLOCK_BINDING = 35391-pattern UNIFORM_BLOCK_DATA_SIZE = 35392-pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS = 35394-pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES = 35395-pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER = 35396-pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER = 35398-pattern INVALID_INDEX = 4294967295-pattern MAX_VERTEX_OUTPUT_COMPONENTS = 37154-pattern MAX_FRAGMENT_INPUT_COMPONENTS = 37157-pattern MAX_SERVER_WAIT_TIMEOUT = 37137-pattern OBJECT_TYPE = 37138-pattern SYNC_CONDITION = 37139-pattern SYNC_STATUS = 37140-pattern SYNC_FLAGS = 37141-pattern SYNC_FENCE = 37142-pattern SYNC_GPU_COMMANDS_COMPLETE = 37143-pattern UNSIGNALED = 37144-pattern SIGNALED = 37145-pattern ALREADY_SIGNALED = 37146-pattern TIMEOUT_EXPIRED = 37147-pattern CONDITION_SATISFIED = 37148-pattern WAIT_FAILED = 37149-pattern SYNC_FLUSH_COMMANDS_BIT = 1-pattern VERTEX_ATTRIB_ARRAY_DIVISOR = 35070-pattern ANY_SAMPLES_PASSED = 35887-pattern ANY_SAMPLES_PASSED_CONSERVATIVE = 36202-pattern SAMPLER_BINDING = 35097-pattern RGB10_A2UI = 36975-pattern TEXTURE_SWIZZLE_R = 36418-pattern TEXTURE_SWIZZLE_G = 36419-pattern TEXTURE_SWIZZLE_B = 36420-pattern TEXTURE_SWIZZLE_A = 36421-pattern GREEN = 6404-pattern BLUE = 6405-pattern INT_2_10_10_10_REV = 36255-pattern TRANSFORM_FEEDBACK = 36386-pattern TRANSFORM_FEEDBACK_PAUSED = 36387-pattern TRANSFORM_FEEDBACK_ACTIVE = 36388-pattern TRANSFORM_FEEDBACK_BINDING = 36389-pattern COMPRESSED_R11_EAC = 37488-pattern COMPRESSED_SIGNED_R11_EAC = 37489-pattern COMPRESSED_RG11_EAC = 37490-pattern COMPRESSED_SIGNED_RG11_EAC = 37491-pattern COMPRESSED_RGB8_ETC2 = 37492-pattern COMPRESSED_SRGB8_ETC2 = 37493-pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37494-pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37495-pattern COMPRESSED_RGBA8_ETC2_EAC = 37496-pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC = 37497-pattern TEXTURE_IMMUTABLE_FORMAT = 37167-pattern MAX_ELEMENT_INDEX = 36203-pattern NUM_SAMPLE_COUNTS = 37760-pattern TEXTURE_IMMUTABLE_LEVELS = 33503-pattern TIMEOUT_IGNORED = 18446744073709551615
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLActiveInfo.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLActiveInfo-       (getSize, getType, getName, WebGLActiveInfo, castToWebGLActiveInfo,-        gTypeWebGLActiveInfo)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo.size Mozilla WebGLActiveInfo.size documentation> -getSize :: (MonadDOM m) => WebGLActiveInfo -> m Int-getSize self-  = liftDOM (round <$> ((self ^. js "size") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo.type Mozilla WebGLActiveInfo.type documentation> -getType :: (MonadDOM m) => WebGLActiveInfo -> m Word-getType self-  = liftDOM (round <$> ((self ^. js "type") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo.name Mozilla WebGLActiveInfo.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => WebGLActiveInfo -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLCompressedTextureATC.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTextureATC-       (pattern COMPRESSED_RGB_ATC_WEBGL,-        pattern COMPRESSED_RGBA_ATC_EXPLICIT_ALPHA_WEBGL,-        pattern COMPRESSED_RGBA_ATC_INTERPOLATED_ALPHA_WEBGL,-        WebGLCompressedTextureATC, castToWebGLCompressedTextureATC,-        gTypeWebGLCompressedTextureATC)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern COMPRESSED_RGB_ATC_WEBGL = 35986-pattern COMPRESSED_RGBA_ATC_EXPLICIT_ALPHA_WEBGL = 35987-pattern COMPRESSED_RGBA_ATC_INTERPOLATED_ALPHA_WEBGL = 34798
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLCompressedTexturePVRTC.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTexturePVRTC-       (pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG,-        pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG,-        pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG,-        pattern COMPRESSED_RGBA_PVRTC_2BPPV1_IMG,-        WebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC,-        gTypeWebGLCompressedTexturePVRTC)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern COMPRESSED_RGB_PVRTC_4BPPV1_IMG = 35840-pattern COMPRESSED_RGB_PVRTC_2BPPV1_IMG = 35841-pattern COMPRESSED_RGBA_PVRTC_4BPPV1_IMG = 35842-pattern COMPRESSED_RGBA_PVRTC_2BPPV1_IMG = 35843
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLCompressedTextureS3TC.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLCompressedTextureS3TC-       (pattern COMPRESSED_RGB_S3TC_DXT1_EXT,-        pattern COMPRESSED_RGBA_S3TC_DXT1_EXT,-        pattern COMPRESSED_RGBA_S3TC_DXT3_EXT,-        pattern COMPRESSED_RGBA_S3TC_DXT5_EXT, WebGLCompressedTextureS3TC,-        castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern COMPRESSED_RGB_S3TC_DXT1_EXT = 33776-pattern COMPRESSED_RGBA_S3TC_DXT1_EXT = 33777-pattern COMPRESSED_RGBA_S3TC_DXT3_EXT = 33778-pattern COMPRESSED_RGBA_S3TC_DXT5_EXT = 33779
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLContextAttributes.hs 
@@ -1,79 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLContextAttributes-       (setAlpha, getAlpha, setDepth, getDepth, setStencil, getStencil,-        setAntialias, getAntialias, setPremultipliedAlpha,-        getPremultipliedAlpha, setPreserveDrawingBuffer,-        getPreserveDrawingBuffer, WebGLContextAttributes,-        castToWebGLContextAttributes, gTypeWebGLContextAttributes)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.alpha Mozilla WebGLContextAttributes.alpha documentation> -setAlpha :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()-setAlpha self val = liftDOM (self ^. jss "alpha" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.alpha Mozilla WebGLContextAttributes.alpha documentation> -getAlpha :: (MonadDOM m) => WebGLContextAttributes -> m Bool-getAlpha self = liftDOM ((self ^. js "alpha") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.depth Mozilla WebGLContextAttributes.depth documentation> -setDepth :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()-setDepth self val = liftDOM (self ^. jss "depth" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.depth Mozilla WebGLContextAttributes.depth documentation> -getDepth :: (MonadDOM m) => WebGLContextAttributes -> m Bool-getDepth self = liftDOM ((self ^. js "depth") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.stencil Mozilla WebGLContextAttributes.stencil documentation> -setStencil ::-           (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()-setStencil self val = liftDOM (self ^. jss "stencil" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.stencil Mozilla WebGLContextAttributes.stencil documentation> -getStencil :: (MonadDOM m) => WebGLContextAttributes -> m Bool-getStencil self = liftDOM ((self ^. js "stencil") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.antialias Mozilla WebGLContextAttributes.antialias documentation> -setAntialias ::-             (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()-setAntialias self val-  = liftDOM (self ^. jss "antialias" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.antialias Mozilla WebGLContextAttributes.antialias documentation> -getAntialias :: (MonadDOM m) => WebGLContextAttributes -> m Bool-getAntialias self-  = liftDOM ((self ^. js "antialias") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.premultipliedAlpha Mozilla WebGLContextAttributes.premultipliedAlpha documentation> -setPremultipliedAlpha ::-                      (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()-setPremultipliedAlpha self val-  = liftDOM (self ^. jss "premultipliedAlpha" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.premultipliedAlpha Mozilla WebGLContextAttributes.premultipliedAlpha documentation> -getPremultipliedAlpha ::-                      (MonadDOM m) => WebGLContextAttributes -> m Bool-getPremultipliedAlpha self-  = liftDOM ((self ^. js "premultipliedAlpha") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.preserveDrawingBuffer Mozilla WebGLContextAttributes.preserveDrawingBuffer documentation> -setPreserveDrawingBuffer ::-                         (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()-setPreserveDrawingBuffer self val-  = liftDOM (self ^. jss "preserveDrawingBuffer" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes.preserveDrawingBuffer Mozilla WebGLContextAttributes.preserveDrawingBuffer documentation> -getPreserveDrawingBuffer ::-                         (MonadDOM m) => WebGLContextAttributes -> m Bool-getPreserveDrawingBuffer self-  = liftDOM ((self ^. js "preserveDrawingBuffer") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLContextEvent.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLContextEvent-       (getStatusMessage, WebGLContextEvent, castToWebGLContextEvent,-        gTypeWebGLContextEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextEvent.statusMessage Mozilla WebGLContextEvent.statusMessage documentation> -getStatusMessage ::-                 (MonadDOM m, FromJSString result) => WebGLContextEvent -> m result-getStatusMessage self-  = liftDOM ((self ^. js "statusMessage") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLDebugRendererInfo.hs 
@@ -1,19 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLDebugRendererInfo-       (pattern UNMASKED_VENDOR_WEBGL, pattern UNMASKED_RENDERER_WEBGL,-        WebGLDebugRendererInfo, castToWebGLDebugRendererInfo,-        gTypeWebGLDebugRendererInfo)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern UNMASKED_VENDOR_WEBGL = 37445-pattern UNMASKED_RENDERER_WEBGL = 37446
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLDebugShaders.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLDebugShaders-       (getTranslatedShaderSource, WebGLDebugShaders,-        castToWebGLDebugShaders, gTypeWebGLDebugShaders)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDebugShaders.getTranslatedShaderSource Mozilla WebGLDebugShaders.getTranslatedShaderSource documentation> -getTranslatedShaderSource ::-                          (MonadDOM m, FromJSString result) =>-                            WebGLDebugShaders -> Maybe WebGLShader -> m (Maybe result)-getTranslatedShaderSource self shader-  = liftDOM-      ((self ^. jsf "getTranslatedShaderSource" [toJSVal shader]) >>=-         fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLDepthTexture.hs 
@@ -1,17 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLDepthTexture-       (pattern UNSIGNED_INT_24_8_WEBGL, WebGLDepthTexture,-        castToWebGLDepthTexture, gTypeWebGLDepthTexture)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums-pattern UNSIGNED_INT_24_8_WEBGL = 34042
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLDrawBuffers.hs 
@@ -1,74 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLDrawBuffers-       (drawBuffersWEBGL, pattern COLOR_ATTACHMENT0_WEBGL,-        pattern COLOR_ATTACHMENT1_WEBGL, pattern COLOR_ATTACHMENT2_WEBGL,-        pattern COLOR_ATTACHMENT3_WEBGL, pattern COLOR_ATTACHMENT4_WEBGL,-        pattern COLOR_ATTACHMENT5_WEBGL, pattern COLOR_ATTACHMENT6_WEBGL,-        pattern COLOR_ATTACHMENT7_WEBGL, pattern COLOR_ATTACHMENT8_WEBGL,-        pattern COLOR_ATTACHMENT9_WEBGL, pattern COLOR_ATTACHMENT10_WEBGL,-        pattern COLOR_ATTACHMENT11_WEBGL, pattern COLOR_ATTACHMENT12_WEBGL,-        pattern COLOR_ATTACHMENT13_WEBGL, pattern COLOR_ATTACHMENT14_WEBGL,-        pattern COLOR_ATTACHMENT15_WEBGL, pattern DRAW_BUFFER0_WEBGL,-        pattern DRAW_BUFFER1_WEBGL, pattern DRAW_BUFFER2_WEBGL,-        pattern DRAW_BUFFER3_WEBGL, pattern DRAW_BUFFER4_WEBGL,-        pattern DRAW_BUFFER5_WEBGL, pattern DRAW_BUFFER6_WEBGL,-        pattern DRAW_BUFFER7_WEBGL, pattern DRAW_BUFFER8_WEBGL,-        pattern DRAW_BUFFER9_WEBGL, pattern DRAW_BUFFER10_WEBGL,-        pattern DRAW_BUFFER11_WEBGL, pattern DRAW_BUFFER12_WEBGL,-        pattern DRAW_BUFFER13_WEBGL, pattern DRAW_BUFFER14_WEBGL,-        pattern DRAW_BUFFER15_WEBGL, pattern MAX_COLOR_ATTACHMENTS_WEBGL,-        pattern MAX_DRAW_BUFFERS_WEBGL, WebGLDrawBuffers,-        castToWebGLDrawBuffers, gTypeWebGLDrawBuffers)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDrawBuffers.drawBuffersWEBGL Mozilla WebGLDrawBuffers.drawBuffersWEBGL documentation> -drawBuffersWEBGL ::-                 (MonadDOM m) => WebGLDrawBuffers -> [GLenum] -> m ()-drawBuffersWEBGL self buffers-  = liftDOM-      (void (self ^. jsf "drawBuffersWEBGL" [toJSVal (array buffers)]))-pattern COLOR_ATTACHMENT0_WEBGL = 36064-pattern COLOR_ATTACHMENT1_WEBGL = 36065-pattern COLOR_ATTACHMENT2_WEBGL = 36066-pattern COLOR_ATTACHMENT3_WEBGL = 36067-pattern COLOR_ATTACHMENT4_WEBGL = 36068-pattern COLOR_ATTACHMENT5_WEBGL = 36069-pattern COLOR_ATTACHMENT6_WEBGL = 36070-pattern COLOR_ATTACHMENT7_WEBGL = 36071-pattern COLOR_ATTACHMENT8_WEBGL = 36072-pattern COLOR_ATTACHMENT9_WEBGL = 36073-pattern COLOR_ATTACHMENT10_WEBGL = 36074-pattern COLOR_ATTACHMENT11_WEBGL = 36075-pattern COLOR_ATTACHMENT12_WEBGL = 36076-pattern COLOR_ATTACHMENT13_WEBGL = 36077-pattern COLOR_ATTACHMENT14_WEBGL = 36078-pattern COLOR_ATTACHMENT15_WEBGL = 36079-pattern DRAW_BUFFER0_WEBGL = 34853-pattern DRAW_BUFFER1_WEBGL = 34854-pattern DRAW_BUFFER2_WEBGL = 34855-pattern DRAW_BUFFER3_WEBGL = 34856-pattern DRAW_BUFFER4_WEBGL = 34857-pattern DRAW_BUFFER5_WEBGL = 34858-pattern DRAW_BUFFER6_WEBGL = 34859-pattern DRAW_BUFFER7_WEBGL = 34860-pattern DRAW_BUFFER8_WEBGL = 34861-pattern DRAW_BUFFER9_WEBGL = 34862-pattern DRAW_BUFFER10_WEBGL = 34863-pattern DRAW_BUFFER11_WEBGL = 34864-pattern DRAW_BUFFER12_WEBGL = 34865-pattern DRAW_BUFFER13_WEBGL = 34866-pattern DRAW_BUFFER14_WEBGL = 34867-pattern DRAW_BUFFER15_WEBGL = 34868-pattern MAX_COLOR_ATTACHMENTS_WEBGL = 36063-pattern MAX_DRAW_BUFFERS_WEBGL = 34852
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLLoseContext.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLLoseContext-       (loseContext, restoreContext, WebGLLoseContext,-        castToWebGLLoseContext, gTypeWebGLLoseContext)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLLoseContext.loseContext Mozilla WebGLLoseContext.loseContext documentation> -loseContext :: (MonadDOM m) => WebGLLoseContext -> m ()-loseContext self = liftDOM (void (self ^. js "loseContext"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLLoseContext.restoreContext Mozilla WebGLLoseContext.restoreContext documentation> -restoreContext :: (MonadDOM m) => WebGLLoseContext -> m ()-restoreContext self = liftDOM (void (self ^. js "restoreContext"))
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLRenderingContextBase.hs 
@@ -1,2093 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLRenderingContextBase-       (activeTexture, attachShader, bindAttribLocation, bindBuffer,-        bindFramebuffer, bindRenderbuffer, bindTexture, blendColor,-        blendEquation, blendEquationSeparate, blendFunc, blendFuncSeparate,-        bufferData, bufferDataView, bufferDataPtr, bufferSubData,-        bufferSubDataView, checkFramebufferStatus, clear, clearColor,-        clearDepth, clearStencil, colorMask, compileShader,-        compressedTexImage2D, compressedTexSubImage2D, copyTexImage2D,-        copyTexSubImage2D, createBuffer, createFramebuffer, createProgram,-        createRenderbuffer, createShader, createTexture, cullFace,-        deleteBuffer, deleteFramebuffer, deleteProgram, deleteRenderbuffer,-        deleteShader, deleteTexture, depthFunc, depthMask, depthRange,-        detachShader, disable, disableVertexAttribArray, drawArrays,-        drawElements, enable, enableVertexAttribArray, finish, flush,-        framebufferRenderbuffer, framebufferTexture2D, frontFace,-        generateMipmap, getActiveAttrib, getActiveUniform,-        getAttachedShaders, getAttribLocation, getBufferParameter,-        getContextAttributes, getError, getExtension,-        getFramebufferAttachmentParameter, getParameter,-        getProgramParameter, getProgramInfoLog, getRenderbufferParameter,-        getShaderParameter, getShaderInfoLog, getShaderPrecisionFormat,-        getShaderSource, getSupportedExtensions, getTexParameter,-        getUniform, getUniformLocation, getVertexAttrib,-        getVertexAttribOffset, hint, isBuffer, isContextLost, isEnabled,-        isFramebuffer, isProgram, isRenderbuffer, isShader, isTexture,-        lineWidth, linkProgram, pixelStorei, polygonOffset, readPixels,-        releaseShaderCompiler, renderbufferStorage, sampleCoverage,-        scissor, shaderSource, stencilFunc, stencilFuncSeparate,-        stencilMask, stencilMaskSeparate, stencilOp, stencilOpSeparate,-        texParameterf, texParameteri, texImage2DView, texImage2DData,-        texImage2D, texImage2DCanvas, texImage2DVideo, texSubImage2DView,-        texSubImage2DData, texSubImage2D, texSubImage2DCanvas,-        texSubImage2DVideo, uniform1f, uniform1fv, uniform1i, uniform1iv,-        uniform2f, uniform2fv, uniform2i, uniform2iv, uniform3f,-        uniform3fv, uniform3i, uniform3iv, uniform4f, uniform4fv,-        uniform4i, uniform4iv, uniformMatrix2fv, uniformMatrix3fv,-        uniformMatrix4fv, useProgram, validateProgram, vertexAttrib1f,-        vertexAttrib1fv, vertexAttrib2f, vertexAttrib2fv, vertexAttrib3f,-        vertexAttrib3fv, vertexAttrib4f, vertexAttrib4fv,-        vertexAttribPointer, viewport, pattern DEPTH_BUFFER_BIT,-        pattern STENCIL_BUFFER_BIT, pattern COLOR_BUFFER_BIT,-        pattern POINTS, pattern LINES, pattern LINE_LOOP,-        pattern LINE_STRIP, pattern TRIANGLES, pattern TRIANGLE_STRIP,-        pattern TRIANGLE_FAN, pattern ZERO, pattern ONE, pattern SRC_COLOR,-        pattern ONE_MINUS_SRC_COLOR, pattern SRC_ALPHA,-        pattern ONE_MINUS_SRC_ALPHA, pattern DST_ALPHA,-        pattern ONE_MINUS_DST_ALPHA, pattern DST_COLOR,-        pattern ONE_MINUS_DST_COLOR, pattern SRC_ALPHA_SATURATE,-        pattern FUNC_ADD, pattern BLEND_EQUATION,-        pattern BLEND_EQUATION_RGB, pattern BLEND_EQUATION_ALPHA,-        pattern FUNC_SUBTRACT, pattern FUNC_REVERSE_SUBTRACT,-        pattern BLEND_DST_RGB, pattern BLEND_SRC_RGB,-        pattern BLEND_DST_ALPHA, pattern BLEND_SRC_ALPHA,-        pattern CONSTANT_COLOR, pattern ONE_MINUS_CONSTANT_COLOR,-        pattern CONSTANT_ALPHA, pattern ONE_MINUS_CONSTANT_ALPHA,-        pattern BLEND_COLOR, pattern ARRAY_BUFFER,-        pattern ELEMENT_ARRAY_BUFFER, pattern ARRAY_BUFFER_BINDING,-        pattern ELEMENT_ARRAY_BUFFER_BINDING, pattern STREAM_DRAW,-        pattern STATIC_DRAW, pattern DYNAMIC_DRAW, pattern BUFFER_SIZE,-        pattern BUFFER_USAGE, pattern CURRENT_VERTEX_ATTRIB, pattern FRONT,-        pattern BACK, pattern FRONT_AND_BACK, pattern TEXTURE_2D,-        pattern CULL_FACE, pattern BLEND, pattern DITHER,-        pattern STENCIL_TEST, pattern DEPTH_TEST, pattern SCISSOR_TEST,-        pattern POLYGON_OFFSET_FILL, pattern SAMPLE_ALPHA_TO_COVERAGE,-        pattern SAMPLE_COVERAGE, pattern NO_ERROR, pattern INVALID_ENUM,-        pattern INVALID_VALUE, pattern INVALID_OPERATION,-        pattern OUT_OF_MEMORY, pattern CW, pattern CCW, pattern LINE_WIDTH,-        pattern ALIASED_POINT_SIZE_RANGE, pattern ALIASED_LINE_WIDTH_RANGE,-        pattern CULL_FACE_MODE, pattern FRONT_FACE, pattern DEPTH_RANGE,-        pattern DEPTH_WRITEMASK, pattern DEPTH_CLEAR_VALUE,-        pattern DEPTH_FUNC, pattern STENCIL_CLEAR_VALUE,-        pattern STENCIL_FUNC, pattern STENCIL_FAIL,-        pattern STENCIL_PASS_DEPTH_FAIL, pattern STENCIL_PASS_DEPTH_PASS,-        pattern STENCIL_REF, pattern STENCIL_VALUE_MASK,-        pattern STENCIL_WRITEMASK, pattern STENCIL_BACK_FUNC,-        pattern STENCIL_BACK_FAIL, pattern STENCIL_BACK_PASS_DEPTH_FAIL,-        pattern STENCIL_BACK_PASS_DEPTH_PASS, pattern STENCIL_BACK_REF,-        pattern STENCIL_BACK_VALUE_MASK, pattern STENCIL_BACK_WRITEMASK,-        pattern VIEWPORT, pattern SCISSOR_BOX, pattern COLOR_CLEAR_VALUE,-        pattern COLOR_WRITEMASK, pattern UNPACK_ALIGNMENT,-        pattern PACK_ALIGNMENT, pattern MAX_TEXTURE_SIZE,-        pattern MAX_VIEWPORT_DIMS, pattern SUBPIXEL_BITS, pattern RED_BITS,-        pattern GREEN_BITS, pattern BLUE_BITS, pattern ALPHA_BITS,-        pattern DEPTH_BITS, pattern STENCIL_BITS,-        pattern POLYGON_OFFSET_UNITS, pattern POLYGON_OFFSET_FACTOR,-        pattern TEXTURE_BINDING_2D, pattern SAMPLE_BUFFERS,-        pattern SAMPLES, pattern SAMPLE_COVERAGE_VALUE,-        pattern SAMPLE_COVERAGE_INVERT, pattern COMPRESSED_TEXTURE_FORMATS,-        pattern DONT_CARE, pattern FASTEST, pattern NICEST,-        pattern GENERATE_MIPMAP_HINT, pattern BYTE, pattern UNSIGNED_BYTE,-        pattern SHORT, pattern UNSIGNED_SHORT, pattern INT,-        pattern UNSIGNED_INT, pattern FLOAT, pattern DEPTH_COMPONENT,-        pattern ALPHA, pattern RGB, pattern RGBA, pattern LUMINANCE,-        pattern LUMINANCE_ALPHA, pattern UNSIGNED_SHORT_4_4_4_4,-        pattern UNSIGNED_SHORT_5_5_5_1, pattern UNSIGNED_SHORT_5_6_5,-        pattern FRAGMENT_SHADER, pattern VERTEX_SHADER,-        pattern MAX_VERTEX_ATTRIBS, pattern MAX_VERTEX_UNIFORM_VECTORS,-        pattern MAX_VARYING_VECTORS,-        pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS,-        pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS,-        pattern MAX_TEXTURE_IMAGE_UNITS,-        pattern MAX_FRAGMENT_UNIFORM_VECTORS, pattern SHADER_TYPE,-        pattern DELETE_STATUS, pattern LINK_STATUS,-        pattern VALIDATE_STATUS, pattern ATTACHED_SHADERS,-        pattern ACTIVE_UNIFORMS, pattern ACTIVE_ATTRIBUTES,-        pattern SHADING_LANGUAGE_VERSION, pattern CURRENT_PROGRAM,-        pattern NEVER, pattern LESS, pattern EQUAL, pattern LEQUAL,-        pattern GREATER, pattern NOTEQUAL, pattern GEQUAL, pattern ALWAYS,-        pattern KEEP, pattern REPLACE, pattern INCR, pattern DECR,-        pattern INVERT, pattern INCR_WRAP, pattern DECR_WRAP,-        pattern VENDOR, pattern RENDERER, pattern VERSION, pattern NEAREST,-        pattern LINEAR, pattern NEAREST_MIPMAP_NEAREST,-        pattern LINEAR_MIPMAP_NEAREST, pattern NEAREST_MIPMAP_LINEAR,-        pattern LINEAR_MIPMAP_LINEAR, pattern TEXTURE_MAG_FILTER,-        pattern TEXTURE_MIN_FILTER, pattern TEXTURE_WRAP_S,-        pattern TEXTURE_WRAP_T, pattern TEXTURE, pattern TEXTURE_CUBE_MAP,-        pattern TEXTURE_BINDING_CUBE_MAP,-        pattern TEXTURE_CUBE_MAP_POSITIVE_X,-        pattern TEXTURE_CUBE_MAP_NEGATIVE_X,-        pattern TEXTURE_CUBE_MAP_POSITIVE_Y,-        pattern TEXTURE_CUBE_MAP_NEGATIVE_Y,-        pattern TEXTURE_CUBE_MAP_POSITIVE_Z,-        pattern TEXTURE_CUBE_MAP_NEGATIVE_Z,-        pattern MAX_CUBE_MAP_TEXTURE_SIZE, pattern TEXTURE0,-        pattern TEXTURE1, pattern TEXTURE2, pattern TEXTURE3,-        pattern TEXTURE4, pattern TEXTURE5, pattern TEXTURE6,-        pattern TEXTURE7, pattern TEXTURE8, pattern TEXTURE9,-        pattern TEXTURE10, pattern TEXTURE11, pattern TEXTURE12,-        pattern TEXTURE13, pattern TEXTURE14, pattern TEXTURE15,-        pattern TEXTURE16, pattern TEXTURE17, pattern TEXTURE18,-        pattern TEXTURE19, pattern TEXTURE20, pattern TEXTURE21,-        pattern TEXTURE22, pattern TEXTURE23, pattern TEXTURE24,-        pattern TEXTURE25, pattern TEXTURE26, pattern TEXTURE27,-        pattern TEXTURE28, pattern TEXTURE29, pattern TEXTURE30,-        pattern TEXTURE31, pattern ACTIVE_TEXTURE, pattern REPEAT,-        pattern CLAMP_TO_EDGE, pattern MIRRORED_REPEAT, pattern FLOAT_VEC2,-        pattern FLOAT_VEC3, pattern FLOAT_VEC4, pattern INT_VEC2,-        pattern INT_VEC3, pattern INT_VEC4, pattern BOOL,-        pattern BOOL_VEC2, pattern BOOL_VEC3, pattern BOOL_VEC4,-        pattern FLOAT_MAT2, pattern FLOAT_MAT3, pattern FLOAT_MAT4,-        pattern SAMPLER_2D, pattern SAMPLER_CUBE,-        pattern VERTEX_ATTRIB_ARRAY_ENABLED,-        pattern VERTEX_ATTRIB_ARRAY_SIZE,-        pattern VERTEX_ATTRIB_ARRAY_STRIDE,-        pattern VERTEX_ATTRIB_ARRAY_TYPE,-        pattern VERTEX_ATTRIB_ARRAY_NORMALIZED,-        pattern VERTEX_ATTRIB_ARRAY_POINTER,-        pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING,-        pattern IMPLEMENTATION_COLOR_READ_TYPE,-        pattern IMPLEMENTATION_COLOR_READ_FORMAT, pattern COMPILE_STATUS,-        pattern LOW_FLOAT, pattern MEDIUM_FLOAT, pattern HIGH_FLOAT,-        pattern LOW_INT, pattern MEDIUM_INT, pattern HIGH_INT,-        pattern FRAMEBUFFER, pattern RENDERBUFFER, pattern RGBA4,-        pattern RGB5_A1, pattern RGB565, pattern DEPTH_COMPONENT16,-        pattern STENCIL_INDEX, pattern STENCIL_INDEX8,-        pattern DEPTH_STENCIL, pattern RENDERBUFFER_WIDTH,-        pattern RENDERBUFFER_HEIGHT, pattern RENDERBUFFER_INTERNAL_FORMAT,-        pattern RENDERBUFFER_RED_SIZE, pattern RENDERBUFFER_GREEN_SIZE,-        pattern RENDERBUFFER_BLUE_SIZE, pattern RENDERBUFFER_ALPHA_SIZE,-        pattern RENDERBUFFER_DEPTH_SIZE, pattern RENDERBUFFER_STENCIL_SIZE,-        pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE,-        pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME,-        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL,-        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE,-        pattern COLOR_ATTACHMENT0, pattern DEPTH_ATTACHMENT,-        pattern STENCIL_ATTACHMENT, pattern DEPTH_STENCIL_ATTACHMENT,-        pattern NONE, pattern FRAMEBUFFER_COMPLETE,-        pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT,-        pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT,-        pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS,-        pattern FRAMEBUFFER_UNSUPPORTED, pattern FRAMEBUFFER_BINDING,-        pattern RENDERBUFFER_BINDING, pattern MAX_RENDERBUFFER_SIZE,-        pattern INVALID_FRAMEBUFFER_OPERATION, pattern UNPACK_FLIP_Y_WEBGL,-        pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL, pattern CONTEXT_LOST_WEBGL,-        pattern UNPACK_COLORSPACE_CONVERSION_WEBGL,-        pattern BROWSER_DEFAULT_WEBGL, getDrawingBufferWidth,-        getDrawingBufferHeight, WebGLRenderingContextBase,-        castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase,-        IsWebGLRenderingContextBase, toWebGLRenderingContextBase)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.activeTexture Mozilla WebGLRenderingContextBase.activeTexture documentation> -activeTexture ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> GLenum -> m ()-activeTexture self texture-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "activeTexture"-            [toJSVal texture]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.attachShader Mozilla WebGLRenderingContextBase.attachShader documentation> -attachShader ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> Maybe WebGLProgram -> Maybe WebGLShader -> m ()-attachShader self program shader-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "attachShader"-            [toJSVal program, toJSVal shader]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindAttribLocation Mozilla WebGLRenderingContextBase.bindAttribLocation documentation> -bindAttribLocation ::-                   (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>-                     self -> Maybe WebGLProgram -> GLuint -> name -> m ()-bindAttribLocation self program index name-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bindAttribLocation"-            [toJSVal program, toJSVal index, toJSVal name]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindBuffer Mozilla WebGLRenderingContextBase.bindBuffer documentation> -bindBuffer ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> GLenum -> Maybe WebGLBuffer -> m ()-bindBuffer self target buffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bindBuffer"-            [toJSVal target, toJSVal buffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindFramebuffer Mozilla WebGLRenderingContextBase.bindFramebuffer documentation> -bindFramebuffer ::-                (MonadDOM m, IsWebGLRenderingContextBase self) =>-                  self -> GLenum -> Maybe WebGLFramebuffer -> m ()-bindFramebuffer self target framebuffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bindFramebuffer"-            [toJSVal target, toJSVal framebuffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindRenderbuffer Mozilla WebGLRenderingContextBase.bindRenderbuffer documentation> -bindRenderbuffer ::-                 (MonadDOM m, IsWebGLRenderingContextBase self) =>-                   self -> GLenum -> Maybe WebGLRenderbuffer -> m ()-bindRenderbuffer self target renderbuffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bindRenderbuffer"-            [toJSVal target, toJSVal renderbuffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bindTexture Mozilla WebGLRenderingContextBase.bindTexture documentation> -bindTexture ::-            (MonadDOM m, IsWebGLRenderingContextBase self) =>-              self -> GLenum -> Maybe WebGLTexture -> m ()-bindTexture self target texture-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bindTexture"-            [toJSVal target, toJSVal texture]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendColor Mozilla WebGLRenderingContextBase.blendColor documentation> -blendColor ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m ()-blendColor self red green blue alpha-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "blendColor"-            [toJSVal red, toJSVal green, toJSVal blue, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendEquation Mozilla WebGLRenderingContextBase.blendEquation documentation> -blendEquation ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> GLenum -> m ()-blendEquation self mode-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "blendEquation"-            [toJSVal mode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendEquationSeparate Mozilla WebGLRenderingContextBase.blendEquationSeparate documentation> -blendEquationSeparate ::-                      (MonadDOM m, IsWebGLRenderingContextBase self) =>-                        self -> GLenum -> GLenum -> m ()-blendEquationSeparate self modeRGB modeAlpha-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "blendEquationSeparate"-            [toJSVal modeRGB, toJSVal modeAlpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendFunc Mozilla WebGLRenderingContextBase.blendFunc documentation> -blendFunc ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLenum -> GLenum -> m ()-blendFunc self sfactor dfactor-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "blendFunc"-            [toJSVal sfactor, toJSVal dfactor]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.blendFuncSeparate Mozilla WebGLRenderingContextBase.blendFuncSeparate documentation> -blendFuncSeparate ::-                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                    self -> GLenum -> GLenum -> GLenum -> GLenum -> m ()-blendFuncSeparate self srcRGB dstRGB srcAlpha dstAlpha-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "blendFuncSeparate"-            [toJSVal srcRGB, toJSVal dstRGB, toJSVal srcAlpha,-             toJSVal dstAlpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferData Mozilla WebGLRenderingContextBase.bufferData documentation> -bufferData ::-           (MonadDOM m, IsWebGLRenderingContextBase self,-            IsArrayBuffer data') =>-             self -> GLenum -> Maybe data' -> GLenum -> m ()-bufferData self target data' usage-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bufferData"-            [toJSVal target, toJSVal data', toJSVal usage]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferData Mozilla WebGLRenderingContextBase.bufferData documentation> -bufferDataView ::-               (MonadDOM m, IsWebGLRenderingContextBase self,-                IsArrayBufferView data') =>-                 self -> GLenum -> Maybe data' -> GLenum -> m ()-bufferDataView self target data' usage-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bufferData"-            [toJSVal target, toJSVal data', toJSVal usage]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferData Mozilla WebGLRenderingContextBase.bufferData documentation> -bufferDataPtr ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> GLenum -> GLsizeiptr -> GLenum -> m ()-bufferDataPtr self target size usage-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bufferData"-            [toJSVal target, toJSVal size, toJSVal usage]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferSubData Mozilla WebGLRenderingContextBase.bufferSubData documentation> -bufferSubData ::-              (MonadDOM m, IsWebGLRenderingContextBase self,-               IsArrayBuffer data') =>-                self -> GLenum -> GLintptr -> Maybe data' -> m ()-bufferSubData self target offset data'-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bufferSubData"-            [toJSVal target, toJSVal offset, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.bufferSubData Mozilla WebGLRenderingContextBase.bufferSubData documentation> -bufferSubDataView ::-                  (MonadDOM m, IsWebGLRenderingContextBase self,-                   IsArrayBufferView data') =>-                    self -> GLenum -> GLintptr -> Maybe data' -> m ()-bufferSubDataView self target offset data'-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "bufferSubData"-            [toJSVal target, toJSVal offset, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.checkFramebufferStatus Mozilla WebGLRenderingContextBase.checkFramebufferStatus documentation> -checkFramebufferStatus ::-                       (MonadDOM m, IsWebGLRenderingContextBase self) =>-                         self -> GLenum -> m GLenum-checkFramebufferStatus self target-  = liftDOM-      (((toWebGLRenderingContextBase self) ^.-          jsf "checkFramebufferStatus"-          [toJSVal target])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clear Mozilla WebGLRenderingContextBase.clear documentation> -clear ::-      (MonadDOM m, IsWebGLRenderingContextBase self) =>-        self -> GLbitfield -> m ()-clear self mask-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "clear" [toJSVal mask]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clearColor Mozilla WebGLRenderingContextBase.clearColor documentation> -clearColor ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m ()-clearColor self red green blue alpha-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "clearColor"-            [toJSVal red, toJSVal green, toJSVal blue, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clearDepth Mozilla WebGLRenderingContextBase.clearDepth documentation> -clearDepth ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> GLclampf -> m ()-clearDepth self depth-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "clearDepth"-            [toJSVal depth]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.clearStencil Mozilla WebGLRenderingContextBase.clearStencil documentation> -clearStencil ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> GLint -> m ()-clearStencil self s-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "clearStencil"-            [toJSVal s]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.colorMask Mozilla WebGLRenderingContextBase.colorMask documentation> -colorMask ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLboolean -> GLboolean -> GLboolean -> GLboolean -> m ()-colorMask self red green blue alpha-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "colorMask"-            [toJSVal red, toJSVal green, toJSVal blue, toJSVal alpha]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.compileShader Mozilla WebGLRenderingContextBase.compileShader documentation> -compileShader ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> Maybe WebGLShader -> m ()-compileShader self shader-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "compileShader"-            [toJSVal shader]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.compressedTexImage2D Mozilla WebGLRenderingContextBase.compressedTexImage2D documentation> -compressedTexImage2D ::-                     (MonadDOM m, IsWebGLRenderingContextBase self,-                      IsArrayBufferView data') =>-                       self ->-                         GLenum ->-                           GLint ->-                             GLenum -> GLsizei -> GLsizei -> GLint -> Maybe data' -> m ()-compressedTexImage2D self target level internalformat width height-  border data'-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "compressedTexImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal width, toJSVal height, toJSVal border, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.compressedTexSubImage2D Mozilla WebGLRenderingContextBase.compressedTexSubImage2D documentation> -compressedTexSubImage2D ::-                        (MonadDOM m, IsWebGLRenderingContextBase self,-                         IsArrayBufferView data') =>-                          self ->-                            GLenum ->-                              GLint ->-                                GLint ->-                                  GLint -> GLsizei -> GLsizei -> GLenum -> Maybe data' -> m ()-compressedTexSubImage2D self target level xoffset yoffset width-  height format data'-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^.-            jsf "compressedTexSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal width, toJSVal height, toJSVal format, toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.copyTexImage2D Mozilla WebGLRenderingContextBase.copyTexImage2D documentation> -copyTexImage2D ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self ->-                   GLenum ->-                     GLint ->-                       GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> m ()-copyTexImage2D self target level internalformat x y width height-  border-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "copyTexImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat, toJSVal x,-             toJSVal y, toJSVal width, toJSVal height, toJSVal border]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.copyTexSubImage2D Mozilla WebGLRenderingContextBase.copyTexSubImage2D documentation> -copyTexSubImage2D ::-                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                    self ->-                      GLenum ->-                        GLint ->-                          GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m ()-copyTexSubImage2D self target level xoffset yoffset x y width-  height-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "copyTexSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createBuffer Mozilla WebGLRenderingContextBase.createBuffer documentation> -createBuffer ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> m (Maybe WebGLBuffer)-createBuffer self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "createBuffer") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createFramebuffer Mozilla WebGLRenderingContextBase.createFramebuffer documentation> -createFramebuffer ::-                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                    self -> m (Maybe WebGLFramebuffer)-createFramebuffer self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "createFramebuffer") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createProgram Mozilla WebGLRenderingContextBase.createProgram documentation> -createProgram ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> m (Maybe WebGLProgram)-createProgram self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "createProgram") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createRenderbuffer Mozilla WebGLRenderingContextBase.createRenderbuffer documentation> -createRenderbuffer ::-                   (MonadDOM m, IsWebGLRenderingContextBase self) =>-                     self -> m (Maybe WebGLRenderbuffer)-createRenderbuffer self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "createRenderbuffer")-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createShader Mozilla WebGLRenderingContextBase.createShader documentation> -createShader ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> GLenum -> m (Maybe WebGLShader)-createShader self type'-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "createShader"-          [toJSVal type'])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.createTexture Mozilla WebGLRenderingContextBase.createTexture documentation> -createTexture ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> m (Maybe WebGLTexture)-createTexture self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "createTexture") >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.cullFace Mozilla WebGLRenderingContextBase.cullFace documentation> -cullFace ::-         (MonadDOM m, IsWebGLRenderingContextBase self) =>-           self -> GLenum -> m ()-cullFace self mode-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "cullFace"-            [toJSVal mode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteBuffer Mozilla WebGLRenderingContextBase.deleteBuffer documentation> -deleteBuffer ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> Maybe WebGLBuffer -> m ()-deleteBuffer self buffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "deleteBuffer"-            [toJSVal buffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteFramebuffer Mozilla WebGLRenderingContextBase.deleteFramebuffer documentation> -deleteFramebuffer ::-                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                    self -> Maybe WebGLFramebuffer -> m ()-deleteFramebuffer self framebuffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "deleteFramebuffer"-            [toJSVal framebuffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteProgram Mozilla WebGLRenderingContextBase.deleteProgram documentation> -deleteProgram ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> Maybe WebGLProgram -> m ()-deleteProgram self program-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "deleteProgram"-            [toJSVal program]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteRenderbuffer Mozilla WebGLRenderingContextBase.deleteRenderbuffer documentation> -deleteRenderbuffer ::-                   (MonadDOM m, IsWebGLRenderingContextBase self) =>-                     self -> Maybe WebGLRenderbuffer -> m ()-deleteRenderbuffer self renderbuffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "deleteRenderbuffer"-            [toJSVal renderbuffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteShader Mozilla WebGLRenderingContextBase.deleteShader documentation> -deleteShader ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> Maybe WebGLShader -> m ()-deleteShader self shader-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "deleteShader"-            [toJSVal shader]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.deleteTexture Mozilla WebGLRenderingContextBase.deleteTexture documentation> -deleteTexture ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> Maybe WebGLTexture -> m ()-deleteTexture self texture-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "deleteTexture"-            [toJSVal texture]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.depthFunc Mozilla WebGLRenderingContextBase.depthFunc documentation> -depthFunc ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLenum -> m ()-depthFunc self func-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "depthFunc"-            [toJSVal func]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.depthMask Mozilla WebGLRenderingContextBase.depthMask documentation> -depthMask ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLboolean -> m ()-depthMask self flag-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "depthMask"-            [toJSVal flag]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.depthRange Mozilla WebGLRenderingContextBase.depthRange documentation> -depthRange ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> GLclampf -> GLclampf -> m ()-depthRange self zNear zFar-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "depthRange"-            [toJSVal zNear, toJSVal zFar]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.detachShader Mozilla WebGLRenderingContextBase.detachShader documentation> -detachShader ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> Maybe WebGLProgram -> Maybe WebGLShader -> m ()-detachShader self program shader-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "detachShader"-            [toJSVal program, toJSVal shader]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.disable Mozilla WebGLRenderingContextBase.disable documentation> -disable ::-        (MonadDOM m, IsWebGLRenderingContextBase self) =>-          self -> GLenum -> m ()-disable self cap-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "disable"-            [toJSVal cap]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.disableVertexAttribArray Mozilla WebGLRenderingContextBase.disableVertexAttribArray documentation> -disableVertexAttribArray ::-                         (MonadDOM m, IsWebGLRenderingContextBase self) =>-                           self -> GLuint -> m ()-disableVertexAttribArray self index-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^.-            jsf "disableVertexAttribArray"-            [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawArrays Mozilla WebGLRenderingContextBase.drawArrays documentation> -drawArrays ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> GLenum -> GLint -> GLsizei -> m ()-drawArrays self mode first count-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "drawArrays"-            [toJSVal mode, toJSVal first, toJSVal count]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawElements Mozilla WebGLRenderingContextBase.drawElements documentation> -drawElements ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> GLenum -> GLsizei -> GLenum -> GLintptr -> m ()-drawElements self mode count type' offset-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "drawElements"-            [toJSVal mode, toJSVal count, toJSVal type', toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.enable Mozilla WebGLRenderingContextBase.enable documentation> -enable ::-       (MonadDOM m, IsWebGLRenderingContextBase self) =>-         self -> GLenum -> m ()-enable self cap-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "enable" [toJSVal cap]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.enableVertexAttribArray Mozilla WebGLRenderingContextBase.enableVertexAttribArray documentation> -enableVertexAttribArray ::-                        (MonadDOM m, IsWebGLRenderingContextBase self) =>-                          self -> GLuint -> m ()-enableVertexAttribArray self index-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^.-            jsf "enableVertexAttribArray"-            [toJSVal index]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.finish Mozilla WebGLRenderingContextBase.finish documentation> -finish ::-       (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m ()-finish self-  = liftDOM-      (void ((toWebGLRenderingContextBase self) ^. js "finish"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.flush Mozilla WebGLRenderingContextBase.flush documentation> -flush ::-      (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m ()-flush self-  = liftDOM (void ((toWebGLRenderingContextBase self) ^. js "flush"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.framebufferRenderbuffer Mozilla WebGLRenderingContextBase.framebufferRenderbuffer documentation> -framebufferRenderbuffer ::-                        (MonadDOM m, IsWebGLRenderingContextBase self) =>-                          self ->-                            GLenum -> GLenum -> GLenum -> Maybe WebGLRenderbuffer -> m ()-framebufferRenderbuffer self target attachment renderbuffertarget-  renderbuffer-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^.-            jsf "framebufferRenderbuffer"-            [toJSVal target, toJSVal attachment, toJSVal renderbuffertarget,-             toJSVal renderbuffer]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.framebufferTexture2D Mozilla WebGLRenderingContextBase.framebufferTexture2D documentation> -framebufferTexture2D ::-                     (MonadDOM m, IsWebGLRenderingContextBase self) =>-                       self ->-                         GLenum -> GLenum -> GLenum -> Maybe WebGLTexture -> GLint -> m ()-framebufferTexture2D self target attachment textarget texture level-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "framebufferTexture2D"-            [toJSVal target, toJSVal attachment, toJSVal textarget,-             toJSVal texture, toJSVal level]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.frontFace Mozilla WebGLRenderingContextBase.frontFace documentation> -frontFace ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLenum -> m ()-frontFace self mode-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "frontFace"-            [toJSVal mode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.generateMipmap Mozilla WebGLRenderingContextBase.generateMipmap documentation> -generateMipmap ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> GLenum -> m ()-generateMipmap self target-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "generateMipmap"-            [toJSVal target]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getActiveAttrib Mozilla WebGLRenderingContextBase.getActiveAttrib documentation> -getActiveAttrib ::-                (MonadDOM m, IsWebGLRenderingContextBase self) =>-                  self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo)-getActiveAttrib self program index-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getActiveAttrib"-          [toJSVal program, toJSVal index])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getActiveUniform Mozilla WebGLRenderingContextBase.getActiveUniform documentation> -getActiveUniform ::-                 (MonadDOM m, IsWebGLRenderingContextBase self) =>-                   self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo)-getActiveUniform self program index-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getActiveUniform"-          [toJSVal program, toJSVal index])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getAttachedShaders Mozilla WebGLRenderingContextBase.getAttachedShaders documentation> -getAttachedShaders ::-                   (MonadDOM m, IsWebGLRenderingContextBase self) =>-                     self -> Maybe WebGLProgram -> m ()-getAttachedShaders self program-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "getAttachedShaders"-            [toJSVal program]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getAttribLocation Mozilla WebGLRenderingContextBase.getAttribLocation documentation> -getAttribLocation ::-                  (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>-                    self -> Maybe WebGLProgram -> name -> m GLint-getAttribLocation self program name-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getAttribLocation"-          [toJSVal program, toJSVal name])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getBufferParameter Mozilla WebGLRenderingContextBase.getBufferParameter documentation> -getBufferParameter ::-                   (MonadDOM m, IsWebGLRenderingContextBase self) =>-                     self -> GLenum -> GLenum -> m JSVal-getBufferParameter self target pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getBufferParameter"-          [toJSVal target, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getContextAttributes Mozilla WebGLRenderingContextBase.getContextAttributes documentation> -getContextAttributes ::-                     (MonadDOM m, IsWebGLRenderingContextBase self) =>-                       self -> m (Maybe WebGLContextAttributes)-getContextAttributes self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "getContextAttributes")-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getError Mozilla WebGLRenderingContextBase.getError documentation> -getError ::-         (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLenum-getError self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "getError") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getExtension Mozilla WebGLRenderingContextBase.getExtension documentation> -getExtension ::-             (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>-               self -> name -> m JSVal-getExtension self name-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getExtension"-          [toJSVal name])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getFramebufferAttachmentParameter Mozilla WebGLRenderingContextBase.getFramebufferAttachmentParameter documentation> -getFramebufferAttachmentParameter ::-                                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                                    self -> GLenum -> GLenum -> GLenum -> m JSVal-getFramebufferAttachmentParameter self target attachment pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^.-          jsf "getFramebufferAttachmentParameter"-          [toJSVal target, toJSVal attachment, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getParameter Mozilla WebGLRenderingContextBase.getParameter documentation> -getParameter ::-             (MonadDOM m, IsWebGLRenderingContextBase self) =>-               self -> GLenum -> m JSVal-getParameter self pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getParameter"-          [toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getProgramParameter Mozilla WebGLRenderingContextBase.getProgramParameter documentation> -getProgramParameter ::-                    (MonadDOM m, IsWebGLRenderingContextBase self) =>-                      self -> Maybe WebGLProgram -> GLenum -> m JSVal-getProgramParameter self program pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getProgramParameter"-          [toJSVal program, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getProgramInfoLog Mozilla WebGLRenderingContextBase.getProgramInfoLog documentation> -getProgramInfoLog ::-                  (MonadDOM m, IsWebGLRenderingContextBase self,-                   FromJSString result) =>-                    self -> Maybe WebGLProgram -> m (Maybe result)-getProgramInfoLog self program-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getProgramInfoLog"-          [toJSVal program])-         >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getRenderbufferParameter Mozilla WebGLRenderingContextBase.getRenderbufferParameter documentation> -getRenderbufferParameter ::-                         (MonadDOM m, IsWebGLRenderingContextBase self) =>-                           self -> GLenum -> GLenum -> m JSVal-getRenderbufferParameter self target pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^.-          jsf "getRenderbufferParameter"-          [toJSVal target, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderParameter Mozilla WebGLRenderingContextBase.getShaderParameter documentation> -getShaderParameter ::-                   (MonadDOM m, IsWebGLRenderingContextBase self) =>-                     self -> Maybe WebGLShader -> GLenum -> m JSVal-getShaderParameter self shader pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getShaderParameter"-          [toJSVal shader, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderInfoLog Mozilla WebGLRenderingContextBase.getShaderInfoLog documentation> -getShaderInfoLog ::-                 (MonadDOM m, IsWebGLRenderingContextBase self,-                  FromJSString result) =>-                   self -> Maybe WebGLShader -> m (Maybe result)-getShaderInfoLog self shader-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getShaderInfoLog"-          [toJSVal shader])-         >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderPrecisionFormat Mozilla WebGLRenderingContextBase.getShaderPrecisionFormat documentation> -getShaderPrecisionFormat ::-                         (MonadDOM m, IsWebGLRenderingContextBase self) =>-                           self -> GLenum -> GLenum -> m (Maybe WebGLShaderPrecisionFormat)-getShaderPrecisionFormat self shadertype precisiontype-  = liftDOM-      (((toWebGLRenderingContextBase self) ^.-          jsf "getShaderPrecisionFormat"-          [toJSVal shadertype, toJSVal precisiontype])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getShaderSource Mozilla WebGLRenderingContextBase.getShaderSource documentation> -getShaderSource ::-                (MonadDOM m, IsWebGLRenderingContextBase self,-                 FromJSString result) =>-                  self -> Maybe WebGLShader -> m (Maybe result)-getShaderSource self shader-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getShaderSource"-          [toJSVal shader])-         >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getSupportedExtensions Mozilla WebGLRenderingContextBase.getSupportedExtensions documentation> -getSupportedExtensions ::-                       (MonadDOM m, IsWebGLRenderingContextBase self,-                        FromJSString result) =>-                         self -> m [result]-getSupportedExtensions self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^.-          js "getSupportedExtensions")-         >>= fromJSArrayUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getTexParameter Mozilla WebGLRenderingContextBase.getTexParameter documentation> -getTexParameter ::-                (MonadDOM m, IsWebGLRenderingContextBase self) =>-                  self -> GLenum -> GLenum -> m JSVal-getTexParameter self target pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getTexParameter"-          [toJSVal target, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getUniform Mozilla WebGLRenderingContextBase.getUniform documentation> -getUniform ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> Maybe WebGLProgram -> Maybe WebGLUniformLocation -> m JSVal-getUniform self program location-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getUniform"-          [toJSVal program, toJSVal location])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getUniformLocation Mozilla WebGLRenderingContextBase.getUniformLocation documentation> -getUniformLocation ::-                   (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) =>-                     self ->-                       Maybe WebGLProgram -> name -> m (Maybe WebGLUniformLocation)-getUniformLocation self program name-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getUniformLocation"-          [toJSVal program, toJSVal name])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getVertexAttrib Mozilla WebGLRenderingContextBase.getVertexAttrib documentation> -getVertexAttrib ::-                (MonadDOM m, IsWebGLRenderingContextBase self) =>-                  self -> GLuint -> GLenum -> m JSVal-getVertexAttrib self index pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getVertexAttrib"-          [toJSVal index, toJSVal pname])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.getVertexAttribOffset Mozilla WebGLRenderingContextBase.getVertexAttribOffset documentation> -getVertexAttribOffset ::-                      (MonadDOM m, IsWebGLRenderingContextBase self) =>-                        self -> GLuint -> GLenum -> m GLsizeiptr-getVertexAttribOffset self index pname-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "getVertexAttribOffset"-          [toJSVal index, toJSVal pname])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.hint Mozilla WebGLRenderingContextBase.hint documentation> -hint ::-     (MonadDOM m, IsWebGLRenderingContextBase self) =>-       self -> GLenum -> GLenum -> m ()-hint self target mode-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "hint"-            [toJSVal target, toJSVal mode]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isBuffer Mozilla WebGLRenderingContextBase.isBuffer documentation> -isBuffer ::-         (MonadDOM m, IsWebGLRenderingContextBase self) =>-           self -> Maybe WebGLBuffer -> m GLboolean-isBuffer self buffer-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isBuffer"-          [toJSVal buffer])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isContextLost Mozilla WebGLRenderingContextBase.isContextLost documentation> -isContextLost ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> m GLboolean-isContextLost self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "isContextLost") >>=-         fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isEnabled Mozilla WebGLRenderingContextBase.isEnabled documentation> -isEnabled ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLenum -> m GLboolean-isEnabled self cap-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isEnabled"-          [toJSVal cap])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isFramebuffer Mozilla WebGLRenderingContextBase.isFramebuffer documentation> -isFramebuffer ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> Maybe WebGLFramebuffer -> m GLboolean-isFramebuffer self framebuffer-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isFramebuffer"-          [toJSVal framebuffer])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isProgram Mozilla WebGLRenderingContextBase.isProgram documentation> -isProgram ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> Maybe WebGLProgram -> m GLboolean-isProgram self program-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isProgram"-          [toJSVal program])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isRenderbuffer Mozilla WebGLRenderingContextBase.isRenderbuffer documentation> -isRenderbuffer ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> Maybe WebGLRenderbuffer -> m GLboolean-isRenderbuffer self renderbuffer-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isRenderbuffer"-          [toJSVal renderbuffer])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isShader Mozilla WebGLRenderingContextBase.isShader documentation> -isShader ::-         (MonadDOM m, IsWebGLRenderingContextBase self) =>-           self -> Maybe WebGLShader -> m GLboolean-isShader self shader-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isShader"-          [toJSVal shader])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.isTexture Mozilla WebGLRenderingContextBase.isTexture documentation> -isTexture ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> Maybe WebGLTexture -> m GLboolean-isTexture self texture-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. jsf "isTexture"-          [toJSVal texture])-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.lineWidth Mozilla WebGLRenderingContextBase.lineWidth documentation> -lineWidth ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLfloat -> m ()-lineWidth self width-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "lineWidth"-            [toJSVal width]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.linkProgram Mozilla WebGLRenderingContextBase.linkProgram documentation> -linkProgram ::-            (MonadDOM m, IsWebGLRenderingContextBase self) =>-              self -> Maybe WebGLProgram -> m ()-linkProgram self program-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "linkProgram"-            [toJSVal program]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.pixelStorei Mozilla WebGLRenderingContextBase.pixelStorei documentation> -pixelStorei ::-            (MonadDOM m, IsWebGLRenderingContextBase self) =>-              self -> GLenum -> GLint -> m ()-pixelStorei self pname param-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "pixelStorei"-            [toJSVal pname, toJSVal param]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.polygonOffset Mozilla WebGLRenderingContextBase.polygonOffset documentation> -polygonOffset ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> GLfloat -> GLfloat -> m ()-polygonOffset self factor units-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "polygonOffset"-            [toJSVal factor, toJSVal units]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.readPixels Mozilla WebGLRenderingContextBase.readPixels documentation> -readPixels ::-           (MonadDOM m, IsWebGLRenderingContextBase self,-            IsArrayBufferView pixels) =>-             self ->-               GLint ->-                 GLint ->-                   GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()-readPixels self x y width height format type' pixels-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "readPixels"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height,-             toJSVal format, toJSVal type', toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.releaseShaderCompiler Mozilla WebGLRenderingContextBase.releaseShaderCompiler documentation> -releaseShaderCompiler ::-                      (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m ()-releaseShaderCompiler self-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. js "releaseShaderCompiler"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.renderbufferStorage Mozilla WebGLRenderingContextBase.renderbufferStorage documentation> -renderbufferStorage ::-                    (MonadDOM m, IsWebGLRenderingContextBase self) =>-                      self -> GLenum -> GLenum -> GLsizei -> GLsizei -> m ()-renderbufferStorage self target internalformat width height-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "renderbufferStorage"-            [toJSVal target, toJSVal internalformat, toJSVal width,-             toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.sampleCoverage Mozilla WebGLRenderingContextBase.sampleCoverage documentation> -sampleCoverage ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> GLclampf -> GLboolean -> m ()-sampleCoverage self value invert-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "sampleCoverage"-            [toJSVal value, toJSVal invert]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.scissor Mozilla WebGLRenderingContextBase.scissor documentation> -scissor ::-        (MonadDOM m, IsWebGLRenderingContextBase self) =>-          self -> GLint -> GLint -> GLsizei -> GLsizei -> m ()-scissor self x y width height-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "scissor"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.shaderSource Mozilla WebGLRenderingContextBase.shaderSource documentation> -shaderSource ::-             (MonadDOM m, IsWebGLRenderingContextBase self,-              ToJSString string) =>-               self -> Maybe WebGLShader -> string -> m ()-shaderSource self shader string-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "shaderSource"-            [toJSVal shader, toJSVal string]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilFunc Mozilla WebGLRenderingContextBase.stencilFunc documentation> -stencilFunc ::-            (MonadDOM m, IsWebGLRenderingContextBase self) =>-              self -> GLenum -> GLint -> GLuint -> m ()-stencilFunc self func ref mask-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "stencilFunc"-            [toJSVal func, toJSVal ref, toJSVal mask]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilFuncSeparate Mozilla WebGLRenderingContextBase.stencilFuncSeparate documentation> -stencilFuncSeparate ::-                    (MonadDOM m, IsWebGLRenderingContextBase self) =>-                      self -> GLenum -> GLenum -> GLint -> GLuint -> m ()-stencilFuncSeparate self face func ref mask-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "stencilFuncSeparate"-            [toJSVal face, toJSVal func, toJSVal ref, toJSVal mask]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilMask Mozilla WebGLRenderingContextBase.stencilMask documentation> -stencilMask ::-            (MonadDOM m, IsWebGLRenderingContextBase self) =>-              self -> GLuint -> m ()-stencilMask self mask-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "stencilMask"-            [toJSVal mask]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilMaskSeparate Mozilla WebGLRenderingContextBase.stencilMaskSeparate documentation> -stencilMaskSeparate ::-                    (MonadDOM m, IsWebGLRenderingContextBase self) =>-                      self -> GLenum -> GLuint -> m ()-stencilMaskSeparate self face mask-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "stencilMaskSeparate"-            [toJSVal face, toJSVal mask]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilOp Mozilla WebGLRenderingContextBase.stencilOp documentation> -stencilOp ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> GLenum -> GLenum -> GLenum -> m ()-stencilOp self fail zfail zpass-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "stencilOp"-            [toJSVal fail, toJSVal zfail, toJSVal zpass]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.stencilOpSeparate Mozilla WebGLRenderingContextBase.stencilOpSeparate documentation> -stencilOpSeparate ::-                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                    self -> GLenum -> GLenum -> GLenum -> GLenum -> m ()-stencilOpSeparate self face fail zfail zpass-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "stencilOpSeparate"-            [toJSVal face, toJSVal fail, toJSVal zfail, toJSVal zpass]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texParameterf Mozilla WebGLRenderingContextBase.texParameterf documentation> -texParameterf ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> GLenum -> GLenum -> GLfloat -> m ()-texParameterf self target pname param-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texParameterf"-            [toJSVal target, toJSVal pname, toJSVal param]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texParameteri Mozilla WebGLRenderingContextBase.texParameteri documentation> -texParameteri ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self -> GLenum -> GLenum -> GLint -> m ()-texParameteri self target pname param-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texParameteri"-            [toJSVal target, toJSVal pname, toJSVal param]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> -texImage2DView ::-               (MonadDOM m, IsWebGLRenderingContextBase self,-                IsArrayBufferView pixels) =>-                 self ->-                   GLenum ->-                     GLint ->-                       GLenum ->-                         GLsizei ->-                           GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m ()-texImage2DView self target level internalformat width height border-  format type' pixels-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal width, toJSVal height, toJSVal border, toJSVal format,-             toJSVal type', toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> -texImage2DData ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self ->-                   GLenum ->-                     GLint -> GLenum -> GLenum -> GLenum -> Maybe ImageData -> m ()-texImage2DData self target level internalformat format type' pixels-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal format, toJSVal type', toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> -texImage2D ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self ->-               GLenum ->-                 GLint ->-                   GLenum -> GLenum -> GLenum -> Maybe HTMLImageElement -> m ()-texImage2D self target level internalformat format type' image-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal format, toJSVal type', toJSVal image]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> -texImage2DCanvas ::-                 (MonadDOM m, IsWebGLRenderingContextBase self) =>-                   self ->-                     GLenum ->-                       GLint ->-                         GLenum -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m ()-texImage2DCanvas self target level internalformat format type'-  canvas-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal format, toJSVal type', toJSVal canvas]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texImage2D Mozilla WebGLRenderingContextBase.texImage2D documentation> -texImage2DVideo ::-                (MonadDOM m, IsWebGLRenderingContextBase self) =>-                  self ->-                    GLenum ->-                      GLint ->-                        GLenum -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m ()-texImage2DVideo self target level internalformat format type' video-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texImage2D"-            [toJSVal target, toJSVal level, toJSVal internalformat,-             toJSVal format, toJSVal type', toJSVal video]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> -texSubImage2DView ::-                  (MonadDOM m, IsWebGLRenderingContextBase self,-                   IsArrayBufferView pixels) =>-                    self ->-                      GLenum ->-                        GLint ->-                          GLint ->-                            GLint ->-                              GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()-texSubImage2DView self target level xoffset yoffset width height-  format type' pixels-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal width, toJSVal height, toJSVal format, toJSVal type',-             toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> -texSubImage2DData ::-                  (MonadDOM m, IsWebGLRenderingContextBase self) =>-                    self ->-                      GLenum ->-                        GLint ->-                          GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m ()-texSubImage2DData self target level xoffset yoffset format type'-  pixels-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal format, toJSVal type', toJSVal pixels]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> -texSubImage2D ::-              (MonadDOM m, IsWebGLRenderingContextBase self) =>-                self ->-                  GLenum ->-                    GLint ->-                      GLint ->-                        GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m ()-texSubImage2D self target level xoffset yoffset format type' image-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal format, toJSVal type', toJSVal image]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> -texSubImage2DCanvas ::-                    (MonadDOM m, IsWebGLRenderingContextBase self) =>-                      self ->-                        GLenum ->-                          GLint ->-                            GLint ->-                              GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m ()-texSubImage2DCanvas self target level xoffset yoffset format type'-  canvas-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal format, toJSVal type', toJSVal canvas]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.texSubImage2D Mozilla WebGLRenderingContextBase.texSubImage2D documentation> -texSubImage2DVideo ::-                   (MonadDOM m, IsWebGLRenderingContextBase self) =>-                     self ->-                       GLenum ->-                         GLint ->-                           GLint ->-                             GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m ()-texSubImage2DVideo self target level xoffset yoffset format type'-  video-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "texSubImage2D"-            [toJSVal target, toJSVal level, toJSVal xoffset, toJSVal yoffset,-             toJSVal format, toJSVal type', toJSVal video]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1f Mozilla WebGLRenderingContextBase.uniform1f documentation> -uniform1f ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> Maybe WebGLUniformLocation -> GLfloat -> m ()-uniform1f self location x-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform1f"-            [toJSVal location, toJSVal x]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1fv Mozilla WebGLRenderingContextBase.uniform1fv documentation> -uniform1fv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform1fv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform1fv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1i Mozilla WebGLRenderingContextBase.uniform1i documentation> -uniform1i ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> Maybe WebGLUniformLocation -> GLint -> m ()-uniform1i self location x-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform1i"-            [toJSVal location, toJSVal x]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform1iv Mozilla WebGLRenderingContextBase.uniform1iv documentation> -uniform1iv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform1iv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform1iv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2f Mozilla WebGLRenderingContextBase.uniform2f documentation> -uniform2f ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> m ()-uniform2f self location x y-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform2f"-            [toJSVal location, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2fv Mozilla WebGLRenderingContextBase.uniform2fv documentation> -uniform2fv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform2fv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform2fv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2i Mozilla WebGLRenderingContextBase.uniform2i documentation> -uniform2i ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self -> Maybe WebGLUniformLocation -> GLint -> GLint -> m ()-uniform2i self location x y-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform2i"-            [toJSVal location, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform2iv Mozilla WebGLRenderingContextBase.uniform2iv documentation> -uniform2iv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform2iv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform2iv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3f Mozilla WebGLRenderingContextBase.uniform3f documentation> -uniform3f ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self ->-              Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> m ()-uniform3f self location x y z-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform3f"-            [toJSVal location, toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3fv Mozilla WebGLRenderingContextBase.uniform3fv documentation> -uniform3fv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform3fv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform3fv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3i Mozilla WebGLRenderingContextBase.uniform3i documentation> -uniform3i ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self ->-              Maybe WebGLUniformLocation -> GLint -> GLint -> GLint -> m ()-uniform3i self location x y z-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform3i"-            [toJSVal location, toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform3iv Mozilla WebGLRenderingContextBase.uniform3iv documentation> -uniform3iv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform3iv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform3iv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4f Mozilla WebGLRenderingContextBase.uniform4f documentation> -uniform4f ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self ->-              Maybe WebGLUniformLocation ->-                GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()-uniform4f self location x y z w-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform4f"-            [toJSVal location, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4fv Mozilla WebGLRenderingContextBase.uniform4fv documentation> -uniform4fv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsFloat32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform4fv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform4fv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4i Mozilla WebGLRenderingContextBase.uniform4i documentation> -uniform4i ::-          (MonadDOM m, IsWebGLRenderingContextBase self) =>-            self ->-              Maybe WebGLUniformLocation ->-                GLint -> GLint -> GLint -> GLint -> m ()-uniform4i self location x y z w-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform4i"-            [toJSVal location, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniform4iv Mozilla WebGLRenderingContextBase.uniform4iv documentation> -uniform4iv ::-           (MonadDOM m, IsWebGLRenderingContextBase self, IsInt32Array v) =>-             self -> Maybe WebGLUniformLocation -> Maybe v -> m ()-uniform4iv self location v-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniform4iv"-            [toJSVal location, toJSVal v]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniformMatrix2fv Mozilla WebGLRenderingContextBase.uniformMatrix2fv documentation> -uniformMatrix2fv ::-                 (MonadDOM m, IsWebGLRenderingContextBase self,-                  IsFloat32Array array) =>-                   self ->-                     Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m ()-uniformMatrix2fv self location transpose array-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniformMatrix2fv"-            [toJSVal location, toJSVal transpose, toJSVal array]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniformMatrix3fv Mozilla WebGLRenderingContextBase.uniformMatrix3fv documentation> -uniformMatrix3fv ::-                 (MonadDOM m, IsWebGLRenderingContextBase self,-                  IsFloat32Array array) =>-                   self ->-                     Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m ()-uniformMatrix3fv self location transpose array-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniformMatrix3fv"-            [toJSVal location, toJSVal transpose, toJSVal array]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.uniformMatrix4fv Mozilla WebGLRenderingContextBase.uniformMatrix4fv documentation> -uniformMatrix4fv ::-                 (MonadDOM m, IsWebGLRenderingContextBase self,-                  IsFloat32Array array) =>-                   self ->-                     Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m ()-uniformMatrix4fv self location transpose array-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "uniformMatrix4fv"-            [toJSVal location, toJSVal transpose, toJSVal array]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.useProgram Mozilla WebGLRenderingContextBase.useProgram documentation> -useProgram ::-           (MonadDOM m, IsWebGLRenderingContextBase self) =>-             self -> Maybe WebGLProgram -> m ()-useProgram self program-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "useProgram"-            [toJSVal program]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.validateProgram Mozilla WebGLRenderingContextBase.validateProgram documentation> -validateProgram ::-                (MonadDOM m, IsWebGLRenderingContextBase self) =>-                  self -> Maybe WebGLProgram -> m ()-validateProgram self program-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "validateProgram"-            [toJSVal program]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib1f Mozilla WebGLRenderingContextBase.vertexAttrib1f documentation> -vertexAttrib1f ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> GLuint -> GLfloat -> m ()-vertexAttrib1f self indx x-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib1f"-            [toJSVal indx, toJSVal x]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib1fv Mozilla WebGLRenderingContextBase.vertexAttrib1fv documentation> -vertexAttrib1fv ::-                (MonadDOM m, IsWebGLRenderingContextBase self,-                 IsFloat32Array values) =>-                  self -> GLuint -> Maybe values -> m ()-vertexAttrib1fv self indx values-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib1fv"-            [toJSVal indx, toJSVal values]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib2f Mozilla WebGLRenderingContextBase.vertexAttrib2f documentation> -vertexAttrib2f ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> GLuint -> GLfloat -> GLfloat -> m ()-vertexAttrib2f self indx x y-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib2f"-            [toJSVal indx, toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib2fv Mozilla WebGLRenderingContextBase.vertexAttrib2fv documentation> -vertexAttrib2fv ::-                (MonadDOM m, IsWebGLRenderingContextBase self,-                 IsFloat32Array values) =>-                  self -> GLuint -> Maybe values -> m ()-vertexAttrib2fv self indx values-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib2fv"-            [toJSVal indx, toJSVal values]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib3f Mozilla WebGLRenderingContextBase.vertexAttrib3f documentation> -vertexAttrib3f ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> m ()-vertexAttrib3f self indx x y z-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib3f"-            [toJSVal indx, toJSVal x, toJSVal y, toJSVal z]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib3fv Mozilla WebGLRenderingContextBase.vertexAttrib3fv documentation> -vertexAttrib3fv ::-                (MonadDOM m, IsWebGLRenderingContextBase self,-                 IsFloat32Array values) =>-                  self -> GLuint -> Maybe values -> m ()-vertexAttrib3fv self indx values-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib3fv"-            [toJSVal indx, toJSVal values]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib4f Mozilla WebGLRenderingContextBase.vertexAttrib4f documentation> -vertexAttrib4f ::-               (MonadDOM m, IsWebGLRenderingContextBase self) =>-                 self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()-vertexAttrib4f self indx x y z w-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib4f"-            [toJSVal indx, toJSVal x, toJSVal y, toJSVal z, toJSVal w]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttrib4fv Mozilla WebGLRenderingContextBase.vertexAttrib4fv documentation> -vertexAttrib4fv ::-                (MonadDOM m, IsWebGLRenderingContextBase self,-                 IsFloat32Array values) =>-                  self -> GLuint -> Maybe values -> m ()-vertexAttrib4fv self indx values-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttrib4fv"-            [toJSVal indx, toJSVal values]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.vertexAttribPointer Mozilla WebGLRenderingContextBase.vertexAttribPointer documentation> -vertexAttribPointer ::-                    (MonadDOM m, IsWebGLRenderingContextBase self) =>-                      self ->-                        GLuint ->-                          GLint -> GLenum -> GLboolean -> GLsizei -> GLintptr -> m ()-vertexAttribPointer self indx size type' normalized stride offset-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "vertexAttribPointer"-            [toJSVal indx, toJSVal size, toJSVal type', toJSVal normalized,-             toJSVal stride, toJSVal offset]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.viewport Mozilla WebGLRenderingContextBase.viewport documentation> -viewport ::-         (MonadDOM m, IsWebGLRenderingContextBase self) =>-           self -> GLint -> GLint -> GLsizei -> GLsizei -> m ()-viewport self x y width height-  = liftDOM-      (void-         ((toWebGLRenderingContextBase self) ^. jsf "viewport"-            [toJSVal x, toJSVal y, toJSVal width, toJSVal height]))-pattern DEPTH_BUFFER_BIT = 256-pattern STENCIL_BUFFER_BIT = 1024-pattern COLOR_BUFFER_BIT = 16384-pattern POINTS = 0-pattern LINES = 1-pattern LINE_LOOP = 2-pattern LINE_STRIP = 3-pattern TRIANGLES = 4-pattern TRIANGLE_STRIP = 5-pattern TRIANGLE_FAN = 6-pattern ZERO = 0-pattern ONE = 1-pattern SRC_COLOR = 768-pattern ONE_MINUS_SRC_COLOR = 769-pattern SRC_ALPHA = 770-pattern ONE_MINUS_SRC_ALPHA = 771-pattern DST_ALPHA = 772-pattern ONE_MINUS_DST_ALPHA = 773-pattern DST_COLOR = 774-pattern ONE_MINUS_DST_COLOR = 775-pattern SRC_ALPHA_SATURATE = 776-pattern FUNC_ADD = 32774-pattern BLEND_EQUATION = 32777-pattern BLEND_EQUATION_RGB = 32777-pattern BLEND_EQUATION_ALPHA = 34877-pattern FUNC_SUBTRACT = 32778-pattern FUNC_REVERSE_SUBTRACT = 32779-pattern BLEND_DST_RGB = 32968-pattern BLEND_SRC_RGB = 32969-pattern BLEND_DST_ALPHA = 32970-pattern BLEND_SRC_ALPHA = 32971-pattern CONSTANT_COLOR = 32769-pattern ONE_MINUS_CONSTANT_COLOR = 32770-pattern CONSTANT_ALPHA = 32771-pattern ONE_MINUS_CONSTANT_ALPHA = 32772-pattern BLEND_COLOR = 32773-pattern ARRAY_BUFFER = 34962-pattern ELEMENT_ARRAY_BUFFER = 34963-pattern ARRAY_BUFFER_BINDING = 34964-pattern ELEMENT_ARRAY_BUFFER_BINDING = 34965-pattern STREAM_DRAW = 35040-pattern STATIC_DRAW = 35044-pattern DYNAMIC_DRAW = 35048-pattern BUFFER_SIZE = 34660-pattern BUFFER_USAGE = 34661-pattern CURRENT_VERTEX_ATTRIB = 34342-pattern FRONT = 1028-pattern BACK = 1029-pattern FRONT_AND_BACK = 1032-pattern TEXTURE_2D = 3553-pattern CULL_FACE = 2884-pattern BLEND = 3042-pattern DITHER = 3024-pattern STENCIL_TEST = 2960-pattern DEPTH_TEST = 2929-pattern SCISSOR_TEST = 3089-pattern POLYGON_OFFSET_FILL = 32823-pattern SAMPLE_ALPHA_TO_COVERAGE = 32926-pattern SAMPLE_COVERAGE = 32928-pattern NO_ERROR = 0-pattern INVALID_ENUM = 1280-pattern INVALID_VALUE = 1281-pattern INVALID_OPERATION = 1282-pattern OUT_OF_MEMORY = 1285-pattern CW = 2304-pattern CCW = 2305-pattern LINE_WIDTH = 2849-pattern ALIASED_POINT_SIZE_RANGE = 33901-pattern ALIASED_LINE_WIDTH_RANGE = 33902-pattern CULL_FACE_MODE = 2885-pattern FRONT_FACE = 2886-pattern DEPTH_RANGE = 2928-pattern DEPTH_WRITEMASK = 2930-pattern DEPTH_CLEAR_VALUE = 2931-pattern DEPTH_FUNC = 2932-pattern STENCIL_CLEAR_VALUE = 2961-pattern STENCIL_FUNC = 2962-pattern STENCIL_FAIL = 2964-pattern STENCIL_PASS_DEPTH_FAIL = 2965-pattern STENCIL_PASS_DEPTH_PASS = 2966-pattern STENCIL_REF = 2967-pattern STENCIL_VALUE_MASK = 2963-pattern STENCIL_WRITEMASK = 2968-pattern STENCIL_BACK_FUNC = 34816-pattern STENCIL_BACK_FAIL = 34817-pattern STENCIL_BACK_PASS_DEPTH_FAIL = 34818-pattern STENCIL_BACK_PASS_DEPTH_PASS = 34819-pattern STENCIL_BACK_REF = 36003-pattern STENCIL_BACK_VALUE_MASK = 36004-pattern STENCIL_BACK_WRITEMASK = 36005-pattern VIEWPORT = 2978-pattern SCISSOR_BOX = 3088-pattern COLOR_CLEAR_VALUE = 3106-pattern COLOR_WRITEMASK = 3107-pattern UNPACK_ALIGNMENT = 3317-pattern PACK_ALIGNMENT = 3333-pattern MAX_TEXTURE_SIZE = 3379-pattern MAX_VIEWPORT_DIMS = 3386-pattern SUBPIXEL_BITS = 3408-pattern RED_BITS = 3410-pattern GREEN_BITS = 3411-pattern BLUE_BITS = 3412-pattern ALPHA_BITS = 3413-pattern DEPTH_BITS = 3414-pattern STENCIL_BITS = 3415-pattern POLYGON_OFFSET_UNITS = 10752-pattern POLYGON_OFFSET_FACTOR = 32824-pattern TEXTURE_BINDING_2D = 32873-pattern SAMPLE_BUFFERS = 32936-pattern SAMPLES = 32937-pattern SAMPLE_COVERAGE_VALUE = 32938-pattern SAMPLE_COVERAGE_INVERT = 32939-pattern COMPRESSED_TEXTURE_FORMATS = 34467-pattern DONT_CARE = 4352-pattern FASTEST = 4353-pattern NICEST = 4354-pattern GENERATE_MIPMAP_HINT = 33170-pattern BYTE = 5120-pattern UNSIGNED_BYTE = 5121-pattern SHORT = 5122-pattern UNSIGNED_SHORT = 5123-pattern INT = 5124-pattern UNSIGNED_INT = 5125-pattern FLOAT = 5126-pattern DEPTH_COMPONENT = 6402-pattern ALPHA = 6406-pattern RGB = 6407-pattern RGBA = 6408-pattern LUMINANCE = 6409-pattern LUMINANCE_ALPHA = 6410-pattern UNSIGNED_SHORT_4_4_4_4 = 32819-pattern UNSIGNED_SHORT_5_5_5_1 = 32820-pattern UNSIGNED_SHORT_5_6_5 = 33635-pattern FRAGMENT_SHADER = 35632-pattern VERTEX_SHADER = 35633-pattern MAX_VERTEX_ATTRIBS = 34921-pattern MAX_VERTEX_UNIFORM_VECTORS = 36347-pattern MAX_VARYING_VECTORS = 36348-pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS = 35661-pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS = 35660-pattern MAX_TEXTURE_IMAGE_UNITS = 34930-pattern MAX_FRAGMENT_UNIFORM_VECTORS = 36349-pattern SHADER_TYPE = 35663-pattern DELETE_STATUS = 35712-pattern LINK_STATUS = 35714-pattern VALIDATE_STATUS = 35715-pattern ATTACHED_SHADERS = 35717-pattern ACTIVE_UNIFORMS = 35718-pattern ACTIVE_ATTRIBUTES = 35721-pattern SHADING_LANGUAGE_VERSION = 35724-pattern CURRENT_PROGRAM = 35725-pattern NEVER = 512-pattern LESS = 513-pattern EQUAL = 514-pattern LEQUAL = 515-pattern GREATER = 516-pattern NOTEQUAL = 517-pattern GEQUAL = 518-pattern ALWAYS = 519-pattern KEEP = 7680-pattern REPLACE = 7681-pattern INCR = 7682-pattern DECR = 7683-pattern INVERT = 5386-pattern INCR_WRAP = 34055-pattern DECR_WRAP = 34056-pattern VENDOR = 7936-pattern RENDERER = 7937-pattern VERSION = 7938-pattern NEAREST = 9728-pattern LINEAR = 9729-pattern NEAREST_MIPMAP_NEAREST = 9984-pattern LINEAR_MIPMAP_NEAREST = 9985-pattern NEAREST_MIPMAP_LINEAR = 9986-pattern LINEAR_MIPMAP_LINEAR = 9987-pattern TEXTURE_MAG_FILTER = 10240-pattern TEXTURE_MIN_FILTER = 10241-pattern TEXTURE_WRAP_S = 10242-pattern TEXTURE_WRAP_T = 10243-pattern TEXTURE = 5890-pattern TEXTURE_CUBE_MAP = 34067-pattern TEXTURE_BINDING_CUBE_MAP = 34068-pattern TEXTURE_CUBE_MAP_POSITIVE_X = 34069-pattern TEXTURE_CUBE_MAP_NEGATIVE_X = 34070-pattern TEXTURE_CUBE_MAP_POSITIVE_Y = 34071-pattern TEXTURE_CUBE_MAP_NEGATIVE_Y = 34072-pattern TEXTURE_CUBE_MAP_POSITIVE_Z = 34073-pattern TEXTURE_CUBE_MAP_NEGATIVE_Z = 34074-pattern MAX_CUBE_MAP_TEXTURE_SIZE = 34076-pattern TEXTURE0 = 33984-pattern TEXTURE1 = 33985-pattern TEXTURE2 = 33986-pattern TEXTURE3 = 33987-pattern TEXTURE4 = 33988-pattern TEXTURE5 = 33989-pattern TEXTURE6 = 33990-pattern TEXTURE7 = 33991-pattern TEXTURE8 = 33992-pattern TEXTURE9 = 33993-pattern TEXTURE10 = 33994-pattern TEXTURE11 = 33995-pattern TEXTURE12 = 33996-pattern TEXTURE13 = 33997-pattern TEXTURE14 = 33998-pattern TEXTURE15 = 33999-pattern TEXTURE16 = 34000-pattern TEXTURE17 = 34001-pattern TEXTURE18 = 34002-pattern TEXTURE19 = 34003-pattern TEXTURE20 = 34004-pattern TEXTURE21 = 34005-pattern TEXTURE22 = 34006-pattern TEXTURE23 = 34007-pattern TEXTURE24 = 34008-pattern TEXTURE25 = 34009-pattern TEXTURE26 = 34010-pattern TEXTURE27 = 34011-pattern TEXTURE28 = 34012-pattern TEXTURE29 = 34013-pattern TEXTURE30 = 34014-pattern TEXTURE31 = 34015-pattern ACTIVE_TEXTURE = 34016-pattern REPEAT = 10497-pattern CLAMP_TO_EDGE = 33071-pattern MIRRORED_REPEAT = 33648-pattern FLOAT_VEC2 = 35664-pattern FLOAT_VEC3 = 35665-pattern FLOAT_VEC4 = 35666-pattern INT_VEC2 = 35667-pattern INT_VEC3 = 35668-pattern INT_VEC4 = 35669-pattern BOOL = 35670-pattern BOOL_VEC2 = 35671-pattern BOOL_VEC3 = 35672-pattern BOOL_VEC4 = 35673-pattern FLOAT_MAT2 = 35674-pattern FLOAT_MAT3 = 35675-pattern FLOAT_MAT4 = 35676-pattern SAMPLER_2D = 35678-pattern SAMPLER_CUBE = 35680-pattern VERTEX_ATTRIB_ARRAY_ENABLED = 34338-pattern VERTEX_ATTRIB_ARRAY_SIZE = 34339-pattern VERTEX_ATTRIB_ARRAY_STRIDE = 34340-pattern VERTEX_ATTRIB_ARRAY_TYPE = 34341-pattern VERTEX_ATTRIB_ARRAY_NORMALIZED = 34922-pattern VERTEX_ATTRIB_ARRAY_POINTER = 34373-pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = 34975-pattern IMPLEMENTATION_COLOR_READ_TYPE = 35738-pattern IMPLEMENTATION_COLOR_READ_FORMAT = 35739-pattern COMPILE_STATUS = 35713-pattern LOW_FLOAT = 36336-pattern MEDIUM_FLOAT = 36337-pattern HIGH_FLOAT = 36338-pattern LOW_INT = 36339-pattern MEDIUM_INT = 36340-pattern HIGH_INT = 36341-pattern FRAMEBUFFER = 36160-pattern RENDERBUFFER = 36161-pattern RGBA4 = 32854-pattern RGB5_A1 = 32855-pattern RGB565 = 36194-pattern DEPTH_COMPONENT16 = 33189-pattern STENCIL_INDEX = 6401-pattern STENCIL_INDEX8 = 36168-pattern DEPTH_STENCIL = 34041-pattern RENDERBUFFER_WIDTH = 36162-pattern RENDERBUFFER_HEIGHT = 36163-pattern RENDERBUFFER_INTERNAL_FORMAT = 36164-pattern RENDERBUFFER_RED_SIZE = 36176-pattern RENDERBUFFER_GREEN_SIZE = 36177-pattern RENDERBUFFER_BLUE_SIZE = 36178-pattern RENDERBUFFER_ALPHA_SIZE = 36179-pattern RENDERBUFFER_DEPTH_SIZE = 36180-pattern RENDERBUFFER_STENCIL_SIZE = 36181-pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE = 36048-pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME = 36049-pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL = 36050-pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE = 36051-pattern COLOR_ATTACHMENT0 = 36064-pattern DEPTH_ATTACHMENT = 36096-pattern STENCIL_ATTACHMENT = 36128-pattern DEPTH_STENCIL_ATTACHMENT = 33306-pattern NONE = 0-pattern FRAMEBUFFER_COMPLETE = 36053-pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT = 36054-pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT = 36055-pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS = 36057-pattern FRAMEBUFFER_UNSUPPORTED = 36061-pattern FRAMEBUFFER_BINDING = 36006-pattern RENDERBUFFER_BINDING = 36007-pattern MAX_RENDERBUFFER_SIZE = 34024-pattern INVALID_FRAMEBUFFER_OPERATION = 1286-pattern UNPACK_FLIP_Y_WEBGL = 37440-pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL = 37441-pattern CONTEXT_LOST_WEBGL = 37442-pattern UNPACK_COLORSPACE_CONVERSION_WEBGL = 37443-pattern BROWSER_DEFAULT_WEBGL = 37444---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawingBufferWidth Mozilla WebGLRenderingContextBase.drawingBufferWidth documentation> -getDrawingBufferWidth ::-                      (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLsizei-getDrawingBufferWidth self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "drawingBufferWidth")-         >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase.drawingBufferHeight Mozilla WebGLRenderingContextBase.drawingBufferHeight documentation> -getDrawingBufferHeight ::-                       (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLsizei-getDrawingBufferHeight self-  = liftDOM-      (((toWebGLRenderingContextBase self) ^. js "drawingBufferHeight")-         >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WebGLShaderPrecisionFormat.hs 
@@ -1,32 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebGLShaderPrecisionFormat-       (getRangeMin, getRangeMax, getPrecision,-        WebGLShaderPrecisionFormat, castToWebGLShaderPrecisionFormat,-        gTypeWebGLShaderPrecisionFormat)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat.rangeMin Mozilla WebGLShaderPrecisionFormat.rangeMin documentation> -getRangeMin :: (MonadDOM m) => WebGLShaderPrecisionFormat -> m Int-getRangeMin self-  = liftDOM (round <$> ((self ^. js "rangeMin") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat.rangeMax Mozilla WebGLShaderPrecisionFormat.rangeMax documentation> -getRangeMax :: (MonadDOM m) => WebGLShaderPrecisionFormat -> m Int-getRangeMax self-  = liftDOM (round <$> ((self ^. js "rangeMax") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat.precision Mozilla WebGLShaderPrecisionFormat.precision documentation> -getPrecision :: (MonadDOM m) => WebGLShaderPrecisionFormat -> m Int-getPrecision self-  = liftDOM (round <$> ((self ^. js "precision") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitAnimationEvent.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitAnimationEvent-       (getAnimationName, getElapsedTime, WebKitAnimationEvent,-        castToWebKitAnimationEvent, gTypeWebKitAnimationEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitAnimationEvent.animationName Mozilla WebKitAnimationEvent.animationName documentation> -getAnimationName ::-                 (MonadDOM m, FromJSString result) =>-                   WebKitAnimationEvent -> m result-getAnimationName self-  = liftDOM ((self ^. js "animationName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitAnimationEvent.elapsedTime Mozilla WebKitAnimationEvent.elapsedTime documentation> -getElapsedTime :: (MonadDOM m) => WebKitAnimationEvent -> m Double-getElapsedTime self-  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitCSSFilterValue.hs 
@@ -1,45 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitCSSFilterValue-       (_get, pattern CSS_FILTER_REFERENCE, pattern CSS_FILTER_GRAYSCALE,-        pattern CSS_FILTER_SEPIA, pattern CSS_FILTER_SATURATE,-        pattern CSS_FILTER_HUE_ROTATE, pattern CSS_FILTER_INVERT,-        pattern CSS_FILTER_OPACITY, pattern CSS_FILTER_BRIGHTNESS,-        pattern CSS_FILTER_CONTRAST, pattern CSS_FILTER_BLUR,-        pattern CSS_FILTER_DROP_SHADOW, getOperationType,-        WebKitCSSFilterValue, castToWebKitCSSFilterValue,-        gTypeWebKitCSSFilterValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSFilterValue._get Mozilla WebKitCSSFilterValue._get documentation> -_get ::-     (MonadDOM m) => WebKitCSSFilterValue -> Word -> m (Maybe CSSValue)-_get self index-  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)-pattern CSS_FILTER_REFERENCE = 1-pattern CSS_FILTER_GRAYSCALE = 2-pattern CSS_FILTER_SEPIA = 3-pattern CSS_FILTER_SATURATE = 4-pattern CSS_FILTER_HUE_ROTATE = 5-pattern CSS_FILTER_INVERT = 6-pattern CSS_FILTER_OPACITY = 7-pattern CSS_FILTER_BRIGHTNESS = 8-pattern CSS_FILTER_CONTRAST = 9-pattern CSS_FILTER_BLUR = 10-pattern CSS_FILTER_DROP_SHADOW = 11---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSFilterValue.operationType Mozilla WebKitCSSFilterValue.operationType documentation> -getOperationType :: (MonadDOM m) => WebKitCSSFilterValue -> m Word-getOperationType self-  = liftDOM-      (round <$> ((self ^. js "operationType") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitCSSMatrix.hs 
@@ -1,289 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitCSSMatrix-       (newWebKitCSSMatrix, setMatrixValue, multiply, inverse, translate,-        scale, rotate, rotateAxisAngle, skewX, skewY, toString, setA, getA,-        setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11,-        getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21,-        getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31,-        getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41,-        getM41, setM42, getM42, setM43, getM43, setM44, getM44,-        WebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix Mozilla WebKitCSSMatrix documentation> -newWebKitCSSMatrix ::-                   (MonadDOM m, ToJSString cssValue) => cssValue -> m WebKitCSSMatrix-newWebKitCSSMatrix cssValue-  = liftDOM-      (WebKitCSSMatrix <$>-         new (jsg "WebKitCSSMatrix") [toJSVal cssValue])---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.setMatrixValue Mozilla WebKitCSSMatrix.setMatrixValue documentation> -setMatrixValue ::-               (MonadDOM m, ToJSString string) =>-                 WebKitCSSMatrix -> string -> m ()-setMatrixValue self string-  = liftDOM (void (self ^. jsf "setMatrixValue" [toJSVal string]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.multiply Mozilla WebKitCSSMatrix.multiply documentation> -multiply ::-         (MonadDOM m) =>-           WebKitCSSMatrix ->-             Maybe WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix)-multiply self secondMatrix-  = liftDOM-      ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.inverse Mozilla WebKitCSSMatrix.inverse documentation> -inverse ::-        (MonadDOM m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix)-inverse self = liftDOM ((self ^. js "inverse") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.translate Mozilla WebKitCSSMatrix.translate documentation> -translate ::-          (MonadDOM m) =>-            WebKitCSSMatrix ->-              Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)-translate self x y z-  = liftDOM-      ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.scale Mozilla WebKitCSSMatrix.scale documentation> -scale ::-      (MonadDOM m) =>-        WebKitCSSMatrix ->-          Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)-scale self scaleX scaleY scaleZ-  = liftDOM-      ((self ^. jsf "scale"-          [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.rotate Mozilla WebKitCSSMatrix.rotate documentation> -rotate ::-       (MonadDOM m) =>-         WebKitCSSMatrix ->-           Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)-rotate self rotX rotY rotZ-  = liftDOM-      ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.rotateAxisAngle Mozilla WebKitCSSMatrix.rotateAxisAngle documentation> -rotateAxisAngle ::-                (MonadDOM m) =>-                  WebKitCSSMatrix ->-                    Double -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix)-rotateAxisAngle self x y z angle-  = liftDOM-      ((self ^. jsf "rotateAxisAngle"-          [toJSVal x, toJSVal y, toJSVal z, toJSVal angle])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.skewX Mozilla WebKitCSSMatrix.skewX documentation> -skewX ::-      (MonadDOM m) =>-        WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix)-skewX self angle-  = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.skewY Mozilla WebKitCSSMatrix.skewY documentation> -skewY ::-      (MonadDOM m) =>-        WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix)-skewY self angle-  = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.toString Mozilla WebKitCSSMatrix.toString documentation> -toString ::-         (MonadDOM m, FromJSString result) => WebKitCSSMatrix -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.a Mozilla WebKitCSSMatrix.a documentation> -setA :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setA self val = liftDOM (self ^. jss "a" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.a Mozilla WebKitCSSMatrix.a documentation> -getA :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getA self = liftDOM ((self ^. js "a") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.b Mozilla WebKitCSSMatrix.b documentation> -setB :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setB self val = liftDOM (self ^. jss "b" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.b Mozilla WebKitCSSMatrix.b documentation> -getB :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getB self = liftDOM ((self ^. js "b") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.c Mozilla WebKitCSSMatrix.c documentation> -setC :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setC self val = liftDOM (self ^. jss "c" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.c Mozilla WebKitCSSMatrix.c documentation> -getC :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getC self = liftDOM ((self ^. js "c") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.d Mozilla WebKitCSSMatrix.d documentation> -setD :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setD self val = liftDOM (self ^. jss "d" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.d Mozilla WebKitCSSMatrix.d documentation> -getD :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getD self = liftDOM ((self ^. js "d") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.e Mozilla WebKitCSSMatrix.e documentation> -setE :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setE self val = liftDOM (self ^. jss "e" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.e Mozilla WebKitCSSMatrix.e documentation> -getE :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getE self = liftDOM ((self ^. js "e") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.f Mozilla WebKitCSSMatrix.f documentation> -setF :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setF self val = liftDOM (self ^. jss "f" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.f Mozilla WebKitCSSMatrix.f documentation> -getF :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getF self = liftDOM ((self ^. js "f") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m11 Mozilla WebKitCSSMatrix.m11 documentation> -setM11 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM11 self val = liftDOM (self ^. jss "m11" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m11 Mozilla WebKitCSSMatrix.m11 documentation> -getM11 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM11 self = liftDOM ((self ^. js "m11") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m12 Mozilla WebKitCSSMatrix.m12 documentation> -setM12 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM12 self val = liftDOM (self ^. jss "m12" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m12 Mozilla WebKitCSSMatrix.m12 documentation> -getM12 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM12 self = liftDOM ((self ^. js "m12") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m13 Mozilla WebKitCSSMatrix.m13 documentation> -setM13 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM13 self val = liftDOM (self ^. jss "m13" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m13 Mozilla WebKitCSSMatrix.m13 documentation> -getM13 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM13 self = liftDOM ((self ^. js "m13") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m14 Mozilla WebKitCSSMatrix.m14 documentation> -setM14 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM14 self val = liftDOM (self ^. jss "m14" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m14 Mozilla WebKitCSSMatrix.m14 documentation> -getM14 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM14 self = liftDOM ((self ^. js "m14") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m21 Mozilla WebKitCSSMatrix.m21 documentation> -setM21 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM21 self val = liftDOM (self ^. jss "m21" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m21 Mozilla WebKitCSSMatrix.m21 documentation> -getM21 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM21 self = liftDOM ((self ^. js "m21") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m22 Mozilla WebKitCSSMatrix.m22 documentation> -setM22 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM22 self val = liftDOM (self ^. jss "m22" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m22 Mozilla WebKitCSSMatrix.m22 documentation> -getM22 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM22 self = liftDOM ((self ^. js "m22") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m23 Mozilla WebKitCSSMatrix.m23 documentation> -setM23 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM23 self val = liftDOM (self ^. jss "m23" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m23 Mozilla WebKitCSSMatrix.m23 documentation> -getM23 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM23 self = liftDOM ((self ^. js "m23") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m24 Mozilla WebKitCSSMatrix.m24 documentation> -setM24 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM24 self val = liftDOM (self ^. jss "m24" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m24 Mozilla WebKitCSSMatrix.m24 documentation> -getM24 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM24 self = liftDOM ((self ^. js "m24") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m31 Mozilla WebKitCSSMatrix.m31 documentation> -setM31 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM31 self val = liftDOM (self ^. jss "m31" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m31 Mozilla WebKitCSSMatrix.m31 documentation> -getM31 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM31 self = liftDOM ((self ^. js "m31") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m32 Mozilla WebKitCSSMatrix.m32 documentation> -setM32 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM32 self val = liftDOM (self ^. jss "m32" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m32 Mozilla WebKitCSSMatrix.m32 documentation> -getM32 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM32 self = liftDOM ((self ^. js "m32") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m33 Mozilla WebKitCSSMatrix.m33 documentation> -setM33 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM33 self val = liftDOM (self ^. jss "m33" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m33 Mozilla WebKitCSSMatrix.m33 documentation> -getM33 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM33 self = liftDOM ((self ^. js "m33") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m34 Mozilla WebKitCSSMatrix.m34 documentation> -setM34 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM34 self val = liftDOM (self ^. jss "m34" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m34 Mozilla WebKitCSSMatrix.m34 documentation> -getM34 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM34 self = liftDOM ((self ^. js "m34") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m41 Mozilla WebKitCSSMatrix.m41 documentation> -setM41 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM41 self val = liftDOM (self ^. jss "m41" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m41 Mozilla WebKitCSSMatrix.m41 documentation> -getM41 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM41 self = liftDOM ((self ^. js "m41") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m42 Mozilla WebKitCSSMatrix.m42 documentation> -setM42 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM42 self val = liftDOM (self ^. jss "m42" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m42 Mozilla WebKitCSSMatrix.m42 documentation> -getM42 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM42 self = liftDOM ((self ^. js "m42") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m43 Mozilla WebKitCSSMatrix.m43 documentation> -setM43 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM43 self val = liftDOM (self ^. jss "m43" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m43 Mozilla WebKitCSSMatrix.m43 documentation> -getM43 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM43 self = liftDOM ((self ^. js "m43") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m44 Mozilla WebKitCSSMatrix.m44 documentation> -setM44 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m ()-setM44 self val = liftDOM (self ^. jss "m44" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix.m44 Mozilla WebKitCSSMatrix.m44 documentation> -getM44 :: (MonadDOM m) => WebKitCSSMatrix -> m Double-getM44 self = liftDOM ((self ^. js "m44") >>= valToNumber)
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitCSSRegionRule.hs 
@@ -1,21 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitCSSRegionRule-       (getCssRules, WebKitCSSRegionRule, castToWebKitCSSRegionRule,-        gTypeWebKitCSSRegionRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSRegionRule.cssRules Mozilla WebKitCSSRegionRule.cssRules documentation> -getCssRules ::-            (MonadDOM m) => WebKitCSSRegionRule -> m (Maybe CSSRuleList)-getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitCSSTransformValue.hs 
@@ -1,59 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitCSSTransformValue-       (_get, pattern CSS_TRANSLATE, pattern CSS_TRANSLATEX,-        pattern CSS_TRANSLATEY, pattern CSS_ROTATE, pattern CSS_SCALE,-        pattern CSS_SCALEX, pattern CSS_SCALEY, pattern CSS_SKEW,-        pattern CSS_SKEWX, pattern CSS_SKEWY, pattern CSS_MATRIX,-        pattern CSS_TRANSLATEZ, pattern CSS_TRANSLATE3D,-        pattern CSS_ROTATEX, pattern CSS_ROTATEY, pattern CSS_ROTATEZ,-        pattern CSS_ROTATE3D, pattern CSS_SCALEZ, pattern CSS_SCALE3D,-        pattern CSS_PERSPECTIVE, pattern CSS_MATRIX3D, getOperationType,-        WebKitCSSTransformValue, castToWebKitCSSTransformValue,-        gTypeWebKitCSSTransformValue)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSTransformValue._get Mozilla WebKitCSSTransformValue._get documentation> -_get ::-     (MonadDOM m) =>-       WebKitCSSTransformValue -> Word -> m (Maybe CSSValue)-_get self index-  = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)-pattern CSS_TRANSLATE = 1-pattern CSS_TRANSLATEX = 2-pattern CSS_TRANSLATEY = 3-pattern CSS_ROTATE = 4-pattern CSS_SCALE = 5-pattern CSS_SCALEX = 6-pattern CSS_SCALEY = 7-pattern CSS_SKEW = 8-pattern CSS_SKEWX = 9-pattern CSS_SKEWY = 10-pattern CSS_MATRIX = 11-pattern CSS_TRANSLATEZ = 12-pattern CSS_TRANSLATE3D = 13-pattern CSS_ROTATEX = 14-pattern CSS_ROTATEY = 15-pattern CSS_ROTATEZ = 16-pattern CSS_ROTATE3D = 17-pattern CSS_SCALEZ = 18-pattern CSS_SCALE3D = 19-pattern CSS_PERSPECTIVE = 20-pattern CSS_MATRIX3D = 21---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSTransformValue.operationType Mozilla WebKitCSSTransformValue.operationType documentation> -getOperationType ::-                 (MonadDOM m) => WebKitCSSTransformValue -> m Word-getOperationType self-  = liftDOM-      (round <$> ((self ^. js "operationType") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitCSSViewportRule.hs 
@@ -1,22 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitCSSViewportRule-       (getStyle, WebKitCSSViewportRule, castToWebKitCSSViewportRule,-        gTypeWebKitCSSViewportRule)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSViewportRule.style Mozilla WebKitCSSViewportRule.style documentation> -getStyle ::-         (MonadDOM m) =>-           WebKitCSSViewportRule -> m (Maybe CSSStyleDeclaration)-getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitNamedFlow.hs 
@@ -1,50 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitNamedFlow-       (getRegionsByContent, getRegions, getContent, getName, getOverset,-        getFirstEmptyRegionIndex, WebKitNamedFlow, castToWebKitNamedFlow,-        gTypeWebKitNamedFlow)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.getRegionsByContent Mozilla WebKitNamedFlow.getRegionsByContent documentation> -getRegionsByContent ::-                    (MonadDOM m, IsNode contentNode) =>-                      WebKitNamedFlow -> Maybe contentNode -> m (Maybe NodeList)-getRegionsByContent self contentNode-  = liftDOM-      ((self ^. jsf "getRegionsByContent" [toJSVal contentNode]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.getRegions Mozilla WebKitNamedFlow.getRegions documentation> -getRegions :: (MonadDOM m) => WebKitNamedFlow -> m (Maybe NodeList)-getRegions self = liftDOM ((self ^. js "getRegions") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.getContent Mozilla WebKitNamedFlow.getContent documentation> -getContent :: (MonadDOM m) => WebKitNamedFlow -> m (Maybe NodeList)-getContent self = liftDOM ((self ^. js "getContent") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.name Mozilla WebKitNamedFlow.name documentation> -getName ::-        (MonadDOM m, FromJSString result) => WebKitNamedFlow -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.overset Mozilla WebKitNamedFlow.overset documentation> -getOverset :: (MonadDOM m) => WebKitNamedFlow -> m Bool-getOverset self = liftDOM ((self ^. js "overset") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow.firstEmptyRegionIndex Mozilla WebKitNamedFlow.firstEmptyRegionIndex documentation> -getFirstEmptyRegionIndex ::-                         (MonadDOM m) => WebKitNamedFlow -> m Int-getFirstEmptyRegionIndex self-  = liftDOM-      (round <$> ((self ^. js "firstEmptyRegionIndex") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitNamespace.hs 
@@ -1,23 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitNamespace-       (getMessageHandlers, WebKitNamespace, castToWebKitNamespace,-        gTypeWebKitNamespace)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamespace.messageHandlers Mozilla WebKitNamespace.messageHandlers documentation> -getMessageHandlers ::-                   (MonadDOM m) =>-                     WebKitNamespace -> m (Maybe UserMessageHandlersNamespace)-getMessageHandlers self-  = liftDOM ((self ^. js "messageHandlers") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitPlaybackTargetAvailabilityEvent.hs 
@@ -1,24 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitPlaybackTargetAvailabilityEvent-       (getAvailability, WebKitPlaybackTargetAvailabilityEvent,-        castToWebKitPlaybackTargetAvailabilityEvent,-        gTypeWebKitPlaybackTargetAvailabilityEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPlaybackTargetAvailabilityEvent.availability Mozilla WebKitPlaybackTargetAvailabilityEvent.availability documentation> -getAvailability ::-                (MonadDOM m, FromJSString result) =>-                  WebKitPlaybackTargetAvailabilityEvent -> m result-getAvailability self-  = liftDOM ((self ^. js "availability") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitPoint.hs 
@@ -1,45 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitPoint-       (newWebKitPoint, newWebKitPoint', setX, getX, setY, getY,-        WebKitPoint, castToWebKitPoint, gTypeWebKitPoint)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint Mozilla WebKitPoint documentation> -newWebKitPoint :: (MonadDOM m) => m WebKitPoint-newWebKitPoint-  = liftDOM (WebKitPoint <$> new (jsg "WebKitPoint") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint Mozilla WebKitPoint documentation> -newWebKitPoint' :: (MonadDOM m) => Float -> Float -> m WebKitPoint-newWebKitPoint' x y-  = liftDOM-      (WebKitPoint <$> new (jsg "WebKitPoint") [toJSVal x, toJSVal y])---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.x Mozilla WebKitPoint.x documentation> -setX :: (MonadDOM m) => WebKitPoint -> Float -> m ()-setX self val = liftDOM (self ^. jss "x" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.x Mozilla WebKitPoint.x documentation> -getX :: (MonadDOM m) => WebKitPoint -> m Float-getX self-  = liftDOM (realToFrac <$> ((self ^. js "x") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.y Mozilla WebKitPoint.y documentation> -setY :: (MonadDOM m) => WebKitPoint -> Float -> m ()-setY self val = liftDOM (self ^. jss "y" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint.y Mozilla WebKitPoint.y documentation> -getY :: (MonadDOM m) => WebKitPoint -> m Float-getY self-  = liftDOM (realToFrac <$> ((self ^. js "y") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/WebKitTransitionEvent.hs 
@@ -1,36 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebKitTransitionEvent-       (getPropertyName, getElapsedTime, getPseudoElement,-        WebKitTransitionEvent, castToWebKitTransitionEvent,-        gTypeWebKitTransitionEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent.propertyName Mozilla WebKitTransitionEvent.propertyName documentation> -getPropertyName ::-                (MonadDOM m, FromJSString result) =>-                  WebKitTransitionEvent -> m result-getPropertyName self-  = liftDOM ((self ^. js "propertyName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent.elapsedTime Mozilla WebKitTransitionEvent.elapsedTime documentation> -getElapsedTime :: (MonadDOM m) => WebKitTransitionEvent -> m Double-getElapsedTime self-  = liftDOM ((self ^. js "elapsedTime") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent.pseudoElement Mozilla WebKitTransitionEvent.pseudoElement documentation> -getPseudoElement ::-                 (MonadDOM m, FromJSString result) =>-                   WebKitTransitionEvent -> m result-getPseudoElement self-  = liftDOM ((self ^. js "pseudoElement") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WebSocket.hs 
@@ -1,133 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WebSocket-       (newWebSocket, newWebSocket', send, sendView, sendBlob, sendString,-        close, pattern CONNECTING, pattern OPEN, pattern CLOSING,-        pattern CLOSED, getUrl, getReadyState, getBufferedAmount, open,-        message, error, closeEvent, getProtocol, getExtensions,-        setBinaryType, getBinaryType, WebSocket, castToWebSocket,-        gTypeWebSocket)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket Mozilla WebSocket documentation> -newWebSocket ::-             (MonadDOM m, ToJSString url, ToJSString protocols) =>-               url -> Maybe [protocols] -> m WebSocket-newWebSocket url protocols-  = liftDOM-      (WebSocket <$>-         new (jsg "WebSocket")-           [toJSVal url, toJSVal (fmap array protocols)])---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket Mozilla WebSocket documentation> -newWebSocket' ::-              (MonadDOM m, ToJSString url, ToJSString protocol) =>-                url -> protocol -> m WebSocket-newWebSocket' url protocol-  = liftDOM-      (WebSocket <$>-         new (jsg "WebSocket") [toJSVal url, toJSVal protocol])---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> -send ::-     (MonadDOM m, IsArrayBuffer data') =>-       WebSocket -> Maybe data' -> m ()-send self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> -sendView ::-         (MonadDOM m, IsArrayBufferView data') =>-           WebSocket -> Maybe data' -> m ()-sendView self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> -sendBlob ::-         (MonadDOM m, IsBlob data') => WebSocket -> Maybe data' -> m ()-sendBlob self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.send Mozilla WebSocket.send documentation> -sendString ::-           (MonadDOM m, ToJSString data') => WebSocket -> data' -> m ()-sendString self data'-  = liftDOM (void (self ^. jsf "send" [toJSVal data']))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.close Mozilla WebSocket.close documentation> -close ::-      (MonadDOM m, ToJSString reason) =>-        WebSocket -> Word -> reason -> m ()-close self code reason-  = liftDOM-      (void (self ^. jsf "close" [toJSVal code, toJSVal reason]))-pattern CONNECTING = 0-pattern OPEN = 1-pattern CLOSING = 2-pattern CLOSED = 3---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.url Mozilla WebSocket.url documentation> -getUrl ::-       (MonadDOM m, FromJSString result) => WebSocket -> m result-getUrl self = liftDOM ((self ^. js "url") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.readyState Mozilla WebSocket.readyState documentation> -getReadyState :: (MonadDOM m) => WebSocket -> m Word-getReadyState self-  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.bufferedAmount Mozilla WebSocket.bufferedAmount documentation> -getBufferedAmount :: (MonadDOM m) => WebSocket -> m Word-getBufferedAmount self-  = liftDOM-      (round <$> ((self ^. js "bufferedAmount") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onopen Mozilla WebSocket.onopen documentation> -open :: EventName WebSocket Event-open = unsafeEventName (toJSString "open")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onmessage Mozilla WebSocket.onmessage documentation> -message :: EventName WebSocket MessageEvent-message = unsafeEventName (toJSString "message")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onerror Mozilla WebSocket.onerror documentation> -error :: EventName WebSocket UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.onclose Mozilla WebSocket.onclose documentation> -closeEvent :: EventName WebSocket Event-closeEvent = unsafeEventName (toJSString "close")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.protocol Mozilla WebSocket.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) => WebSocket -> m (Maybe result)-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.extensions Mozilla WebSocket.extensions documentation> -getExtensions ::-              (MonadDOM m, FromJSString result) => WebSocket -> m (Maybe result)-getExtensions self-  = liftDOM ((self ^. js "extensions") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.binaryType Mozilla WebSocket.binaryType documentation> -setBinaryType ::-              (MonadDOM m, ToJSString val) => WebSocket -> val -> m ()-setBinaryType self val-  = liftDOM (self ^. jss "binaryType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket.binaryType Mozilla WebSocket.binaryType documentation> -getBinaryType ::-              (MonadDOM m, FromJSString result) => WebSocket -> m result-getBinaryType self-  = liftDOM ((self ^. js "binaryType") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WheelEvent.hs 
@@ -1,79 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WheelEvent-       (initWebKitWheelEvent, pattern DOM_DELTA_PIXEL,-        pattern DOM_DELTA_LINE, pattern DOM_DELTA_PAGE, getDeltaX,-        getDeltaY, getDeltaZ, getDeltaMode, getWheelDeltaX, getWheelDeltaY,-        getWheelDelta, getWebkitDirectionInvertedFromDevice, WheelEvent,-        castToWheelEvent, gTypeWheelEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.initWebKitWheelEvent Mozilla WheelEvent.initWebKitWheelEvent documentation> -initWebKitWheelEvent ::-                     (MonadDOM m) =>-                       WheelEvent ->-                         Int ->-                           Int ->-                             Maybe Window ->-                               Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m ()-initWebKitWheelEvent self wheelDeltaX wheelDeltaY view screenX-  screenY clientX clientY ctrlKey altKey shiftKey metaKey-  = liftDOM-      (void-         (self ^. jsf "initWebKitWheelEvent"-            [toJSVal wheelDeltaX, toJSVal wheelDeltaY, toJSVal view,-             toJSVal screenX, toJSVal screenY, toJSVal clientX, toJSVal clientY,-             toJSVal ctrlKey, toJSVal altKey, toJSVal shiftKey,-             toJSVal metaKey]))-pattern DOM_DELTA_PIXEL = 0-pattern DOM_DELTA_LINE = 1-pattern DOM_DELTA_PAGE = 2---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaX Mozilla WheelEvent.deltaX documentation> -getDeltaX :: (MonadDOM m) => WheelEvent -> m Double-getDeltaX self = liftDOM ((self ^. js "deltaX") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaY Mozilla WheelEvent.deltaY documentation> -getDeltaY :: (MonadDOM m) => WheelEvent -> m Double-getDeltaY self = liftDOM ((self ^. js "deltaY") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaZ Mozilla WheelEvent.deltaZ documentation> -getDeltaZ :: (MonadDOM m) => WheelEvent -> m Double-getDeltaZ self = liftDOM ((self ^. js "deltaZ") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.deltaMode Mozilla WheelEvent.deltaMode documentation> -getDeltaMode :: (MonadDOM m) => WheelEvent -> m Word-getDeltaMode self-  = liftDOM (round <$> ((self ^. js "deltaMode") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.wheelDeltaX Mozilla WheelEvent.wheelDeltaX documentation> -getWheelDeltaX :: (MonadDOM m) => WheelEvent -> m Int-getWheelDeltaX self-  = liftDOM (round <$> ((self ^. js "wheelDeltaX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.wheelDeltaY Mozilla WheelEvent.wheelDeltaY documentation> -getWheelDeltaY :: (MonadDOM m) => WheelEvent -> m Int-getWheelDeltaY self-  = liftDOM (round <$> ((self ^. js "wheelDeltaY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.wheelDelta Mozilla WheelEvent.wheelDelta documentation> -getWheelDelta :: (MonadDOM m) => WheelEvent -> m Int-getWheelDelta self-  = liftDOM (round <$> ((self ^. js "wheelDelta") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent.webkitDirectionInvertedFromDevice Mozilla WheelEvent.webkitDirectionInvertedFromDevice documentation> -getWebkitDirectionInvertedFromDevice ::-                                     (MonadDOM m) => WheelEvent -> m Bool-getWebkitDirectionInvertedFromDevice self-  = liftDOM-      ((self ^. js "webkitDirectionInvertedFromDevice") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/Window.hs 
@@ -1,943 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Window-       (openDatabase, getSelection, focus, blur, close, print, stop, open,-        showModalDialog, alert, confirm, prompt, find, scrollBy, scrollTo,-        scroll, moveBy, moveTo, resizeBy, resizeTo, matchMedia,-        getComputedStyle, getMatchedCSSRules,-        webkitConvertPointFromPageToNode, webkitConvertPointFromNodeToPage,-        postMessage, requestAnimationFrame, cancelAnimationFrame,-        webkitRequestAnimationFrame, webkitCancelAnimationFrame,-        webkitCancelRequestAnimationFrame, captureEvents, releaseEvents,-        getWebkitIndexedDB, getIndexedDB, getWebkitStorageInfo,-        getSpeechSynthesis, getScreen, getHistory, getLocationbar,-        getMenubar, getPersonalbar, getScrollbars, getStatusbar,-        getToolbar, getNavigator, getClientInformation, getCrypto,-        setLocation, getLocation, getEvent, getFrameElement,-        getOffscreenBuffering, getOuterHeight, getOuterWidth,-        getInnerHeight, getInnerWidth, getScreenX, getScreenY,-        getScreenLeft, getScreenTop, getScrollX, getScrollY,-        getPageXOffset, getPageYOffset, getClosed, getLength, setName,-        getName, setStatus, getStatus, setDefaultStatus, getDefaultStatus,-        setDefaultstatus, getDefaultstatus, getSelf, getWindow, getFrames,-        getOpener, getParent, getTop, getDocument, getStyleMedia,-        getDevicePixelRatio, getApplicationCache, getSessionStorage,-        getLocalStorage, getOrientation, getPerformance, getCSS, abort,-        beforeUnload, blurEvent, canPlay, canPlayThrough, change, click,-        contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,-        dragOver, dragStart, drop, durationChange, emptied, ended, error,-        focusEvent, hashChange, input, invalid, keyDown, keyPress, keyUp,-        load, loadedData, loadedMetadata, loadStart, message, mouseDown,-        mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp,-        mouseWheel, offline, online, pageHide, pageShow, pause, play,-        playing, popState, progress, rateChange, resize, scrollEvent,-        seeked, seeking, select, stalled, storage, submit, suspend,-        timeUpdate, unload, volumeChange, waiting, wheel, reset, search,-        webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart,-        animationEnd, animationIteration, animationStart,-        webKitTransitionEnd, transitionEnd, orientationChange, touchStart,-        touchMove, touchEnd, touchCancel, gestureStart, gestureChange,-        gestureEnd, deviceMotion, deviceOrientation, webKitDeviceProximity,-        webKitWillRevealBottom, webKitWillRevealLeft,-        webKitWillRevealRight, webKitWillRevealTop, Window, castToWindow,-        gTypeWindow)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.openDatabase Mozilla Window.openDatabase documentation> -openDatabase ::-             (MonadDOM m, ToJSString name, ToJSString version,-              ToJSString displayName) =>-               Window ->-                 name ->-                   version ->-                     displayName -> Word -> Maybe DatabaseCallback -> m (Maybe Database)-openDatabase self name version displayName estimatedSize-  creationCallback-  = liftDOM-      ((self ^. jsf "openDatabase"-          [toJSVal name, toJSVal version, toJSVal displayName,-           toJSVal estimatedSize, toJSVal creationCallback])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.getSelection Mozilla Window.getSelection documentation> -getSelection :: (MonadDOM m) => Window -> m (Maybe Selection)-getSelection self-  = liftDOM ((self ^. js "getSelection") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.focus Mozilla Window.focus documentation> -focus :: (MonadDOM m) => Window -> m ()-focus self = liftDOM (void (self ^. js "focus"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.blur Mozilla Window.blur documentation> -blur :: (MonadDOM m) => Window -> m ()-blur self = liftDOM (void (self ^. js "blur"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.close Mozilla Window.close documentation> -close :: (MonadDOM m) => Window -> m ()-close self = liftDOM (void (self ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.print Mozilla Window.print documentation> -print :: (MonadDOM m) => Window -> m ()-print self = liftDOM (void (self ^. js "print"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.stop Mozilla Window.stop documentation> -stop :: (MonadDOM m) => Window -> m ()-stop self = liftDOM (void (self ^. js "stop"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.open Mozilla Window.open documentation> -open ::-     (MonadDOM m, ToJSString url, ToJSString name,-      ToJSString options) =>-       Window -> url -> name -> options -> m (Maybe Window)-open self url name options-  = liftDOM-      ((self ^. jsf "open" [toJSVal url, toJSVal name, toJSVal options])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.showModalDialog Mozilla Window.showModalDialog documentation> -showModalDialog ::-                (MonadDOM m, ToJSString url, ToJSString featureArgs) =>-                  Window -> url -> JSVal -> featureArgs -> m JSVal-showModalDialog self url dialogArgs featureArgs-  = liftDOM-      ((self ^. jsf "showModalDialog"-          [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs])-         >>= toJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.alert Mozilla Window.alert documentation> -alert ::-      (MonadDOM m, ToJSString message) => Window -> message -> m ()-alert self message-  = liftDOM (void (self ^. jsf "alert" [toJSVal message]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.confirm Mozilla Window.confirm documentation> -confirm ::-        (MonadDOM m, ToJSString message) => Window -> message -> m Bool-confirm self message-  = liftDOM ((self ^. jsf "confirm" [toJSVal message]) >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.prompt Mozilla Window.prompt documentation> -prompt ::-       (MonadDOM m, ToJSString message, ToJSString defaultValue,-        FromJSString result) =>-         Window -> message -> Maybe defaultValue -> m (Maybe result)-prompt self message defaultValue-  = liftDOM-      ((self ^. jsf "prompt" [toJSVal message, toJSVal defaultValue]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.find Mozilla Window.find documentation> -find ::-     (MonadDOM m, ToJSString string) =>-       Window ->-         string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m Bool-find self string caseSensitive backwards wrap wholeWord-  searchInFrames showDialog-  = liftDOM-      ((self ^. jsf "find"-          [toJSVal string, toJSVal caseSensitive, toJSVal backwards,-           toJSVal wrap, toJSVal wholeWord, toJSVal searchInFrames,-           toJSVal showDialog])-         >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollBy Mozilla Window.scrollBy documentation> -scrollBy :: (MonadDOM m) => Window -> Int -> Int -> m ()-scrollBy self x y-  = liftDOM (void (self ^. jsf "scrollBy" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollTo Mozilla Window.scrollTo documentation> -scrollTo :: (MonadDOM m) => Window -> Int -> Int -> m ()-scrollTo self x y-  = liftDOM (void (self ^. jsf "scrollTo" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scroll Mozilla Window.scroll documentation> -scroll :: (MonadDOM m) => Window -> Int -> Int -> m ()-scroll self x y-  = liftDOM (void (self ^. jsf "scroll" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.moveBy Mozilla Window.moveBy documentation> -moveBy :: (MonadDOM m) => Window -> Float -> Float -> m ()-moveBy self x y-  = liftDOM (void (self ^. jsf "moveBy" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.moveTo Mozilla Window.moveTo documentation> -moveTo :: (MonadDOM m) => Window -> Float -> Float -> m ()-moveTo self x y-  = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.resizeBy Mozilla Window.resizeBy documentation> -resizeBy :: (MonadDOM m) => Window -> Float -> Float -> m ()-resizeBy self x y-  = liftDOM (void (self ^. jsf "resizeBy" [toJSVal x, toJSVal y]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.resizeTo Mozilla Window.resizeTo documentation> -resizeTo :: (MonadDOM m) => Window -> Float -> Float -> m ()-resizeTo self width height-  = liftDOM-      (void (self ^. jsf "resizeTo" [toJSVal width, toJSVal height]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.matchMedia Mozilla Window.matchMedia documentation> -matchMedia ::-           (MonadDOM m, ToJSString query) =>-             Window -> query -> m (Maybe MediaQueryList)-matchMedia self query-  = liftDOM-      ((self ^. jsf "matchMedia" [toJSVal query]) >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.getComputedStyle Mozilla Window.getComputedStyle documentation> -getComputedStyle ::-                 (MonadDOM m, IsElement element, ToJSString pseudoElement) =>-                   Window ->-                     Maybe element ->-                       Maybe pseudoElement -> m (Maybe CSSStyleDeclaration)-getComputedStyle self element pseudoElement-  = liftDOM-      ((self ^. jsf "getComputedStyle"-          [toJSVal element, toJSVal pseudoElement])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.getMatchedCSSRules Mozilla Window.getMatchedCSSRules documentation> -getMatchedCSSRules ::-                   (MonadDOM m, IsElement element, ToJSString pseudoElement) =>-                     Window ->-                       Maybe element -> Maybe pseudoElement -> m (Maybe CSSRuleList)-getMatchedCSSRules self element pseudoElement-  = liftDOM-      ((self ^. jsf "getMatchedCSSRules"-          [toJSVal element, toJSVal pseudoElement])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitConvertPointFromPageToNode Mozilla Window.webkitConvertPointFromPageToNode documentation> -webkitConvertPointFromPageToNode ::-                                 (MonadDOM m, IsNode node) =>-                                   Window ->-                                     Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint)-webkitConvertPointFromPageToNode self node p-  = liftDOM-      ((self ^. jsf "webkitConvertPointFromPageToNode"-          [toJSVal node, toJSVal p])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitConvertPointFromNodeToPage Mozilla Window.webkitConvertPointFromNodeToPage documentation> -webkitConvertPointFromNodeToPage ::-                                 (MonadDOM m, IsNode node) =>-                                   Window ->-                                     Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint)-webkitConvertPointFromNodeToPage self node p-  = liftDOM-      ((self ^. jsf "webkitConvertPointFromNodeToPage"-          [toJSVal node, toJSVal p])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.postMessage Mozilla Window.postMessage documentation> -postMessage ::-            (MonadDOM m, IsSerializedScriptValue message,-             ToJSString targetOrigin, IsArray messagePorts) =>-              Window ->-                Maybe message -> targetOrigin -> Maybe messagePorts -> m ()-postMessage self message targetOrigin messagePorts-  = liftDOM-      (void-         (self ^. jsf "postMessage"-            [toJSVal message, toJSVal targetOrigin, toJSVal messagePorts]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.requestAnimationFrame Mozilla Window.requestAnimationFrame documentation> -requestAnimationFrame ::-                      (MonadDOM m) =>-                        Window -> Maybe RequestAnimationFrameCallback -> m Int-requestAnimationFrame self callback-  = liftDOM-      (round <$>-         ((self ^. jsf "requestAnimationFrame" [toJSVal callback]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.cancelAnimationFrame Mozilla Window.cancelAnimationFrame documentation> -cancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m ()-cancelAnimationFrame self id-  = liftDOM (void (self ^. jsf "cancelAnimationFrame" [toJSVal id]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitRequestAnimationFrame Mozilla Window.webkitRequestAnimationFrame documentation> -webkitRequestAnimationFrame ::-                            (MonadDOM m) =>-                              Window -> Maybe RequestAnimationFrameCallback -> m Int-webkitRequestAnimationFrame self callback-  = liftDOM-      (round <$>-         ((self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitCancelAnimationFrame Mozilla Window.webkitCancelAnimationFrame documentation> -webkitCancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m ()-webkitCancelAnimationFrame self id-  = liftDOM-      (void (self ^. jsf "webkitCancelAnimationFrame" [toJSVal id]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitCancelRequestAnimationFrame Mozilla Window.webkitCancelRequestAnimationFrame documentation> -webkitCancelRequestAnimationFrame ::-                                  (MonadDOM m) => Window -> Int -> m ()-webkitCancelRequestAnimationFrame self id-  = liftDOM-      (void-         (self ^. jsf "webkitCancelRequestAnimationFrame" [toJSVal id]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.captureEvents Mozilla Window.captureEvents documentation> -captureEvents :: (MonadDOM m) => Window -> m ()-captureEvents self = liftDOM (void (self ^. js "captureEvents"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.releaseEvents Mozilla Window.releaseEvents documentation> -releaseEvents :: (MonadDOM m) => Window -> m ()-releaseEvents self = liftDOM (void (self ^. js "releaseEvents"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitIndexedDB Mozilla Window.webkitIndexedDB documentation> -getWebkitIndexedDB ::-                   (MonadDOM m) => Window -> m (Maybe IDBFactory)-getWebkitIndexedDB self-  = liftDOM ((self ^. js "webkitIndexedDB") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.indexedDB Mozilla Window.indexedDB documentation> -getIndexedDB :: (MonadDOM m) => Window -> m (Maybe IDBFactory)-getIndexedDB self-  = liftDOM ((self ^. js "indexedDB") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.webkitStorageInfo Mozilla Window.webkitStorageInfo documentation> -getWebkitStorageInfo ::-                     (MonadDOM m) => Window -> m (Maybe StorageInfo)-getWebkitStorageInfo self-  = liftDOM ((self ^. js "webkitStorageInfo") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.speechSynthesis Mozilla Window.speechSynthesis documentation> -getSpeechSynthesis ::-                   (MonadDOM m) => Window -> m (Maybe SpeechSynthesis)-getSpeechSynthesis self-  = liftDOM ((self ^. js "speechSynthesis") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screen Mozilla Window.screen documentation> -getScreen :: (MonadDOM m) => Window -> m (Maybe Screen)-getScreen self = liftDOM ((self ^. js "screen") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.history Mozilla Window.history documentation> -getHistory :: (MonadDOM m) => Window -> m (Maybe History)-getHistory self = liftDOM ((self ^. js "history") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.locationbar Mozilla Window.locationbar documentation> -getLocationbar :: (MonadDOM m) => Window -> m (Maybe BarProp)-getLocationbar self-  = liftDOM ((self ^. js "locationbar") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.menubar Mozilla Window.menubar documentation> -getMenubar :: (MonadDOM m) => Window -> m (Maybe BarProp)-getMenubar self = liftDOM ((self ^. js "menubar") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.personalbar Mozilla Window.personalbar documentation> -getPersonalbar :: (MonadDOM m) => Window -> m (Maybe BarProp)-getPersonalbar self-  = liftDOM ((self ^. js "personalbar") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollbars Mozilla Window.scrollbars documentation> -getScrollbars :: (MonadDOM m) => Window -> m (Maybe BarProp)-getScrollbars self-  = liftDOM ((self ^. js "scrollbars") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.statusbar Mozilla Window.statusbar documentation> -getStatusbar :: (MonadDOM m) => Window -> m (Maybe BarProp)-getStatusbar self-  = liftDOM ((self ^. js "statusbar") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.toolbar Mozilla Window.toolbar documentation> -getToolbar :: (MonadDOM m) => Window -> m (Maybe BarProp)-getToolbar self = liftDOM ((self ^. js "toolbar") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.navigator Mozilla Window.navigator documentation> -getNavigator :: (MonadDOM m) => Window -> m (Maybe Navigator)-getNavigator self-  = liftDOM ((self ^. js "navigator") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.clientInformation Mozilla Window.clientInformation documentation> -getClientInformation ::-                     (MonadDOM m) => Window -> m (Maybe Navigator)-getClientInformation self-  = liftDOM ((self ^. js "clientInformation") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.crypto Mozilla Window.crypto documentation> -getCrypto :: (MonadDOM m) => Window -> m (Maybe Crypto)-getCrypto self = liftDOM ((self ^. js "crypto") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.location Mozilla Window.location documentation> -setLocation :: (MonadDOM m) => Window -> Maybe Location -> m ()-setLocation self val-  = liftDOM (self ^. jss "location" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.location Mozilla Window.location documentation> -getLocation :: (MonadDOM m) => Window -> m (Maybe Location)-getLocation self = liftDOM ((self ^. js "location") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.event Mozilla Window.event documentation> -getEvent :: (MonadDOM m) => Window -> m (Maybe Event)-getEvent self = liftDOM ((self ^. js "event") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.frameElement Mozilla Window.frameElement documentation> -getFrameElement :: (MonadDOM m) => Window -> m (Maybe Element)-getFrameElement self-  = liftDOM ((self ^. js "frameElement") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.offscreenBuffering Mozilla Window.offscreenBuffering documentation> -getOffscreenBuffering :: (MonadDOM m) => Window -> m Bool-getOffscreenBuffering self-  = liftDOM ((self ^. js "offscreenBuffering") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.outerHeight Mozilla Window.outerHeight documentation> -getOuterHeight :: (MonadDOM m) => Window -> m Int-getOuterHeight self-  = liftDOM (round <$> ((self ^. js "outerHeight") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.outerWidth Mozilla Window.outerWidth documentation> -getOuterWidth :: (MonadDOM m) => Window -> m Int-getOuterWidth self-  = liftDOM (round <$> ((self ^. js "outerWidth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.innerHeight Mozilla Window.innerHeight documentation> -getInnerHeight :: (MonadDOM m) => Window -> m Int-getInnerHeight self-  = liftDOM (round <$> ((self ^. js "innerHeight") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.innerWidth Mozilla Window.innerWidth documentation> -getInnerWidth :: (MonadDOM m) => Window -> m Int-getInnerWidth self-  = liftDOM (round <$> ((self ^. js "innerWidth") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenX Mozilla Window.screenX documentation> -getScreenX :: (MonadDOM m) => Window -> m Int-getScreenX self-  = liftDOM (round <$> ((self ^. js "screenX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenY Mozilla Window.screenY documentation> -getScreenY :: (MonadDOM m) => Window -> m Int-getScreenY self-  = liftDOM (round <$> ((self ^. js "screenY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenLeft Mozilla Window.screenLeft documentation> -getScreenLeft :: (MonadDOM m) => Window -> m Int-getScreenLeft self-  = liftDOM (round <$> ((self ^. js "screenLeft") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.screenTop Mozilla Window.screenTop documentation> -getScreenTop :: (MonadDOM m) => Window -> m Int-getScreenTop self-  = liftDOM (round <$> ((self ^. js "screenTop") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollX Mozilla Window.scrollX documentation> -getScrollX :: (MonadDOM m) => Window -> m Int-getScrollX self-  = liftDOM (round <$> ((self ^. js "scrollX") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.scrollY Mozilla Window.scrollY documentation> -getScrollY :: (MonadDOM m) => Window -> m Int-getScrollY self-  = liftDOM (round <$> ((self ^. js "scrollY") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.pageXOffset Mozilla Window.pageXOffset documentation> -getPageXOffset :: (MonadDOM m) => Window -> m Int-getPageXOffset self-  = liftDOM (round <$> ((self ^. js "pageXOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.pageYOffset Mozilla Window.pageYOffset documentation> -getPageYOffset :: (MonadDOM m) => Window -> m Int-getPageYOffset self-  = liftDOM (round <$> ((self ^. js "pageYOffset") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.closed Mozilla Window.closed documentation> -getClosed :: (MonadDOM m) => Window -> m Bool-getClosed self = liftDOM ((self ^. js "closed") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.length Mozilla Window.length documentation> -getLength :: (MonadDOM m) => Window -> m Word-getLength self-  = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.name Mozilla Window.name documentation> -setName :: (MonadDOM m, ToJSString val) => Window -> val -> m ()-setName self val = liftDOM (self ^. jss "name" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.name Mozilla Window.name documentation> -getName :: (MonadDOM m, FromJSString result) => Window -> m result-getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.status Mozilla Window.status documentation> -setStatus :: (MonadDOM m, ToJSString val) => Window -> val -> m ()-setStatus self val = liftDOM (self ^. jss "status" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.status Mozilla Window.status documentation> -getStatus ::-          (MonadDOM m, FromJSString result) => Window -> m result-getStatus self-  = liftDOM ((self ^. js "status") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultStatus Mozilla Window.defaultStatus documentation> -setDefaultStatus ::-                 (MonadDOM m, ToJSString val) => Window -> val -> m ()-setDefaultStatus self val-  = liftDOM (self ^. jss "defaultStatus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultStatus Mozilla Window.defaultStatus documentation> -getDefaultStatus ::-                 (MonadDOM m, FromJSString result) => Window -> m result-getDefaultStatus self-  = liftDOM ((self ^. js "defaultStatus") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultstatus Mozilla Window.defaultstatus documentation> -setDefaultstatus ::-                 (MonadDOM m, ToJSString val) => Window -> val -> m ()-setDefaultstatus self val-  = liftDOM (self ^. jss "defaultstatus" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.defaultstatus Mozilla Window.defaultstatus documentation> -getDefaultstatus ::-                 (MonadDOM m, FromJSString result) => Window -> m result-getDefaultstatus self-  = liftDOM ((self ^. js "defaultstatus") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.self Mozilla Window.self documentation> -getSelf :: (MonadDOM m) => Window -> m (Maybe Window)-getSelf self = liftDOM ((self ^. js "self") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.window Mozilla Window.window documentation> -getWindow :: (MonadDOM m) => Window -> m (Maybe Window)-getWindow self = liftDOM ((self ^. js "window") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.frames Mozilla Window.frames documentation> -getFrames :: (MonadDOM m) => Window -> m (Maybe Window)-getFrames self = liftDOM ((self ^. js "frames") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.opener Mozilla Window.opener documentation> -getOpener :: (MonadDOM m) => Window -> m (Maybe Window)-getOpener self = liftDOM ((self ^. js "opener") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.parent Mozilla Window.parent documentation> -getParent :: (MonadDOM m) => Window -> m (Maybe Window)-getParent self = liftDOM ((self ^. js "parent") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.top Mozilla Window.top documentation> -getTop :: (MonadDOM m) => Window -> m (Maybe Window)-getTop self = liftDOM ((self ^. js "top") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.document Mozilla Window.document documentation> -getDocument :: (MonadDOM m) => Window -> m (Maybe Document)-getDocument self = liftDOM ((self ^. js "document") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.styleMedia Mozilla Window.styleMedia documentation> -getStyleMedia :: (MonadDOM m) => Window -> m (Maybe StyleMedia)-getStyleMedia self-  = liftDOM ((self ^. js "styleMedia") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.devicePixelRatio Mozilla Window.devicePixelRatio documentation> -getDevicePixelRatio :: (MonadDOM m) => Window -> m Double-getDevicePixelRatio self-  = liftDOM ((self ^. js "devicePixelRatio") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.applicationCache Mozilla Window.applicationCache documentation> -getApplicationCache ::-                    (MonadDOM m) => Window -> m (Maybe ApplicationCache)-getApplicationCache self-  = liftDOM ((self ^. js "applicationCache") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.sessionStorage Mozilla Window.sessionStorage documentation> -getSessionStorage :: (MonadDOM m) => Window -> m (Maybe Storage)-getSessionStorage self-  = liftDOM ((self ^. js "sessionStorage") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.localStorage Mozilla Window.localStorage documentation> -getLocalStorage :: (MonadDOM m) => Window -> m (Maybe Storage)-getLocalStorage self-  = liftDOM ((self ^. js "localStorage") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.orientation Mozilla Window.orientation documentation> -getOrientation :: (MonadDOM m) => Window -> m Int-getOrientation self-  = liftDOM (round <$> ((self ^. js "orientation") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.performance Mozilla Window.performance documentation> -getPerformance :: (MonadDOM m) => Window -> m (Maybe Performance)-getPerformance self-  = liftDOM ((self ^. js "performance") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.CSS Mozilla Window.CSS documentation> -getCSS :: (MonadDOM m) => Window -> m (Maybe CSS)-getCSS self = liftDOM ((self ^. js "CSS") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onabort Mozilla Window.onabort documentation> -abort :: EventName Window UIEvent-abort = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onbeforeunload Mozilla Window.onbeforeunload documentation> -beforeUnload :: EventName Window BeforeUnloadEvent-beforeUnload = unsafeEventName (toJSString "beforeunload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onblur Mozilla Window.onblur documentation> -blurEvent :: EventName Window FocusEvent-blurEvent = unsafeEventName (toJSString "blur")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oncanplay Mozilla Window.oncanplay documentation> -canPlay :: EventName Window Event-canPlay = unsafeEventName (toJSString "canplay")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oncanplaythrough Mozilla Window.oncanplaythrough documentation> -canPlayThrough :: EventName Window Event-canPlayThrough = unsafeEventName (toJSString "canplaythrough")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onchange Mozilla Window.onchange documentation> -change :: EventName Window Event-change = unsafeEventName (toJSString "change")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onclick Mozilla Window.onclick documentation> -click :: EventName Window MouseEvent-click = unsafeEventName (toJSString "click")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oncontextmenu Mozilla Window.oncontextmenu documentation> -contextMenu :: EventName Window MouseEvent-contextMenu = unsafeEventName (toJSString "contextmenu")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondblclick Mozilla Window.ondblclick documentation> -dblClick :: EventName Window MouseEvent-dblClick = unsafeEventName (toJSString "dblclick")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondrag Mozilla Window.ondrag documentation> -drag :: EventName Window MouseEvent-drag = unsafeEventName (toJSString "drag")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragend Mozilla Window.ondragend documentation> -dragEnd :: EventName Window MouseEvent-dragEnd = unsafeEventName (toJSString "dragend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragenter Mozilla Window.ondragenter documentation> -dragEnter :: EventName Window MouseEvent-dragEnter = unsafeEventName (toJSString "dragenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragleave Mozilla Window.ondragleave documentation> -dragLeave :: EventName Window MouseEvent-dragLeave = unsafeEventName (toJSString "dragleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragover Mozilla Window.ondragover documentation> -dragOver :: EventName Window MouseEvent-dragOver = unsafeEventName (toJSString "dragover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondragstart Mozilla Window.ondragstart documentation> -dragStart :: EventName Window MouseEvent-dragStart = unsafeEventName (toJSString "dragstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondrop Mozilla Window.ondrop documentation> -drop :: EventName Window MouseEvent-drop = unsafeEventName (toJSString "drop")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondurationchange Mozilla Window.ondurationchange documentation> -durationChange :: EventName Window Event-durationChange = unsafeEventName (toJSString "durationchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onemptied Mozilla Window.onemptied documentation> -emptied :: EventName Window Event-emptied = unsafeEventName (toJSString "emptied")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onended Mozilla Window.onended documentation> -ended :: EventName Window Event-ended = unsafeEventName (toJSString "ended")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onerror Mozilla Window.onerror documentation> -error :: EventName Window UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onfocus Mozilla Window.onfocus documentation> -focusEvent :: EventName Window FocusEvent-focusEvent = unsafeEventName (toJSString "focus")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onhashchange Mozilla Window.onhashchange documentation> -hashChange :: EventName Window HashChangeEvent-hashChange = unsafeEventName (toJSString "hashchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oninput Mozilla Window.oninput documentation> -input :: EventName Window Event-input = unsafeEventName (toJSString "input")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.oninvalid Mozilla Window.oninvalid documentation> -invalid :: EventName Window Event-invalid = unsafeEventName (toJSString "invalid")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onkeydown Mozilla Window.onkeydown documentation> -keyDown :: EventName Window KeyboardEvent-keyDown = unsafeEventName (toJSString "keydown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onkeypress Mozilla Window.onkeypress documentation> -keyPress :: EventName Window KeyboardEvent-keyPress = unsafeEventName (toJSString "keypress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onkeyup Mozilla Window.onkeyup documentation> -keyUp :: EventName Window KeyboardEvent-keyUp = unsafeEventName (toJSString "keyup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onload Mozilla Window.onload documentation> -load :: EventName Window UIEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onloadeddata Mozilla Window.onloadeddata documentation> -loadedData :: EventName Window Event-loadedData = unsafeEventName (toJSString "loadeddata")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onloadedmetadata Mozilla Window.onloadedmetadata documentation> -loadedMetadata :: EventName Window Event-loadedMetadata = unsafeEventName (toJSString "loadedmetadata")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onloadstart Mozilla Window.onloadstart documentation> -loadStart :: EventName Window ProgressEvent-loadStart = unsafeEventName (toJSString "loadstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmessage Mozilla Window.onmessage documentation> -message :: EventName Window MessageEvent-message = unsafeEventName (toJSString "message")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmousedown Mozilla Window.onmousedown documentation> -mouseDown :: EventName Window MouseEvent-mouseDown = unsafeEventName (toJSString "mousedown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseenter Mozilla Window.onmouseenter documentation> -mouseEnter :: EventName Window MouseEvent-mouseEnter = unsafeEventName (toJSString "mouseenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseleave Mozilla Window.onmouseleave documentation> -mouseLeave :: EventName Window MouseEvent-mouseLeave = unsafeEventName (toJSString "mouseleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmousemove Mozilla Window.onmousemove documentation> -mouseMove :: EventName Window MouseEvent-mouseMove = unsafeEventName (toJSString "mousemove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseout Mozilla Window.onmouseout documentation> -mouseOut :: EventName Window MouseEvent-mouseOut = unsafeEventName (toJSString "mouseout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseover Mozilla Window.onmouseover documentation> -mouseOver :: EventName Window MouseEvent-mouseOver = unsafeEventName (toJSString "mouseover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmouseup Mozilla Window.onmouseup documentation> -mouseUp :: EventName Window MouseEvent-mouseUp = unsafeEventName (toJSString "mouseup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onmousewheel Mozilla Window.onmousewheel documentation> -mouseWheel :: EventName Window MouseEvent-mouseWheel = unsafeEventName (toJSString "mousewheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onoffline Mozilla Window.onoffline documentation> -offline :: EventName Window Event-offline = unsafeEventName (toJSString "offline")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ononline Mozilla Window.ononline documentation> -online :: EventName Window Event-online = unsafeEventName (toJSString "online")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpagehide Mozilla Window.onpagehide documentation> -pageHide :: EventName Window PageTransitionEvent-pageHide = unsafeEventName (toJSString "pagehide")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpageshow Mozilla Window.onpageshow documentation> -pageShow :: EventName Window PageTransitionEvent-pageShow = unsafeEventName (toJSString "pageshow")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpause Mozilla Window.onpause documentation> -pause :: EventName Window Event-pause = unsafeEventName (toJSString "pause")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onplay Mozilla Window.onplay documentation> -play :: EventName Window Event-play = unsafeEventName (toJSString "play")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onplaying Mozilla Window.onplaying documentation> -playing :: EventName Window Event-playing = unsafeEventName (toJSString "playing")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onpopstate Mozilla Window.onpopstate documentation> -popState :: EventName Window PopStateEvent-popState = unsafeEventName (toJSString "popstate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onprogress Mozilla Window.onprogress documentation> -progress :: EventName Window ProgressEvent-progress = unsafeEventName (toJSString "progress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onratechange Mozilla Window.onratechange documentation> -rateChange :: EventName Window Event-rateChange = unsafeEventName (toJSString "ratechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onresize Mozilla Window.onresize documentation> -resize :: EventName Window UIEvent-resize = unsafeEventName (toJSString "resize")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onscroll Mozilla Window.onscroll documentation> -scrollEvent :: EventName Window UIEvent-scrollEvent = unsafeEventName (toJSString "scroll")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onseeked Mozilla Window.onseeked documentation> -seeked :: EventName Window Event-seeked = unsafeEventName (toJSString "seeked")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onseeking Mozilla Window.onseeking documentation> -seeking :: EventName Window Event-seeking = unsafeEventName (toJSString "seeking")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onselect Mozilla Window.onselect documentation> -select :: EventName Window UIEvent-select = unsafeEventName (toJSString "select")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onstalled Mozilla Window.onstalled documentation> -stalled :: EventName Window Event-stalled = unsafeEventName (toJSString "stalled")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onstorage Mozilla Window.onstorage documentation> -storage :: EventName Window StorageEvent-storage = unsafeEventName (toJSString "storage")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onsubmit Mozilla Window.onsubmit documentation> -submit :: EventName Window Event-submit = unsafeEventName (toJSString "submit")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onsuspend Mozilla Window.onsuspend documentation> -suspend :: EventName Window Event-suspend = unsafeEventName (toJSString "suspend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontimeupdate Mozilla Window.ontimeupdate documentation> -timeUpdate :: EventName Window Event-timeUpdate = unsafeEventName (toJSString "timeupdate")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onunload Mozilla Window.onunload documentation> -unload :: EventName Window UIEvent-unload = unsafeEventName (toJSString "unload")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onvolumechange Mozilla Window.onvolumechange documentation> -volumeChange :: EventName Window Event-volumeChange = unsafeEventName (toJSString "volumechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwaiting Mozilla Window.onwaiting documentation> -waiting :: EventName Window Event-waiting = unsafeEventName (toJSString "waiting")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwheel Mozilla Window.onwheel documentation> -wheel :: EventName Window WheelEvent-wheel = unsafeEventName (toJSString "wheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onreset Mozilla Window.onreset documentation> -reset :: EventName Window Event-reset = unsafeEventName (toJSString "reset")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onsearch Mozilla Window.onsearch documentation> -search :: EventName Window Event-search = unsafeEventName (toJSString "search")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitanimationend Mozilla Window.onwebkitanimationend documentation> -webKitAnimationEnd :: EventName Window AnimationEvent-webKitAnimationEnd-  = unsafeEventName (toJSString "webkitanimationend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitanimationiteration Mozilla Window.onwebkitanimationiteration documentation> -webKitAnimationIteration :: EventName Window AnimationEvent-webKitAnimationIteration-  = unsafeEventName (toJSString "webkitanimationiteration")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitanimationstart Mozilla Window.onwebkitanimationstart documentation> -webKitAnimationStart :: EventName Window AnimationEvent-webKitAnimationStart-  = unsafeEventName (toJSString "webkitanimationstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onanimationend Mozilla Window.onanimationend documentation> -animationEnd :: EventName Window AnimationEvent-animationEnd = unsafeEventName (toJSString "animationend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onanimationiteration Mozilla Window.onanimationiteration documentation> -animationIteration :: EventName Window AnimationEvent-animationIteration-  = unsafeEventName (toJSString "animationiteration")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onanimationstart Mozilla Window.onanimationstart documentation> -animationStart :: EventName Window AnimationEvent-animationStart = unsafeEventName (toJSString "animationstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkittransitionend Mozilla Window.onwebkittransitionend documentation> -webKitTransitionEnd :: EventName Window TransitionEvent-webKitTransitionEnd-  = unsafeEventName (toJSString "webkittransitionend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontransitionend Mozilla Window.ontransitionend documentation> -transitionEnd :: EventName Window TransitionEvent-transitionEnd = unsafeEventName (toJSString "transitionend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onorientationchange Mozilla Window.onorientationchange documentation> -orientationChange :: EventName Window Event-orientationChange-  = unsafeEventName (toJSString "orientationchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchstart Mozilla Window.ontouchstart documentation> -touchStart :: EventName Window TouchEvent-touchStart = unsafeEventName (toJSString "touchstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchmove Mozilla Window.ontouchmove documentation> -touchMove :: EventName Window TouchEvent-touchMove = unsafeEventName (toJSString "touchmove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchend Mozilla Window.ontouchend documentation> -touchEnd :: EventName Window TouchEvent-touchEnd = unsafeEventName (toJSString "touchend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ontouchcancel Mozilla Window.ontouchcancel documentation> -touchCancel :: EventName Window TouchEvent-touchCancel = unsafeEventName (toJSString "touchcancel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ongesturestart Mozilla Window.ongesturestart documentation> -gestureStart :: EventName Window UIEvent-gestureStart = unsafeEventName (toJSString "gesturestart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ongesturechange Mozilla Window.ongesturechange documentation> -gestureChange :: EventName Window UIEvent-gestureChange = unsafeEventName (toJSString "gesturechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ongestureend Mozilla Window.ongestureend documentation> -gestureEnd :: EventName Window UIEvent-gestureEnd = unsafeEventName (toJSString "gestureend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondevicemotion Mozilla Window.ondevicemotion documentation> -deviceMotion :: EventName Window DeviceMotionEvent-deviceMotion = unsafeEventName (toJSString "devicemotion")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.ondeviceorientation Mozilla Window.ondeviceorientation documentation> -deviceOrientation :: EventName Window DeviceOrientationEvent-deviceOrientation-  = unsafeEventName (toJSString "deviceorientation")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitdeviceproximity Mozilla Window.onwebkitdeviceproximity documentation> -webKitDeviceProximity :: EventName Window DeviceProximityEvent-webKitDeviceProximity-  = unsafeEventName (toJSString "webkitdeviceproximity")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealbottom Mozilla Window.onwebkitwillrevealbottom documentation> -webKitWillRevealBottom :: EventName Window Event-webKitWillRevealBottom-  = unsafeEventName (toJSString "webkitwillrevealbottom")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealleft Mozilla Window.onwebkitwillrevealleft documentation> -webKitWillRevealLeft :: EventName Window Event-webKitWillRevealLeft-  = unsafeEventName (toJSString "webkitwillrevealleft")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealright Mozilla Window.onwebkitwillrevealright documentation> -webKitWillRevealRight :: EventName Window Event-webKitWillRevealRight-  = unsafeEventName (toJSString "webkitwillrevealright")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Window.onwebkitwillrevealtop Mozilla Window.onwebkitwillrevealtop documentation> -webKitWillRevealTop :: EventName Window Event-webKitWillRevealTop-  = unsafeEventName (toJSString "webkitwillrevealtop")
− src/Language/Javascript/JSaddle/DOM/Generated/WindowBase64.hs 
@@ -1,31 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WindowBase64-       (atob, btoa, WindowBase64, castToWindowBase64, gTypeWindowBase64)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowBase64.atob Mozilla WindowBase64.atob documentation> -atob ::-     (MonadDOM m, ToJSString string, FromJSString result) =>-       WindowBase64 -> string -> m result-atob self string-  = liftDOM-      ((self ^. jsf "atob" [toJSVal string]) >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowBase64.btoa Mozilla WindowBase64.btoa documentation> -btoa ::-     (MonadDOM m, ToJSString string, FromJSString result) =>-       WindowBase64 -> string -> m result-btoa self string-  = liftDOM-      ((self ^. jsf "btoa" [toJSVal string]) >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WindowTimers.hs 
@@ -1,43 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WindowTimers-       (setTimeout, clearTimeout, setInterval, clearInterval,-        WindowTimers, castToWindowTimers, gTypeWindowTimers)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.setTimeout Mozilla WindowTimers.setTimeout documentation> -setTimeout :: (MonadDOM m) => WindowTimers -> JSVal -> Int -> m Int-setTimeout self handler timeout-  = liftDOM-      (round <$>-         ((self ^. jsf "setTimeout" [toJSVal handler, toJSVal timeout]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.clearTimeout Mozilla WindowTimers.clearTimeout documentation> -clearTimeout :: (MonadDOM m) => WindowTimers -> Int -> m ()-clearTimeout self handle-  = liftDOM (void (self ^. jsf "clearTimeout" [toJSVal handle]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.setInterval Mozilla WindowTimers.setInterval documentation> -setInterval ::-            (MonadDOM m) => WindowTimers -> JSVal -> Int -> m Int-setInterval self handler timeout-  = liftDOM-      (round <$>-         ((self ^. jsf "setInterval" [toJSVal handler, toJSVal timeout]) >>=-            valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers.clearInterval Mozilla WindowTimers.clearInterval documentation> -clearInterval :: (MonadDOM m) => WindowTimers -> Int -> m ()-clearInterval self handle-  = liftDOM (void (self ^. jsf "clearInterval" [toJSVal handle]))
− src/Language/Javascript/JSaddle/DOM/Generated/Worker.hs 
@@ -1,41 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.Worker-       (newWorker, postMessage, terminate, message, Worker, castToWorker,-        gTypeWorker)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker Mozilla Worker documentation> -newWorker ::-          (MonadDOM m, ToJSString scriptUrl) => scriptUrl -> m Worker-newWorker scriptUrl-  = liftDOM (Worker <$> new (jsg "Worker") [toJSVal scriptUrl])---- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker.postMessage Mozilla Worker.postMessage documentation> -postMessage ::-            (MonadDOM m, IsSerializedScriptValue message,-             IsArray messagePorts) =>-              Worker -> Maybe message -> Maybe messagePorts -> m ()-postMessage self message messagePorts-  = liftDOM-      (void-         (self ^. jsf "postMessage"-            [toJSVal message, toJSVal messagePorts]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker.terminate Mozilla Worker.terminate documentation> -terminate :: (MonadDOM m) => Worker -> m ()-terminate self = liftDOM (void (self ^. js "terminate"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Worker.onmessage Mozilla Worker.onmessage documentation> -message :: EventName Worker MessageEvent-message = unsafeEventName (toJSString "message")
− src/Language/Javascript/JSaddle/DOM/Generated/WorkerGlobalScope.hs 
@@ -1,69 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WorkerGlobalScope-       (close, importScripts, getSelf, getLocation, error, offline,-        online, getNavigator, WorkerGlobalScope, castToWorkerGlobalScope,-        gTypeWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.close Mozilla WorkerGlobalScope.close documentation> -close :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m ()-close self-  = liftDOM (void ((toWorkerGlobalScope self) ^. js "close"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.importScripts Mozilla WorkerGlobalScope.importScripts documentation> -importScripts ::-              (MonadDOM m, IsWorkerGlobalScope self) => self -> m ()-importScripts self-  = liftDOM (void ((toWorkerGlobalScope self) ^. js "importScripts"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.self Mozilla WorkerGlobalScope.self documentation> -getSelf ::-        (MonadDOM m, IsWorkerGlobalScope self) =>-          self -> m (Maybe WorkerGlobalScope)-getSelf self-  = liftDOM (((toWorkerGlobalScope self) ^. js "self") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.location Mozilla WorkerGlobalScope.location documentation> -getLocation ::-            (MonadDOM m, IsWorkerGlobalScope self) =>-              self -> m (Maybe WorkerLocation)-getLocation self-  = liftDOM-      (((toWorkerGlobalScope self) ^. js "location") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.onerror Mozilla WorkerGlobalScope.onerror documentation> -error ::-      (IsWorkerGlobalScope self, IsEventTarget self) =>-        EventName self UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.onoffline Mozilla WorkerGlobalScope.onoffline documentation> -offline ::-        (IsWorkerGlobalScope self, IsEventTarget self) =>-          EventName self Event-offline = unsafeEventName (toJSString "offline")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.ononline Mozilla WorkerGlobalScope.ononline documentation> -online ::-       (IsWorkerGlobalScope self, IsEventTarget self) =>-         EventName self Event-online = unsafeEventName (toJSString "online")---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope.navigator Mozilla WorkerGlobalScope.navigator documentation> -getNavigator ::-             (MonadDOM m, IsWorkerGlobalScope self) =>-               self -> m (Maybe WorkerNavigator)-getNavigator self-  = liftDOM-      (((toWorkerGlobalScope self) ^. js "navigator") >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/WorkerLocation.hs 
@@ -1,67 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WorkerLocation-       (toString, getHref, getProtocol, getHost, getHostname, getPort,-        getPathname, getSearch, getHash, WorkerLocation,-        castToWorkerLocation, gTypeWorkerLocation)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.toString Mozilla WorkerLocation.toString documentation> -toString ::-         (MonadDOM m, FromJSString result) => WorkerLocation -> m result-toString self-  = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.href Mozilla WorkerLocation.href documentation> -getHref ::-        (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.protocol Mozilla WorkerLocation.protocol documentation> -getProtocol ::-            (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getProtocol self-  = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.host Mozilla WorkerLocation.host documentation> -getHost ::-        (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getHost self = liftDOM ((self ^. js "host") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.hostname Mozilla WorkerLocation.hostname documentation> -getHostname ::-            (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getHostname self-  = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.port Mozilla WorkerLocation.port documentation> -getPort ::-        (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getPort self = liftDOM ((self ^. js "port") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.pathname Mozilla WorkerLocation.pathname documentation> -getPathname ::-            (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getPathname self-  = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.search Mozilla WorkerLocation.search documentation> -getSearch ::-          (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getSearch self-  = liftDOM ((self ^. js "search") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation.hash Mozilla WorkerLocation.hash documentation> -getHash ::-        (MonadDOM m, FromJSString result) => WorkerLocation -> m result-getHash self = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/WorkerNavigator.hs 
@@ -1,57 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.WorkerNavigator-       (getWebkitTemporaryStorage, getWebkitPersistentStorage, getAppName,-        getAppVersion, getPlatform, getUserAgent, getOnLine,-        WorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.webkitTemporaryStorage Mozilla WorkerNavigator.webkitTemporaryStorage documentation> -getWebkitTemporaryStorage ::-                          (MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota)-getWebkitTemporaryStorage self-  = liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.webkitPersistentStorage Mozilla WorkerNavigator.webkitPersistentStorage documentation> -getWebkitPersistentStorage ::-                           (MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota)-getWebkitPersistentStorage self-  = liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.appName Mozilla WorkerNavigator.appName documentation> -getAppName ::-           (MonadDOM m, FromJSString result) => WorkerNavigator -> m result-getAppName self-  = liftDOM ((self ^. js "appName") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.appVersion Mozilla WorkerNavigator.appVersion documentation> -getAppVersion ::-              (MonadDOM m, FromJSString result) => WorkerNavigator -> m result-getAppVersion self-  = liftDOM ((self ^. js "appVersion") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.platform Mozilla WorkerNavigator.platform documentation> -getPlatform ::-            (MonadDOM m, FromJSString result) => WorkerNavigator -> m result-getPlatform self-  = liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.userAgent Mozilla WorkerNavigator.userAgent documentation> -getUserAgent ::-             (MonadDOM m, FromJSString result) => WorkerNavigator -> m result-getUserAgent self-  = liftDOM ((self ^. js "userAgent") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator.onLine Mozilla WorkerNavigator.onLine documentation> -getOnLine :: (MonadDOM m) => WorkerNavigator -> m Bool-getOnLine self = liftDOM ((self ^. js "onLine") >>= valToBool)
− src/Language/Javascript/JSaddle/DOM/Generated/XMLHttpRequest.hs 
@@ -1,197 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequest-       (newXMLHttpRequest, open, setRequestHeader, send, abort,-        getAllResponseHeaders, getResponseHeader, overrideMimeType,-        pattern UNSENT, pattern OPENED, pattern HEADERS_RECEIVED,-        pattern LOADING, pattern DONE, abortEvent, error, load, loadEnd,-        loadStart, progress, timeout, readyStateChange, setTimeout,-        getTimeout, getReadyState, setWithCredentials, getWithCredentials,-        getUpload, getResponseText, getResponseXML, setResponseType,-        getResponseType, getResponse, getStatus, getStatusText,-        getResponseURL, XMLHttpRequest, castToXMLHttpRequest,-        gTypeXMLHttpRequest)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest Mozilla XMLHttpRequest documentation> -newXMLHttpRequest :: (MonadDOM m) => m XMLHttpRequest-newXMLHttpRequest-  = liftDOM (XMLHttpRequest <$> new (jsg "XMLHttpRequest") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.open Mozilla XMLHttpRequest.open documentation> -open ::-     (MonadDOM m, ToJSString method, ToJSString url, ToJSString user,-      ToJSString password) =>-       XMLHttpRequest -> method -> url -> Bool -> user -> password -> m ()-open self method url async user password-  = liftDOM-      (void-         (self ^. jsf "open"-            [toJSVal method, toJSVal url, toJSVal async, toJSVal user,-             toJSVal password]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.setRequestHeader Mozilla XMLHttpRequest.setRequestHeader documentation> -setRequestHeader ::-                 (MonadDOM m, ToJSString header, ToJSString value) =>-                   XMLHttpRequest -> header -> value -> m ()-setRequestHeader self header value-  = liftDOM-      (void-         (self ^. jsf "setRequestHeader" [toJSVal header, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.send Mozilla XMLHttpRequest.send documentation> -send :: (MonadDOM m) => XMLHttpRequest -> m ()-send self = liftDOM (void (self ^. js "send"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.abort Mozilla XMLHttpRequest.abort documentation> -abort :: (MonadDOM m) => XMLHttpRequest -> m ()-abort self = liftDOM (void (self ^. js "abort"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.getAllResponseHeaders Mozilla XMLHttpRequest.getAllResponseHeaders documentation> -getAllResponseHeaders ::-                      (MonadDOM m, FromJSString result) =>-                        XMLHttpRequest -> m (Maybe result)-getAllResponseHeaders self-  = liftDOM-      ((self ^. js "getAllResponseHeaders") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.getResponseHeader Mozilla XMLHttpRequest.getResponseHeader documentation> -getResponseHeader ::-                  (MonadDOM m, ToJSString header, FromJSString result) =>-                    XMLHttpRequest -> header -> m (Maybe result)-getResponseHeader self header-  = liftDOM-      ((self ^. jsf "getResponseHeader" [toJSVal header]) >>=-         fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.overrideMimeType Mozilla XMLHttpRequest.overrideMimeType documentation> -overrideMimeType ::-                 (MonadDOM m, ToJSString override) =>-                   XMLHttpRequest -> override -> m ()-overrideMimeType self override-  = liftDOM-      (void (self ^. jsf "overrideMimeType" [toJSVal override]))-pattern UNSENT = 0-pattern OPENED = 1-pattern HEADERS_RECEIVED = 2-pattern LOADING = 3-pattern DONE = 4---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onabort Mozilla XMLHttpRequest.onabort documentation> -abortEvent :: EventName XMLHttpRequest XMLHttpRequestProgressEvent-abortEvent = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onerror Mozilla XMLHttpRequest.onerror documentation> -error :: EventName XMLHttpRequest XMLHttpRequestProgressEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onload Mozilla XMLHttpRequest.onload documentation> -load :: EventName XMLHttpRequest XMLHttpRequestProgressEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onloadend Mozilla XMLHttpRequest.onloadend documentation> -loadEnd :: EventName XMLHttpRequest ProgressEvent-loadEnd = unsafeEventName (toJSString "loadend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onloadstart Mozilla XMLHttpRequest.onloadstart documentation> -loadStart :: EventName XMLHttpRequest ProgressEvent-loadStart = unsafeEventName (toJSString "loadstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onprogress Mozilla XMLHttpRequest.onprogress documentation> -progress :: EventName XMLHttpRequest XMLHttpRequestProgressEvent-progress = unsafeEventName (toJSString "progress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.ontimeout Mozilla XMLHttpRequest.ontimeout documentation> -timeout :: EventName XMLHttpRequest ProgressEvent-timeout = unsafeEventName (toJSString "timeout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.onreadystatechange Mozilla XMLHttpRequest.onreadystatechange documentation> -readyStateChange :: EventName XMLHttpRequest Event-readyStateChange = unsafeEventName (toJSString "readystatechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.timeout Mozilla XMLHttpRequest.timeout documentation> -setTimeout :: (MonadDOM m) => XMLHttpRequest -> Word -> m ()-setTimeout self val = liftDOM (self ^. jss "timeout" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.timeout Mozilla XMLHttpRequest.timeout documentation> -getTimeout :: (MonadDOM m) => XMLHttpRequest -> m Word-getTimeout self-  = liftDOM (round <$> ((self ^. js "timeout") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.readyState Mozilla XMLHttpRequest.readyState documentation> -getReadyState :: (MonadDOM m) => XMLHttpRequest -> m Word-getReadyState self-  = liftDOM (round <$> ((self ^. js "readyState") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.withCredentials Mozilla XMLHttpRequest.withCredentials documentation> -setWithCredentials ::-                   (MonadDOM m) => XMLHttpRequest -> Bool -> m ()-setWithCredentials self val-  = liftDOM (self ^. jss "withCredentials" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.withCredentials Mozilla XMLHttpRequest.withCredentials documentation> -getWithCredentials :: (MonadDOM m) => XMLHttpRequest -> m Bool-getWithCredentials self-  = liftDOM ((self ^. js "withCredentials") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.upload Mozilla XMLHttpRequest.upload documentation> -getUpload ::-          (MonadDOM m) => XMLHttpRequest -> m (Maybe XMLHttpRequestUpload)-getUpload self = liftDOM ((self ^. js "upload") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseText Mozilla XMLHttpRequest.responseText documentation> -getResponseText ::-                (MonadDOM m, FromJSString result) =>-                  XMLHttpRequest -> m (Maybe result)-getResponseText self-  = liftDOM ((self ^. js "responseText") >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseXML Mozilla XMLHttpRequest.responseXML documentation> -getResponseXML ::-               (MonadDOM m) => XMLHttpRequest -> m (Maybe Document)-getResponseXML self-  = liftDOM ((self ^. js "responseXML") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseType Mozilla XMLHttpRequest.responseType documentation> -setResponseType ::-                (MonadDOM m) =>-                  XMLHttpRequest -> XMLHttpRequestResponseType -> m ()-setResponseType self val-  = liftDOM (self ^. jss "responseType" (toJSVal val))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseType Mozilla XMLHttpRequest.responseType documentation> -getResponseType ::-                (MonadDOM m) => XMLHttpRequest -> m XMLHttpRequestResponseType-getResponseType self-  = liftDOM ((self ^. js "responseType") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.response Mozilla XMLHttpRequest.response documentation> -getResponse :: (MonadDOM m) => XMLHttpRequest -> m (Maybe GObject)-getResponse self = liftDOM ((self ^. js "response") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.status Mozilla XMLHttpRequest.status documentation> -getStatus :: (MonadDOM m) => XMLHttpRequest -> m Word-getStatus self-  = liftDOM (round <$> ((self ^. js "status") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.statusText Mozilla XMLHttpRequest.statusText documentation> -getStatusText ::-              (MonadDOM m, FromJSString result) => XMLHttpRequest -> m result-getStatusText self-  = liftDOM ((self ^. js "statusText") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest.responseURL Mozilla XMLHttpRequest.responseURL documentation> -getResponseURL ::-               (MonadDOM m, FromJSString result) => XMLHttpRequest -> m result-getResponseURL self-  = liftDOM ((self ^. js "responseURL") >>= fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/XMLHttpRequestProgressEvent.hs 
@@ -1,29 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequestProgressEvent-       (getPosition, getTotalSize, XMLHttpRequestProgressEvent,-        castToXMLHttpRequestProgressEvent,-        gTypeXMLHttpRequestProgressEvent)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestProgressEvent.position Mozilla XMLHttpRequestProgressEvent.position documentation> -getPosition ::-            (MonadDOM m) => XMLHttpRequestProgressEvent -> m Word64-getPosition self-  = liftDOM (round <$> ((self ^. js "position") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestProgressEvent.totalSize Mozilla XMLHttpRequestProgressEvent.totalSize documentation> -getTotalSize ::-             (MonadDOM m) => XMLHttpRequestProgressEvent -> m Word64-getTotalSize self-  = liftDOM (round <$> ((self ^. js "totalSize") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/XMLHttpRequestUpload.hs 
@@ -1,42 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XMLHttpRequestUpload-       (abort, error, load, loadEnd, loadStart, progress,-        XMLHttpRequestUpload, castToXMLHttpRequestUpload,-        gTypeXMLHttpRequestUpload)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onabort Mozilla XMLHttpRequestUpload.onabort documentation> -abort :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent-abort = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onerror Mozilla XMLHttpRequestUpload.onerror documentation> -error :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onload Mozilla XMLHttpRequestUpload.onload documentation> -load :: EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onloadend Mozilla XMLHttpRequestUpload.onloadend documentation> -loadEnd :: EventName XMLHttpRequestUpload ProgressEvent-loadEnd = unsafeEventName (toJSString "loadend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onloadstart Mozilla XMLHttpRequestUpload.onloadstart documentation> -loadStart :: EventName XMLHttpRequestUpload ProgressEvent-loadStart = unsafeEventName (toJSString "loadstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload.onprogress Mozilla XMLHttpRequestUpload.onprogress documentation> -progress ::-           EventName XMLHttpRequestUpload XMLHttpRequestProgressEvent-progress = unsafeEventName (toJSString "progress")
− src/Language/Javascript/JSaddle/DOM/Generated/XMLSerializer.hs 
@@ -1,30 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XMLSerializer-       (newXMLSerializer, serializeToString, XMLSerializer,-        castToXMLSerializer, gTypeXMLSerializer)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLSerializer Mozilla XMLSerializer documentation> -newXMLSerializer :: (MonadDOM m) => m XMLSerializer-newXMLSerializer-  = liftDOM (XMLSerializer <$> new (jsg "XMLSerializer") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/XMLSerializer.serializeToString Mozilla XMLSerializer.serializeToString documentation> -serializeToString ::-                  (MonadDOM m, IsNode node, FromJSString result) =>-                    XMLSerializer -> Maybe node -> m result-serializeToString self node-  = liftDOM-      ((self ^. jsf "serializeToString" [toJSVal node]) >>=-         fromJSValUnchecked)
− src/Language/Javascript/JSaddle/DOM/Generated/XPathEvaluator.hs 
@@ -1,56 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XPathEvaluator-       (newXPathEvaluator, createExpression, createNSResolver, evaluate,-        XPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator Mozilla XPathEvaluator documentation> -newXPathEvaluator :: (MonadDOM m) => m XPathEvaluator-newXPathEvaluator-  = liftDOM (XPathEvaluator <$> new (jsg "XPathEvaluator") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator.createExpression Mozilla XPathEvaluator.createExpression documentation> -createExpression ::-                 (MonadDOM m, ToJSString expression) =>-                   XPathEvaluator ->-                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)-createExpression self expression resolver-  = liftDOM-      ((self ^. jsf "createExpression"-          [toJSVal expression, toJSVal resolver])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator.createNSResolver Mozilla XPathEvaluator.createNSResolver documentation> -createNSResolver ::-                 (MonadDOM m, IsNode nodeResolver) =>-                   XPathEvaluator -> Maybe nodeResolver -> m (Maybe XPathNSResolver)-createNSResolver self nodeResolver-  = liftDOM-      ((self ^. jsf "createNSResolver" [toJSVal nodeResolver]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator.evaluate Mozilla XPathEvaluator.evaluate documentation> -evaluate ::-         (MonadDOM m, ToJSString expression, IsNode contextNode) =>-           XPathEvaluator ->-             expression ->-               Maybe contextNode ->-                 Maybe XPathNSResolver ->-                   Word -> Maybe XPathResult -> m (Maybe XPathResult)-evaluate self expression contextNode resolver type' inResult-  = liftDOM-      ((self ^. jsf "evaluate"-          [toJSVal expression, toJSVal contextNode, toJSVal resolver,-           toJSVal type', toJSVal inResult])-         >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/XPathExpression.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XPathExpression-       (evaluate, XPathExpression, castToXPathExpression,-        gTypeXPathExpression)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathExpression.evaluate Mozilla XPathExpression.evaluate documentation> -evaluate ::-         (MonadDOM m, IsNode contextNode) =>-           XPathExpression ->-             Maybe contextNode ->-               Word -> Maybe XPathResult -> m (Maybe XPathResult)-evaluate self contextNode type' inResult-  = liftDOM-      ((self ^. jsf "evaluate"-          [toJSVal contextNode, toJSVal type', toJSVal inResult])-         >>= fromJSVal)
− src/Language/Javascript/JSaddle/DOM/Generated/XPathNSResolver.hs 
@@ -1,25 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XPathNSResolver-       (lookupNamespaceURI, XPathNSResolver, castToXPathNSResolver,-        gTypeXPathNSResolver)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathNSResolver.lookupNamespaceURI Mozilla XPathNSResolver.lookupNamespaceURI documentation> -lookupNamespaceURI ::-                   (MonadDOM m, ToJSString prefix, FromJSString result) =>-                     XPathNSResolver -> prefix -> m (Maybe result)-lookupNamespaceURI self prefix-  = liftDOM-      ((self ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>=-         fromMaybeJSString)
− src/Language/Javascript/JSaddle/DOM/Generated/XPathResult.hs 
@@ -1,83 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XPathResult-       (iterateNext, snapshotItem, pattern ANY_TYPE, pattern NUMBER_TYPE,-        pattern STRING_TYPE, pattern BOOLEAN_TYPE,-        pattern UNORDERED_NODE_ITERATOR_TYPE,-        pattern ORDERED_NODE_ITERATOR_TYPE,-        pattern UNORDERED_NODE_SNAPSHOT_TYPE,-        pattern ORDERED_NODE_SNAPSHOT_TYPE,-        pattern ANY_UNORDERED_NODE_TYPE, pattern FIRST_ORDERED_NODE_TYPE,-        getResultType, getNumberValue, getStringValue, getBooleanValue,-        getSingleNodeValue, getInvalidIteratorState, getSnapshotLength,-        XPathResult, castToXPathResult, gTypeXPathResult)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.iterateNext Mozilla XPathResult.iterateNext documentation> -iterateNext :: (MonadDOM m) => XPathResult -> m (Maybe Node)-iterateNext self-  = liftDOM ((self ^. js "iterateNext") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.snapshotItem Mozilla XPathResult.snapshotItem documentation> -snapshotItem ::-             (MonadDOM m) => XPathResult -> Word -> m (Maybe Node)-snapshotItem self index-  = liftDOM-      ((self ^. jsf "snapshotItem" [toJSVal index]) >>= fromJSVal)-pattern ANY_TYPE = 0-pattern NUMBER_TYPE = 1-pattern STRING_TYPE = 2-pattern BOOLEAN_TYPE = 3-pattern UNORDERED_NODE_ITERATOR_TYPE = 4-pattern ORDERED_NODE_ITERATOR_TYPE = 5-pattern UNORDERED_NODE_SNAPSHOT_TYPE = 6-pattern ORDERED_NODE_SNAPSHOT_TYPE = 7-pattern ANY_UNORDERED_NODE_TYPE = 8-pattern FIRST_ORDERED_NODE_TYPE = 9---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.resultType Mozilla XPathResult.resultType documentation> -getResultType :: (MonadDOM m) => XPathResult -> m Word-getResultType self-  = liftDOM (round <$> ((self ^. js "resultType") >>= valToNumber))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.numberValue Mozilla XPathResult.numberValue documentation> -getNumberValue :: (MonadDOM m) => XPathResult -> m Double-getNumberValue self-  = liftDOM ((self ^. js "numberValue") >>= valToNumber)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.stringValue Mozilla XPathResult.stringValue documentation> -getStringValue ::-               (MonadDOM m, FromJSString result) => XPathResult -> m result-getStringValue self-  = liftDOM ((self ^. js "stringValue") >>= fromJSValUnchecked)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.booleanValue Mozilla XPathResult.booleanValue documentation> -getBooleanValue :: (MonadDOM m) => XPathResult -> m Bool-getBooleanValue self-  = liftDOM ((self ^. js "booleanValue") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.singleNodeValue Mozilla XPathResult.singleNodeValue documentation> -getSingleNodeValue :: (MonadDOM m) => XPathResult -> m (Maybe Node)-getSingleNodeValue self-  = liftDOM ((self ^. js "singleNodeValue") >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.invalidIteratorState Mozilla XPathResult.invalidIteratorState documentation> -getInvalidIteratorState :: (MonadDOM m) => XPathResult -> m Bool-getInvalidIteratorState self-  = liftDOM ((self ^. js "invalidIteratorState") >>= valToBool)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult.snapshotLength Mozilla XPathResult.snapshotLength documentation> -getSnapshotLength :: (MonadDOM m) => XPathResult -> m Word-getSnapshotLength self-  = liftDOM-      (round <$> ((self ^. js "snapshotLength") >>= valToNumber))
− src/Language/Javascript/JSaddle/DOM/Generated/XSLTProcessor.hs 
@@ -1,92 +0,0 @@-{-# LANGUAGE PatternSynonyms #-}-module Language.Javascript.JSaddle.DOM.Generated.XSLTProcessor-       (newXSLTProcessor, importStylesheet, transformToFragment,-        transformToDocument, setParameter, getParameter, removeParameter,-        clearParameters, reset, XSLTProcessor, castToXSLTProcessor,-        gTypeXSLTProcessor)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))-import Data.Typeable (Typeable)-import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)-import Data.Int (Int64)-import Data.Word (Word, Word64)-import Language.Javascript.JSaddle.DOM.Types-import Control.Applicative ((<$>))-import Control.Monad (void)-import Control.Lens.Operators ((^.))-import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName)-import Language.Javascript.JSaddle.DOM.Enums---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor Mozilla XSLTProcessor documentation> -newXSLTProcessor :: (MonadDOM m) => m XSLTProcessor-newXSLTProcessor-  = liftDOM (XSLTProcessor <$> new (jsg "XSLTProcessor") ())---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.importStylesheet Mozilla XSLTProcessor.importStylesheet documentation> -importStylesheet ::-                 (MonadDOM m, IsNode stylesheet) =>-                   XSLTProcessor -> Maybe stylesheet -> m ()-importStylesheet self stylesheet-  = liftDOM-      (void (self ^. jsf "importStylesheet" [toJSVal stylesheet]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.transformToFragment Mozilla XSLTProcessor.transformToFragment documentation> -transformToFragment ::-                    (MonadDOM m, IsNode source, IsDocument docVal) =>-                      XSLTProcessor ->-                        Maybe source -> Maybe docVal -> m (Maybe DocumentFragment)-transformToFragment self source docVal-  = liftDOM-      ((self ^. jsf "transformToFragment"-          [toJSVal source, toJSVal docVal])-         >>= fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.transformToDocument Mozilla XSLTProcessor.transformToDocument documentation> -transformToDocument ::-                    (MonadDOM m, IsNode source) =>-                      XSLTProcessor -> Maybe source -> m (Maybe Document)-transformToDocument self source-  = liftDOM-      ((self ^. jsf "transformToDocument" [toJSVal source]) >>=-         fromJSVal)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.setParameter Mozilla XSLTProcessor.setParameter documentation> -setParameter ::-             (MonadDOM m, ToJSString namespaceURI, ToJSString localName,-              ToJSString value) =>-               XSLTProcessor -> namespaceURI -> localName -> value -> m ()-setParameter self namespaceURI localName value-  = liftDOM-      (void-         (self ^. jsf "setParameter"-            [toJSVal namespaceURI, toJSVal localName, toJSVal value]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.getParameter Mozilla XSLTProcessor.getParameter documentation> -getParameter ::-             (MonadDOM m, ToJSString namespaceURI, ToJSString localName,-              FromJSString result) =>-               XSLTProcessor -> namespaceURI -> localName -> m (Maybe result)-getParameter self namespaceURI localName-  = liftDOM-      ((self ^. jsf "getParameter"-          [toJSVal namespaceURI, toJSVal localName])-         >>= fromMaybeJSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.removeParameter Mozilla XSLTProcessor.removeParameter documentation> -removeParameter ::-                (MonadDOM m, ToJSString namespaceURI, ToJSString localName) =>-                  XSLTProcessor -> namespaceURI -> localName -> m ()-removeParameter self namespaceURI localName-  = liftDOM-      (void-         (self ^. jsf "removeParameter"-            [toJSVal namespaceURI, toJSVal localName]))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.clearParameters Mozilla XSLTProcessor.clearParameters documentation> -clearParameters :: (MonadDOM m) => XSLTProcessor -> m ()-clearParameters self-  = liftDOM (void (self ^. js "clearParameters"))---- | <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor.reset Mozilla XSLTProcessor.reset documentation> -reset :: (MonadDOM m) => XSLTProcessor -> m ()-reset self = liftDOM (void (self ^. js "reset"))
− src/Language/Javascript/JSaddle/DOM/Types.hs 
@@ -1,26865 +0,0 @@-{-# LANGUAGE FlexibleContexts #-}-{-# LANGUAGE CPP #-}-{-# LANGUAGE TypeSynonymInstances #-}-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE ConstraintKinds #-}-{-# LANGUAGE LambdaCase #-}-module Language.Javascript.JSaddle.DOM.Types (-  -- * Monad-    DOM, DOMContext, askDOM, runDOM, MonadDOM(..)--  -- * Object-  , maybeNullOrUndefined, maybeNullOrUndefined', maybeToNullable-  , propagateGError, GType(..)-  , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString-  , ToJSVal(..), FromJSVal(..), fromJSArray, fromJSArrayUnchecked--  -- * DOMString-  , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, ToJSString(..), FromJSString(..)-  , toMaybeJSString, fromMaybeJSString--  -- * Callbacks-  , Callback(..)-  , withCallback-  , AudioBufferCallback(..)-  , DatabaseCallback(..)-  , MediaQueryListListener(..)-  , MediaStreamTrackSourcesCallback(..)-  , NavigatorUserMediaErrorCallback(..)-  , NavigatorUserMediaSuccessCallback(..)-  , NotificationPermissionCallback(..)-  , PositionCallback(..)-  , PositionErrorCallback(..)-  , RequestAnimationFrameCallback(..)-  , RTCPeerConnectionErrorCallback(..)-  , RTCSessionDescriptionCallback(..)-  , RTCStatsCallback(..)-  , SQLStatementCallback(..)-  , SQLStatementErrorCallback(..)-  , SQLTransactionCallback(..)-  , SQLTransactionErrorCallback(..)-  , StorageErrorCallback(..)-  , StorageQuotaCallback(..)-  , StorageUsageCallback(..)-  , StringCallback(..)-  , VoidCallback(..)--  -- * Dictionaries-  , Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary-  , BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag--  -- * Mutation Callback-  , MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback--  -- * Promise-  , Promise(Promise), unPromise, IsPromise, toPromise, castToPromise, gTypePromise--  -- * Date-  , Date(Date), unDate, IsDate, toDate, castToDate, gTypeDate--  -- * Arrays-  , Array(Array), unArray, IsArray, toArray, castToArray, gTypeArray-  , ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray-  , ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, castToArrayBuffer, gTypeArrayBuffer-  , ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView-  , Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, castToFloat32Array, gTypeFloat32Array-  , Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, castToFloat64Array, gTypeFloat64Array-  , Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, castToUint8Array, gTypeUint8Array-  , Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, castToUint8ClampedArray, gTypeUint8ClampedArray-  , Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, castToUint16Array, gTypeUint16Array-  , Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, castToUint32Array, gTypeUint32Array-  , Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, castToInt8Array, gTypeInt8Array-  , Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, castToInt16Array, gTypeInt16Array-  , Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, castToInt32Array, gTypeInt32Array--  -- * Geolocation-  , SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue-  , PositionOptions(PositionOptions), unPositionOptions, IsPositionOptions, toPositionOptions-  , Acceleration(Acceleration), unAcceleration, IsAcceleration, toAcceleration-  , RotationRate(RotationRate), unRotationRate, IsRotationRate, toRotationRate--  -- * Crypto-  , Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm-  , CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData--  -- * CanvasStyle (fill & stroke style)-  , CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle, toCanvasStyle--  , DOMException(DOMException), unDOMException, IsDOMException, toDOMException--  -- * WebGL typedefs-  , GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..)-  , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..)-  , GLint64, GLuint64--  -- * Interface types from IDL files---- AUTO GENERATION STARTS HERE-  , ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, castToANGLEInstancedArrays, gTypeANGLEInstancedArrays-  , AbstractView(AbstractView), unAbstractView, castToAbstractView, gTypeAbstractView-  , AbstractWorker(AbstractWorker), unAbstractWorker, castToAbstractWorker, gTypeAbstractWorker-  , AllAudioCapabilities(AllAudioCapabilities), unAllAudioCapabilities, castToAllAudioCapabilities, gTypeAllAudioCapabilities-  , AllVideoCapabilities(AllVideoCapabilities), unAllVideoCapabilities, castToAllVideoCapabilities, gTypeAllVideoCapabilities-  , AnalyserNode(AnalyserNode), unAnalyserNode, castToAnalyserNode, gTypeAnalyserNode-  , AnimationEvent(AnimationEvent), unAnimationEvent, castToAnimationEvent, gTypeAnimationEvent-  , ApplicationCache(ApplicationCache), unApplicationCache, castToApplicationCache, gTypeApplicationCache-  , Attr(Attr), unAttr, castToAttr, gTypeAttr-  , AudioBuffer(AudioBuffer), unAudioBuffer, castToAudioBuffer, gTypeAudioBuffer-  , AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, castToAudioBufferSourceNode, gTypeAudioBufferSourceNode-  , AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, castToAudioContext, gTypeAudioContext-  , AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, castToAudioDestinationNode, gTypeAudioDestinationNode-  , AudioListener(AudioListener), unAudioListener, castToAudioListener, gTypeAudioListener-  , AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, castToAudioNode, gTypeAudioNode-  , AudioParam(AudioParam), unAudioParam, castToAudioParam, gTypeAudioParam-  , AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, castToAudioProcessingEvent, gTypeAudioProcessingEvent-  , AudioStreamTrack(AudioStreamTrack), unAudioStreamTrack, castToAudioStreamTrack, gTypeAudioStreamTrack-  , AudioTrack(AudioTrack), unAudioTrack, castToAudioTrack, gTypeAudioTrack-  , AudioTrackList(AudioTrackList), unAudioTrackList, castToAudioTrackList, gTypeAudioTrackList-  , AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent-  , BarProp(BarProp), unBarProp, castToBarProp, gTypeBarProp-  , BatteryManager(BatteryManager), unBatteryManager, castToBatteryManager, gTypeBatteryManager-  , BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, castToBeforeLoadEvent, gTypeBeforeLoadEvent-  , BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, castToBeforeUnloadEvent, gTypeBeforeUnloadEvent-  , BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode-  , Blob(Blob), unBlob, IsBlob, toBlob, castToBlob, gTypeBlob-  , CDATASection(CDATASection), unCDATASection, castToCDATASection, gTypeCDATASection-  , CSS(CSS), unCSS, castToCSS, gTypeCSS-  , CSSCharsetRule(CSSCharsetRule), unCSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule-  , CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent-  , CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, castToCSSFontFaceRule, gTypeCSSFontFaceRule-  , CSSImportRule(CSSImportRule), unCSSImportRule, castToCSSImportRule, gTypeCSSImportRule-  , CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, castToCSSKeyframeRule, gTypeCSSKeyframeRule-  , CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, castToCSSKeyframesRule, gTypeCSSKeyframesRule-  , CSSMediaRule(CSSMediaRule), unCSSMediaRule, castToCSSMediaRule, gTypeCSSMediaRule-  , CSSPageRule(CSSPageRule), unCSSPageRule, castToCSSPageRule, gTypeCSSPageRule-  , CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, castToCSSPrimitiveValue, gTypeCSSPrimitiveValue-  , CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, castToCSSRule, gTypeCSSRule-  , CSSRuleList(CSSRuleList), unCSSRuleList, castToCSSRuleList, gTypeCSSRuleList-  , CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, castToCSSStyleDeclaration, gTypeCSSStyleDeclaration-  , CSSStyleRule(CSSStyleRule), unCSSStyleRule, castToCSSStyleRule, gTypeCSSStyleRule-  , CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, castToCSSStyleSheet, gTypeCSSStyleSheet-  , CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule-  , CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, castToCSSUnknownRule, gTypeCSSUnknownRule-  , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, castToCSSValue, gTypeCSSValue-  , CSSValueList(CSSValueList), unCSSValueList, IsCSSValueList, toCSSValueList, castToCSSValueList, gTypeCSSValueList-  , CanvasGradient(CanvasGradient), unCanvasGradient, castToCanvasGradient, gTypeCanvasGradient-  , CanvasPattern(CanvasPattern), unCanvasPattern, castToCanvasPattern, gTypeCanvasPattern-  , CanvasProxy(CanvasProxy), unCanvasProxy, castToCanvasProxy, gTypeCanvasProxy-  , CanvasRenderingContext(CanvasRenderingContext), unCanvasRenderingContext, IsCanvasRenderingContext, toCanvasRenderingContext, castToCanvasRenderingContext, gTypeCanvasRenderingContext-  , CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D-  , CapabilityRange(CapabilityRange), unCapabilityRange, castToCapabilityRange, gTypeCapabilityRange-  , ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, castToChannelMergerNode, gTypeChannelMergerNode-  , ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, castToChannelSplitterNode, gTypeChannelSplitterNode-  , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, castToCharacterData, gTypeCharacterData-  , ChildNode(ChildNode), unChildNode, castToChildNode, gTypeChildNode-  , ClientRect(ClientRect), unClientRect, castToClientRect, gTypeClientRect-  , ClientRectList(ClientRectList), unClientRectList, castToClientRectList, gTypeClientRectList-  , CloseEvent(CloseEvent), unCloseEvent, castToCloseEvent, gTypeCloseEvent-  , CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, castToCommandLineAPIHost, gTypeCommandLineAPIHost-  , Comment(Comment), unComment, castToComment, gTypeComment-  , CompositionEvent(CompositionEvent), unCompositionEvent, castToCompositionEvent, gTypeCompositionEvent-  , ConvolverNode(ConvolverNode), unConvolverNode, castToConvolverNode, gTypeConvolverNode-  , Coordinates(Coordinates), unCoordinates, castToCoordinates, gTypeCoordinates-  , Counter(Counter), unCounter, castToCounter, gTypeCounter-  , Crypto(Crypto), unCrypto, castToCrypto, gTypeCrypto-  , CryptoKey(CryptoKey), unCryptoKey, castToCryptoKey, gTypeCryptoKey-  , CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair-  , CustomEvent(CustomEvent), unCustomEvent, castToCustomEvent, gTypeCustomEvent-  , DOMError(DOMError), unDOMError, IsDOMError, toDOMError, castToDOMError, gTypeDOMError-  , DOMImplementation(DOMImplementation), unDOMImplementation, castToDOMImplementation, gTypeDOMImplementation-  , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection-  , DOMParser(DOMParser), unDOMParser, castToDOMParser, gTypeDOMParser-  , DOMSettableTokenList(DOMSettableTokenList), unDOMSettableTokenList, castToDOMSettableTokenList, gTypeDOMSettableTokenList-  , DOMStringList(DOMStringList), unDOMStringList, castToDOMStringList, gTypeDOMStringList-  , DOMStringMap(DOMStringMap), unDOMStringMap, castToDOMStringMap, gTypeDOMStringMap-  , DOMTokenList(DOMTokenList), unDOMTokenList, IsDOMTokenList, toDOMTokenList, castToDOMTokenList, gTypeDOMTokenList-  , DataCue(DataCue), unDataCue, castToDataCue, gTypeDataCue-  , DataTransfer(DataTransfer), unDataTransfer, castToDataTransfer, gTypeDataTransfer-  , DataTransferItem(DataTransferItem), unDataTransferItem, castToDataTransferItem, gTypeDataTransferItem-  , DataTransferItemList(DataTransferItemList), unDataTransferItemList, castToDataTransferItemList, gTypeDataTransferItemList-  , Database(Database), unDatabase, castToDatabase, gTypeDatabase-  , DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope-  , DelayNode(DelayNode), unDelayNode, castToDelayNode, gTypeDelayNode-  , DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent-  , DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, castToDeviceOrientationEvent, gTypeDeviceOrientationEvent-  , DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, castToDeviceProximityEvent, gTypeDeviceProximityEvent-  , Document(Document), unDocument, IsDocument, toDocument, castToDocument, gTypeDocument-  , DocumentFragment(DocumentFragment), unDocumentFragment, castToDocumentFragment, gTypeDocumentFragment-  , DocumentType(DocumentType), unDocumentType, castToDocumentType, gTypeDocumentType-  , DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, castToDynamicsCompressorNode, gTypeDynamicsCompressorNode-  , EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, castToEXTBlendMinMax, gTypeEXTBlendMinMax-  , EXTFragDepth(EXTFragDepth), unEXTFragDepth, castToEXTFragDepth, gTypeEXTFragDepth-  , EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, castToEXTShaderTextureLOD, gTypeEXTShaderTextureLOD-  , EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic-  , EXTsRGB(EXTsRGB), unEXTsRGB, castToEXTsRGB, gTypeEXTsRGB-  , Element(Element), unElement, IsElement, toElement, castToElement, gTypeElement-  , Entity(Entity), unEntity, castToEntity, gTypeEntity-  , EntityReference(EntityReference), unEntityReference, castToEntityReference, gTypeEntityReference-  , ErrorEvent(ErrorEvent), unErrorEvent, castToErrorEvent, gTypeErrorEvent-  , Event(Event), unEvent, IsEvent, toEvent, castToEvent, gTypeEvent-  , EventListener(EventListener), unEventListener, castToEventListener, gTypeEventListener-  , EventSource(EventSource), unEventSource, castToEventSource, gTypeEventSource-  , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, castToEventTarget, gTypeEventTarget-  , File(File), unFile, castToFile, gTypeFile-  , FileError(FileError), unFileError, castToFileError, gTypeFileError-  , FileList(FileList), unFileList, castToFileList, gTypeFileList-  , FileReader(FileReader), unFileReader, castToFileReader, gTypeFileReader-  , FileReaderSync(FileReaderSync), unFileReaderSync, castToFileReaderSync, gTypeFileReaderSync-  , FocusEvent(FocusEvent), unFocusEvent, castToFocusEvent, gTypeFocusEvent-  , FontLoader(FontLoader), unFontLoader, castToFontLoader, gTypeFontLoader-  , FormData(FormData), unFormData, castToFormData, gTypeFormData-  , GainNode(GainNode), unGainNode, castToGainNode, gTypeGainNode-  , Gamepad(Gamepad), unGamepad, castToGamepad, gTypeGamepad-  , GamepadButton(GamepadButton), unGamepadButton, castToGamepadButton, gTypeGamepadButton-  , GamepadEvent(GamepadEvent), unGamepadEvent, castToGamepadEvent, gTypeGamepadEvent-  , Geolocation(Geolocation), unGeolocation, castToGeolocation, gTypeGeolocation-  , Geoposition(Geoposition), unGeoposition, castToGeoposition, gTypeGeoposition-  , HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, castToHTMLAllCollection, gTypeHTMLAllCollection-  , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement-  , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, castToHTMLAppletElement, gTypeHTMLAppletElement-  , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement-  , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, castToHTMLAudioElement, gTypeHTMLAudioElement-  , HTMLBRElement(HTMLBRElement), unHTMLBRElement, castToHTMLBRElement, gTypeHTMLBRElement-  , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement-  , HTMLBaseFontElement(HTMLBaseFontElement), unHTMLBaseFontElement, castToHTMLBaseFontElement, gTypeHTMLBaseFontElement-  , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement-  , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement-  , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement-  , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, castToHTMLCollection, gTypeHTMLCollection-  , HTMLDListElement(HTMLDListElement), unHTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement-  , HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, castToHTMLDataListElement, gTypeHTMLDataListElement-  , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, castToHTMLDetailsElement, gTypeHTMLDetailsElement-  , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, castToHTMLDirectoryElement, gTypeHTMLDirectoryElement-  , HTMLDivElement(HTMLDivElement), unHTMLDivElement, castToHTMLDivElement, gTypeHTMLDivElement-  , HTMLDocument(HTMLDocument), unHTMLDocument, castToHTMLDocument, gTypeHTMLDocument-  , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, castToHTMLElement, gTypeHTMLElement-  , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement-  , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement-  , HTMLFontElement(HTMLFontElement), unHTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement-  , HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection-  , HTMLFormElement(HTMLFormElement), unHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement-  , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement-  , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, castToHTMLFrameSetElement, gTypeHTMLFrameSetElement-  , HTMLHRElement(HTMLHRElement), unHTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement-  , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement-  , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, castToHTMLHeadingElement, gTypeHTMLHeadingElement-  , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement-  , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement-  , HTMLImageElement(HTMLImageElement), unHTMLImageElement, castToHTMLImageElement, gTypeHTMLImageElement-  , HTMLInputElement(HTMLInputElement), unHTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement-  , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement-  , HTMLLIElement(HTMLLIElement), unHTMLLIElement, castToHTMLLIElement, gTypeHTMLLIElement-  , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, castToHTMLLabelElement, gTypeHTMLLabelElement-  , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement-  , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement-  , HTMLMapElement(HTMLMapElement), unHTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement-  , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, castToHTMLMarqueeElement, gTypeHTMLMarqueeElement-  , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement-  , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement-  , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, castToHTMLMetaElement, gTypeHTMLMetaElement-  , HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement-  , HTMLModElement(HTMLModElement), unHTMLModElement, castToHTMLModElement, gTypeHTMLModElement-  , HTMLOListElement(HTMLOListElement), unHTMLOListElement, castToHTMLOListElement, gTypeHTMLOListElement-  , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement-  , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, castToHTMLOptGroupElement, gTypeHTMLOptGroupElement-  , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement-  , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection-  , HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, castToHTMLOutputElement, gTypeHTMLOutputElement-  , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, castToHTMLParagraphElement, gTypeHTMLParagraphElement-  , HTMLParamElement(HTMLParamElement), unHTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement-  , HTMLPreElement(HTMLPreElement), unHTMLPreElement, castToHTMLPreElement, gTypeHTMLPreElement-  , HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, castToHTMLProgressElement, gTypeHTMLProgressElement-  , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, castToHTMLQuoteElement, gTypeHTMLQuoteElement-  , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement-  , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement-  , HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement-  , HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, castToHTMLSpanElement, gTypeHTMLSpanElement-  , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement-  , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, castToHTMLTableCaptionElement, gTypeHTMLTableCaptionElement-  , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, castToHTMLTableCellElement, gTypeHTMLTableCellElement-  , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, castToHTMLTableColElement, gTypeHTMLTableColElement-  , HTMLTableElement(HTMLTableElement), unHTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement-  , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement-  , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement-  , HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, castToHTMLTemplateElement, gTypeHTMLTemplateElement-  , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement-  , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement-  , HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement-  , HTMLUListElement(HTMLUListElement), unHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement-  , HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, castToHTMLUnknownElement, gTypeHTMLUnknownElement-  , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, castToHTMLVideoElement, gTypeHTMLVideoElement-  , HashChangeEvent(HashChangeEvent), unHashChangeEvent, castToHashChangeEvent, gTypeHashChangeEvent-  , History(History), unHistory, castToHistory, gTypeHistory-  , IDBAny(IDBAny), unIDBAny, castToIDBAny, gTypeIDBAny-  , IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, castToIDBCursor, gTypeIDBCursor-  , IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, castToIDBCursorWithValue, gTypeIDBCursorWithValue-  , IDBDatabase(IDBDatabase), unIDBDatabase, castToIDBDatabase, gTypeIDBDatabase-  , IDBFactory(IDBFactory), unIDBFactory, castToIDBFactory, gTypeIDBFactory-  , IDBIndex(IDBIndex), unIDBIndex, castToIDBIndex, gTypeIDBIndex-  , IDBKeyRange(IDBKeyRange), unIDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange-  , IDBObjectStore(IDBObjectStore), unIDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore-  , IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, castToIDBOpenDBRequest, gTypeIDBOpenDBRequest-  , IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, castToIDBRequest, gTypeIDBRequest-  , IDBTransaction(IDBTransaction), unIDBTransaction, castToIDBTransaction, gTypeIDBTransaction-  , IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent-  , ImageData(ImageData), unImageData, castToImageData, gTypeImageData-  , InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, castToInspectorFrontendHost, gTypeInspectorFrontendHost-  , InternalSettings(InternalSettings), unInternalSettings, castToInternalSettings, gTypeInternalSettings-  , Internals(Internals), unInternals, castToInternals, gTypeInternals-  , KeyboardEvent(KeyboardEvent), unKeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent-  , Location(Location), unLocation, castToLocation, gTypeLocation-  , MallocStatistics(MallocStatistics), unMallocStatistics, castToMallocStatistics, gTypeMallocStatistics-  , MediaController(MediaController), unMediaController, castToMediaController, gTypeMediaController-  , MediaControlsHost(MediaControlsHost), unMediaControlsHost, castToMediaControlsHost, gTypeMediaControlsHost-  , MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, castToMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode-  , MediaError(MediaError), unMediaError, castToMediaError, gTypeMediaError-  , MediaKeyError(MediaKeyError), unMediaKeyError, castToMediaKeyError, gTypeMediaKeyError-  , MediaKeyEvent(MediaKeyEvent), unMediaKeyEvent, castToMediaKeyEvent, gTypeMediaKeyEvent-  , MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent-  , MediaKeyNeededEvent(MediaKeyNeededEvent), unMediaKeyNeededEvent, castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent-  , MediaKeySession(MediaKeySession), unMediaKeySession, castToMediaKeySession, gTypeMediaKeySession-  , MediaKeys(MediaKeys), unMediaKeys, castToMediaKeys, gTypeMediaKeys-  , MediaList(MediaList), unMediaList, castToMediaList, gTypeMediaList-  , MediaQueryList(MediaQueryList), unMediaQueryList, castToMediaQueryList, gTypeMediaQueryList-  , MediaSource(MediaSource), unMediaSource, castToMediaSource, gTypeMediaSource-  , MediaSourceStates(MediaSourceStates), unMediaSourceStates, castToMediaSourceStates, gTypeMediaSourceStates-  , MediaStream(MediaStream), unMediaStream, castToMediaStream, gTypeMediaStream-  , MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, castToMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode-  , MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode-  , MediaStreamCapabilities(MediaStreamCapabilities), unMediaStreamCapabilities, IsMediaStreamCapabilities, toMediaStreamCapabilities, castToMediaStreamCapabilities, gTypeMediaStreamCapabilities-  , MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, castToMediaStreamEvent, gTypeMediaStreamEvent-  , MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack-  , MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent-  , MediaTrackConstraint(MediaTrackConstraint), unMediaTrackConstraint, castToMediaTrackConstraint, gTypeMediaTrackConstraint-  , MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, castToMediaTrackConstraintSet, gTypeMediaTrackConstraintSet-  , MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, castToMediaTrackConstraints, gTypeMediaTrackConstraints-  , MemoryInfo(MemoryInfo), unMemoryInfo, castToMemoryInfo, gTypeMemoryInfo-  , MessageChannel(MessageChannel), unMessageChannel, castToMessageChannel, gTypeMessageChannel-  , MessageEvent(MessageEvent), unMessageEvent, castToMessageEvent, gTypeMessageEvent-  , MessagePort(MessagePort), unMessagePort, castToMessagePort, gTypeMessagePort-  , MimeType(MimeType), unMimeType, castToMimeType, gTypeMimeType-  , MimeTypeArray(MimeTypeArray), unMimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray-  , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, castToMouseEvent, gTypeMouseEvent-  , MutationEvent(MutationEvent), unMutationEvent, castToMutationEvent, gTypeMutationEvent-  , MutationObserver(MutationObserver), unMutationObserver, castToMutationObserver, gTypeMutationObserver-  , MutationRecord(MutationRecord), unMutationRecord, castToMutationRecord, gTypeMutationRecord-  , NamedNodeMap(NamedNodeMap), unNamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap-  , Navigator(Navigator), unNavigator, castToNavigator, gTypeNavigator-  , NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, castToNavigatorUserMediaError, gTypeNavigatorUserMediaError-  , Node(Node), unNode, IsNode, toNode, castToNode, gTypeNode-  , NodeFilter(NodeFilter), unNodeFilter, castToNodeFilter, gTypeNodeFilter-  , NodeIterator(NodeIterator), unNodeIterator, castToNodeIterator, gTypeNodeIterator-  , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, castToNodeList, gTypeNodeList-  , Notification(Notification), unNotification, castToNotification, gTypeNotification-  , NotificationCenter(NotificationCenter), unNotificationCenter, castToNotificationCenter, gTypeNotificationCenter-  , OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, castToOESElementIndexUint, gTypeOESElementIndexUint-  , OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, castToOESStandardDerivatives, gTypeOESStandardDerivatives-  , OESTextureFloat(OESTextureFloat), unOESTextureFloat, castToOESTextureFloat, gTypeOESTextureFloat-  , OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, castToOESTextureFloatLinear, gTypeOESTextureFloatLinear-  , OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, castToOESTextureHalfFloat, gTypeOESTextureHalfFloat-  , OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, castToOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear-  , OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, castToOESVertexArrayObject, gTypeOESVertexArrayObject-  , OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent-  , OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, castToOfflineAudioContext, gTypeOfflineAudioContext-  , OscillatorNode(OscillatorNode), unOscillatorNode, castToOscillatorNode, gTypeOscillatorNode-  , OverflowEvent(OverflowEvent), unOverflowEvent, castToOverflowEvent, gTypeOverflowEvent-  , PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, castToPageTransitionEvent, gTypePageTransitionEvent-  , PannerNode(PannerNode), unPannerNode, castToPannerNode, gTypePannerNode-  , Path2D(Path2D), unPath2D, castToPath2D, gTypePath2D-  , Performance(Performance), unPerformance, castToPerformance, gTypePerformance-  , PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry-  , PerformanceEntryList(PerformanceEntryList), unPerformanceEntryList, castToPerformanceEntryList, gTypePerformanceEntryList-  , PerformanceMark(PerformanceMark), unPerformanceMark, castToPerformanceMark, gTypePerformanceMark-  , PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, castToPerformanceMeasure, gTypePerformanceMeasure-  , PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, castToPerformanceNavigation, gTypePerformanceNavigation-  , PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, castToPerformanceResourceTiming, gTypePerformanceResourceTiming-  , PerformanceTiming(PerformanceTiming), unPerformanceTiming, castToPerformanceTiming, gTypePerformanceTiming-  , PeriodicWave(PeriodicWave), unPeriodicWave, castToPeriodicWave, gTypePeriodicWave-  , Plugin(Plugin), unPlugin, castToPlugin, gTypePlugin-  , PluginArray(PluginArray), unPluginArray, castToPluginArray, gTypePluginArray-  , PopStateEvent(PopStateEvent), unPopStateEvent, castToPopStateEvent, gTypePopStateEvent-  , PositionError(PositionError), unPositionError, castToPositionError, gTypePositionError-  , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, castToProcessingInstruction, gTypeProcessingInstruction-  , ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, castToProgressEvent, gTypeProgressEvent-  , QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement-  , RGBColor(RGBColor), unRGBColor, castToRGBColor, gTypeRGBColor-  , RTCConfiguration(RTCConfiguration), unRTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration-  , RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender-  , RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent-  , RTCDataChannel(RTCDataChannel), unRTCDataChannel, castToRTCDataChannel, gTypeRTCDataChannel-  , RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, castToRTCDataChannelEvent, gTypeRTCDataChannelEvent-  , RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, castToRTCIceCandidate, gTypeRTCIceCandidate-  , RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent-  , RTCIceServer(RTCIceServer), unRTCIceServer, castToRTCIceServer, gTypeRTCIceServer-  , RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, castToRTCPeerConnection, gTypeRTCPeerConnection-  , RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, castToRTCSessionDescription, gTypeRTCSessionDescription-  , RTCStatsReport(RTCStatsReport), unRTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport-  , RTCStatsResponse(RTCStatsResponse), unRTCStatsResponse, castToRTCStatsResponse, gTypeRTCStatsResponse-  , RadioNodeList(RadioNodeList), unRadioNodeList, castToRadioNodeList, gTypeRadioNodeList-  , Range(Range), unRange, castToRange, gTypeRange-  , ReadableStream(ReadableStream), unReadableStream, castToReadableStream, gTypeReadableStream-  , Rect(Rect), unRect, castToRect, gTypeRect-  , SQLError(SQLError), unSQLError, castToSQLError, gTypeSQLError-  , SQLResultSet(SQLResultSet), unSQLResultSet, castToSQLResultSet, gTypeSQLResultSet-  , SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, castToSQLResultSetRowList, gTypeSQLResultSetRowList-  , SQLTransaction(SQLTransaction), unSQLTransaction, castToSQLTransaction, gTypeSQLTransaction-  , SVGAElement(SVGAElement), unSVGAElement, castToSVGAElement, gTypeSVGAElement-  , SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, castToSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement-  , SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, castToSVGAltGlyphElement, gTypeSVGAltGlyphElement-  , SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, castToSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement-  , SVGAngle(SVGAngle), unSVGAngle, castToSVGAngle, gTypeSVGAngle-  , SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, castToSVGAnimateColorElement, gTypeSVGAnimateColorElement-  , SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, castToSVGAnimateElement, gTypeSVGAnimateElement-  , SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, castToSVGAnimateMotionElement, gTypeSVGAnimateMotionElement-  , SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, castToSVGAnimateTransformElement, gTypeSVGAnimateTransformElement-  , SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle-  , SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean-  , SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration-  , SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, castToSVGAnimatedInteger, gTypeSVGAnimatedInteger-  , SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength-  , SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList-  , SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, castToSVGAnimatedNumber, gTypeSVGAnimatedNumber-  , SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList-  , SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, castToSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio-  , SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect-  , SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, castToSVGAnimatedString, gTypeSVGAnimatedString-  , SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList-  , SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, castToSVGAnimationElement, gTypeSVGAnimationElement-  , SVGCircleElement(SVGCircleElement), unSVGCircleElement, castToSVGCircleElement, gTypeSVGCircleElement-  , SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, castToSVGClipPathElement, gTypeSVGClipPathElement-  , SVGColor(SVGColor), unSVGColor, IsSVGColor, toSVGColor, castToSVGColor, gTypeSVGColor-  , SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, castToSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement-  , SVGCursorElement(SVGCursorElement), unSVGCursorElement, castToSVGCursorElement, gTypeSVGCursorElement-  , SVGDefsElement(SVGDefsElement), unSVGDefsElement, castToSVGDefsElement, gTypeSVGDefsElement-  , SVGDescElement(SVGDescElement), unSVGDescElement, castToSVGDescElement, gTypeSVGDescElement-  , SVGDocument(SVGDocument), unSVGDocument, castToSVGDocument, gTypeSVGDocument-  , SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, castToSVGElement, gTypeSVGElement-  , SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement-  , SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, castToSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired-  , SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement-  , SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, castToSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement-  , SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, castToSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement-  , SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, castToSVGFECompositeElement, gTypeSVGFECompositeElement-  , SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement-  , SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement-  , SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement-  , SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement-  , SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement-  , SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, castToSVGFEFloodElement, gTypeSVGFEFloodElement-  , SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, castToSVGFEFuncAElement, gTypeSVGFEFuncAElement-  , SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, castToSVGFEFuncBElement, gTypeSVGFEFuncBElement-  , SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, castToSVGFEFuncGElement, gTypeSVGFEFuncGElement-  , SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, castToSVGFEFuncRElement, gTypeSVGFEFuncRElement-  , SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement-  , SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement-  , SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, castToSVGFEMergeElement, gTypeSVGFEMergeElement-  , SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement-  , SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement-  , SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, castToSVGFEOffsetElement, gTypeSVGFEOffsetElement-  , SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, castToSVGFEPointLightElement, gTypeSVGFEPointLightElement-  , SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, castToSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement-  , SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, castToSVGFESpotLightElement, gTypeSVGFESpotLightElement-  , SVGFETileElement(SVGFETileElement), unSVGFETileElement, castToSVGFETileElement, gTypeSVGFETileElement-  , SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement-  , SVGFilterElement(SVGFilterElement), unSVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement-  , SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, castToSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes-  , SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, castToSVGFitToViewBox, gTypeSVGFitToViewBox-  , SVGFontElement(SVGFontElement), unSVGFontElement, castToSVGFontElement, gTypeSVGFontElement-  , SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, castToSVGFontFaceElement, gTypeSVGFontFaceElement-  , SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, castToSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement-  , SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, castToSVGFontFaceNameElement, gTypeSVGFontFaceNameElement-  , SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, castToSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement-  , SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, castToSVGFontFaceUriElement, gTypeSVGFontFaceUriElement-  , SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, castToSVGForeignObjectElement, gTypeSVGForeignObjectElement-  , SVGGElement(SVGGElement), unSVGGElement, castToSVGGElement, gTypeSVGGElement-  , SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, castToSVGGlyphElement, gTypeSVGGlyphElement-  , SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, castToSVGGlyphRefElement, gTypeSVGGlyphRefElement-  , SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, castToSVGGradientElement, gTypeSVGGradientElement-  , SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, castToSVGGraphicsElement, gTypeSVGGraphicsElement-  , SVGHKernElement(SVGHKernElement), unSVGHKernElement, castToSVGHKernElement, gTypeSVGHKernElement-  , SVGImageElement(SVGImageElement), unSVGImageElement, castToSVGImageElement, gTypeSVGImageElement-  , SVGLength(SVGLength), unSVGLength, castToSVGLength, gTypeSVGLength-  , SVGLengthList(SVGLengthList), unSVGLengthList, castToSVGLengthList, gTypeSVGLengthList-  , SVGLineElement(SVGLineElement), unSVGLineElement, castToSVGLineElement, gTypeSVGLineElement-  , SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, castToSVGLinearGradientElement, gTypeSVGLinearGradientElement-  , SVGMPathElement(SVGMPathElement), unSVGMPathElement, castToSVGMPathElement, gTypeSVGMPathElement-  , SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement-  , SVGMaskElement(SVGMaskElement), unSVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement-  , SVGMatrix(SVGMatrix), unSVGMatrix, castToSVGMatrix, gTypeSVGMatrix-  , SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, castToSVGMetadataElement, gTypeSVGMetadataElement-  , SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, castToSVGMissingGlyphElement, gTypeSVGMissingGlyphElement-  , SVGNumber(SVGNumber), unSVGNumber, castToSVGNumber, gTypeSVGNumber-  , SVGNumberList(SVGNumberList), unSVGNumberList, castToSVGNumberList, gTypeSVGNumberList-  , SVGPaint(SVGPaint), unSVGPaint, castToSVGPaint, gTypeSVGPaint-  , SVGPathElement(SVGPathElement), unSVGPathElement, castToSVGPathElement, gTypeSVGPathElement-  , SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg-  , SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs-  , SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel-  , SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, castToSVGPathSegClosePath, gTypeSVGPathSegClosePath-  , SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs-  , SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel-  , SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, castToSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs-  , SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, castToSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel-  , SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs-  , SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel-  , SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, castToSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs-  , SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, castToSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel-  , SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs-  , SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, castToSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs-  , SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, castToSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel-  , SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, castToSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel-  , SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, castToSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs-  , SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, castToSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel-  , SVGPathSegList(SVGPathSegList), unSVGPathSegList, castToSVGPathSegList, gTypeSVGPathSegList-  , SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs-  , SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, castToSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel-  , SVGPatternElement(SVGPatternElement), unSVGPatternElement, castToSVGPatternElement, gTypeSVGPatternElement-  , SVGPoint(SVGPoint), unSVGPoint, castToSVGPoint, gTypeSVGPoint-  , SVGPointList(SVGPointList), unSVGPointList, castToSVGPointList, gTypeSVGPointList-  , SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement-  , SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, castToSVGPolylineElement, gTypeSVGPolylineElement-  , SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio-  , SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, castToSVGRadialGradientElement, gTypeSVGRadialGradientElement-  , SVGRect(SVGRect), unSVGRect, castToSVGRect, gTypeSVGRect-  , SVGRectElement(SVGRectElement), unSVGRectElement, castToSVGRectElement, gTypeSVGRectElement-  , SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, castToSVGRenderingIntent, gTypeSVGRenderingIntent-  , SVGSVGElement(SVGSVGElement), unSVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement-  , SVGScriptElement(SVGScriptElement), unSVGScriptElement, castToSVGScriptElement, gTypeSVGScriptElement-  , SVGSetElement(SVGSetElement), unSVGSetElement, castToSVGSetElement, gTypeSVGSetElement-  , SVGStopElement(SVGStopElement), unSVGStopElement, castToSVGStopElement, gTypeSVGStopElement-  , SVGStringList(SVGStringList), unSVGStringList, castToSVGStringList, gTypeSVGStringList-  , SVGStyleElement(SVGStyleElement), unSVGStyleElement, castToSVGStyleElement, gTypeSVGStyleElement-  , SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, castToSVGSwitchElement, gTypeSVGSwitchElement-  , SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, castToSVGSymbolElement, gTypeSVGSymbolElement-  , SVGTRefElement(SVGTRefElement), unSVGTRefElement, castToSVGTRefElement, gTypeSVGTRefElement-  , SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, castToSVGTSpanElement, gTypeSVGTSpanElement-  , SVGTests(SVGTests), unSVGTests, castToSVGTests, gTypeSVGTests-  , SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, castToSVGTextContentElement, gTypeSVGTextContentElement-  , SVGTextElement(SVGTextElement), unSVGTextElement, castToSVGTextElement, gTypeSVGTextElement-  , SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, castToSVGTextPathElement, gTypeSVGTextPathElement-  , SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, castToSVGTextPositioningElement, gTypeSVGTextPositioningElement-  , SVGTitleElement(SVGTitleElement), unSVGTitleElement, castToSVGTitleElement, gTypeSVGTitleElement-  , SVGTransform(SVGTransform), unSVGTransform, castToSVGTransform, gTypeSVGTransform-  , SVGTransformList(SVGTransformList), unSVGTransformList, castToSVGTransformList, gTypeSVGTransformList-  , SVGURIReference(SVGURIReference), unSVGURIReference, castToSVGURIReference, gTypeSVGURIReference-  , SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, castToSVGUnitTypes, gTypeSVGUnitTypes-  , SVGUseElement(SVGUseElement), unSVGUseElement, castToSVGUseElement, gTypeSVGUseElement-  , SVGVKernElement(SVGVKernElement), unSVGVKernElement, castToSVGVKernElement, gTypeSVGVKernElement-  , SVGViewElement(SVGViewElement), unSVGViewElement, castToSVGViewElement, gTypeSVGViewElement-  , SVGViewSpec(SVGViewSpec), unSVGViewSpec, castToSVGViewSpec, gTypeSVGViewSpec-  , SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, castToSVGZoomAndPan, gTypeSVGZoomAndPan-  , SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, castToSVGZoomEvent, gTypeSVGZoomEvent-  , Screen(Screen), unScreen, castToScreen, gTypeScreen-  , ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, castToScriptProcessorNode, gTypeScriptProcessorNode-  , ScriptProfile(ScriptProfile), unScriptProfile, castToScriptProfile, gTypeScriptProfile-  , ScriptProfileNode(ScriptProfileNode), unScriptProfileNode, castToScriptProfileNode, gTypeScriptProfileNode-  , SecurityPolicy(SecurityPolicy), unSecurityPolicy, castToSecurityPolicy, gTypeSecurityPolicy-  , SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, castToSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent-  , Selection(Selection), unSelection, castToSelection, gTypeSelection-  , SourceBuffer(SourceBuffer), unSourceBuffer, castToSourceBuffer, gTypeSourceBuffer-  , SourceBufferList(SourceBufferList), unSourceBufferList, castToSourceBufferList, gTypeSourceBufferList-  , SourceInfo(SourceInfo), unSourceInfo, castToSourceInfo, gTypeSourceInfo-  , SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis-  , SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, castToSpeechSynthesisEvent, gTypeSpeechSynthesisEvent-  , SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, castToSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance-  , SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, castToSpeechSynthesisVoice, gTypeSpeechSynthesisVoice-  , Storage(Storage), unStorage, castToStorage, gTypeStorage-  , StorageEvent(StorageEvent), unStorageEvent, castToStorageEvent, gTypeStorageEvent-  , StorageInfo(StorageInfo), unStorageInfo, castToStorageInfo, gTypeStorageInfo-  , StorageQuota(StorageQuota), unStorageQuota, castToStorageQuota, gTypeStorageQuota-  , StyleMedia(StyleMedia), unStyleMedia, castToStyleMedia, gTypeStyleMedia-  , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, castToStyleSheet, gTypeStyleSheet-  , StyleSheetList(StyleSheetList), unStyleSheetList, castToStyleSheetList, gTypeStyleSheetList-  , SubtleCrypto(SubtleCrypto), unSubtleCrypto, castToSubtleCrypto, gTypeSubtleCrypto-  , Text(Text), unText, IsText, toText, castToText, gTypeText-  , TextEvent(TextEvent), unTextEvent, castToTextEvent, gTypeTextEvent-  , TextMetrics(TextMetrics), unTextMetrics, castToTextMetrics, gTypeTextMetrics-  , TextTrack(TextTrack), unTextTrack, castToTextTrack, gTypeTextTrack-  , TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, castToTextTrackCue, gTypeTextTrackCue-  , TextTrackCueList(TextTrackCueList), unTextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList-  , TextTrackList(TextTrackList), unTextTrackList, castToTextTrackList, gTypeTextTrackList-  , TimeRanges(TimeRanges), unTimeRanges, castToTimeRanges, gTypeTimeRanges-  , Touch(Touch), unTouch, castToTouch, gTypeTouch-  , TouchEvent(TouchEvent), unTouchEvent, castToTouchEvent, gTypeTouchEvent-  , TouchList(TouchList), unTouchList, castToTouchList, gTypeTouchList-  , TrackEvent(TrackEvent), unTrackEvent, castToTrackEvent, gTypeTrackEvent-  , TransitionEvent(TransitionEvent), unTransitionEvent, castToTransitionEvent, gTypeTransitionEvent-  , TreeWalker(TreeWalker), unTreeWalker, castToTreeWalker, gTypeTreeWalker-  , TypeConversions(TypeConversions), unTypeConversions, castToTypeConversions, gTypeTypeConversions-  , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, castToUIEvent, gTypeUIEvent-  , UIRequestEvent(UIRequestEvent), unUIRequestEvent, castToUIRequestEvent, gTypeUIRequestEvent-  , URL(URL), unURL, castToURL, gTypeURL-  , URLUtils(URLUtils), unURLUtils, castToURLUtils, gTypeURLUtils-  , UserMessageHandler(UserMessageHandler), unUserMessageHandler, castToUserMessageHandler, gTypeUserMessageHandler-  , UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, castToUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace-  , VTTCue(VTTCue), unVTTCue, castToVTTCue, gTypeVTTCue-  , VTTRegion(VTTRegion), unVTTRegion, castToVTTRegion, gTypeVTTRegion-  , VTTRegionList(VTTRegionList), unVTTRegionList, castToVTTRegionList, gTypeVTTRegionList-  , ValidityState(ValidityState), unValidityState, castToValidityState, gTypeValidityState-  , VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, castToVideoPlaybackQuality, gTypeVideoPlaybackQuality-  , VideoStreamTrack(VideoStreamTrack), unVideoStreamTrack, castToVideoStreamTrack, gTypeVideoStreamTrack-  , VideoTrack(VideoTrack), unVideoTrack, castToVideoTrack, gTypeVideoTrack-  , VideoTrackList(VideoTrackList), unVideoTrackList, castToVideoTrackList, gTypeVideoTrackList-  , WaveShaperNode(WaveShaperNode), unWaveShaperNode, castToWaveShaperNode, gTypeWaveShaperNode-  , WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, castToWebGL2RenderingContext, gTypeWebGL2RenderingContext-  , WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, castToWebGLActiveInfo, gTypeWebGLActiveInfo-  , WebGLBuffer(WebGLBuffer), unWebGLBuffer, castToWebGLBuffer, gTypeWebGLBuffer-  , WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, castToWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC-  , WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, castToWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC-  , WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, castToWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC-  , WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, castToWebGLContextAttributes, gTypeWebGLContextAttributes-  , WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, castToWebGLContextEvent, gTypeWebGLContextEvent-  , WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, castToWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo-  , WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders-  , WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, castToWebGLDepthTexture, gTypeWebGLDepthTexture-  , WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, castToWebGLDrawBuffers, gTypeWebGLDrawBuffers-  , WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, castToWebGLFramebuffer, gTypeWebGLFramebuffer-  , WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, castToWebGLLoseContext, gTypeWebGLLoseContext-  , WebGLProgram(WebGLProgram), unWebGLProgram, castToWebGLProgram, gTypeWebGLProgram-  , WebGLQuery(WebGLQuery), unWebGLQuery, castToWebGLQuery, gTypeWebGLQuery-  , WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, castToWebGLRenderbuffer, gTypeWebGLRenderbuffer-  , WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, castToWebGLRenderingContext, gTypeWebGLRenderingContext-  , WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase-  , WebGLSampler(WebGLSampler), unWebGLSampler, castToWebGLSampler, gTypeWebGLSampler-  , WebGLShader(WebGLShader), unWebGLShader, castToWebGLShader, gTypeWebGLShader-  , WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, castToWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat-  , WebGLSync(WebGLSync), unWebGLSync, castToWebGLSync, gTypeWebGLSync-  , WebGLTexture(WebGLTexture), unWebGLTexture, castToWebGLTexture, gTypeWebGLTexture-  , WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, castToWebGLTransformFeedback, gTypeWebGLTransformFeedback-  , WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, castToWebGLUniformLocation, gTypeWebGLUniformLocation-  , WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, castToWebGLVertexArrayObject, gTypeWebGLVertexArrayObject-  , WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, castToWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES-  , WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, castToWebKitAnimationEvent, gTypeWebKitAnimationEvent-  , WebKitCSSFilterValue(WebKitCSSFilterValue), unWebKitCSSFilterValue, castToWebKitCSSFilterValue, gTypeWebKitCSSFilterValue-  , WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix-  , WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule-  , WebKitCSSTransformValue(WebKitCSSTransformValue), unWebKitCSSTransformValue, castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue-  , WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule-  , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow-  , WebKitNamespace(WebKitNamespace), unWebKitNamespace, castToWebKitNamespace, gTypeWebKitNamespace-  , WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, castToWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent-  , WebKitPoint(WebKitPoint), unWebKitPoint, castToWebKitPoint, gTypeWebKitPoint-  , WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, castToWebKitTransitionEvent, gTypeWebKitTransitionEvent-  , WebSocket(WebSocket), unWebSocket, castToWebSocket, gTypeWebSocket-  , WheelEvent(WheelEvent), unWheelEvent, castToWheelEvent, gTypeWheelEvent-  , Window(Window), unWindow, castToWindow, gTypeWindow-  , WindowBase64(WindowBase64), unWindowBase64, castToWindowBase64, gTypeWindowBase64-  , WindowTimers(WindowTimers), unWindowTimers, castToWindowTimers, gTypeWindowTimers-  , Worker(Worker), unWorker, castToWorker, gTypeWorker-  , WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope-  , WorkerLocation(WorkerLocation), unWorkerLocation, castToWorkerLocation, gTypeWorkerLocation-  , WorkerNavigator(WorkerNavigator), unWorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator-  , XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest-  , XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, castToXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent-  , XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, castToXMLHttpRequestUpload, gTypeXMLHttpRequestUpload-  , XMLSerializer(XMLSerializer), unXMLSerializer, castToXMLSerializer, gTypeXMLSerializer-  , XPathEvaluator(XPathEvaluator), unXPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator-  , XPathExpression(XPathExpression), unXPathExpression, castToXPathExpression, gTypeXPathExpression-  , XPathNSResolver(XPathNSResolver), unXPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver-  , XPathResult(XPathResult), unXPathResult, castToXPathResult, gTypeXPathResult-  , XSLTProcessor(XSLTProcessor), unXSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor--- AUTO GENERATION ENDS HERE-  ) where--import Prelude ()-import Prelude.Compat hiding((!!))-import qualified Data.Text as T (unpack, Text)-import Control.Monad.IO.Class (MonadIO(..))-import Data.Int (Int8, Int16, Int32, Int64)-import Data.Word (Word8, Word16, Word32, Word64)-import Language.Javascript.JSaddle-       (Object(..), valToBool, valMakeNull, valToNumber, (!!), js,-        JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined',-        valToStr, jsg, ToJSString(..), strToText, MakeObject(..),-        Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef)-import Foreign.Ptr (nullPtr)-import Control.Lens.Operators ((^.))-import Data.Maybe (catMaybes)-import Language.Javascript.JSaddle.Classes (ToJSVal(..))-import Control.Monad ((>=>))-import Data.Coerce (coerce, Coercible)-import Control.Monad.Trans.Reader (ReaderT(..), ask)-import Control.Exception (bracket)--type DOM = JSM-type DOMContext = JSContextRef--askDOM :: MonadDOM m => m DOMContext-askDOM = liftDOM ask--runDOM :: DOM a -> DOMContext -> IO a-runDOM = runReaderT--class (Applicative m, MonadIO m) => MonadDOM m where-    liftDOM :: JSM a -> m a-    {-# MINIMAL liftDOM #-}--instance MonadDOM JSM where-    liftDOM = id-    {-# INLINE liftDOM #-}--#ifdef ghcjs_HOST_OS-postGUIAsync :: IO () -> IO ()-postGUIAsync = id--postGUISync :: IO a -> IO a-postGUISync = id-#endif--propagateGError :: a -> a-propagateGError = id--newtype GType = GType Object--typeInstanceIsA :: ToJSVal value => value -> GType -> JSM Bool-typeInstanceIsA o (GType t) = o `instanceOf` t---- The usage of foreignPtrToPtr should be safe as the evaluation will only be--- forced if the object is used afterwards----castTo :: (IsGObject obj, IsGObject obj') => JSM GType -> String-                                                -> obj -> JSM obj'-castTo gtype objTypeName obj = do-  gtype' <- gtype-  let gobj@(GObject objRef) = toGObject obj-  typeInstanceIsA objRef gtype' >>= \case-    True  -> return $ unsafeCastGObject gobj-    False -> error $ "Cannot cast object to " ++ objTypeName---- | Determine if this is an instance of a particular type----isA :: IsGObject o => o -> GType -> JSM Bool-isA obj = typeInstanceIsA (unGObject $ toGObject obj)--newtype GObject = GObject { unGObject :: JSVal }--class (ToJSVal o, FromJSVal o) => IsGObject o where-  -- | Safe upcast.-  toGObject         :: o -> GObject-  -- | Unchecked downcast.-  unsafeCastGObject :: GObject -> o--class PToJSVal o where-  pToJSVal :: o -> JSVal--class PFromJSVal o where-  pFromJSVal :: JSVal -> o----class ToJSVal o where---  toJSVal :: o -> JSM JSVal--class FromJSVal o where-    fromJSVal :: JSVal -> JSM (Maybe o)-    fromJSVal = maybeNullOrUndefined' fromJSValUnchecked--    fromJSValUnchecked :: JSVal -> JSM o-    fromJSValUnchecked v =-        fromJSVal v >>= \case-            Nothing -> error "fromJSValUnchecked"-            Just r  -> return r--fromJSArray :: FromJSVal o => JSVal -> JSM [Maybe o]-fromJSArray a = do-    l <- a ^. js "length" >>= valToNumber-    mapM (\i -> a !! i >>= fromJSVal) [0..round l - 1]--fromJSArrayUnchecked :: FromJSVal o => JSVal -> JSM [o]-fromJSArrayUnchecked a = do-    l <- a ^. js "length" >>= valToNumber-    mapM (\i -> a !! i >>= fromJSValUnchecked) [0..round l - 1]---- newtype Nullable a = Nullable JSVal--nullableToMaybe :: FromJSVal a => JSVal -> JSM (Maybe a)-nullableToMaybe = fromJSVal-{-# INLINE nullableToMaybe #-}----maybeToNullable :: ToJSVal a => Maybe a -> JSM JSVal-maybeToNullable Nothing = valMakeNull-maybeToNullable (Just a) = toJSVal a-{-# INLINE maybeToNullable #-}--instance PToJSVal GObject where-  pToJSVal = unGObject-  {-# INLINE pToJSVal #-}--instance PFromJSVal GObject where-  pFromJSVal = GObject-  {-# INLINE pFromJSVal #-}--instance ToJSVal GObject where-  toJSVal = return . unGObject-  {-# INLINE toJSVal #-}--instance FromJSVal GObject where-  fromJSVal val = fmap GObject <$> maybeNullOrUndefined val-  {-# INLINE fromJSVal #-}----instance IsGObject o => PToJSVal o where---  pToJSVal = unGObject . toGObject---  {-# INLINE pToJSVal #-}------instance IsGObject o => PFromJSVal o where---  pFromJSVal = unsafeCastGObject . GObject . castRef---  {-# INLINE pFromJSVal #-}------instance IsGObject o => ToJSVal o where---  toJSVal = return . unGObject . toGObject---  {-# INLINE toJSVal #-}------instance IsGObject o => FromJSVal o where---  fromJSVal = return . fmap (unsafeCastGObject . GObject . castRef) . maybeJSNullOrUndefined---  {-# INLINE fromJSVal #-}--instance IsGObject GObject where-  toGObject = id-  {-# INLINE toGObject #-}-  unsafeCastGObject = id-  {-# INLINE unsafeCastGObject #-}--castToGObject :: IsGObject obj => obj -> JSM obj-castToGObject = return--#ifdef ghcjs_HOST_OS-foreign import javascript unsafe "object" gTypeGObject :: GType-#else-gTypeGObject :: GType-gTypeGObject = error "gTypeGObject: only available in JavaScript"-#endif--objectToString :: (IsGObject self, FromJSString result) => self -> JSM result-objectToString self = fromJSValUnchecked (unGObject $ toGObject self)---- | Fastest string type to use when you just---   want to take a string from the DOM then---   give it back as is.-type DOMString = JSString--class FromJSVal s => FromJSString s where-    fromJSString :: JSString -> JSM s--fromJSStringArray :: FromJSString s => JSVal -> JSM [s]-fromJSStringArray a = do-    l <- a ^. js "length" >>= valToNumber-    mapM (\i -> a !! i >>= valToStr >>= fromJSString) [0..round l - 1]----fromJSString :: FromJSString a => JSString -> a---fromJSString a = pFromJSVal . pToJSVal---{-# INLINE fromJSString #-}--toMaybeJSString :: ToJSString a => Maybe a -> JSM JSVal-toMaybeJSString Nothing = valMakeNull-toMaybeJSString (Just a) = toJSVal (toJSString a)-{-# INLINE toMaybeJSString #-}--fromMaybeJSString :: FromJSString a => JSVal -> JSM (Maybe a)-fromMaybeJSString = maybeNullOrUndefined' (valToStr >=> fromJSString)-{-# INLINE fromMaybeJSString #-}--instance FromJSVal JSVal where-    fromJSValUnchecked = return-instance FromJSVal Double where-    fromJSValUnchecked = valToNumber-instance FromJSVal Float where-    fromJSValUnchecked v = realToFrac <$> valToNumber v-instance FromJSVal Int where-    fromJSValUnchecked v = round <$> valToNumber v-instance FromJSVal Int32 where-    fromJSValUnchecked v = round <$> valToNumber v-instance FromJSVal Int64 where-    fromJSValUnchecked v = round <$> valToNumber v-instance FromJSVal Word where-    fromJSValUnchecked v = round <$> valToNumber v-instance FromJSVal Word32 where-    fromJSValUnchecked v = round <$> valToNumber v-instance FromJSVal Word64 where-    fromJSValUnchecked v = round <$> valToNumber v-instance FromJSVal Bool where-    fromJSValUnchecked = valToBool-instance FromJSVal T.Text where-    fromJSValUnchecked v = valToStr v >>= strToText-instance FromJSString T.Text where-    fromJSString = strToText-instance FromJSVal String where-    fromJSValUnchecked v = T.unpack <$> (valToStr v >>= strToText)-instance FromJSString String where-    fromJSString v = T.unpack <$> strToText v-instance FromJSVal JSString where-    fromJSValUnchecked = valToStr-instance FromJSString JSString where-    fromJSString = return--type ToDOMString s = ToJSString s-type FromDOMString s = FromJSString s--type IsDOMString s = (ToDOMString s, FromDOMString s)---- Callbacks-newtype Callback a = Callback Function--withCallback :: (MonadDOM m, Coercible c Function)-             => JSM c -> (c -> JSM a) -> m a-withCallback aquire f = do-    jsCtx <- liftDOM ask-    liftIO $ bracket-        (runReaderT aquire jsCtx)-        (freeFunction . coerce)-        (\t -> runReaderT (f t) jsCtx)--newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ()))-instance ToJSVal AudioBufferCallback where toJSVal (AudioBufferCallback (Callback r)) = toJSVal r-newtype DatabaseCallback = DatabaseCallback (Callback (JSVal -> IO ()))-instance ToJSVal DatabaseCallback where toJSVal (DatabaseCallback (Callback r)) = toJSVal r-newtype MediaQueryListListener = MediaQueryListListener (Callback (JSVal -> IO ()))-instance ToJSVal MediaQueryListListener where toJSVal (MediaQueryListListener (Callback r)) = toJSVal r-newtype MediaStreamTrackSourcesCallback = MediaStreamTrackSourcesCallback (Callback (JSVal -> IO ()))-instance ToJSVal MediaStreamTrackSourcesCallback where toJSVal (MediaStreamTrackSourcesCallback (Callback r)) = toJSVal r-newtype NavigatorUserMediaErrorCallback = NavigatorUserMediaErrorCallback (Callback (JSVal -> IO ()))-instance ToJSVal NavigatorUserMediaErrorCallback where toJSVal (NavigatorUserMediaErrorCallback (Callback r)) = toJSVal r-newtype NavigatorUserMediaSuccessCallback = NavigatorUserMediaSuccessCallback (Callback (JSVal -> IO ()))-instance ToJSVal NavigatorUserMediaSuccessCallback where toJSVal (NavigatorUserMediaSuccessCallback (Callback r)) = toJSVal r-newtype NotificationPermissionCallback permissions = NotificationPermissionCallback (Callback (JSVal -> IO ()))-instance ToJSVal (NotificationPermissionCallback permissions) where toJSVal (NotificationPermissionCallback (Callback r)) = toJSVal r-newtype PositionCallback = PositionCallback (Callback (JSVal -> IO ()))-instance ToJSVal PositionCallback where toJSVal (PositionCallback (Callback r)) = toJSVal r-newtype PositionErrorCallback = PositionErrorCallback (Callback (JSVal -> IO ()))-instance ToJSVal PositionErrorCallback where toJSVal (PositionErrorCallback (Callback r)) = toJSVal r-newtype RequestAnimationFrameCallback = RequestAnimationFrameCallback (Callback (JSVal -> IO ()))-instance ToJSVal RequestAnimationFrameCallback where toJSVal (RequestAnimationFrameCallback (Callback r)) = toJSVal r-newtype RTCPeerConnectionErrorCallback = RTCPeerConnectionErrorCallback (Callback (JSVal -> IO ()))-instance ToJSVal RTCPeerConnectionErrorCallback where toJSVal (RTCPeerConnectionErrorCallback (Callback r)) = toJSVal r-newtype RTCSessionDescriptionCallback = RTCSessionDescriptionCallback (Callback (JSVal -> IO ()))-instance ToJSVal RTCSessionDescriptionCallback where toJSVal (RTCSessionDescriptionCallback (Callback r)) = toJSVal r-newtype RTCStatsCallback = RTCStatsCallback (Callback (JSVal -> IO ()))-instance ToJSVal RTCStatsCallback where toJSVal (RTCStatsCallback (Callback r)) = toJSVal r-newtype SQLStatementCallback = SQLStatementCallback (Callback (JSVal -> JSVal -> IO ()))-instance ToJSVal SQLStatementCallback where toJSVal (SQLStatementCallback (Callback r)) = toJSVal r-newtype SQLStatementErrorCallback = SQLStatementErrorCallback (Callback (JSVal -> JSVal -> IO ()))-instance ToJSVal SQLStatementErrorCallback where toJSVal (SQLStatementErrorCallback (Callback r)) = toJSVal r-newtype SQLTransactionCallback = SQLTransactionCallback (Callback (JSVal -> IO ()))-instance ToJSVal SQLTransactionCallback where toJSVal (SQLTransactionCallback (Callback r)) = toJSVal r-newtype SQLTransactionErrorCallback = SQLTransactionErrorCallback (Callback (JSVal -> IO ()))-instance ToJSVal SQLTransactionErrorCallback where toJSVal (SQLTransactionErrorCallback (Callback r)) = toJSVal r-newtype StorageErrorCallback = StorageErrorCallback (Callback (JSVal -> IO ()))-instance ToJSVal StorageErrorCallback where toJSVal (StorageErrorCallback (Callback r)) = toJSVal r-newtype StorageQuotaCallback = StorageQuotaCallback (Callback (JSVal -> IO ()))-instance ToJSVal StorageQuotaCallback where toJSVal (StorageQuotaCallback (Callback r)) = toJSVal r-newtype StorageUsageCallback = StorageUsageCallback (Callback (JSVal -> JSVal -> IO ()))-instance ToJSVal StorageUsageCallback where toJSVal (StorageUsageCallback (Callback r)) = toJSVal r-newtype StringCallback s = StringCallback (Callback (JSVal -> IO ()))-instance ToJSVal (StringCallback s) where toJSVal (StringCallback (Callback r)) = toJSVal r-newtype VoidCallback = VoidCallback (Callback (IO ()))-instance ToJSVal VoidCallback where toJSVal (VoidCallback (Callback r)) = toJSVal r---- Custom types-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal }--instance PToJSVal SerializedScriptValue where-  pToJSVal = unSerializedScriptValue-  {-# INLINE pToJSVal #-}--instance PFromJSVal SerializedScriptValue where-  pFromJSVal = SerializedScriptValue-  {-# INLINE pFromJSVal #-}--instance ToJSVal SerializedScriptValue where-  toJSVal = return . unSerializedScriptValue-  {-# INLINE toJSVal #-}--instance FromJSVal SerializedScriptValue where-  fromJSVal v = fmap SerializedScriptValue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsSerializedScriptValue o-toSerializedScriptValue :: IsSerializedScriptValue o => o -> SerializedScriptValue-toSerializedScriptValue = unsafeCastGObject . toGObject--instance IsSerializedScriptValue SerializedScriptValue-instance IsGObject SerializedScriptValue where-  toGObject = GObject . unSerializedScriptValue-  unsafeCastGObject = SerializedScriptValue . unGObject--- TODO add more IsSerializedScriptValue instances-#else--- TODO work out how we can support SerializedScriptValue in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal }--instance PToJSVal PositionOptions where-  pToJSVal = unPositionOptions-  {-# INLINE pToJSVal #-}--instance PFromJSVal PositionOptions where-  pFromJSVal = PositionOptions-  {-# INLINE pFromJSVal #-}--instance ToJSVal PositionOptions where-  toJSVal = return . unPositionOptions-  {-# INLINE toJSVal #-}--instance FromJSVal PositionOptions where-  fromJSVal v = fmap PositionOptions <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsPositionOptions o-toPositionOptions :: IsPositionOptions o => o -> PositionOptions-toPositionOptions = unsafeCastGObject . toGObject--instance IsPositionOptions PositionOptions-instance IsGObject PositionOptions where-  toGObject = GObject . unPositionOptions-  unsafeCastGObject = PositionOptions . unGObject--- TODO add more IsPositionOptions instances-#else--- TODO work out how we can support PositionOptions in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Dictionary = Dictionary { unDictionary :: JSVal }--instance PToJSVal Dictionary where-  pToJSVal = unDictionary-  {-# INLINE pToJSVal #-}--instance PFromJSVal Dictionary where-  pFromJSVal = Dictionary-  {-# INLINE pFromJSVal #-}--instance ToJSVal Dictionary where-  toJSVal = return . unDictionary-  {-# INLINE toJSVal #-}--instance FromJSVal Dictionary where-  fromJSVal v = fmap Dictionary <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsDictionary o-toDictionary :: IsDictionary o => o -> Dictionary-toDictionary = unsafeCastGObject . toGObject--instance IsDictionary Dictionary-instance IsGObject Dictionary where-  toGObject = GObject . unDictionary-  unsafeCastGObject = Dictionary . unGObject--- TODO add more IsDictionary instances-#else--- TODO work out how we can support Dictionary in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal }--instance PToJSVal BlobPropertyBag where-  pToJSVal = unBlobPropertyBag-  {-# INLINE pToJSVal #-}--instance PFromJSVal BlobPropertyBag where-  pFromJSVal = BlobPropertyBag-  {-# INLINE pFromJSVal #-}--instance ToJSVal BlobPropertyBag where-  toJSVal = return . unBlobPropertyBag-  {-# INLINE toJSVal #-}--instance FromJSVal BlobPropertyBag where-  fromJSVal v = fmap BlobPropertyBag <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsBlobPropertyBag o-toBlobPropertyBag :: IsBlobPropertyBag o => o -> BlobPropertyBag-toBlobPropertyBag = unsafeCastGObject . toGObject--instance IsBlobPropertyBag BlobPropertyBag-instance IsGObject BlobPropertyBag where-  toGObject = GObject . unBlobPropertyBag-  unsafeCastGObject = BlobPropertyBag . unGObject--- TODO add more IsBlobPropertyBag instances-#else--- TODO work out how we can support BlobPropertyBag in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal }--instance PToJSVal MutationCallback where-  pToJSVal = unMutationCallback-  {-# INLINE pToJSVal #-}--instance PFromJSVal MutationCallback where-  pFromJSVal = MutationCallback-  {-# INLINE pFromJSVal #-}--instance ToJSVal MutationCallback where-  toJSVal = return . unMutationCallback-  {-# INLINE toJSVal #-}--instance FromJSVal MutationCallback where-  fromJSVal v = fmap MutationCallback <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsMutationCallback o-toMutationCallback :: IsMutationCallback o => o -> MutationCallback-toMutationCallback = unsafeCastGObject . toGObject--instance IsMutationCallback MutationCallback-instance IsGObject MutationCallback where-  toGObject = GObject . unMutationCallback-  unsafeCastGObject = MutationCallback . unGObject--- TODO add more IsMutationCallback instances-#else--- TODO work out how we can support MutationCallback in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Promise = Promise { unPromise :: JSVal }--instance PToJSVal Promise where-  pToJSVal = unPromise-  {-# INLINE pToJSVal #-}--instance PFromJSVal Promise where-  pFromJSVal = Promise-  {-# INLINE pFromJSVal #-}--instance ToJSVal Promise where-  toJSVal = return . unPromise-  {-# INLINE toJSVal #-}--instance FromJSVal Promise where-  fromJSVal v = fmap Promise <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsPromise o-toPromise :: IsPromise o => o -> Promise-toPromise = unsafeCastGObject . toGObject--instance IsPromise Promise-instance IsGObject Promise where-  toGObject = GObject . unPromise-  unsafeCastGObject = Promise . unGObject--- TODO add more IsPromise instances--castToPromise :: IsGObject obj => obj -> JSM Promise-castToPromise = castTo gTypePromise "Promise"--gTypePromise :: JSM GType-gTypePromise = GType . Object <$> jsg "Promise"-#else--- TODO work out how we can support Promise in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal }--instance PToJSVal ArrayBuffer where-  pToJSVal = unArrayBuffer-  {-# INLINE pToJSVal #-}--instance PFromJSVal ArrayBuffer where-  pFromJSVal = ArrayBuffer-  {-# INLINE pFromJSVal #-}--instance ToJSVal ArrayBuffer where-  toJSVal = return . unArrayBuffer-  {-# INLINE toJSVal #-}--instance FromJSVal ArrayBuffer where-  fromJSVal v = fmap ArrayBuffer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsArrayBuffer o-toArrayBuffer :: IsArrayBuffer o => o -> ArrayBuffer-toArrayBuffer = unsafeCastGObject . toGObject--instance IsArrayBuffer ArrayBuffer-instance IsGObject ArrayBuffer where-  toGObject = GObject . unArrayBuffer-  unsafeCastGObject = ArrayBuffer . unGObject--castToArrayBuffer :: IsGObject obj => obj -> JSM ArrayBuffer-castToArrayBuffer = castTo gTypeArrayBuffer "ArrayBuffer"--gTypeArrayBuffer :: JSM GType-gTypeArrayBuffer = GType . Object <$> jsg "ArrayBuffer"-#else--- TODO work out how we can support ArrayBuffer in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Float32Array = Float32Array { unFloat32Array :: JSVal }--instance PToJSVal Float32Array where-  pToJSVal = unFloat32Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Float32Array where-  pFromJSVal = Float32Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Float32Array where-  toJSVal = return . unFloat32Array-  {-# INLINE toJSVal #-}--instance FromJSVal Float32Array where-  fromJSVal v = fmap Float32Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsFloat32Array o-toFloat32Array :: IsFloat32Array o => o -> Float32Array-toFloat32Array = unsafeCastGObject . toGObject--instance IsFloat32Array Float32Array-instance IsGObject Float32Array where-  toGObject = GObject . unFloat32Array-  unsafeCastGObject = Float32Array . unGObject--- TODO add more IsFloat32Array instances--castToFloat32Array :: IsGObject obj => obj -> JSM Float32Array-castToFloat32Array = castTo gTypeFloat32Array "Float32Array"--gTypeFloat32Array :: JSM GType-gTypeFloat32Array = GType . Object <$> jsg "Float32Array"-#else--- TODO work out how we can support Float32Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Float64Array = Float64Array { unFloat64Array :: JSVal }--instance PToJSVal Float64Array where-  pToJSVal = unFloat64Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Float64Array where-  pFromJSVal = Float64Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Float64Array where-  toJSVal = return . unFloat64Array-  {-# INLINE toJSVal #-}--instance FromJSVal Float64Array where-  fromJSVal v = fmap Float64Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsFloat64Array o-toFloat64Array :: IsFloat64Array o => o -> Float64Array-toFloat64Array = unsafeCastGObject . toGObject--instance IsFloat64Array Float64Array-instance IsGObject Float64Array where-  toGObject = GObject . unFloat64Array-  unsafeCastGObject = Float64Array . unGObject--- TODO add more IsFloat64Array instances--castToFloat64Array :: IsGObject obj => obj -> JSM Float64Array-castToFloat64Array = castTo gTypeFloat64Array "Float64Array"--gTypeFloat64Array :: JSM GType-gTypeFloat64Array = GType . Object <$> jsg "Float64Array"-#else--- TODO work out how we can support Float64Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Uint8Array = Uint8Array { unUint8Array :: JSVal }--instance PToJSVal Uint8Array where-  pToJSVal = unUint8Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Uint8Array where-  pFromJSVal = Uint8Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Uint8Array where-  toJSVal = return . unUint8Array-  {-# INLINE toJSVal #-}--instance FromJSVal Uint8Array where-  fromJSVal v = fmap Uint8Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsUint8Array o-toUint8Array :: IsUint8Array o => o -> Uint8Array-toUint8Array = unsafeCastGObject . toGObject--instance IsUint8Array Uint8Array-instance IsGObject Uint8Array where-  toGObject = GObject . unUint8Array-  unsafeCastGObject = Uint8Array . unGObject--- TODO add more IsUint8Array instances--castToUint8Array :: IsGObject obj => obj -> JSM Uint8Array-castToUint8Array = castTo gTypeUint8Array "Uint8Array"--gTypeUint8Array :: JSM GType-gTypeUint8Array = GType . Object <$> jsg "Uint8Array"-#else--- TODO work out how we can support Uint8Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal }--instance PToJSVal Uint8ClampedArray where-  pToJSVal = unUint8ClampedArray-  {-# INLINE pToJSVal #-}--instance PFromJSVal Uint8ClampedArray where-  pFromJSVal = Uint8ClampedArray-  {-# INLINE pFromJSVal #-}--instance ToJSVal Uint8ClampedArray where-  toJSVal = return . unUint8ClampedArray-  {-# INLINE toJSVal #-}--instance FromJSVal Uint8ClampedArray where-  fromJSVal v = fmap Uint8ClampedArray <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsUint8ClampedArray o-toUint8ClampedArray :: IsUint8ClampedArray o => o -> Uint8ClampedArray-toUint8ClampedArray = unsafeCastGObject . toGObject--instance IsUint8ClampedArray Uint8ClampedArray-instance IsGObject Uint8ClampedArray where-  toGObject = GObject . unUint8ClampedArray-  unsafeCastGObject = Uint8ClampedArray . unGObject--- TODO add more IsUint8ClampedArray instances--castToUint8ClampedArray :: IsGObject obj => obj -> JSM Uint8ClampedArray-castToUint8ClampedArray = castTo gTypeUint8ClampedArray "Uint8ClampedArray"--gTypeUint8ClampedArray :: JSM GType-gTypeUint8ClampedArray = GType . Object <$> jsg "Uint8ClampedArray"-#else--- TODO work out how we can support Uint8ClampedArray in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Uint16Array = Uint16Array { unUint16Array :: JSVal }--instance PToJSVal Uint16Array where-  pToJSVal = unUint16Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Uint16Array where-  pFromJSVal = Uint16Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Uint16Array where-  toJSVal = return . unUint16Array-  {-# INLINE toJSVal #-}--instance FromJSVal Uint16Array where-  fromJSVal v = fmap Uint16Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsUint16Array o-toUint16Array :: IsUint16Array o => o -> Uint16Array-toUint16Array = unsafeCastGObject . toGObject--instance IsUint16Array Uint16Array-instance IsGObject Uint16Array where-  toGObject = GObject . unUint16Array-  unsafeCastGObject = Uint16Array . unGObject--- TODO add more IsUint16Array instances--castToUint16Array :: IsGObject obj => obj -> JSM Uint16Array-castToUint16Array = castTo gTypeUint16Array "Uint16Array"--gTypeUint16Array :: JSM GType-gTypeUint16Array = GType . Object <$> jsg "Uint16Array"-#else--- TODO work out how we can support Uint16Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Uint32Array = Uint32Array { unUint32Array :: JSVal }--instance PToJSVal Uint32Array where-  pToJSVal = unUint32Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Uint32Array where-  pFromJSVal = Uint32Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Uint32Array where-  toJSVal = return . unUint32Array-  {-# INLINE toJSVal #-}--instance FromJSVal Uint32Array where-  fromJSVal v = fmap Uint32Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsUint32Array o-toUint32Array :: IsUint32Array o => o -> Uint32Array-toUint32Array = unsafeCastGObject . toGObject--instance IsUint32Array Uint32Array-instance IsGObject Uint32Array where-  toGObject = GObject . unUint32Array-  unsafeCastGObject = Uint32Array . unGObject--- TODO add more IsUint32Array instances--castToUint32Array :: IsGObject obj => obj -> JSM Uint32Array-castToUint32Array = castTo gTypeUint32Array "Uint32Array"--gTypeUint32Array :: JSM GType-gTypeUint32Array = GType . Object <$> jsg "Uint32Array"-#else--- TODO work out how we can support Uint32Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Int8Array = Int8Array { unInt8Array :: JSVal }--instance PToJSVal Int8Array where-  pToJSVal = unInt8Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Int8Array where-  pFromJSVal = Int8Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Int8Array where-  toJSVal = return . unInt8Array-  {-# INLINE toJSVal #-}--instance FromJSVal Int8Array where-  fromJSVal v = fmap Int8Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsInt8Array o-toInt8Array :: IsInt8Array o => o -> Int8Array-toInt8Array = unsafeCastGObject . toGObject--instance IsInt8Array Int8Array-instance IsGObject Int8Array where-  toGObject = GObject . unInt8Array-  unsafeCastGObject = Int8Array . unGObject--- TODO add more IsInt8Array instances--castToInt8Array :: IsGObject obj => obj -> JSM Int8Array-castToInt8Array = castTo gTypeInt8Array "Int8Array"--gTypeInt8Array :: JSM GType-gTypeInt8Array = GType . Object <$> jsg "Int8Array"-#else--- TODO work out how we can support Int8Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Int16Array = Int16Array { unInt16Array :: JSVal }--instance PToJSVal Int16Array where-  pToJSVal = unInt16Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Int16Array where-  pFromJSVal = Int16Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Int16Array where-  toJSVal = return . unInt16Array-  {-# INLINE toJSVal #-}--instance FromJSVal Int16Array where-  fromJSVal v = fmap Int16Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsInt16Array o-toInt16Array :: IsInt16Array o => o -> Int16Array-toInt16Array = unsafeCastGObject . toGObject--instance IsInt16Array Int16Array-instance IsGObject Int16Array where-  toGObject = GObject . unInt16Array-  unsafeCastGObject = Int16Array . unGObject--- TODO add more IsInt16Array instances--castToInt16Array :: IsGObject obj => obj -> JSM Int16Array-castToInt16Array = castTo gTypeInt16Array "Int16Array"--gTypeInt16Array :: JSM GType-gTypeInt16Array = GType . Object <$> jsg "Int16Array"-#else--- TODO work out how we can support Int16Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Int32Array = Int32Array { unInt32Array :: JSVal }--instance PToJSVal Int32Array where-  pToJSVal = unInt32Array-  {-# INLINE pToJSVal #-}--instance PFromJSVal Int32Array where-  pFromJSVal = Int32Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Int32Array where-  toJSVal = return . unInt32Array-  {-# INLINE toJSVal #-}--instance FromJSVal Int32Array where-  fromJSVal v = fmap Int32Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsInt32Array o-toInt32Array :: IsInt32Array o => o -> Int32Array-toInt32Array = unsafeCastGObject . toGObject--instance IsInt32Array Int32Array-instance IsGObject Int32Array where-  toGObject = GObject . unInt32Array-  unsafeCastGObject = Int32Array . unGObject--- TODO add more IsInt32Array instances--castToInt32Array :: IsGObject obj => obj -> JSM Int32Array-castToInt32Array = castTo gTypeInt32Array "Int32Array"--gTypeInt32Array :: JSM GType-gTypeInt32Array = GType . Object <$> jsg "Int32Array"-#else--- TODO work out how we can support Int32Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype ObjectArray = ObjectArray { unObjectArray :: JSVal }--instance PToJSVal ObjectArray where-  pToJSVal = unObjectArray-  {-# INLINE pToJSVal #-}--instance PFromJSVal ObjectArray where-  pFromJSVal = ObjectArray-  {-# INLINE pFromJSVal #-}--instance ToJSVal ObjectArray where-  toJSVal = return . unObjectArray-  {-# INLINE toJSVal #-}--instance FromJSVal ObjectArray where-  fromJSVal v = fmap ObjectArray <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsObjectArray o-toObjectArray :: IsObjectArray o => o -> ObjectArray-toObjectArray = unsafeCastGObject . toGObject--instance IsObjectArray ObjectArray-instance IsGObject ObjectArray where-  toGObject = GObject . unObjectArray-  unsafeCastGObject = ObjectArray . unGObject--- TODO add more IsObjectArray instances-#else--- TODO work out how we can support ObjectArray in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal }--instance PToJSVal ArrayBufferView where-  pToJSVal = unArrayBufferView-  {-# INLINE pToJSVal #-}--instance PFromJSVal ArrayBufferView where-  pFromJSVal = ArrayBufferView-  {-# INLINE pFromJSVal #-}--instance ToJSVal ArrayBufferView where-  toJSVal = return . unArrayBufferView-  {-# INLINE toJSVal #-}--instance FromJSVal ArrayBufferView where-  fromJSVal v = fmap ArrayBufferView <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsArrayBufferView o-toArrayBufferView :: IsArrayBufferView o => o -> ArrayBufferView-toArrayBufferView = unsafeCastGObject . toGObject--instance IsArrayBufferView ArrayBufferView-instance IsGObject ArrayBufferView where-  toGObject = GObject . unArrayBufferView-  unsafeCastGObject = ArrayBufferView . unGObject--- TODO add more IsArrayBufferView instances-#else--- TODO work out how we can support ArrayBufferView in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Array = Array { unArray :: JSVal }--instance PToJSVal Array where-  pToJSVal = unArray-  {-# INLINE pToJSVal #-}--instance PFromJSVal Array where-  pFromJSVal = Array-  {-# INLINE pFromJSVal #-}--instance ToJSVal Array where-  toJSVal = return . unArray-  {-# INLINE toJSVal #-}--instance FromJSVal Array where-  fromJSVal v = fmap Array <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsArray o-toArray :: IsArray o => o -> Array-toArray = unsafeCastGObject . toGObject--instance IsArray Array-instance IsGObject Array where-  toGObject = GObject . unArray-  unsafeCastGObject = Array . unGObject--- TODO add more IsArray instances--castToArray :: IsGObject obj => obj -> JSM Array-castToArray = castTo gTypeArray "Array"--gTypeArray :: JSM GType-gTypeArray = GType . Object <$> jsg "Array"-#else--- TODO work out how we can support Array in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Date = Date { unDate :: JSVal }--instance PToJSVal Date where-  pToJSVal = unDate-  {-# INLINE pToJSVal #-}--instance PFromJSVal Date where-  pFromJSVal = Date-  {-# INLINE pFromJSVal #-}--instance ToJSVal Date where-  toJSVal = return . unDate-  {-# INLINE toJSVal #-}--instance FromJSVal Date where-  fromJSVal v = fmap Date <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsDate o-toDate :: IsDate o => o -> Date-toDate = unsafeCastGObject . toGObject--instance IsDate Date-instance IsGObject Date where-  toGObject = GObject . unDate-  unsafeCastGObject = Date . unGObject--- TODO add more IsDate instances--castToDate :: IsGObject obj => obj -> JSM Date-castToDate = castTo gTypeDate "Date"--gTypeDate :: JSM GType-gTypeDate = GType . Object <$> jsg "Date"-#else--- TODO work out how we can support Date in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Acceleration = Acceleration { unAcceleration :: JSVal }--instance PToJSVal Acceleration where-  pToJSVal = unAcceleration-  {-# INLINE pToJSVal #-}--instance PFromJSVal Acceleration where-  pFromJSVal = Acceleration-  {-# INLINE pFromJSVal #-}--instance ToJSVal Acceleration where-  toJSVal = return . unAcceleration-  {-# INLINE toJSVal #-}--instance FromJSVal Acceleration where-  fromJSVal v = fmap Acceleration <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsAcceleration o-toAcceleration :: IsAcceleration o => o -> Acceleration-toAcceleration = unsafeCastGObject . toGObject--instance IsAcceleration Acceleration-instance IsGObject Acceleration where-  toGObject = GObject . unAcceleration-  unsafeCastGObject = Acceleration . unGObject--- TODO add more IsAcceleration instances-#else--- TODO work out how we can support Acceleration in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype RotationRate = RotationRate { unRotationRate :: JSVal }--instance PToJSVal RotationRate where-  pToJSVal = unRotationRate-  {-# INLINE pToJSVal #-}--instance PFromJSVal RotationRate where-  pFromJSVal = RotationRate-  {-# INLINE pFromJSVal #-}--instance ToJSVal RotationRate where-  toJSVal = return . unRotationRate-  {-# INLINE toJSVal #-}--instance FromJSVal RotationRate where-  fromJSVal v = fmap RotationRate <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsRotationRate o-toRotationRate :: IsRotationRate o => o -> RotationRate-toRotationRate = unsafeCastGObject . toGObject--instance IsRotationRate RotationRate-instance IsGObject RotationRate where-  toGObject = GObject . unRotationRate-  unsafeCastGObject = RotationRate . unGObject--- TODO add more IsRotationRate instances-#else--- TODO work out how we can support RotationRate in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype Algorithm = Algorithm { unAlgorithm :: JSVal }--instance PToJSVal Algorithm where-  pToJSVal = unAlgorithm-  {-# INLINE pToJSVal #-}--instance PFromJSVal Algorithm where-  pFromJSVal = Algorithm-  {-# INLINE pFromJSVal #-}--instance ToJSVal Algorithm where-  toJSVal = return . unAlgorithm-  {-# INLINE toJSVal #-}--instance FromJSVal Algorithm where-  fromJSVal v = fmap Algorithm <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsAlgorithm o-toAlgorithm :: IsAlgorithm o => o -> Algorithm-toAlgorithm = unsafeCastGObject . toGObject--instance IsAlgorithm Algorithm-instance IsGObject Algorithm where-  toGObject = GObject . unAlgorithm-  unsafeCastGObject = Algorithm . unGObject--- TODO add more IsAlgorithm instances-#else--- TODO work out how we can support Algorithm in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal }--instance PToJSVal CryptoOperationData where-  pToJSVal = unCryptoOperationData-  {-# INLINE pToJSVal #-}--instance PFromJSVal CryptoOperationData where-  pFromJSVal = CryptoOperationData-  {-# INLINE pFromJSVal #-}--instance ToJSVal CryptoOperationData where-  toJSVal = return . unCryptoOperationData-  {-# INLINE toJSVal #-}--instance FromJSVal CryptoOperationData where-  fromJSVal v = fmap CryptoOperationData <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsCryptoOperationData o-toCryptoOperationData :: IsCryptoOperationData o => o -> CryptoOperationData-toCryptoOperationData = unsafeCastGObject . toGObject--instance IsCryptoOperationData CryptoOperationData-instance IsGObject CryptoOperationData where-  toGObject = GObject . unCryptoOperationData-  unsafeCastGObject = CryptoOperationData . unGObject-instance IsCryptoOperationData ArrayBuffer-instance IsCryptoOperationData ArrayBufferView-#else--- TODO work out how we can support CryptoOperationData in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal }--instance PToJSVal CanvasStyle where-  pToJSVal = unCanvasStyle-  {-# INLINE pToJSVal #-}--instance PFromJSVal CanvasStyle where-  pFromJSVal = CanvasStyle-  {-# INLINE pFromJSVal #-}--instance ToJSVal CanvasStyle where-  toJSVal = return . unCanvasStyle-  {-# INLINE toJSVal #-}--instance FromJSVal CanvasStyle where-  fromJSVal v = fmap CanvasStyle <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsCanvasStyle o-toCanvasStyle :: IsCanvasStyle o => o -> CanvasStyle-toCanvasStyle = unsafeCastGObject . toGObject--instance IsCanvasStyle CanvasStyle-instance IsGObject CanvasStyle where-  toGObject = GObject . unCanvasStyle-  unsafeCastGObject = CanvasStyle . unGObject-instance IsCanvasStyle CanvasGradient-instance IsCanvasStyle CanvasPattern-#else--- TODO work out how we can support CanvasStyle in native code-#endif--#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)-newtype DOMException = DOMException { unDOMException :: JSVal }--instance PToJSVal DOMException where-  pToJSVal = unDOMException-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMException where-  pFromJSVal = DOMException-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMException where-  toJSVal = return . unDOMException-  {-# INLINE toJSVal #-}--instance FromJSVal DOMException where-  fromJSVal v = fmap DOMException <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--class IsGObject o => IsDOMException o-toDOMException :: IsDOMException o => o -> DOMException-toDOMException = unsafeCastGObject . toGObject--instance IsDOMException DOMException-instance IsGObject DOMException where-  toGObject = GObject . unDOMException-  unsafeCastGObject = DOMException . unGObject-#else--- TODO work out how we can support DOMException in native code-#endif--type GLenum = Word32-type GLboolean = Bool-type GLbitfield = Word32-type GLbyte = Int8-type GLshort = Int16-type GLint = Int32-type GLint64 = Int64-type GLsizei = Int32-type GLintptr = Int64-type GLsizeiptr = Int64-type GLubyte = Word8-type GLushort = Word16-type GLuint = Word32-type GLuint64 = Word64-type GLfloat = Double-type GLclampf = Double---- AUTO GENERATION STARTS HERE--- The remainder of this file is generated from IDL files using domconv-webkit-jsffi-#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ANGLEInstancedArrays".------ <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays Mozilla ANGLEInstancedArrays documentation>-newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal }--instance PToJSVal ANGLEInstancedArrays where-  pToJSVal = unANGLEInstancedArrays-  {-# INLINE pToJSVal #-}--instance PFromJSVal ANGLEInstancedArrays where-  pFromJSVal = ANGLEInstancedArrays-  {-# INLINE pFromJSVal #-}--instance ToJSVal ANGLEInstancedArrays where-  toJSVal = return . unANGLEInstancedArrays-  {-# INLINE toJSVal #-}--instance FromJSVal ANGLEInstancedArrays where-  fromJSVal v = fmap ANGLEInstancedArrays <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ANGLEInstancedArrays where-  makeObject = makeObject . unANGLEInstancedArrays--instance IsGObject ANGLEInstancedArrays where-  toGObject = GObject . unANGLEInstancedArrays-  {-# INLINE toGObject #-}-  unsafeCastGObject = ANGLEInstancedArrays . unGObject-  {-# INLINE unsafeCastGObject #-}--castToANGLEInstancedArrays :: IsGObject obj => obj -> JSM ANGLEInstancedArrays-castToANGLEInstancedArrays = castTo gTypeANGLEInstancedArrays "ANGLEInstancedArrays"--gTypeANGLEInstancedArrays :: JSM GType-gTypeANGLEInstancedArrays = GType . Object <$> jsg "ANGLEInstancedArrays"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AbstractView".------ <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView Mozilla AbstractView documentation>-newtype AbstractView = AbstractView { unAbstractView :: JSVal }--instance PToJSVal AbstractView where-  pToJSVal = unAbstractView-  {-# INLINE pToJSVal #-}--instance PFromJSVal AbstractView where-  pFromJSVal = AbstractView-  {-# INLINE pFromJSVal #-}--instance ToJSVal AbstractView where-  toJSVal = return . unAbstractView-  {-# INLINE toJSVal #-}--instance FromJSVal AbstractView where-  fromJSVal v = fmap AbstractView <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AbstractView where-  makeObject = makeObject . unAbstractView--instance IsGObject AbstractView where-  toGObject = GObject . unAbstractView-  {-# INLINE toGObject #-}-  unsafeCastGObject = AbstractView . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAbstractView :: IsGObject obj => obj -> JSM AbstractView-castToAbstractView = castTo gTypeAbstractView "AbstractView"--gTypeAbstractView :: JSM GType-gTypeAbstractView = GType . Object <$> jsg "AbstractView"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AbstractWorker".------ <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker Mozilla AbstractWorker documentation>-newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal }--instance PToJSVal AbstractWorker where-  pToJSVal = unAbstractWorker-  {-# INLINE pToJSVal #-}--instance PFromJSVal AbstractWorker where-  pFromJSVal = AbstractWorker-  {-# INLINE pFromJSVal #-}--instance ToJSVal AbstractWorker where-  toJSVal = return . unAbstractWorker-  {-# INLINE toJSVal #-}--instance FromJSVal AbstractWorker where-  fromJSVal v = fmap AbstractWorker <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AbstractWorker where-  makeObject = makeObject . unAbstractWorker--instance IsGObject AbstractWorker where-  toGObject = GObject . unAbstractWorker-  {-# INLINE toGObject #-}-  unsafeCastGObject = AbstractWorker . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAbstractWorker :: IsGObject obj => obj -> JSM AbstractWorker-castToAbstractWorker = castTo gTypeAbstractWorker "AbstractWorker"--gTypeAbstractWorker :: JSM GType-gTypeAbstractWorker = GType . Object <$> jsg "AbstractWorker"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AllAudioCapabilities".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.MediaStreamCapabilities"------ <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities Mozilla AllAudioCapabilities documentation>-newtype AllAudioCapabilities = AllAudioCapabilities { unAllAudioCapabilities :: JSVal }--instance PToJSVal AllAudioCapabilities where-  pToJSVal = unAllAudioCapabilities-  {-# INLINE pToJSVal #-}--instance PFromJSVal AllAudioCapabilities where-  pFromJSVal = AllAudioCapabilities-  {-# INLINE pFromJSVal #-}--instance ToJSVal AllAudioCapabilities where-  toJSVal = return . unAllAudioCapabilities-  {-# INLINE toJSVal #-}--instance FromJSVal AllAudioCapabilities where-  fromJSVal v = fmap AllAudioCapabilities <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AllAudioCapabilities where-  makeObject = makeObject . unAllAudioCapabilities--instance IsMediaStreamCapabilities AllAudioCapabilities-instance IsGObject AllAudioCapabilities where-  toGObject = GObject . unAllAudioCapabilities-  {-# INLINE toGObject #-}-  unsafeCastGObject = AllAudioCapabilities . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAllAudioCapabilities :: IsGObject obj => obj -> JSM AllAudioCapabilities-castToAllAudioCapabilities = castTo gTypeAllAudioCapabilities "AllAudioCapabilities"--gTypeAllAudioCapabilities :: JSM GType-gTypeAllAudioCapabilities = GType . Object <$> jsg "AllAudioCapabilities"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AllVideoCapabilities".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.MediaStreamCapabilities"------ <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities Mozilla AllVideoCapabilities documentation>-newtype AllVideoCapabilities = AllVideoCapabilities { unAllVideoCapabilities :: JSVal }--instance PToJSVal AllVideoCapabilities where-  pToJSVal = unAllVideoCapabilities-  {-# INLINE pToJSVal #-}--instance PFromJSVal AllVideoCapabilities where-  pFromJSVal = AllVideoCapabilities-  {-# INLINE pFromJSVal #-}--instance ToJSVal AllVideoCapabilities where-  toJSVal = return . unAllVideoCapabilities-  {-# INLINE toJSVal #-}--instance FromJSVal AllVideoCapabilities where-  fromJSVal v = fmap AllVideoCapabilities <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AllVideoCapabilities where-  makeObject = makeObject . unAllVideoCapabilities--instance IsMediaStreamCapabilities AllVideoCapabilities-instance IsGObject AllVideoCapabilities where-  toGObject = GObject . unAllVideoCapabilities-  {-# INLINE toGObject #-}-  unsafeCastGObject = AllVideoCapabilities . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAllVideoCapabilities :: IsGObject obj => obj -> JSM AllVideoCapabilities-castToAllVideoCapabilities = castTo gTypeAllVideoCapabilities "AllVideoCapabilities"--gTypeAllVideoCapabilities :: JSM GType-gTypeAllVideoCapabilities = GType . Object <$> jsg "AllVideoCapabilities"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AnalyserNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode Mozilla AnalyserNode documentation>-newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal }--instance PToJSVal AnalyserNode where-  pToJSVal = unAnalyserNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal AnalyserNode where-  pFromJSVal = AnalyserNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal AnalyserNode where-  toJSVal = return . unAnalyserNode-  {-# INLINE toJSVal #-}--instance FromJSVal AnalyserNode where-  fromJSVal v = fmap AnalyserNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AnalyserNode where-  makeObject = makeObject . unAnalyserNode--instance IsAudioNode AnalyserNode-instance IsEventTarget AnalyserNode-instance IsGObject AnalyserNode where-  toGObject = GObject . unAnalyserNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = AnalyserNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAnalyserNode :: IsGObject obj => obj -> JSM AnalyserNode-castToAnalyserNode = castTo gTypeAnalyserNode "AnalyserNode"--gTypeAnalyserNode :: JSM GType-gTypeAnalyserNode = GType . Object <$> jsg "AnalyserNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AnimationEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent Mozilla AnimationEvent documentation>-newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal }--instance PToJSVal AnimationEvent where-  pToJSVal = unAnimationEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal AnimationEvent where-  pFromJSVal = AnimationEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal AnimationEvent where-  toJSVal = return . unAnimationEvent-  {-# INLINE toJSVal #-}--instance FromJSVal AnimationEvent where-  fromJSVal v = fmap AnimationEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AnimationEvent where-  makeObject = makeObject . unAnimationEvent--instance IsEvent AnimationEvent-instance IsGObject AnimationEvent where-  toGObject = GObject . unAnimationEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = AnimationEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAnimationEvent :: IsGObject obj => obj -> JSM AnimationEvent-castToAnimationEvent = castTo gTypeAnimationEvent "AnimationEvent"--gTypeAnimationEvent :: JSM GType-gTypeAnimationEvent = GType . Object <$> jsg "AnimationEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ApplicationCache".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache Mozilla ApplicationCache documentation>-newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal }--instance PToJSVal ApplicationCache where-  pToJSVal = unApplicationCache-  {-# INLINE pToJSVal #-}--instance PFromJSVal ApplicationCache where-  pFromJSVal = ApplicationCache-  {-# INLINE pFromJSVal #-}--instance ToJSVal ApplicationCache where-  toJSVal = return . unApplicationCache-  {-# INLINE toJSVal #-}--instance FromJSVal ApplicationCache where-  fromJSVal v = fmap ApplicationCache <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ApplicationCache where-  makeObject = makeObject . unApplicationCache--instance IsEventTarget ApplicationCache-instance IsGObject ApplicationCache where-  toGObject = GObject . unApplicationCache-  {-# INLINE toGObject #-}-  unsafeCastGObject = ApplicationCache . unGObject-  {-# INLINE unsafeCastGObject #-}--castToApplicationCache :: IsGObject obj => obj -> JSM ApplicationCache-castToApplicationCache = castTo gTypeApplicationCache "ApplicationCache"--gTypeApplicationCache :: JSM GType-gTypeApplicationCache = GType . Object <$> jsg "ApplicationCache"-#else-type IsApplicationCache o = ApplicationCacheClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Attr".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Attr Mozilla Attr documentation>-newtype Attr = Attr { unAttr :: JSVal }--instance PToJSVal Attr where-  pToJSVal = unAttr-  {-# INLINE pToJSVal #-}--instance PFromJSVal Attr where-  pFromJSVal = Attr-  {-# INLINE pFromJSVal #-}--instance ToJSVal Attr where-  toJSVal = return . unAttr-  {-# INLINE toJSVal #-}--instance FromJSVal Attr where-  fromJSVal v = fmap Attr <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Attr where-  makeObject = makeObject . unAttr--instance IsNode Attr-instance IsEventTarget Attr-instance IsGObject Attr where-  toGObject = GObject . unAttr-  {-# INLINE toGObject #-}-  unsafeCastGObject = Attr . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAttr :: IsGObject obj => obj -> JSM Attr-castToAttr = castTo gTypeAttr "Attr"--gTypeAttr :: JSM GType-gTypeAttr = GType . Object <$> jsg "Attr"-#else-type IsAttr o = AttrClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioBuffer".------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer Mozilla AudioBuffer documentation>-newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal }--instance PToJSVal AudioBuffer where-  pToJSVal = unAudioBuffer-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioBuffer where-  pFromJSVal = AudioBuffer-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioBuffer where-  toJSVal = return . unAudioBuffer-  {-# INLINE toJSVal #-}--instance FromJSVal AudioBuffer where-  fromJSVal v = fmap AudioBuffer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioBuffer where-  makeObject = makeObject . unAudioBuffer--instance IsGObject AudioBuffer where-  toGObject = GObject . unAudioBuffer-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioBuffer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioBuffer :: IsGObject obj => obj -> JSM AudioBuffer-castToAudioBuffer = castTo gTypeAudioBuffer "AudioBuffer"--gTypeAudioBuffer :: JSM GType-gTypeAudioBuffer = GType . Object <$> jsg "AudioBuffer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioBufferSourceNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode Mozilla AudioBufferSourceNode documentation>-newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal }--instance PToJSVal AudioBufferSourceNode where-  pToJSVal = unAudioBufferSourceNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioBufferSourceNode where-  pFromJSVal = AudioBufferSourceNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioBufferSourceNode where-  toJSVal = return . unAudioBufferSourceNode-  {-# INLINE toJSVal #-}--instance FromJSVal AudioBufferSourceNode where-  fromJSVal v = fmap AudioBufferSourceNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioBufferSourceNode where-  makeObject = makeObject . unAudioBufferSourceNode--instance IsAudioNode AudioBufferSourceNode-instance IsEventTarget AudioBufferSourceNode-instance IsGObject AudioBufferSourceNode where-  toGObject = GObject . unAudioBufferSourceNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioBufferSourceNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioBufferSourceNode :: IsGObject obj => obj -> JSM AudioBufferSourceNode-castToAudioBufferSourceNode = castTo gTypeAudioBufferSourceNode "AudioBufferSourceNode"--gTypeAudioBufferSourceNode :: JSM GType-gTypeAudioBufferSourceNode = GType . Object <$> jsg "AudioBufferSourceNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioContext".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation>-newtype AudioContext = AudioContext { unAudioContext :: JSVal }--instance PToJSVal AudioContext where-  pToJSVal = unAudioContext-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioContext where-  pFromJSVal = AudioContext-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioContext where-  toJSVal = return . unAudioContext-  {-# INLINE toJSVal #-}--instance FromJSVal AudioContext where-  fromJSVal v = fmap AudioContext <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioContext where-  makeObject = makeObject . unAudioContext--class IsEventTarget o => IsAudioContext o-toAudioContext :: IsAudioContext o => o -> AudioContext-toAudioContext = unsafeCastGObject . toGObject--instance IsAudioContext AudioContext-instance IsEventTarget AudioContext-instance IsGObject AudioContext where-  toGObject = GObject . unAudioContext-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioContext . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioContext :: IsGObject obj => obj -> JSM AudioContext-castToAudioContext = castTo gTypeAudioContext "AudioContext"--gTypeAudioContext :: JSM GType-gTypeAudioContext = GType . Object <$> jsg "AudioContext"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioDestinationNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode Mozilla AudioDestinationNode documentation>-newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal }--instance PToJSVal AudioDestinationNode where-  pToJSVal = unAudioDestinationNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioDestinationNode where-  pFromJSVal = AudioDestinationNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioDestinationNode where-  toJSVal = return . unAudioDestinationNode-  {-# INLINE toJSVal #-}--instance FromJSVal AudioDestinationNode where-  fromJSVal v = fmap AudioDestinationNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioDestinationNode where-  makeObject = makeObject . unAudioDestinationNode--instance IsAudioNode AudioDestinationNode-instance IsEventTarget AudioDestinationNode-instance IsGObject AudioDestinationNode where-  toGObject = GObject . unAudioDestinationNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioDestinationNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioDestinationNode :: IsGObject obj => obj -> JSM AudioDestinationNode-castToAudioDestinationNode = castTo gTypeAudioDestinationNode "AudioDestinationNode"--gTypeAudioDestinationNode :: JSM GType-gTypeAudioDestinationNode = GType . Object <$> jsg "AudioDestinationNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioListener".------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener Mozilla AudioListener documentation>-newtype AudioListener = AudioListener { unAudioListener :: JSVal }--instance PToJSVal AudioListener where-  pToJSVal = unAudioListener-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioListener where-  pFromJSVal = AudioListener-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioListener where-  toJSVal = return . unAudioListener-  {-# INLINE toJSVal #-}--instance FromJSVal AudioListener where-  fromJSVal v = fmap AudioListener <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioListener where-  makeObject = makeObject . unAudioListener--instance IsGObject AudioListener where-  toGObject = GObject . unAudioListener-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioListener . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioListener :: IsGObject obj => obj -> JSM AudioListener-castToAudioListener = castTo gTypeAudioListener "AudioListener"--gTypeAudioListener :: JSM GType-gTypeAudioListener = GType . Object <$> jsg "AudioListener"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode Mozilla AudioNode documentation>-newtype AudioNode = AudioNode { unAudioNode :: JSVal }--instance PToJSVal AudioNode where-  pToJSVal = unAudioNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioNode where-  pFromJSVal = AudioNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioNode where-  toJSVal = return . unAudioNode-  {-# INLINE toJSVal #-}--instance FromJSVal AudioNode where-  fromJSVal v = fmap AudioNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioNode where-  makeObject = makeObject . unAudioNode--class IsEventTarget o => IsAudioNode o-toAudioNode :: IsAudioNode o => o -> AudioNode-toAudioNode = unsafeCastGObject . toGObject--instance IsAudioNode AudioNode-instance IsEventTarget AudioNode-instance IsGObject AudioNode where-  toGObject = GObject . unAudioNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioNode :: IsGObject obj => obj -> JSM AudioNode-castToAudioNode = castTo gTypeAudioNode "AudioNode"--gTypeAudioNode :: JSM GType-gTypeAudioNode = GType . Object <$> jsg "AudioNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioParam".------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam Mozilla AudioParam documentation>-newtype AudioParam = AudioParam { unAudioParam :: JSVal }--instance PToJSVal AudioParam where-  pToJSVal = unAudioParam-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioParam where-  pFromJSVal = AudioParam-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioParam where-  toJSVal = return . unAudioParam-  {-# INLINE toJSVal #-}--instance FromJSVal AudioParam where-  fromJSVal v = fmap AudioParam <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioParam where-  makeObject = makeObject . unAudioParam--instance IsGObject AudioParam where-  toGObject = GObject . unAudioParam-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioParam . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioParam :: IsGObject obj => obj -> JSM AudioParam-castToAudioParam = castTo gTypeAudioParam "AudioParam"--gTypeAudioParam :: JSM GType-gTypeAudioParam = GType . Object <$> jsg "AudioParam"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioProcessingEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent Mozilla AudioProcessingEvent documentation>-newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal }--instance PToJSVal AudioProcessingEvent where-  pToJSVal = unAudioProcessingEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioProcessingEvent where-  pFromJSVal = AudioProcessingEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioProcessingEvent where-  toJSVal = return . unAudioProcessingEvent-  {-# INLINE toJSVal #-}--instance FromJSVal AudioProcessingEvent where-  fromJSVal v = fmap AudioProcessingEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioProcessingEvent where-  makeObject = makeObject . unAudioProcessingEvent--instance IsEvent AudioProcessingEvent-instance IsGObject AudioProcessingEvent where-  toGObject = GObject . unAudioProcessingEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioProcessingEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioProcessingEvent :: IsGObject obj => obj -> JSM AudioProcessingEvent-castToAudioProcessingEvent = castTo gTypeAudioProcessingEvent "AudioProcessingEvent"--gTypeAudioProcessingEvent :: JSM GType-gTypeAudioProcessingEvent = GType . Object <$> jsg "AudioProcessingEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioStreamTrack".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.MediaStreamTrack"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioStreamTrack Mozilla AudioStreamTrack documentation>-newtype AudioStreamTrack = AudioStreamTrack { unAudioStreamTrack :: JSVal }--instance PToJSVal AudioStreamTrack where-  pToJSVal = unAudioStreamTrack-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioStreamTrack where-  pFromJSVal = AudioStreamTrack-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioStreamTrack where-  toJSVal = return . unAudioStreamTrack-  {-# INLINE toJSVal #-}--instance FromJSVal AudioStreamTrack where-  fromJSVal v = fmap AudioStreamTrack <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioStreamTrack where-  makeObject = makeObject . unAudioStreamTrack--instance IsMediaStreamTrack AudioStreamTrack-instance IsEventTarget AudioStreamTrack-instance IsGObject AudioStreamTrack where-  toGObject = GObject . unAudioStreamTrack-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioStreamTrack . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioStreamTrack :: IsGObject obj => obj -> JSM AudioStreamTrack-castToAudioStreamTrack = castTo gTypeAudioStreamTrack "AudioStreamTrack"--gTypeAudioStreamTrack :: JSM GType-gTypeAudioStreamTrack = GType . Object <$> jsg "AudioStreamTrack"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioTrack".------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack Mozilla AudioTrack documentation>-newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal }--instance PToJSVal AudioTrack where-  pToJSVal = unAudioTrack-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioTrack where-  pFromJSVal = AudioTrack-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioTrack where-  toJSVal = return . unAudioTrack-  {-# INLINE toJSVal #-}--instance FromJSVal AudioTrack where-  fromJSVal v = fmap AudioTrack <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioTrack where-  makeObject = makeObject . unAudioTrack--instance IsGObject AudioTrack where-  toGObject = GObject . unAudioTrack-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioTrack . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioTrack :: IsGObject obj => obj -> JSM AudioTrack-castToAudioTrack = castTo gTypeAudioTrack "AudioTrack"--gTypeAudioTrack :: JSM GType-gTypeAudioTrack = GType . Object <$> jsg "AudioTrack"-#else-#ifndef USE_OLD_WEBKIT-type IsAudioTrack o = AudioTrackClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AudioTrackList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList Mozilla AudioTrackList documentation>-newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal }--instance PToJSVal AudioTrackList where-  pToJSVal = unAudioTrackList-  {-# INLINE pToJSVal #-}--instance PFromJSVal AudioTrackList where-  pFromJSVal = AudioTrackList-  {-# INLINE pFromJSVal #-}--instance ToJSVal AudioTrackList where-  toJSVal = return . unAudioTrackList-  {-# INLINE toJSVal #-}--instance FromJSVal AudioTrackList where-  fromJSVal v = fmap AudioTrackList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AudioTrackList where-  makeObject = makeObject . unAudioTrackList--instance IsEventTarget AudioTrackList-instance IsGObject AudioTrackList where-  toGObject = GObject . unAudioTrackList-  {-# INLINE toGObject #-}-  unsafeCastGObject = AudioTrackList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAudioTrackList :: IsGObject obj => obj -> JSM AudioTrackList-castToAudioTrackList = castTo gTypeAudioTrackList "AudioTrackList"--gTypeAudioTrackList :: JSM GType-gTypeAudioTrackList = GType . Object <$> jsg "AudioTrackList"-#else-#ifndef USE_OLD_WEBKIT-type IsAudioTrackList o = AudioTrackListClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.AutocompleteErrorEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent Mozilla AutocompleteErrorEvent documentation>-newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal }--instance PToJSVal AutocompleteErrorEvent where-  pToJSVal = unAutocompleteErrorEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal AutocompleteErrorEvent where-  pFromJSVal = AutocompleteErrorEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal AutocompleteErrorEvent where-  toJSVal = return . unAutocompleteErrorEvent-  {-# INLINE toJSVal #-}--instance FromJSVal AutocompleteErrorEvent where-  fromJSVal v = fmap AutocompleteErrorEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject AutocompleteErrorEvent where-  makeObject = makeObject . unAutocompleteErrorEvent--instance IsEvent AutocompleteErrorEvent-instance IsGObject AutocompleteErrorEvent where-  toGObject = GObject . unAutocompleteErrorEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = AutocompleteErrorEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToAutocompleteErrorEvent :: IsGObject obj => obj -> JSM AutocompleteErrorEvent-castToAutocompleteErrorEvent = castTo gTypeAutocompleteErrorEvent "AutocompleteErrorEvent"--gTypeAutocompleteErrorEvent :: JSM GType-gTypeAutocompleteErrorEvent = GType . Object <$> jsg "AutocompleteErrorEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BarProp".------ <https://developer.mozilla.org/en-US/docs/Web/API/BarProp Mozilla BarProp documentation>-newtype BarProp = BarProp { unBarProp :: JSVal }--instance PToJSVal BarProp where-  pToJSVal = unBarProp-  {-# INLINE pToJSVal #-}--instance PFromJSVal BarProp where-  pFromJSVal = BarProp-  {-# INLINE pFromJSVal #-}--instance ToJSVal BarProp where-  toJSVal = return . unBarProp-  {-# INLINE toJSVal #-}--instance FromJSVal BarProp where-  fromJSVal v = fmap BarProp <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject BarProp where-  makeObject = makeObject . unBarProp--instance IsGObject BarProp where-  toGObject = GObject . unBarProp-  {-# INLINE toGObject #-}-  unsafeCastGObject = BarProp . unGObject-  {-# INLINE unsafeCastGObject #-}--castToBarProp :: IsGObject obj => obj -> JSM BarProp-castToBarProp = castTo gTypeBarProp "BarProp"--gTypeBarProp :: JSM GType-gTypeBarProp = GType . Object <$> jsg "BarProp"-#else-#ifndef USE_OLD_WEBKIT-type IsBarProp o = BarPropClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BatteryManager".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager Mozilla BatteryManager documentation>-newtype BatteryManager = BatteryManager { unBatteryManager :: JSVal }--instance PToJSVal BatteryManager where-  pToJSVal = unBatteryManager-  {-# INLINE pToJSVal #-}--instance PFromJSVal BatteryManager where-  pFromJSVal = BatteryManager-  {-# INLINE pFromJSVal #-}--instance ToJSVal BatteryManager where-  toJSVal = return . unBatteryManager-  {-# INLINE toJSVal #-}--instance FromJSVal BatteryManager where-  fromJSVal v = fmap BatteryManager <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject BatteryManager where-  makeObject = makeObject . unBatteryManager--instance IsEventTarget BatteryManager-instance IsGObject BatteryManager where-  toGObject = GObject . unBatteryManager-  {-# INLINE toGObject #-}-  unsafeCastGObject = BatteryManager . unGObject-  {-# INLINE unsafeCastGObject #-}--castToBatteryManager :: IsGObject obj => obj -> JSM BatteryManager-castToBatteryManager = castTo gTypeBatteryManager "BatteryManager"--gTypeBatteryManager :: JSM GType-gTypeBatteryManager = GType . Object <$> jsg "BatteryManager"-#else-#ifndef USE_OLD_WEBKIT-type IsBatteryManager o = BatteryManagerClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BeforeLoadEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent Mozilla BeforeLoadEvent documentation>-newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal }--instance PToJSVal BeforeLoadEvent where-  pToJSVal = unBeforeLoadEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal BeforeLoadEvent where-  pFromJSVal = BeforeLoadEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal BeforeLoadEvent where-  toJSVal = return . unBeforeLoadEvent-  {-# INLINE toJSVal #-}--instance FromJSVal BeforeLoadEvent where-  fromJSVal v = fmap BeforeLoadEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject BeforeLoadEvent where-  makeObject = makeObject . unBeforeLoadEvent--instance IsEvent BeforeLoadEvent-instance IsGObject BeforeLoadEvent where-  toGObject = GObject . unBeforeLoadEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = BeforeLoadEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToBeforeLoadEvent :: IsGObject obj => obj -> JSM BeforeLoadEvent-castToBeforeLoadEvent = castTo gTypeBeforeLoadEvent "BeforeLoadEvent"--gTypeBeforeLoadEvent :: JSM GType-gTypeBeforeLoadEvent = GType . Object <$> jsg "BeforeLoadEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BeforeUnloadEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent Mozilla BeforeUnloadEvent documentation>-newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal }--instance PToJSVal BeforeUnloadEvent where-  pToJSVal = unBeforeUnloadEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal BeforeUnloadEvent where-  pFromJSVal = BeforeUnloadEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal BeforeUnloadEvent where-  toJSVal = return . unBeforeUnloadEvent-  {-# INLINE toJSVal #-}--instance FromJSVal BeforeUnloadEvent where-  fromJSVal v = fmap BeforeUnloadEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject BeforeUnloadEvent where-  makeObject = makeObject . unBeforeUnloadEvent--instance IsEvent BeforeUnloadEvent-instance IsGObject BeforeUnloadEvent where-  toGObject = GObject . unBeforeUnloadEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = BeforeUnloadEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToBeforeUnloadEvent :: IsGObject obj => obj -> JSM BeforeUnloadEvent-castToBeforeUnloadEvent = castTo gTypeBeforeUnloadEvent "BeforeUnloadEvent"--gTypeBeforeUnloadEvent :: JSM GType-gTypeBeforeUnloadEvent = GType . Object <$> jsg "BeforeUnloadEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.BiquadFilterNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode Mozilla BiquadFilterNode documentation>-newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal }--instance PToJSVal BiquadFilterNode where-  pToJSVal = unBiquadFilterNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal BiquadFilterNode where-  pFromJSVal = BiquadFilterNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal BiquadFilterNode where-  toJSVal = return . unBiquadFilterNode-  {-# INLINE toJSVal #-}--instance FromJSVal BiquadFilterNode where-  fromJSVal v = fmap BiquadFilterNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject BiquadFilterNode where-  makeObject = makeObject . unBiquadFilterNode--instance IsAudioNode BiquadFilterNode-instance IsEventTarget BiquadFilterNode-instance IsGObject BiquadFilterNode where-  toGObject = GObject . unBiquadFilterNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = BiquadFilterNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToBiquadFilterNode :: IsGObject obj => obj -> JSM BiquadFilterNode-castToBiquadFilterNode = castTo gTypeBiquadFilterNode "BiquadFilterNode"--gTypeBiquadFilterNode :: JSM GType-gTypeBiquadFilterNode = GType . Object <$> jsg "BiquadFilterNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Blob".------ <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation>-newtype Blob = Blob { unBlob :: JSVal }--instance PToJSVal Blob where-  pToJSVal = unBlob-  {-# INLINE pToJSVal #-}--instance PFromJSVal Blob where-  pFromJSVal = Blob-  {-# INLINE pFromJSVal #-}--instance ToJSVal Blob where-  toJSVal = return . unBlob-  {-# INLINE toJSVal #-}--instance FromJSVal Blob where-  fromJSVal v = fmap Blob <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Blob where-  makeObject = makeObject . unBlob--class IsGObject o => IsBlob o-toBlob :: IsBlob o => o -> Blob-toBlob = unsafeCastGObject . toGObject--instance IsBlob Blob-instance IsGObject Blob where-  toGObject = GObject . unBlob-  {-# INLINE toGObject #-}-  unsafeCastGObject = Blob . unGObject-  {-# INLINE unsafeCastGObject #-}--castToBlob :: IsGObject obj => obj -> JSM Blob-castToBlob = castTo gTypeBlob "Blob"--gTypeBlob :: JSM GType-gTypeBlob = GType . Object <$> jsg "Blob"-#else-type IsBlob o = BlobClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CDATASection".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Text"---     * "Language.Javascript.JSaddle.DOM.CharacterData"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/CDATASection Mozilla CDATASection documentation>-newtype CDATASection = CDATASection { unCDATASection :: JSVal }--instance PToJSVal CDATASection where-  pToJSVal = unCDATASection-  {-# INLINE pToJSVal #-}--instance PFromJSVal CDATASection where-  pFromJSVal = CDATASection-  {-# INLINE pFromJSVal #-}--instance ToJSVal CDATASection where-  toJSVal = return . unCDATASection-  {-# INLINE toJSVal #-}--instance FromJSVal CDATASection where-  fromJSVal v = fmap CDATASection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CDATASection where-  makeObject = makeObject . unCDATASection--instance IsText CDATASection-instance IsCharacterData CDATASection-instance IsNode CDATASection-instance IsEventTarget CDATASection-instance IsGObject CDATASection where-  toGObject = GObject . unCDATASection-  {-# INLINE toGObject #-}-  unsafeCastGObject = CDATASection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCDATASection :: IsGObject obj => obj -> JSM CDATASection-castToCDATASection = castTo gTypeCDATASection "CDATASection"--gTypeCDATASection :: JSM GType-gTypeCDATASection = GType . Object <$> jsg "CDATASection"-#else-type IsCDATASection o = CDATASectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSS".------ <https://developer.mozilla.org/en-US/docs/Web/API/CSS Mozilla CSS documentation>-newtype CSS = CSS { unCSS :: JSVal }--instance PToJSVal CSS where-  pToJSVal = unCSS-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSS where-  pFromJSVal = CSS-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSS where-  toJSVal = return . unCSS-  {-# INLINE toJSVal #-}--instance FromJSVal CSS where-  fromJSVal v = fmap CSS <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSS where-  makeObject = makeObject . unCSS--instance IsGObject CSS where-  toGObject = GObject . unCSS-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSS . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSS :: IsGObject obj => obj -> JSM CSS-castToCSS = castTo gTypeCSS "CSS"--gTypeCSS :: JSM GType-gTypeCSS = GType . Object <$> jsg "CSS"-#else-#ifndef USE_OLD_WEBKIT-type IsCSS o = CSSClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSCharsetRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule Mozilla CSSCharsetRule documentation>-newtype CSSCharsetRule = CSSCharsetRule { unCSSCharsetRule :: JSVal }--instance PToJSVal CSSCharsetRule where-  pToJSVal = unCSSCharsetRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSCharsetRule where-  pFromJSVal = CSSCharsetRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSCharsetRule where-  toJSVal = return . unCSSCharsetRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSCharsetRule where-  fromJSVal v = fmap CSSCharsetRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSCharsetRule where-  makeObject = makeObject . unCSSCharsetRule--instance IsCSSRule CSSCharsetRule-instance IsGObject CSSCharsetRule where-  toGObject = GObject . unCSSCharsetRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSCharsetRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSCharsetRule :: IsGObject obj => obj -> JSM CSSCharsetRule-castToCSSCharsetRule = castTo gTypeCSSCharsetRule "CSSCharsetRule"--gTypeCSSCharsetRule :: JSM GType-gTypeCSSCharsetRule = GType . Object <$> jsg "CSSCharsetRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSFontFaceLoadEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent Mozilla CSSFontFaceLoadEvent documentation>-newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal }--instance PToJSVal CSSFontFaceLoadEvent where-  pToJSVal = unCSSFontFaceLoadEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSFontFaceLoadEvent where-  pFromJSVal = CSSFontFaceLoadEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSFontFaceLoadEvent where-  toJSVal = return . unCSSFontFaceLoadEvent-  {-# INLINE toJSVal #-}--instance FromJSVal CSSFontFaceLoadEvent where-  fromJSVal v = fmap CSSFontFaceLoadEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSFontFaceLoadEvent where-  makeObject = makeObject . unCSSFontFaceLoadEvent--instance IsEvent CSSFontFaceLoadEvent-instance IsGObject CSSFontFaceLoadEvent where-  toGObject = GObject . unCSSFontFaceLoadEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSFontFaceLoadEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSFontFaceLoadEvent :: IsGObject obj => obj -> JSM CSSFontFaceLoadEvent-castToCSSFontFaceLoadEvent = castTo gTypeCSSFontFaceLoadEvent "CSSFontFaceLoadEvent"--gTypeCSSFontFaceLoadEvent :: JSM GType-gTypeCSSFontFaceLoadEvent = GType . Object <$> jsg "CSSFontFaceLoadEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSFontFaceRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule Mozilla CSSFontFaceRule documentation>-newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal }--instance PToJSVal CSSFontFaceRule where-  pToJSVal = unCSSFontFaceRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSFontFaceRule where-  pFromJSVal = CSSFontFaceRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSFontFaceRule where-  toJSVal = return . unCSSFontFaceRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSFontFaceRule where-  fromJSVal v = fmap CSSFontFaceRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSFontFaceRule where-  makeObject = makeObject . unCSSFontFaceRule--instance IsCSSRule CSSFontFaceRule-instance IsGObject CSSFontFaceRule where-  toGObject = GObject . unCSSFontFaceRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSFontFaceRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSFontFaceRule :: IsGObject obj => obj -> JSM CSSFontFaceRule-castToCSSFontFaceRule = castTo gTypeCSSFontFaceRule "CSSFontFaceRule"--gTypeCSSFontFaceRule :: JSM GType-gTypeCSSFontFaceRule = GType . Object <$> jsg "CSSFontFaceRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSImportRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule Mozilla CSSImportRule documentation>-newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal }--instance PToJSVal CSSImportRule where-  pToJSVal = unCSSImportRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSImportRule where-  pFromJSVal = CSSImportRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSImportRule where-  toJSVal = return . unCSSImportRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSImportRule where-  fromJSVal v = fmap CSSImportRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSImportRule where-  makeObject = makeObject . unCSSImportRule--instance IsCSSRule CSSImportRule-instance IsGObject CSSImportRule where-  toGObject = GObject . unCSSImportRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSImportRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSImportRule :: IsGObject obj => obj -> JSM CSSImportRule-castToCSSImportRule = castTo gTypeCSSImportRule "CSSImportRule"--gTypeCSSImportRule :: JSM GType-gTypeCSSImportRule = GType . Object <$> jsg "CSSImportRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSKeyframeRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule Mozilla CSSKeyframeRule documentation>-newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal }--instance PToJSVal CSSKeyframeRule where-  pToJSVal = unCSSKeyframeRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSKeyframeRule where-  pFromJSVal = CSSKeyframeRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSKeyframeRule where-  toJSVal = return . unCSSKeyframeRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSKeyframeRule where-  fromJSVal v = fmap CSSKeyframeRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSKeyframeRule where-  makeObject = makeObject . unCSSKeyframeRule--instance IsCSSRule CSSKeyframeRule-instance IsGObject CSSKeyframeRule where-  toGObject = GObject . unCSSKeyframeRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSKeyframeRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSKeyframeRule :: IsGObject obj => obj -> JSM CSSKeyframeRule-castToCSSKeyframeRule = castTo gTypeCSSKeyframeRule "CSSKeyframeRule"--gTypeCSSKeyframeRule :: JSM GType-gTypeCSSKeyframeRule = GType . Object <$> jsg "CSSKeyframeRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSKeyframesRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule Mozilla CSSKeyframesRule documentation>-newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal }--instance PToJSVal CSSKeyframesRule where-  pToJSVal = unCSSKeyframesRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSKeyframesRule where-  pFromJSVal = CSSKeyframesRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSKeyframesRule where-  toJSVal = return . unCSSKeyframesRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSKeyframesRule where-  fromJSVal v = fmap CSSKeyframesRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSKeyframesRule where-  makeObject = makeObject . unCSSKeyframesRule--instance IsCSSRule CSSKeyframesRule-instance IsGObject CSSKeyframesRule where-  toGObject = GObject . unCSSKeyframesRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSKeyframesRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSKeyframesRule :: IsGObject obj => obj -> JSM CSSKeyframesRule-castToCSSKeyframesRule = castTo gTypeCSSKeyframesRule "CSSKeyframesRule"--gTypeCSSKeyframesRule :: JSM GType-gTypeCSSKeyframesRule = GType . Object <$> jsg "CSSKeyframesRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSMediaRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule Mozilla CSSMediaRule documentation>-newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal }--instance PToJSVal CSSMediaRule where-  pToJSVal = unCSSMediaRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSMediaRule where-  pFromJSVal = CSSMediaRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSMediaRule where-  toJSVal = return . unCSSMediaRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSMediaRule where-  fromJSVal v = fmap CSSMediaRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSMediaRule where-  makeObject = makeObject . unCSSMediaRule--instance IsCSSRule CSSMediaRule-instance IsGObject CSSMediaRule where-  toGObject = GObject . unCSSMediaRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSMediaRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSMediaRule :: IsGObject obj => obj -> JSM CSSMediaRule-castToCSSMediaRule = castTo gTypeCSSMediaRule "CSSMediaRule"--gTypeCSSMediaRule :: JSM GType-gTypeCSSMediaRule = GType . Object <$> jsg "CSSMediaRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSPageRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule Mozilla CSSPageRule documentation>-newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal }--instance PToJSVal CSSPageRule where-  pToJSVal = unCSSPageRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSPageRule where-  pFromJSVal = CSSPageRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSPageRule where-  toJSVal = return . unCSSPageRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSPageRule where-  fromJSVal v = fmap CSSPageRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSPageRule where-  makeObject = makeObject . unCSSPageRule--instance IsCSSRule CSSPageRule-instance IsGObject CSSPageRule where-  toGObject = GObject . unCSSPageRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSPageRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSPageRule :: IsGObject obj => obj -> JSM CSSPageRule-castToCSSPageRule = castTo gTypeCSSPageRule "CSSPageRule"--gTypeCSSPageRule :: JSM GType-gTypeCSSPageRule = GType . Object <$> jsg "CSSPageRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSPrimitiveValue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSValue"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue Mozilla CSSPrimitiveValue documentation>-newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal }--instance PToJSVal CSSPrimitiveValue where-  pToJSVal = unCSSPrimitiveValue-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSPrimitiveValue where-  pFromJSVal = CSSPrimitiveValue-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSPrimitiveValue where-  toJSVal = return . unCSSPrimitiveValue-  {-# INLINE toJSVal #-}--instance FromJSVal CSSPrimitiveValue where-  fromJSVal v = fmap CSSPrimitiveValue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSPrimitiveValue where-  makeObject = makeObject . unCSSPrimitiveValue--instance IsCSSValue CSSPrimitiveValue-instance IsGObject CSSPrimitiveValue where-  toGObject = GObject . unCSSPrimitiveValue-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSPrimitiveValue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSPrimitiveValue :: IsGObject obj => obj -> JSM CSSPrimitiveValue-castToCSSPrimitiveValue = castTo gTypeCSSPrimitiveValue "CSSPrimitiveValue"--gTypeCSSPrimitiveValue :: JSM GType-gTypeCSSPrimitiveValue = GType . Object <$> jsg "CSSPrimitiveValue"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSRule".------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule Mozilla CSSRule documentation>-newtype CSSRule = CSSRule { unCSSRule :: JSVal }--instance PToJSVal CSSRule where-  pToJSVal = unCSSRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSRule where-  pFromJSVal = CSSRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSRule where-  toJSVal = return . unCSSRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSRule where-  fromJSVal v = fmap CSSRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSRule where-  makeObject = makeObject . unCSSRule--class IsGObject o => IsCSSRule o-toCSSRule :: IsCSSRule o => o -> CSSRule-toCSSRule = unsafeCastGObject . toGObject--instance IsCSSRule CSSRule-instance IsGObject CSSRule where-  toGObject = GObject . unCSSRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSRule :: IsGObject obj => obj -> JSM CSSRule-castToCSSRule = castTo gTypeCSSRule "CSSRule"--gTypeCSSRule :: JSM GType-gTypeCSSRule = GType . Object <$> jsg "CSSRule"-#else-type IsCSSRule o = CSSRuleClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSRuleList".------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList Mozilla CSSRuleList documentation>-newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal }--instance PToJSVal CSSRuleList where-  pToJSVal = unCSSRuleList-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSRuleList where-  pFromJSVal = CSSRuleList-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSRuleList where-  toJSVal = return . unCSSRuleList-  {-# INLINE toJSVal #-}--instance FromJSVal CSSRuleList where-  fromJSVal v = fmap CSSRuleList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSRuleList where-  makeObject = makeObject . unCSSRuleList--instance IsGObject CSSRuleList where-  toGObject = GObject . unCSSRuleList-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSRuleList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSRuleList :: IsGObject obj => obj -> JSM CSSRuleList-castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList"--gTypeCSSRuleList :: JSM GType-gTypeCSSRuleList = GType . Object <$> jsg "CSSRuleList"-#else-type IsCSSRuleList o = CSSRuleListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSStyleDeclaration".------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration Mozilla CSSStyleDeclaration documentation>-newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal }--instance PToJSVal CSSStyleDeclaration where-  pToJSVal = unCSSStyleDeclaration-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSStyleDeclaration where-  pFromJSVal = CSSStyleDeclaration-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSStyleDeclaration where-  toJSVal = return . unCSSStyleDeclaration-  {-# INLINE toJSVal #-}--instance FromJSVal CSSStyleDeclaration where-  fromJSVal v = fmap CSSStyleDeclaration <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSStyleDeclaration where-  makeObject = makeObject . unCSSStyleDeclaration--instance IsGObject CSSStyleDeclaration where-  toGObject = GObject . unCSSStyleDeclaration-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSStyleDeclaration . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSStyleDeclaration :: IsGObject obj => obj -> JSM CSSStyleDeclaration-castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration"--gTypeCSSStyleDeclaration :: JSM GType-gTypeCSSStyleDeclaration = GType . Object <$> jsg "CSSStyleDeclaration"-#else-type IsCSSStyleDeclaration o = CSSStyleDeclarationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSStyleRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule Mozilla CSSStyleRule documentation>-newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal }--instance PToJSVal CSSStyleRule where-  pToJSVal = unCSSStyleRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSStyleRule where-  pFromJSVal = CSSStyleRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSStyleRule where-  toJSVal = return . unCSSStyleRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSStyleRule where-  fromJSVal v = fmap CSSStyleRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSStyleRule where-  makeObject = makeObject . unCSSStyleRule--instance IsCSSRule CSSStyleRule-instance IsGObject CSSStyleRule where-  toGObject = GObject . unCSSStyleRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSStyleRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSStyleRule :: IsGObject obj => obj -> JSM CSSStyleRule-castToCSSStyleRule = castTo gTypeCSSStyleRule "CSSStyleRule"--gTypeCSSStyleRule :: JSM GType-gTypeCSSStyleRule = GType . Object <$> jsg "CSSStyleRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSStyleSheet".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.StyleSheet"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet Mozilla CSSStyleSheet documentation>-newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal }--instance PToJSVal CSSStyleSheet where-  pToJSVal = unCSSStyleSheet-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSStyleSheet where-  pFromJSVal = CSSStyleSheet-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSStyleSheet where-  toJSVal = return . unCSSStyleSheet-  {-# INLINE toJSVal #-}--instance FromJSVal CSSStyleSheet where-  fromJSVal v = fmap CSSStyleSheet <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSStyleSheet where-  makeObject = makeObject . unCSSStyleSheet--instance IsStyleSheet CSSStyleSheet-instance IsGObject CSSStyleSheet where-  toGObject = GObject . unCSSStyleSheet-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSStyleSheet . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSStyleSheet :: IsGObject obj => obj -> JSM CSSStyleSheet-castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet"--gTypeCSSStyleSheet :: JSM GType-gTypeCSSStyleSheet = GType . Object <$> jsg "CSSStyleSheet"-#else-type IsCSSStyleSheet o = CSSStyleSheetClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSSupportsRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule Mozilla CSSSupportsRule documentation>-newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal }--instance PToJSVal CSSSupportsRule where-  pToJSVal = unCSSSupportsRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSSupportsRule where-  pFromJSVal = CSSSupportsRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSSupportsRule where-  toJSVal = return . unCSSSupportsRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSSupportsRule where-  fromJSVal v = fmap CSSSupportsRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSSupportsRule where-  makeObject = makeObject . unCSSSupportsRule--instance IsCSSRule CSSSupportsRule-instance IsGObject CSSSupportsRule where-  toGObject = GObject . unCSSSupportsRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSSupportsRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSSupportsRule :: IsGObject obj => obj -> JSM CSSSupportsRule-castToCSSSupportsRule = castTo gTypeCSSSupportsRule "CSSSupportsRule"--gTypeCSSSupportsRule :: JSM GType-gTypeCSSSupportsRule = GType . Object <$> jsg "CSSSupportsRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSUnknownRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSUnknownRule Mozilla CSSUnknownRule documentation>-newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal }--instance PToJSVal CSSUnknownRule where-  pToJSVal = unCSSUnknownRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSUnknownRule where-  pFromJSVal = CSSUnknownRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSUnknownRule where-  toJSVal = return . unCSSUnknownRule-  {-# INLINE toJSVal #-}--instance FromJSVal CSSUnknownRule where-  fromJSVal v = fmap CSSUnknownRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSUnknownRule where-  makeObject = makeObject . unCSSUnknownRule--instance IsCSSRule CSSUnknownRule-instance IsGObject CSSUnknownRule where-  toGObject = GObject . unCSSUnknownRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSUnknownRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSUnknownRule :: IsGObject obj => obj -> JSM CSSUnknownRule-castToCSSUnknownRule = castTo gTypeCSSUnknownRule "CSSUnknownRule"--gTypeCSSUnknownRule :: JSM GType-gTypeCSSUnknownRule = GType . Object <$> jsg "CSSUnknownRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSValue".------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue Mozilla CSSValue documentation>-newtype CSSValue = CSSValue { unCSSValue :: JSVal }--instance PToJSVal CSSValue where-  pToJSVal = unCSSValue-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSValue where-  pFromJSVal = CSSValue-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSValue where-  toJSVal = return . unCSSValue-  {-# INLINE toJSVal #-}--instance FromJSVal CSSValue where-  fromJSVal v = fmap CSSValue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSValue where-  makeObject = makeObject . unCSSValue--class IsGObject o => IsCSSValue o-toCSSValue :: IsCSSValue o => o -> CSSValue-toCSSValue = unsafeCastGObject . toGObject--instance IsCSSValue CSSValue-instance IsGObject CSSValue where-  toGObject = GObject . unCSSValue-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSValue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSValue :: IsGObject obj => obj -> JSM CSSValue-castToCSSValue = castTo gTypeCSSValue "CSSValue"--gTypeCSSValue :: JSM GType-gTypeCSSValue = GType . Object <$> jsg "CSSValue"-#else-type IsCSSValue o = CSSValueClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CSSValueList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSValue"------ <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList Mozilla CSSValueList documentation>-newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal }--instance PToJSVal CSSValueList where-  pToJSVal = unCSSValueList-  {-# INLINE pToJSVal #-}--instance PFromJSVal CSSValueList where-  pFromJSVal = CSSValueList-  {-# INLINE pFromJSVal #-}--instance ToJSVal CSSValueList where-  toJSVal = return . unCSSValueList-  {-# INLINE toJSVal #-}--instance FromJSVal CSSValueList where-  fromJSVal v = fmap CSSValueList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CSSValueList where-  makeObject = makeObject . unCSSValueList--class IsCSSValue o => IsCSSValueList o-toCSSValueList :: IsCSSValueList o => o -> CSSValueList-toCSSValueList = unsafeCastGObject . toGObject--instance IsCSSValueList CSSValueList-instance IsCSSValue CSSValueList-instance IsGObject CSSValueList where-  toGObject = GObject . unCSSValueList-  {-# INLINE toGObject #-}-  unsafeCastGObject = CSSValueList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCSSValueList :: IsGObject obj => obj -> JSM CSSValueList-castToCSSValueList = castTo gTypeCSSValueList "CSSValueList"--gTypeCSSValueList :: JSM GType-gTypeCSSValueList = GType . Object <$> jsg "CSSValueList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasGradient".------ <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient Mozilla CanvasGradient documentation>-newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal }--instance PToJSVal CanvasGradient where-  pToJSVal = unCanvasGradient-  {-# INLINE pToJSVal #-}--instance PFromJSVal CanvasGradient where-  pFromJSVal = CanvasGradient-  {-# INLINE pFromJSVal #-}--instance ToJSVal CanvasGradient where-  toJSVal = return . unCanvasGradient-  {-# INLINE toJSVal #-}--instance FromJSVal CanvasGradient where-  fromJSVal v = fmap CanvasGradient <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CanvasGradient where-  makeObject = makeObject . unCanvasGradient--instance IsGObject CanvasGradient where-  toGObject = GObject . unCanvasGradient-  {-# INLINE toGObject #-}-  unsafeCastGObject = CanvasGradient . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCanvasGradient :: IsGObject obj => obj -> JSM CanvasGradient-castToCanvasGradient = castTo gTypeCanvasGradient "CanvasGradient"--gTypeCanvasGradient :: JSM GType-gTypeCanvasGradient = GType . Object <$> jsg "CanvasGradient"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasPattern".------ <https://developer.mozilla.org/en-US/docs/Web/API/CanvasPattern Mozilla CanvasPattern documentation>-newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal }--instance PToJSVal CanvasPattern where-  pToJSVal = unCanvasPattern-  {-# INLINE pToJSVal #-}--instance PFromJSVal CanvasPattern where-  pFromJSVal = CanvasPattern-  {-# INLINE pFromJSVal #-}--instance ToJSVal CanvasPattern where-  toJSVal = return . unCanvasPattern-  {-# INLINE toJSVal #-}--instance FromJSVal CanvasPattern where-  fromJSVal v = fmap CanvasPattern <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CanvasPattern where-  makeObject = makeObject . unCanvasPattern--instance IsGObject CanvasPattern where-  toGObject = GObject . unCanvasPattern-  {-# INLINE toGObject #-}-  unsafeCastGObject = CanvasPattern . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCanvasPattern :: IsGObject obj => obj -> JSM CanvasPattern-castToCanvasPattern = castTo gTypeCanvasPattern "CanvasPattern"--gTypeCanvasPattern :: JSM GType-gTypeCanvasPattern = GType . Object <$> jsg "CanvasPattern"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasProxy".------ <https://developer.mozilla.org/en-US/docs/Web/API/CanvasProxy Mozilla CanvasProxy documentation>-newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal }--instance PToJSVal CanvasProxy where-  pToJSVal = unCanvasProxy-  {-# INLINE pToJSVal #-}--instance PFromJSVal CanvasProxy where-  pFromJSVal = CanvasProxy-  {-# INLINE pFromJSVal #-}--instance ToJSVal CanvasProxy where-  toJSVal = return . unCanvasProxy-  {-# INLINE toJSVal #-}--instance FromJSVal CanvasProxy where-  fromJSVal v = fmap CanvasProxy <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CanvasProxy where-  makeObject = makeObject . unCanvasProxy--instance IsGObject CanvasProxy where-  toGObject = GObject . unCanvasProxy-  {-# INLINE toGObject #-}-  unsafeCastGObject = CanvasProxy . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCanvasProxy :: IsGObject obj => obj -> JSM CanvasProxy-castToCanvasProxy = castTo gTypeCanvasProxy "CanvasProxy"--gTypeCanvasProxy :: JSM GType-gTypeCanvasProxy = GType . Object <$> jsg "CanvasProxy"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasRenderingContext".------ <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext Mozilla CanvasRenderingContext documentation>-newtype CanvasRenderingContext = CanvasRenderingContext { unCanvasRenderingContext :: JSVal }--instance PToJSVal CanvasRenderingContext where-  pToJSVal = unCanvasRenderingContext-  {-# INLINE pToJSVal #-}--instance PFromJSVal CanvasRenderingContext where-  pFromJSVal = CanvasRenderingContext-  {-# INLINE pFromJSVal #-}--instance ToJSVal CanvasRenderingContext where-  toJSVal = return . unCanvasRenderingContext-  {-# INLINE toJSVal #-}--instance FromJSVal CanvasRenderingContext where-  fromJSVal v = fmap CanvasRenderingContext <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CanvasRenderingContext where-  makeObject = makeObject . unCanvasRenderingContext--class IsGObject o => IsCanvasRenderingContext o-toCanvasRenderingContext :: IsCanvasRenderingContext o => o -> CanvasRenderingContext-toCanvasRenderingContext = unsafeCastGObject . toGObject--instance IsCanvasRenderingContext CanvasRenderingContext-instance IsGObject CanvasRenderingContext where-  toGObject = GObject . unCanvasRenderingContext-  {-# INLINE toGObject #-}-  unsafeCastGObject = CanvasRenderingContext . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCanvasRenderingContext :: IsGObject obj => obj -> JSM CanvasRenderingContext-castToCanvasRenderingContext = castTo gTypeCanvasRenderingContext "CanvasRenderingContext"--gTypeCanvasRenderingContext :: JSM GType-gTypeCanvasRenderingContext = GType . Object <$> jsg "CanvasRenderingContext"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CanvasRenderingContext2D".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext"------ <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D Mozilla CanvasRenderingContext2D documentation>-newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal }--instance PToJSVal CanvasRenderingContext2D where-  pToJSVal = unCanvasRenderingContext2D-  {-# INLINE pToJSVal #-}--instance PFromJSVal CanvasRenderingContext2D where-  pFromJSVal = CanvasRenderingContext2D-  {-# INLINE pFromJSVal #-}--instance ToJSVal CanvasRenderingContext2D where-  toJSVal = return . unCanvasRenderingContext2D-  {-# INLINE toJSVal #-}--instance FromJSVal CanvasRenderingContext2D where-  fromJSVal v = fmap CanvasRenderingContext2D <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CanvasRenderingContext2D where-  makeObject = makeObject . unCanvasRenderingContext2D--instance IsCanvasRenderingContext CanvasRenderingContext2D-instance IsGObject CanvasRenderingContext2D where-  toGObject = GObject . unCanvasRenderingContext2D-  {-# INLINE toGObject #-}-  unsafeCastGObject = CanvasRenderingContext2D . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCanvasRenderingContext2D :: IsGObject obj => obj -> JSM CanvasRenderingContext2D-castToCanvasRenderingContext2D = castTo gTypeCanvasRenderingContext2D "CanvasRenderingContext2D"--gTypeCanvasRenderingContext2D :: JSM GType-gTypeCanvasRenderingContext2D = GType . Object <$> jsg "CanvasRenderingContext2D"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CapabilityRange".------ <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange Mozilla CapabilityRange documentation>-newtype CapabilityRange = CapabilityRange { unCapabilityRange :: JSVal }--instance PToJSVal CapabilityRange where-  pToJSVal = unCapabilityRange-  {-# INLINE pToJSVal #-}--instance PFromJSVal CapabilityRange where-  pFromJSVal = CapabilityRange-  {-# INLINE pFromJSVal #-}--instance ToJSVal CapabilityRange where-  toJSVal = return . unCapabilityRange-  {-# INLINE toJSVal #-}--instance FromJSVal CapabilityRange where-  fromJSVal v = fmap CapabilityRange <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CapabilityRange where-  makeObject = makeObject . unCapabilityRange--instance IsGObject CapabilityRange where-  toGObject = GObject . unCapabilityRange-  {-# INLINE toGObject #-}-  unsafeCastGObject = CapabilityRange . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCapabilityRange :: IsGObject obj => obj -> JSM CapabilityRange-castToCapabilityRange = castTo gTypeCapabilityRange "CapabilityRange"--gTypeCapabilityRange :: JSM GType-gTypeCapabilityRange = GType . Object <$> jsg "CapabilityRange"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ChannelMergerNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/ChannelMergerNode Mozilla ChannelMergerNode documentation>-newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal }--instance PToJSVal ChannelMergerNode where-  pToJSVal = unChannelMergerNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal ChannelMergerNode where-  pFromJSVal = ChannelMergerNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal ChannelMergerNode where-  toJSVal = return . unChannelMergerNode-  {-# INLINE toJSVal #-}--instance FromJSVal ChannelMergerNode where-  fromJSVal v = fmap ChannelMergerNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ChannelMergerNode where-  makeObject = makeObject . unChannelMergerNode--instance IsAudioNode ChannelMergerNode-instance IsEventTarget ChannelMergerNode-instance IsGObject ChannelMergerNode where-  toGObject = GObject . unChannelMergerNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = ChannelMergerNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToChannelMergerNode :: IsGObject obj => obj -> JSM ChannelMergerNode-castToChannelMergerNode = castTo gTypeChannelMergerNode "ChannelMergerNode"--gTypeChannelMergerNode :: JSM GType-gTypeChannelMergerNode = GType . Object <$> jsg "ChannelMergerNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ChannelSplitterNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/ChannelSplitterNode Mozilla ChannelSplitterNode documentation>-newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal }--instance PToJSVal ChannelSplitterNode where-  pToJSVal = unChannelSplitterNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal ChannelSplitterNode where-  pFromJSVal = ChannelSplitterNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal ChannelSplitterNode where-  toJSVal = return . unChannelSplitterNode-  {-# INLINE toJSVal #-}--instance FromJSVal ChannelSplitterNode where-  fromJSVal v = fmap ChannelSplitterNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ChannelSplitterNode where-  makeObject = makeObject . unChannelSplitterNode--instance IsAudioNode ChannelSplitterNode-instance IsEventTarget ChannelSplitterNode-instance IsGObject ChannelSplitterNode where-  toGObject = GObject . unChannelSplitterNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = ChannelSplitterNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToChannelSplitterNode :: IsGObject obj => obj -> JSM ChannelSplitterNode-castToChannelSplitterNode = castTo gTypeChannelSplitterNode "ChannelSplitterNode"--gTypeChannelSplitterNode :: JSM GType-gTypeChannelSplitterNode = GType . Object <$> jsg "ChannelSplitterNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CharacterData".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData Mozilla CharacterData documentation>-newtype CharacterData = CharacterData { unCharacterData :: JSVal }--instance PToJSVal CharacterData where-  pToJSVal = unCharacterData-  {-# INLINE pToJSVal #-}--instance PFromJSVal CharacterData where-  pFromJSVal = CharacterData-  {-# INLINE pFromJSVal #-}--instance ToJSVal CharacterData where-  toJSVal = return . unCharacterData-  {-# INLINE toJSVal #-}--instance FromJSVal CharacterData where-  fromJSVal v = fmap CharacterData <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CharacterData where-  makeObject = makeObject . unCharacterData--class IsNode o => IsCharacterData o-toCharacterData :: IsCharacterData o => o -> CharacterData-toCharacterData = unsafeCastGObject . toGObject--instance IsCharacterData CharacterData-instance IsNode CharacterData-instance IsEventTarget CharacterData-instance IsGObject CharacterData where-  toGObject = GObject . unCharacterData-  {-# INLINE toGObject #-}-  unsafeCastGObject = CharacterData . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCharacterData :: IsGObject obj => obj -> JSM CharacterData-castToCharacterData = castTo gTypeCharacterData "CharacterData"--gTypeCharacterData :: JSM GType-gTypeCharacterData = GType . Object <$> jsg "CharacterData"-#else-type IsCharacterData o = CharacterDataClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ChildNode".------ <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode Mozilla ChildNode documentation>-newtype ChildNode = ChildNode { unChildNode :: JSVal }--instance PToJSVal ChildNode where-  pToJSVal = unChildNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal ChildNode where-  pFromJSVal = ChildNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal ChildNode where-  toJSVal = return . unChildNode-  {-# INLINE toJSVal #-}--instance FromJSVal ChildNode where-  fromJSVal v = fmap ChildNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ChildNode where-  makeObject = makeObject . unChildNode--instance IsGObject ChildNode where-  toGObject = GObject . unChildNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = ChildNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToChildNode :: IsGObject obj => obj -> JSM ChildNode-castToChildNode = castTo gTypeChildNode "ChildNode"--gTypeChildNode :: JSM GType-gTypeChildNode = GType . Object <$> jsg "ChildNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ClientRect".------ <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect Mozilla ClientRect documentation>-newtype ClientRect = ClientRect { unClientRect :: JSVal }--instance PToJSVal ClientRect where-  pToJSVal = unClientRect-  {-# INLINE pToJSVal #-}--instance PFromJSVal ClientRect where-  pFromJSVal = ClientRect-  {-# INLINE pFromJSVal #-}--instance ToJSVal ClientRect where-  toJSVal = return . unClientRect-  {-# INLINE toJSVal #-}--instance FromJSVal ClientRect where-  fromJSVal v = fmap ClientRect <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ClientRect where-  makeObject = makeObject . unClientRect--instance IsGObject ClientRect where-  toGObject = GObject . unClientRect-  {-# INLINE toGObject #-}-  unsafeCastGObject = ClientRect . unGObject-  {-# INLINE unsafeCastGObject #-}--castToClientRect :: IsGObject obj => obj -> JSM ClientRect-castToClientRect = castTo gTypeClientRect "ClientRect"--gTypeClientRect :: JSM GType-gTypeClientRect = GType . Object <$> jsg "ClientRect"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ClientRectList".------ <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList Mozilla ClientRectList documentation>-newtype ClientRectList = ClientRectList { unClientRectList :: JSVal }--instance PToJSVal ClientRectList where-  pToJSVal = unClientRectList-  {-# INLINE pToJSVal #-}--instance PFromJSVal ClientRectList where-  pFromJSVal = ClientRectList-  {-# INLINE pFromJSVal #-}--instance ToJSVal ClientRectList where-  toJSVal = return . unClientRectList-  {-# INLINE toJSVal #-}--instance FromJSVal ClientRectList where-  fromJSVal v = fmap ClientRectList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ClientRectList where-  makeObject = makeObject . unClientRectList--instance IsGObject ClientRectList where-  toGObject = GObject . unClientRectList-  {-# INLINE toGObject #-}-  unsafeCastGObject = ClientRectList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToClientRectList :: IsGObject obj => obj -> JSM ClientRectList-castToClientRectList = castTo gTypeClientRectList "ClientRectList"--gTypeClientRectList :: JSM GType-gTypeClientRectList = GType . Object <$> jsg "ClientRectList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CloseEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent Mozilla CloseEvent documentation>-newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal }--instance PToJSVal CloseEvent where-  pToJSVal = unCloseEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal CloseEvent where-  pFromJSVal = CloseEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal CloseEvent where-  toJSVal = return . unCloseEvent-  {-# INLINE toJSVal #-}--instance FromJSVal CloseEvent where-  fromJSVal v = fmap CloseEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CloseEvent where-  makeObject = makeObject . unCloseEvent--instance IsEvent CloseEvent-instance IsGObject CloseEvent where-  toGObject = GObject . unCloseEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = CloseEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCloseEvent :: IsGObject obj => obj -> JSM CloseEvent-castToCloseEvent = castTo gTypeCloseEvent "CloseEvent"--gTypeCloseEvent :: JSM GType-gTypeCloseEvent = GType . Object <$> jsg "CloseEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CommandLineAPIHost".------ <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost Mozilla CommandLineAPIHost documentation>-newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal }--instance PToJSVal CommandLineAPIHost where-  pToJSVal = unCommandLineAPIHost-  {-# INLINE pToJSVal #-}--instance PFromJSVal CommandLineAPIHost where-  pFromJSVal = CommandLineAPIHost-  {-# INLINE pFromJSVal #-}--instance ToJSVal CommandLineAPIHost where-  toJSVal = return . unCommandLineAPIHost-  {-# INLINE toJSVal #-}--instance FromJSVal CommandLineAPIHost where-  fromJSVal v = fmap CommandLineAPIHost <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CommandLineAPIHost where-  makeObject = makeObject . unCommandLineAPIHost--instance IsGObject CommandLineAPIHost where-  toGObject = GObject . unCommandLineAPIHost-  {-# INLINE toGObject #-}-  unsafeCastGObject = CommandLineAPIHost . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCommandLineAPIHost :: IsGObject obj => obj -> JSM CommandLineAPIHost-castToCommandLineAPIHost = castTo gTypeCommandLineAPIHost "CommandLineAPIHost"--gTypeCommandLineAPIHost :: JSM GType-gTypeCommandLineAPIHost = GType . Object <$> jsg "CommandLineAPIHost"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Comment".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CharacterData"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation>-newtype Comment = Comment { unComment :: JSVal }--instance PToJSVal Comment where-  pToJSVal = unComment-  {-# INLINE pToJSVal #-}--instance PFromJSVal Comment where-  pFromJSVal = Comment-  {-# INLINE pFromJSVal #-}--instance ToJSVal Comment where-  toJSVal = return . unComment-  {-# INLINE toJSVal #-}--instance FromJSVal Comment where-  fromJSVal v = fmap Comment <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Comment where-  makeObject = makeObject . unComment--instance IsCharacterData Comment-instance IsNode Comment-instance IsEventTarget Comment-instance IsGObject Comment where-  toGObject = GObject . unComment-  {-# INLINE toGObject #-}-  unsafeCastGObject = Comment . unGObject-  {-# INLINE unsafeCastGObject #-}--castToComment :: IsGObject obj => obj -> JSM Comment-castToComment = castTo gTypeComment "Comment"--gTypeComment :: JSM GType-gTypeComment = GType . Object <$> jsg "Comment"-#else-type IsComment o = CommentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CompositionEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent Mozilla CompositionEvent documentation>-newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal }--instance PToJSVal CompositionEvent where-  pToJSVal = unCompositionEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal CompositionEvent where-  pFromJSVal = CompositionEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal CompositionEvent where-  toJSVal = return . unCompositionEvent-  {-# INLINE toJSVal #-}--instance FromJSVal CompositionEvent where-  fromJSVal v = fmap CompositionEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CompositionEvent where-  makeObject = makeObject . unCompositionEvent--instance IsUIEvent CompositionEvent-instance IsEvent CompositionEvent-instance IsGObject CompositionEvent where-  toGObject = GObject . unCompositionEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = CompositionEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCompositionEvent :: IsGObject obj => obj -> JSM CompositionEvent-castToCompositionEvent = castTo gTypeCompositionEvent "CompositionEvent"--gTypeCompositionEvent :: JSM GType-gTypeCompositionEvent = GType . Object <$> jsg "CompositionEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ConvolverNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode Mozilla ConvolverNode documentation>-newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal }--instance PToJSVal ConvolverNode where-  pToJSVal = unConvolverNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal ConvolverNode where-  pFromJSVal = ConvolverNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal ConvolverNode where-  toJSVal = return . unConvolverNode-  {-# INLINE toJSVal #-}--instance FromJSVal ConvolverNode where-  fromJSVal v = fmap ConvolverNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ConvolverNode where-  makeObject = makeObject . unConvolverNode--instance IsAudioNode ConvolverNode-instance IsEventTarget ConvolverNode-instance IsGObject ConvolverNode where-  toGObject = GObject . unConvolverNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = ConvolverNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToConvolverNode :: IsGObject obj => obj -> JSM ConvolverNode-castToConvolverNode = castTo gTypeConvolverNode "ConvolverNode"--gTypeConvolverNode :: JSM GType-gTypeConvolverNode = GType . Object <$> jsg "ConvolverNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Coordinates".------ <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates Mozilla Coordinates documentation>-newtype Coordinates = Coordinates { unCoordinates :: JSVal }--instance PToJSVal Coordinates where-  pToJSVal = unCoordinates-  {-# INLINE pToJSVal #-}--instance PFromJSVal Coordinates where-  pFromJSVal = Coordinates-  {-# INLINE pFromJSVal #-}--instance ToJSVal Coordinates where-  toJSVal = return . unCoordinates-  {-# INLINE toJSVal #-}--instance FromJSVal Coordinates where-  fromJSVal v = fmap Coordinates <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Coordinates where-  makeObject = makeObject . unCoordinates--instance IsGObject Coordinates where-  toGObject = GObject . unCoordinates-  {-# INLINE toGObject #-}-  unsafeCastGObject = Coordinates . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCoordinates :: IsGObject obj => obj -> JSM Coordinates-castToCoordinates = castTo gTypeCoordinates "Coordinates"--gTypeCoordinates :: JSM GType-gTypeCoordinates = GType . Object <$> jsg "Coordinates"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Counter".------ <https://developer.mozilla.org/en-US/docs/Web/API/Counter Mozilla Counter documentation>-newtype Counter = Counter { unCounter :: JSVal }--instance PToJSVal Counter where-  pToJSVal = unCounter-  {-# INLINE pToJSVal #-}--instance PFromJSVal Counter where-  pFromJSVal = Counter-  {-# INLINE pFromJSVal #-}--instance ToJSVal Counter where-  toJSVal = return . unCounter-  {-# INLINE toJSVal #-}--instance FromJSVal Counter where-  fromJSVal v = fmap Counter <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Counter where-  makeObject = makeObject . unCounter--instance IsGObject Counter where-  toGObject = GObject . unCounter-  {-# INLINE toGObject #-}-  unsafeCastGObject = Counter . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCounter :: IsGObject obj => obj -> JSM Counter-castToCounter = castTo gTypeCounter "Counter"--gTypeCounter :: JSM GType-gTypeCounter = GType . Object <$> jsg "Counter"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Crypto".------ <https://developer.mozilla.org/en-US/docs/Web/API/Crypto Mozilla Crypto documentation>-newtype Crypto = Crypto { unCrypto :: JSVal }--instance PToJSVal Crypto where-  pToJSVal = unCrypto-  {-# INLINE pToJSVal #-}--instance PFromJSVal Crypto where-  pFromJSVal = Crypto-  {-# INLINE pFromJSVal #-}--instance ToJSVal Crypto where-  toJSVal = return . unCrypto-  {-# INLINE toJSVal #-}--instance FromJSVal Crypto where-  fromJSVal v = fmap Crypto <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Crypto where-  makeObject = makeObject . unCrypto--instance IsGObject Crypto where-  toGObject = GObject . unCrypto-  {-# INLINE toGObject #-}-  unsafeCastGObject = Crypto . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCrypto :: IsGObject obj => obj -> JSM Crypto-castToCrypto = castTo gTypeCrypto "Crypto"--gTypeCrypto :: JSM GType-gTypeCrypto = GType . Object <$> jsg "Crypto"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CryptoKey".------ <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey Mozilla CryptoKey documentation>-newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal }--instance PToJSVal CryptoKey where-  pToJSVal = unCryptoKey-  {-# INLINE pToJSVal #-}--instance PFromJSVal CryptoKey where-  pFromJSVal = CryptoKey-  {-# INLINE pFromJSVal #-}--instance ToJSVal CryptoKey where-  toJSVal = return . unCryptoKey-  {-# INLINE toJSVal #-}--instance FromJSVal CryptoKey where-  fromJSVal v = fmap CryptoKey <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CryptoKey where-  makeObject = makeObject . unCryptoKey--instance IsGObject CryptoKey where-  toGObject = GObject . unCryptoKey-  {-# INLINE toGObject #-}-  unsafeCastGObject = CryptoKey . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCryptoKey :: IsGObject obj => obj -> JSM CryptoKey-castToCryptoKey = castTo gTypeCryptoKey "CryptoKey"--gTypeCryptoKey :: JSM GType-gTypeCryptoKey = GType . Object <$> jsg "CryptoKey"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CryptoKeyPair".------ <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair Mozilla CryptoKeyPair documentation>-newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal }--instance PToJSVal CryptoKeyPair where-  pToJSVal = unCryptoKeyPair-  {-# INLINE pToJSVal #-}--instance PFromJSVal CryptoKeyPair where-  pFromJSVal = CryptoKeyPair-  {-# INLINE pFromJSVal #-}--instance ToJSVal CryptoKeyPair where-  toJSVal = return . unCryptoKeyPair-  {-# INLINE toJSVal #-}--instance FromJSVal CryptoKeyPair where-  fromJSVal v = fmap CryptoKeyPair <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CryptoKeyPair where-  makeObject = makeObject . unCryptoKeyPair--instance IsGObject CryptoKeyPair where-  toGObject = GObject . unCryptoKeyPair-  {-# INLINE toGObject #-}-  unsafeCastGObject = CryptoKeyPair . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCryptoKeyPair :: IsGObject obj => obj -> JSM CryptoKeyPair-castToCryptoKeyPair = castTo gTypeCryptoKeyPair "CryptoKeyPair"--gTypeCryptoKeyPair :: JSM GType-gTypeCryptoKeyPair = GType . Object <$> jsg "CryptoKeyPair"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.CustomEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent Mozilla CustomEvent documentation>-newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal }--instance PToJSVal CustomEvent where-  pToJSVal = unCustomEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal CustomEvent where-  pFromJSVal = CustomEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal CustomEvent where-  toJSVal = return . unCustomEvent-  {-# INLINE toJSVal #-}--instance FromJSVal CustomEvent where-  fromJSVal v = fmap CustomEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject CustomEvent where-  makeObject = makeObject . unCustomEvent--instance IsEvent CustomEvent-instance IsGObject CustomEvent where-  toGObject = GObject . unCustomEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = CustomEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToCustomEvent :: IsGObject obj => obj -> JSM CustomEvent-castToCustomEvent = castTo gTypeCustomEvent "CustomEvent"--gTypeCustomEvent :: JSM GType-gTypeCustomEvent = GType . Object <$> jsg "CustomEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMError".------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMError Mozilla DOMError documentation>-newtype DOMError = DOMError { unDOMError :: JSVal }--instance PToJSVal DOMError where-  pToJSVal = unDOMError-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMError where-  pFromJSVal = DOMError-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMError where-  toJSVal = return . unDOMError-  {-# INLINE toJSVal #-}--instance FromJSVal DOMError where-  fromJSVal v = fmap DOMError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMError where-  makeObject = makeObject . unDOMError--class IsGObject o => IsDOMError o-toDOMError :: IsDOMError o => o -> DOMError-toDOMError = unsafeCastGObject . toGObject--instance IsDOMError DOMError-instance IsGObject DOMError where-  toGObject = GObject . unDOMError-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMError :: IsGObject obj => obj -> JSM DOMError-castToDOMError = castTo gTypeDOMError "DOMError"--gTypeDOMError :: JSM GType-gTypeDOMError = GType . Object <$> jsg "DOMError"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMImplementation".------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation Mozilla DOMImplementation documentation>-newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal }--instance PToJSVal DOMImplementation where-  pToJSVal = unDOMImplementation-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMImplementation where-  pFromJSVal = DOMImplementation-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMImplementation where-  toJSVal = return . unDOMImplementation-  {-# INLINE toJSVal #-}--instance FromJSVal DOMImplementation where-  fromJSVal v = fmap DOMImplementation <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMImplementation where-  makeObject = makeObject . unDOMImplementation--instance IsGObject DOMImplementation where-  toGObject = GObject . unDOMImplementation-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMImplementation . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMImplementation :: IsGObject obj => obj -> JSM DOMImplementation-castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation"--gTypeDOMImplementation :: JSM GType-gTypeDOMImplementation = GType . Object <$> jsg "DOMImplementation"-#else-type IsDOMImplementation o = DOMImplementationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMNamedFlowCollection".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection Mozilla WebKitNamedFlowCollection documentation>-newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal }--instance PToJSVal DOMNamedFlowCollection where-  pToJSVal = unDOMNamedFlowCollection-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMNamedFlowCollection where-  pFromJSVal = DOMNamedFlowCollection-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMNamedFlowCollection where-  toJSVal = return . unDOMNamedFlowCollection-  {-# INLINE toJSVal #-}--instance FromJSVal DOMNamedFlowCollection where-  fromJSVal v = fmap DOMNamedFlowCollection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMNamedFlowCollection where-  makeObject = makeObject . unDOMNamedFlowCollection--instance IsGObject DOMNamedFlowCollection where-  toGObject = GObject . unDOMNamedFlowCollection-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMNamedFlowCollection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMNamedFlowCollection :: IsGObject obj => obj -> JSM DOMNamedFlowCollection-castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection"--gTypeDOMNamedFlowCollection :: JSM GType-gTypeDOMNamedFlowCollection = GType . Object <$> jsg "WebKitNamedFlowCollection"-#else-#ifndef USE_OLD_WEBKIT-type IsDOMNamedFlowCollection o = DOMNamedFlowCollectionClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMParser".------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation>-newtype DOMParser = DOMParser { unDOMParser :: JSVal }--instance PToJSVal DOMParser where-  pToJSVal = unDOMParser-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMParser where-  pFromJSVal = DOMParser-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMParser where-  toJSVal = return . unDOMParser-  {-# INLINE toJSVal #-}--instance FromJSVal DOMParser where-  fromJSVal v = fmap DOMParser <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMParser where-  makeObject = makeObject . unDOMParser--instance IsGObject DOMParser where-  toGObject = GObject . unDOMParser-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMParser . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMParser :: IsGObject obj => obj -> JSM DOMParser-castToDOMParser = castTo gTypeDOMParser "DOMParser"--gTypeDOMParser :: JSM GType-gTypeDOMParser = GType . Object <$> jsg "DOMParser"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMSettableTokenList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.DOMTokenList"------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList Mozilla DOMSettableTokenList documentation>-newtype DOMSettableTokenList = DOMSettableTokenList { unDOMSettableTokenList :: JSVal }--instance PToJSVal DOMSettableTokenList where-  pToJSVal = unDOMSettableTokenList-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMSettableTokenList where-  pFromJSVal = DOMSettableTokenList-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMSettableTokenList where-  toJSVal = return . unDOMSettableTokenList-  {-# INLINE toJSVal #-}--instance FromJSVal DOMSettableTokenList where-  fromJSVal v = fmap DOMSettableTokenList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMSettableTokenList where-  makeObject = makeObject . unDOMSettableTokenList--instance IsDOMTokenList DOMSettableTokenList-instance IsGObject DOMSettableTokenList where-  toGObject = GObject . unDOMSettableTokenList-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMSettableTokenList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMSettableTokenList :: IsGObject obj => obj -> JSM DOMSettableTokenList-castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList"--gTypeDOMSettableTokenList :: JSM GType-gTypeDOMSettableTokenList = GType . Object <$> jsg "DOMSettableTokenList"-#else-type IsDOMSettableTokenList o = DOMSettableTokenListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMStringList".------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList Mozilla DOMStringList documentation>-newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal }--instance PToJSVal DOMStringList where-  pToJSVal = unDOMStringList-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMStringList where-  pFromJSVal = DOMStringList-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMStringList where-  toJSVal = return . unDOMStringList-  {-# INLINE toJSVal #-}--instance FromJSVal DOMStringList where-  fromJSVal v = fmap DOMStringList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMStringList where-  makeObject = makeObject . unDOMStringList--instance IsGObject DOMStringList where-  toGObject = GObject . unDOMStringList-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMStringList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMStringList :: IsGObject obj => obj -> JSM DOMStringList-castToDOMStringList = castTo gTypeDOMStringList "DOMStringList"--gTypeDOMStringList :: JSM GType-gTypeDOMStringList = GType . Object <$> jsg "DOMStringList"-#else-type IsDOMStringList o = DOMStringListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMStringMap".------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringMap Mozilla DOMStringMap documentation>-newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal }--instance PToJSVal DOMStringMap where-  pToJSVal = unDOMStringMap-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMStringMap where-  pFromJSVal = DOMStringMap-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMStringMap where-  toJSVal = return . unDOMStringMap-  {-# INLINE toJSVal #-}--instance FromJSVal DOMStringMap where-  fromJSVal v = fmap DOMStringMap <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMStringMap where-  makeObject = makeObject . unDOMStringMap--instance IsGObject DOMStringMap where-  toGObject = GObject . unDOMStringMap-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMStringMap . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMStringMap :: IsGObject obj => obj -> JSM DOMStringMap-castToDOMStringMap = castTo gTypeDOMStringMap "DOMStringMap"--gTypeDOMStringMap :: JSM GType-gTypeDOMStringMap = GType . Object <$> jsg "DOMStringMap"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DOMTokenList".------ <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList Mozilla DOMTokenList documentation>-newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal }--instance PToJSVal DOMTokenList where-  pToJSVal = unDOMTokenList-  {-# INLINE pToJSVal #-}--instance PFromJSVal DOMTokenList where-  pFromJSVal = DOMTokenList-  {-# INLINE pFromJSVal #-}--instance ToJSVal DOMTokenList where-  toJSVal = return . unDOMTokenList-  {-# INLINE toJSVal #-}--instance FromJSVal DOMTokenList where-  fromJSVal v = fmap DOMTokenList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DOMTokenList where-  makeObject = makeObject . unDOMTokenList--class IsGObject o => IsDOMTokenList o-toDOMTokenList :: IsDOMTokenList o => o -> DOMTokenList-toDOMTokenList = unsafeCastGObject . toGObject--instance IsDOMTokenList DOMTokenList-instance IsGObject DOMTokenList where-  toGObject = GObject . unDOMTokenList-  {-# INLINE toGObject #-}-  unsafeCastGObject = DOMTokenList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDOMTokenList :: IsGObject obj => obj -> JSM DOMTokenList-castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList"--gTypeDOMTokenList :: JSM GType-gTypeDOMTokenList = GType . Object <$> jsg "DOMTokenList"-#else-type IsDOMTokenList o = DOMTokenListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataCue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.TextTrackCue"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation>-newtype DataCue = DataCue { unDataCue :: JSVal }--instance PToJSVal DataCue where-  pToJSVal = unDataCue-  {-# INLINE pToJSVal #-}--instance PFromJSVal DataCue where-  pFromJSVal = DataCue-  {-# INLINE pFromJSVal #-}--instance ToJSVal DataCue where-  toJSVal = return . unDataCue-  {-# INLINE toJSVal #-}--instance FromJSVal DataCue where-  fromJSVal v = fmap DataCue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DataCue where-  makeObject = makeObject . unDataCue--instance IsTextTrackCue DataCue-instance IsEventTarget DataCue-instance IsGObject DataCue where-  toGObject = GObject . unDataCue-  {-# INLINE toGObject #-}-  unsafeCastGObject = DataCue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDataCue :: IsGObject obj => obj -> JSM DataCue-castToDataCue = castTo gTypeDataCue "DataCue"--gTypeDataCue :: JSM GType-gTypeDataCue = GType . Object <$> jsg "WebKitDataCue"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataTransfer".------ <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer Mozilla DataTransfer documentation>-newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal }--instance PToJSVal DataTransfer where-  pToJSVal = unDataTransfer-  {-# INLINE pToJSVal #-}--instance PFromJSVal DataTransfer where-  pFromJSVal = DataTransfer-  {-# INLINE pFromJSVal #-}--instance ToJSVal DataTransfer where-  toJSVal = return . unDataTransfer-  {-# INLINE toJSVal #-}--instance FromJSVal DataTransfer where-  fromJSVal v = fmap DataTransfer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DataTransfer where-  makeObject = makeObject . unDataTransfer--instance IsGObject DataTransfer where-  toGObject = GObject . unDataTransfer-  {-# INLINE toGObject #-}-  unsafeCastGObject = DataTransfer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDataTransfer :: IsGObject obj => obj -> JSM DataTransfer-castToDataTransfer = castTo gTypeDataTransfer "DataTransfer"--gTypeDataTransfer :: JSM GType-gTypeDataTransfer = GType . Object <$> jsg "DataTransfer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataTransferItem".------ <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem Mozilla DataTransferItem documentation>-newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal }--instance PToJSVal DataTransferItem where-  pToJSVal = unDataTransferItem-  {-# INLINE pToJSVal #-}--instance PFromJSVal DataTransferItem where-  pFromJSVal = DataTransferItem-  {-# INLINE pFromJSVal #-}--instance ToJSVal DataTransferItem where-  toJSVal = return . unDataTransferItem-  {-# INLINE toJSVal #-}--instance FromJSVal DataTransferItem where-  fromJSVal v = fmap DataTransferItem <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DataTransferItem where-  makeObject = makeObject . unDataTransferItem--instance IsGObject DataTransferItem where-  toGObject = GObject . unDataTransferItem-  {-# INLINE toGObject #-}-  unsafeCastGObject = DataTransferItem . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDataTransferItem :: IsGObject obj => obj -> JSM DataTransferItem-castToDataTransferItem = castTo gTypeDataTransferItem "DataTransferItem"--gTypeDataTransferItem :: JSM GType-gTypeDataTransferItem = GType . Object <$> jsg "DataTransferItem"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DataTransferItemList".------ <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList Mozilla DataTransferItemList documentation>-newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal }--instance PToJSVal DataTransferItemList where-  pToJSVal = unDataTransferItemList-  {-# INLINE pToJSVal #-}--instance PFromJSVal DataTransferItemList where-  pFromJSVal = DataTransferItemList-  {-# INLINE pFromJSVal #-}--instance ToJSVal DataTransferItemList where-  toJSVal = return . unDataTransferItemList-  {-# INLINE toJSVal #-}--instance FromJSVal DataTransferItemList where-  fromJSVal v = fmap DataTransferItemList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DataTransferItemList where-  makeObject = makeObject . unDataTransferItemList--instance IsGObject DataTransferItemList where-  toGObject = GObject . unDataTransferItemList-  {-# INLINE toGObject #-}-  unsafeCastGObject = DataTransferItemList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDataTransferItemList :: IsGObject obj => obj -> JSM DataTransferItemList-castToDataTransferItemList = castTo gTypeDataTransferItemList "DataTransferItemList"--gTypeDataTransferItemList :: JSM GType-gTypeDataTransferItemList = GType . Object <$> jsg "DataTransferItemList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Database".------ <https://developer.mozilla.org/en-US/docs/Web/API/Database Mozilla Database documentation>-newtype Database = Database { unDatabase :: JSVal }--instance PToJSVal Database where-  pToJSVal = unDatabase-  {-# INLINE pToJSVal #-}--instance PFromJSVal Database where-  pFromJSVal = Database-  {-# INLINE pFromJSVal #-}--instance ToJSVal Database where-  toJSVal = return . unDatabase-  {-# INLINE toJSVal #-}--instance FromJSVal Database where-  fromJSVal v = fmap Database <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Database where-  makeObject = makeObject . unDatabase--instance IsGObject Database where-  toGObject = GObject . unDatabase-  {-# INLINE toGObject #-}-  unsafeCastGObject = Database . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDatabase :: IsGObject obj => obj -> JSM Database-castToDatabase = castTo gTypeDatabase "Database"--gTypeDatabase :: JSM GType-gTypeDatabase = GType . Object <$> jsg "Database"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DedicatedWorkerGlobalScope".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.WorkerGlobalScope"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope Mozilla DedicatedWorkerGlobalScope documentation>-newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal }--instance PToJSVal DedicatedWorkerGlobalScope where-  pToJSVal = unDedicatedWorkerGlobalScope-  {-# INLINE pToJSVal #-}--instance PFromJSVal DedicatedWorkerGlobalScope where-  pFromJSVal = DedicatedWorkerGlobalScope-  {-# INLINE pFromJSVal #-}--instance ToJSVal DedicatedWorkerGlobalScope where-  toJSVal = return . unDedicatedWorkerGlobalScope-  {-# INLINE toJSVal #-}--instance FromJSVal DedicatedWorkerGlobalScope where-  fromJSVal v = fmap DedicatedWorkerGlobalScope <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DedicatedWorkerGlobalScope where-  makeObject = makeObject . unDedicatedWorkerGlobalScope--instance IsWorkerGlobalScope DedicatedWorkerGlobalScope-instance IsEventTarget DedicatedWorkerGlobalScope-instance IsGObject DedicatedWorkerGlobalScope where-  toGObject = GObject . unDedicatedWorkerGlobalScope-  {-# INLINE toGObject #-}-  unsafeCastGObject = DedicatedWorkerGlobalScope . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDedicatedWorkerGlobalScope :: IsGObject obj => obj -> JSM DedicatedWorkerGlobalScope-castToDedicatedWorkerGlobalScope = castTo gTypeDedicatedWorkerGlobalScope "DedicatedWorkerGlobalScope"--gTypeDedicatedWorkerGlobalScope :: JSM GType-gTypeDedicatedWorkerGlobalScope = GType . Object <$> jsg "DedicatedWorkerGlobalScope"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DelayNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode Mozilla DelayNode documentation>-newtype DelayNode = DelayNode { unDelayNode :: JSVal }--instance PToJSVal DelayNode where-  pToJSVal = unDelayNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal DelayNode where-  pFromJSVal = DelayNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal DelayNode where-  toJSVal = return . unDelayNode-  {-# INLINE toJSVal #-}--instance FromJSVal DelayNode where-  fromJSVal v = fmap DelayNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DelayNode where-  makeObject = makeObject . unDelayNode--instance IsAudioNode DelayNode-instance IsEventTarget DelayNode-instance IsGObject DelayNode where-  toGObject = GObject . unDelayNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = DelayNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDelayNode :: IsGObject obj => obj -> JSM DelayNode-castToDelayNode = castTo gTypeDelayNode "DelayNode"--gTypeDelayNode :: JSM GType-gTypeDelayNode = GType . Object <$> jsg "DelayNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DeviceMotionEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent Mozilla DeviceMotionEvent documentation>-newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal }--instance PToJSVal DeviceMotionEvent where-  pToJSVal = unDeviceMotionEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal DeviceMotionEvent where-  pFromJSVal = DeviceMotionEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal DeviceMotionEvent where-  toJSVal = return . unDeviceMotionEvent-  {-# INLINE toJSVal #-}--instance FromJSVal DeviceMotionEvent where-  fromJSVal v = fmap DeviceMotionEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DeviceMotionEvent where-  makeObject = makeObject . unDeviceMotionEvent--instance IsEvent DeviceMotionEvent-instance IsGObject DeviceMotionEvent where-  toGObject = GObject . unDeviceMotionEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = DeviceMotionEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDeviceMotionEvent :: IsGObject obj => obj -> JSM DeviceMotionEvent-castToDeviceMotionEvent = castTo gTypeDeviceMotionEvent "DeviceMotionEvent"--gTypeDeviceMotionEvent :: JSM GType-gTypeDeviceMotionEvent = GType . Object <$> jsg "DeviceMotionEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DeviceOrientationEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent Mozilla DeviceOrientationEvent documentation>-newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal }--instance PToJSVal DeviceOrientationEvent where-  pToJSVal = unDeviceOrientationEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal DeviceOrientationEvent where-  pFromJSVal = DeviceOrientationEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal DeviceOrientationEvent where-  toJSVal = return . unDeviceOrientationEvent-  {-# INLINE toJSVal #-}--instance FromJSVal DeviceOrientationEvent where-  fromJSVal v = fmap DeviceOrientationEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DeviceOrientationEvent where-  makeObject = makeObject . unDeviceOrientationEvent--instance IsEvent DeviceOrientationEvent-instance IsGObject DeviceOrientationEvent where-  toGObject = GObject . unDeviceOrientationEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = DeviceOrientationEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDeviceOrientationEvent :: IsGObject obj => obj -> JSM DeviceOrientationEvent-castToDeviceOrientationEvent = castTo gTypeDeviceOrientationEvent "DeviceOrientationEvent"--gTypeDeviceOrientationEvent :: JSM GType-gTypeDeviceOrientationEvent = GType . Object <$> jsg "DeviceOrientationEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DeviceProximityEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent Mozilla DeviceProximityEvent documentation>-newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal }--instance PToJSVal DeviceProximityEvent where-  pToJSVal = unDeviceProximityEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal DeviceProximityEvent where-  pFromJSVal = DeviceProximityEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal DeviceProximityEvent where-  toJSVal = return . unDeviceProximityEvent-  {-# INLINE toJSVal #-}--instance FromJSVal DeviceProximityEvent where-  fromJSVal v = fmap DeviceProximityEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DeviceProximityEvent where-  makeObject = makeObject . unDeviceProximityEvent--instance IsEvent DeviceProximityEvent-instance IsGObject DeviceProximityEvent where-  toGObject = GObject . unDeviceProximityEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = DeviceProximityEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDeviceProximityEvent :: IsGObject obj => obj -> JSM DeviceProximityEvent-castToDeviceProximityEvent = castTo gTypeDeviceProximityEvent "DeviceProximityEvent"--gTypeDeviceProximityEvent :: JSM GType-gTypeDeviceProximityEvent = GType . Object <$> jsg "DeviceProximityEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Document".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation>-newtype Document = Document { unDocument :: JSVal }--instance PToJSVal Document where-  pToJSVal = unDocument-  {-# INLINE pToJSVal #-}--instance PFromJSVal Document where-  pFromJSVal = Document-  {-# INLINE pFromJSVal #-}--instance ToJSVal Document where-  toJSVal = return . unDocument-  {-# INLINE toJSVal #-}--instance FromJSVal Document where-  fromJSVal v = fmap Document <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Document where-  makeObject = makeObject . unDocument--class IsNode o => IsDocument o-toDocument :: IsDocument o => o -> Document-toDocument = unsafeCastGObject . toGObject--instance IsDocument Document-instance IsNode Document-instance IsEventTarget Document-instance IsGObject Document where-  toGObject = GObject . unDocument-  {-# INLINE toGObject #-}-  unsafeCastGObject = Document . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDocument :: IsGObject obj => obj -> JSM Document-castToDocument = castTo gTypeDocument "Document"--gTypeDocument :: JSM GType-gTypeDocument = GType . Object <$> jsg "Document"-#else-type IsDocument o = DocumentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DocumentFragment".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation>-newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal }--instance PToJSVal DocumentFragment where-  pToJSVal = unDocumentFragment-  {-# INLINE pToJSVal #-}--instance PFromJSVal DocumentFragment where-  pFromJSVal = DocumentFragment-  {-# INLINE pFromJSVal #-}--instance ToJSVal DocumentFragment where-  toJSVal = return . unDocumentFragment-  {-# INLINE toJSVal #-}--instance FromJSVal DocumentFragment where-  fromJSVal v = fmap DocumentFragment <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DocumentFragment where-  makeObject = makeObject . unDocumentFragment--instance IsNode DocumentFragment-instance IsEventTarget DocumentFragment-instance IsGObject DocumentFragment where-  toGObject = GObject . unDocumentFragment-  {-# INLINE toGObject #-}-  unsafeCastGObject = DocumentFragment . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDocumentFragment :: IsGObject obj => obj -> JSM DocumentFragment-castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment"--gTypeDocumentFragment :: JSM GType-gTypeDocumentFragment = GType . Object <$> jsg "DocumentFragment"-#else-type IsDocumentFragment o = DocumentFragmentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DocumentType".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType Mozilla DocumentType documentation>-newtype DocumentType = DocumentType { unDocumentType :: JSVal }--instance PToJSVal DocumentType where-  pToJSVal = unDocumentType-  {-# INLINE pToJSVal #-}--instance PFromJSVal DocumentType where-  pFromJSVal = DocumentType-  {-# INLINE pFromJSVal #-}--instance ToJSVal DocumentType where-  toJSVal = return . unDocumentType-  {-# INLINE toJSVal #-}--instance FromJSVal DocumentType where-  fromJSVal v = fmap DocumentType <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DocumentType where-  makeObject = makeObject . unDocumentType--instance IsNode DocumentType-instance IsEventTarget DocumentType-instance IsGObject DocumentType where-  toGObject = GObject . unDocumentType-  {-# INLINE toGObject #-}-  unsafeCastGObject = DocumentType . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDocumentType :: IsGObject obj => obj -> JSM DocumentType-castToDocumentType = castTo gTypeDocumentType "DocumentType"--gTypeDocumentType :: JSM GType-gTypeDocumentType = GType . Object <$> jsg "DocumentType"-#else-type IsDocumentType o = DocumentTypeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.DynamicsCompressorNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode Mozilla DynamicsCompressorNode documentation>-newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal }--instance PToJSVal DynamicsCompressorNode where-  pToJSVal = unDynamicsCompressorNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal DynamicsCompressorNode where-  pFromJSVal = DynamicsCompressorNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal DynamicsCompressorNode where-  toJSVal = return . unDynamicsCompressorNode-  {-# INLINE toJSVal #-}--instance FromJSVal DynamicsCompressorNode where-  fromJSVal v = fmap DynamicsCompressorNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject DynamicsCompressorNode where-  makeObject = makeObject . unDynamicsCompressorNode--instance IsAudioNode DynamicsCompressorNode-instance IsEventTarget DynamicsCompressorNode-instance IsGObject DynamicsCompressorNode where-  toGObject = GObject . unDynamicsCompressorNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = DynamicsCompressorNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToDynamicsCompressorNode :: IsGObject obj => obj -> JSM DynamicsCompressorNode-castToDynamicsCompressorNode = castTo gTypeDynamicsCompressorNode "DynamicsCompressorNode"--gTypeDynamicsCompressorNode :: JSM GType-gTypeDynamicsCompressorNode = GType . Object <$> jsg "DynamicsCompressorNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTBlendMinMax".------ <https://developer.mozilla.org/en-US/docs/Web/API/EXTBlendMinMax Mozilla EXTBlendMinMax documentation>-newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal }--instance PToJSVal EXTBlendMinMax where-  pToJSVal = unEXTBlendMinMax-  {-# INLINE pToJSVal #-}--instance PFromJSVal EXTBlendMinMax where-  pFromJSVal = EXTBlendMinMax-  {-# INLINE pFromJSVal #-}--instance ToJSVal EXTBlendMinMax where-  toJSVal = return . unEXTBlendMinMax-  {-# INLINE toJSVal #-}--instance FromJSVal EXTBlendMinMax where-  fromJSVal v = fmap EXTBlendMinMax <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EXTBlendMinMax where-  makeObject = makeObject . unEXTBlendMinMax--instance IsGObject EXTBlendMinMax where-  toGObject = GObject . unEXTBlendMinMax-  {-# INLINE toGObject #-}-  unsafeCastGObject = EXTBlendMinMax . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEXTBlendMinMax :: IsGObject obj => obj -> JSM EXTBlendMinMax-castToEXTBlendMinMax = castTo gTypeEXTBlendMinMax "EXTBlendMinMax"--gTypeEXTBlendMinMax :: JSM GType-gTypeEXTBlendMinMax = GType . Object <$> jsg "EXTBlendMinMax"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTFragDepth".------ <https://developer.mozilla.org/en-US/docs/Web/API/EXTFragDepth Mozilla EXTFragDepth documentation>-newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal }--instance PToJSVal EXTFragDepth where-  pToJSVal = unEXTFragDepth-  {-# INLINE pToJSVal #-}--instance PFromJSVal EXTFragDepth where-  pFromJSVal = EXTFragDepth-  {-# INLINE pFromJSVal #-}--instance ToJSVal EXTFragDepth where-  toJSVal = return . unEXTFragDepth-  {-# INLINE toJSVal #-}--instance FromJSVal EXTFragDepth where-  fromJSVal v = fmap EXTFragDepth <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EXTFragDepth where-  makeObject = makeObject . unEXTFragDepth--instance IsGObject EXTFragDepth where-  toGObject = GObject . unEXTFragDepth-  {-# INLINE toGObject #-}-  unsafeCastGObject = EXTFragDepth . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEXTFragDepth :: IsGObject obj => obj -> JSM EXTFragDepth-castToEXTFragDepth = castTo gTypeEXTFragDepth "EXTFragDepth"--gTypeEXTFragDepth :: JSM GType-gTypeEXTFragDepth = GType . Object <$> jsg "EXTFragDepth"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTShaderTextureLOD".------ <https://developer.mozilla.org/en-US/docs/Web/API/EXTShaderTextureLOD Mozilla EXTShaderTextureLOD documentation>-newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal }--instance PToJSVal EXTShaderTextureLOD where-  pToJSVal = unEXTShaderTextureLOD-  {-# INLINE pToJSVal #-}--instance PFromJSVal EXTShaderTextureLOD where-  pFromJSVal = EXTShaderTextureLOD-  {-# INLINE pFromJSVal #-}--instance ToJSVal EXTShaderTextureLOD where-  toJSVal = return . unEXTShaderTextureLOD-  {-# INLINE toJSVal #-}--instance FromJSVal EXTShaderTextureLOD where-  fromJSVal v = fmap EXTShaderTextureLOD <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EXTShaderTextureLOD where-  makeObject = makeObject . unEXTShaderTextureLOD--instance IsGObject EXTShaderTextureLOD where-  toGObject = GObject . unEXTShaderTextureLOD-  {-# INLINE toGObject #-}-  unsafeCastGObject = EXTShaderTextureLOD . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEXTShaderTextureLOD :: IsGObject obj => obj -> JSM EXTShaderTextureLOD-castToEXTShaderTextureLOD = castTo gTypeEXTShaderTextureLOD "EXTShaderTextureLOD"--gTypeEXTShaderTextureLOD :: JSM GType-gTypeEXTShaderTextureLOD = GType . Object <$> jsg "EXTShaderTextureLOD"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTTextureFilterAnisotropic".------ <https://developer.mozilla.org/en-US/docs/Web/API/EXTTextureFilterAnisotropic Mozilla EXTTextureFilterAnisotropic documentation>-newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal }--instance PToJSVal EXTTextureFilterAnisotropic where-  pToJSVal = unEXTTextureFilterAnisotropic-  {-# INLINE pToJSVal #-}--instance PFromJSVal EXTTextureFilterAnisotropic where-  pFromJSVal = EXTTextureFilterAnisotropic-  {-# INLINE pFromJSVal #-}--instance ToJSVal EXTTextureFilterAnisotropic where-  toJSVal = return . unEXTTextureFilterAnisotropic-  {-# INLINE toJSVal #-}--instance FromJSVal EXTTextureFilterAnisotropic where-  fromJSVal v = fmap EXTTextureFilterAnisotropic <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EXTTextureFilterAnisotropic where-  makeObject = makeObject . unEXTTextureFilterAnisotropic--instance IsGObject EXTTextureFilterAnisotropic where-  toGObject = GObject . unEXTTextureFilterAnisotropic-  {-# INLINE toGObject #-}-  unsafeCastGObject = EXTTextureFilterAnisotropic . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEXTTextureFilterAnisotropic :: IsGObject obj => obj -> JSM EXTTextureFilterAnisotropic-castToEXTTextureFilterAnisotropic = castTo gTypeEXTTextureFilterAnisotropic "EXTTextureFilterAnisotropic"--gTypeEXTTextureFilterAnisotropic :: JSM GType-gTypeEXTTextureFilterAnisotropic = GType . Object <$> jsg "EXTTextureFilterAnisotropic"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EXTsRGB".------ <https://developer.mozilla.org/en-US/docs/Web/API/EXTsRGB Mozilla EXTsRGB documentation>-newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal }--instance PToJSVal EXTsRGB where-  pToJSVal = unEXTsRGB-  {-# INLINE pToJSVal #-}--instance PFromJSVal EXTsRGB where-  pFromJSVal = EXTsRGB-  {-# INLINE pFromJSVal #-}--instance ToJSVal EXTsRGB where-  toJSVal = return . unEXTsRGB-  {-# INLINE toJSVal #-}--instance FromJSVal EXTsRGB where-  fromJSVal v = fmap EXTsRGB <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EXTsRGB where-  makeObject = makeObject . unEXTsRGB--instance IsGObject EXTsRGB where-  toGObject = GObject . unEXTsRGB-  {-# INLINE toGObject #-}-  unsafeCastGObject = EXTsRGB . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEXTsRGB :: IsGObject obj => obj -> JSM EXTsRGB-castToEXTsRGB = castTo gTypeEXTsRGB "EXTsRGB"--gTypeEXTsRGB :: JSM GType-gTypeEXTsRGB = GType . Object <$> jsg "EXTsRGB"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Element".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Element Mozilla Element documentation>-newtype Element = Element { unElement :: JSVal }--instance PToJSVal Element where-  pToJSVal = unElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal Element where-  pFromJSVal = Element-  {-# INLINE pFromJSVal #-}--instance ToJSVal Element where-  toJSVal = return . unElement-  {-# INLINE toJSVal #-}--instance FromJSVal Element where-  fromJSVal v = fmap Element <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Element where-  makeObject = makeObject . unElement--class IsNode o => IsElement o-toElement :: IsElement o => o -> Element-toElement = unsafeCastGObject . toGObject--instance IsElement Element-instance IsNode Element-instance IsEventTarget Element-instance IsGObject Element where-  toGObject = GObject . unElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = Element . unGObject-  {-# INLINE unsafeCastGObject #-}--castToElement :: IsGObject obj => obj -> JSM Element-castToElement = castTo gTypeElement "Element"--gTypeElement :: JSM GType-gTypeElement = GType . Object <$> jsg "Element"-#else-type IsElement o = ElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Entity".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Entity Mozilla Entity documentation>-newtype Entity = Entity { unEntity :: JSVal }--instance PToJSVal Entity where-  pToJSVal = unEntity-  {-# INLINE pToJSVal #-}--instance PFromJSVal Entity where-  pFromJSVal = Entity-  {-# INLINE pFromJSVal #-}--instance ToJSVal Entity where-  toJSVal = return . unEntity-  {-# INLINE toJSVal #-}--instance FromJSVal Entity where-  fromJSVal v = fmap Entity <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Entity where-  makeObject = makeObject . unEntity--instance IsNode Entity-instance IsEventTarget Entity-instance IsGObject Entity where-  toGObject = GObject . unEntity-  {-# INLINE toGObject #-}-  unsafeCastGObject = Entity . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEntity :: IsGObject obj => obj -> JSM Entity-castToEntity = castTo gTypeEntity "Entity"--gTypeEntity :: JSM GType-gTypeEntity = GType . Object <$> jsg "Entity"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EntityReference".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/EntityReference Mozilla EntityReference documentation>-newtype EntityReference = EntityReference { unEntityReference :: JSVal }--instance PToJSVal EntityReference where-  pToJSVal = unEntityReference-  {-# INLINE pToJSVal #-}--instance PFromJSVal EntityReference where-  pFromJSVal = EntityReference-  {-# INLINE pFromJSVal #-}--instance ToJSVal EntityReference where-  toJSVal = return . unEntityReference-  {-# INLINE toJSVal #-}--instance FromJSVal EntityReference where-  fromJSVal v = fmap EntityReference <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EntityReference where-  makeObject = makeObject . unEntityReference--instance IsNode EntityReference-instance IsEventTarget EntityReference-instance IsGObject EntityReference where-  toGObject = GObject . unEntityReference-  {-# INLINE toGObject #-}-  unsafeCastGObject = EntityReference . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEntityReference :: IsGObject obj => obj -> JSM EntityReference-castToEntityReference = castTo gTypeEntityReference "EntityReference"--gTypeEntityReference :: JSM GType-gTypeEntityReference = GType . Object <$> jsg "EntityReference"-#else-type IsEntityReference o = EntityReferenceClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ErrorEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent Mozilla ErrorEvent documentation>-newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal }--instance PToJSVal ErrorEvent where-  pToJSVal = unErrorEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal ErrorEvent where-  pFromJSVal = ErrorEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal ErrorEvent where-  toJSVal = return . unErrorEvent-  {-# INLINE toJSVal #-}--instance FromJSVal ErrorEvent where-  fromJSVal v = fmap ErrorEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ErrorEvent where-  makeObject = makeObject . unErrorEvent--instance IsEvent ErrorEvent-instance IsGObject ErrorEvent where-  toGObject = GObject . unErrorEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = ErrorEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToErrorEvent :: IsGObject obj => obj -> JSM ErrorEvent-castToErrorEvent = castTo gTypeErrorEvent "ErrorEvent"--gTypeErrorEvent :: JSM GType-gTypeErrorEvent = GType . Object <$> jsg "ErrorEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Event".------ <https://developer.mozilla.org/en-US/docs/Web/API/Event Mozilla Event documentation>-newtype Event = Event { unEvent :: JSVal }--instance PToJSVal Event where-  pToJSVal = unEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal Event where-  pFromJSVal = Event-  {-# INLINE pFromJSVal #-}--instance ToJSVal Event where-  toJSVal = return . unEvent-  {-# INLINE toJSVal #-}--instance FromJSVal Event where-  fromJSVal v = fmap Event <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Event where-  makeObject = makeObject . unEvent--class IsGObject o => IsEvent o-toEvent :: IsEvent o => o -> Event-toEvent = unsafeCastGObject . toGObject--instance IsEvent Event-instance IsGObject Event where-  toGObject = GObject . unEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = Event . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEvent :: IsGObject obj => obj -> JSM Event-castToEvent = castTo gTypeEvent "Event"--gTypeEvent :: JSM GType-gTypeEvent = GType . Object <$> jsg "Event"-#else-type IsEvent o = EventClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EventListener".------ <https://developer.mozilla.org/en-US/docs/Web/API/EventListener Mozilla EventListener documentation>-newtype EventListener = EventListener { unEventListener :: JSVal }--instance PToJSVal EventListener where-  pToJSVal = unEventListener-  {-# INLINE pToJSVal #-}--instance PFromJSVal EventListener where-  pFromJSVal = EventListener-  {-# INLINE pFromJSVal #-}--instance ToJSVal EventListener where-  toJSVal = return . unEventListener-  {-# INLINE toJSVal #-}--instance FromJSVal EventListener where-  fromJSVal v = fmap EventListener <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EventListener where-  makeObject = makeObject . unEventListener--instance IsGObject EventListener where-  toGObject = GObject . unEventListener-  {-# INLINE toGObject #-}-  unsafeCastGObject = EventListener . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEventListener :: IsGObject obj => obj -> JSM EventListener-castToEventListener = castTo gTypeEventListener "EventListener"--gTypeEventListener :: JSM GType-gTypeEventListener = GType . Object <$> jsg "EventListener"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EventSource".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation>-newtype EventSource = EventSource { unEventSource :: JSVal }--instance PToJSVal EventSource where-  pToJSVal = unEventSource-  {-# INLINE pToJSVal #-}--instance PFromJSVal EventSource where-  pFromJSVal = EventSource-  {-# INLINE pFromJSVal #-}--instance ToJSVal EventSource where-  toJSVal = return . unEventSource-  {-# INLINE toJSVal #-}--instance FromJSVal EventSource where-  fromJSVal v = fmap EventSource <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EventSource where-  makeObject = makeObject . unEventSource--instance IsEventTarget EventSource-instance IsGObject EventSource where-  toGObject = GObject . unEventSource-  {-# INLINE toGObject #-}-  unsafeCastGObject = EventSource . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEventSource :: IsGObject obj => obj -> JSM EventSource-castToEventSource = castTo gTypeEventSource "EventSource"--gTypeEventSource :: JSM GType-gTypeEventSource = GType . Object <$> jsg "EventSource"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.EventTarget".------ <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget Mozilla EventTarget documentation>-newtype EventTarget = EventTarget { unEventTarget :: JSVal }--instance PToJSVal EventTarget where-  pToJSVal = unEventTarget-  {-# INLINE pToJSVal #-}--instance PFromJSVal EventTarget where-  pFromJSVal = EventTarget-  {-# INLINE pFromJSVal #-}--instance ToJSVal EventTarget where-  toJSVal = return . unEventTarget-  {-# INLINE toJSVal #-}--instance FromJSVal EventTarget where-  fromJSVal v = fmap EventTarget <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject EventTarget where-  makeObject = makeObject . unEventTarget--class IsGObject o => IsEventTarget o-toEventTarget :: IsEventTarget o => o -> EventTarget-toEventTarget = unsafeCastGObject . toGObject--instance IsEventTarget EventTarget-instance IsGObject EventTarget where-  toGObject = GObject . unEventTarget-  {-# INLINE toGObject #-}-  unsafeCastGObject = EventTarget . unGObject-  {-# INLINE unsafeCastGObject #-}--castToEventTarget :: IsGObject obj => obj -> JSM EventTarget-castToEventTarget = castTo gTypeEventTarget "EventTarget"--gTypeEventTarget :: JSM GType-gTypeEventTarget = GType . Object <$> jsg "EventTarget"-#else-type IsEventTarget o = EventTargetClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.File".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Blob"------ <https://developer.mozilla.org/en-US/docs/Web/API/File Mozilla File documentation>-newtype File = File { unFile :: JSVal }--instance PToJSVal File where-  pToJSVal = unFile-  {-# INLINE pToJSVal #-}--instance PFromJSVal File where-  pFromJSVal = File-  {-# INLINE pFromJSVal #-}--instance ToJSVal File where-  toJSVal = return . unFile-  {-# INLINE toJSVal #-}--instance FromJSVal File where-  fromJSVal v = fmap File <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject File where-  makeObject = makeObject . unFile--instance IsBlob File-instance IsGObject File where-  toGObject = GObject . unFile-  {-# INLINE toGObject #-}-  unsafeCastGObject = File . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFile :: IsGObject obj => obj -> JSM File-castToFile = castTo gTypeFile "File"--gTypeFile :: JSM GType-gTypeFile = GType . Object <$> jsg "File"-#else-type IsFile o = FileClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileError".------ <https://developer.mozilla.org/en-US/docs/Web/API/FileError Mozilla FileError documentation>-newtype FileError = FileError { unFileError :: JSVal }--instance PToJSVal FileError where-  pToJSVal = unFileError-  {-# INLINE pToJSVal #-}--instance PFromJSVal FileError where-  pFromJSVal = FileError-  {-# INLINE pFromJSVal #-}--instance ToJSVal FileError where-  toJSVal = return . unFileError-  {-# INLINE toJSVal #-}--instance FromJSVal FileError where-  fromJSVal v = fmap FileError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FileError where-  makeObject = makeObject . unFileError--instance IsGObject FileError where-  toGObject = GObject . unFileError-  {-# INLINE toGObject #-}-  unsafeCastGObject = FileError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFileError :: IsGObject obj => obj -> JSM FileError-castToFileError = castTo gTypeFileError "FileError"--gTypeFileError :: JSM GType-gTypeFileError = GType . Object <$> jsg "FileError"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileList".------ <https://developer.mozilla.org/en-US/docs/Web/API/FileList Mozilla FileList documentation>-newtype FileList = FileList { unFileList :: JSVal }--instance PToJSVal FileList where-  pToJSVal = unFileList-  {-# INLINE pToJSVal #-}--instance PFromJSVal FileList where-  pFromJSVal = FileList-  {-# INLINE pFromJSVal #-}--instance ToJSVal FileList where-  toJSVal = return . unFileList-  {-# INLINE toJSVal #-}--instance FromJSVal FileList where-  fromJSVal v = fmap FileList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FileList where-  makeObject = makeObject . unFileList--instance IsGObject FileList where-  toGObject = GObject . unFileList-  {-# INLINE toGObject #-}-  unsafeCastGObject = FileList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFileList :: IsGObject obj => obj -> JSM FileList-castToFileList = castTo gTypeFileList "FileList"--gTypeFileList :: JSM GType-gTypeFileList = GType . Object <$> jsg "FileList"-#else-type IsFileList o = FileListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileReader".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation>-newtype FileReader = FileReader { unFileReader :: JSVal }--instance PToJSVal FileReader where-  pToJSVal = unFileReader-  {-# INLINE pToJSVal #-}--instance PFromJSVal FileReader where-  pFromJSVal = FileReader-  {-# INLINE pFromJSVal #-}--instance ToJSVal FileReader where-  toJSVal = return . unFileReader-  {-# INLINE toJSVal #-}--instance FromJSVal FileReader where-  fromJSVal v = fmap FileReader <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FileReader where-  makeObject = makeObject . unFileReader--instance IsEventTarget FileReader-instance IsGObject FileReader where-  toGObject = GObject . unFileReader-  {-# INLINE toGObject #-}-  unsafeCastGObject = FileReader . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFileReader :: IsGObject obj => obj -> JSM FileReader-castToFileReader = castTo gTypeFileReader "FileReader"--gTypeFileReader :: JSM GType-gTypeFileReader = GType . Object <$> jsg "FileReader"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FileReaderSync".------ <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation>-newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal }--instance PToJSVal FileReaderSync where-  pToJSVal = unFileReaderSync-  {-# INLINE pToJSVal #-}--instance PFromJSVal FileReaderSync where-  pFromJSVal = FileReaderSync-  {-# INLINE pFromJSVal #-}--instance ToJSVal FileReaderSync where-  toJSVal = return . unFileReaderSync-  {-# INLINE toJSVal #-}--instance FromJSVal FileReaderSync where-  fromJSVal v = fmap FileReaderSync <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FileReaderSync where-  makeObject = makeObject . unFileReaderSync--instance IsGObject FileReaderSync where-  toGObject = GObject . unFileReaderSync-  {-# INLINE toGObject #-}-  unsafeCastGObject = FileReaderSync . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFileReaderSync :: IsGObject obj => obj -> JSM FileReaderSync-castToFileReaderSync = castTo gTypeFileReaderSync "FileReaderSync"--gTypeFileReaderSync :: JSM GType-gTypeFileReaderSync = GType . Object <$> jsg "FileReaderSync"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FocusEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent Mozilla FocusEvent documentation>-newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal }--instance PToJSVal FocusEvent where-  pToJSVal = unFocusEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal FocusEvent where-  pFromJSVal = FocusEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal FocusEvent where-  toJSVal = return . unFocusEvent-  {-# INLINE toJSVal #-}--instance FromJSVal FocusEvent where-  fromJSVal v = fmap FocusEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FocusEvent where-  makeObject = makeObject . unFocusEvent--instance IsUIEvent FocusEvent-instance IsEvent FocusEvent-instance IsGObject FocusEvent where-  toGObject = GObject . unFocusEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = FocusEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFocusEvent :: IsGObject obj => obj -> JSM FocusEvent-castToFocusEvent = castTo gTypeFocusEvent "FocusEvent"--gTypeFocusEvent :: JSM GType-gTypeFocusEvent = GType . Object <$> jsg "FocusEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FontLoader".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader Mozilla FontLoader documentation>-newtype FontLoader = FontLoader { unFontLoader :: JSVal }--instance PToJSVal FontLoader where-  pToJSVal = unFontLoader-  {-# INLINE pToJSVal #-}--instance PFromJSVal FontLoader where-  pFromJSVal = FontLoader-  {-# INLINE pFromJSVal #-}--instance ToJSVal FontLoader where-  toJSVal = return . unFontLoader-  {-# INLINE toJSVal #-}--instance FromJSVal FontLoader where-  fromJSVal v = fmap FontLoader <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FontLoader where-  makeObject = makeObject . unFontLoader--instance IsEventTarget FontLoader-instance IsGObject FontLoader where-  toGObject = GObject . unFontLoader-  {-# INLINE toGObject #-}-  unsafeCastGObject = FontLoader . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFontLoader :: IsGObject obj => obj -> JSM FontLoader-castToFontLoader = castTo gTypeFontLoader "FontLoader"--gTypeFontLoader :: JSM GType-gTypeFontLoader = GType . Object <$> jsg "FontLoader"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.FormData".------ <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation>-newtype FormData = FormData { unFormData :: JSVal }--instance PToJSVal FormData where-  pToJSVal = unFormData-  {-# INLINE pToJSVal #-}--instance PFromJSVal FormData where-  pFromJSVal = FormData-  {-# INLINE pFromJSVal #-}--instance ToJSVal FormData where-  toJSVal = return . unFormData-  {-# INLINE toJSVal #-}--instance FromJSVal FormData where-  fromJSVal v = fmap FormData <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject FormData where-  makeObject = makeObject . unFormData--instance IsGObject FormData where-  toGObject = GObject . unFormData-  {-# INLINE toGObject #-}-  unsafeCastGObject = FormData . unGObject-  {-# INLINE unsafeCastGObject #-}--castToFormData :: IsGObject obj => obj -> JSM FormData-castToFormData = castTo gTypeFormData "FormData"--gTypeFormData :: JSM GType-gTypeFormData = GType . Object <$> jsg "FormData"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.GainNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/GainNode Mozilla GainNode documentation>-newtype GainNode = GainNode { unGainNode :: JSVal }--instance PToJSVal GainNode where-  pToJSVal = unGainNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal GainNode where-  pFromJSVal = GainNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal GainNode where-  toJSVal = return . unGainNode-  {-# INLINE toJSVal #-}--instance FromJSVal GainNode where-  fromJSVal v = fmap GainNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject GainNode where-  makeObject = makeObject . unGainNode--instance IsAudioNode GainNode-instance IsEventTarget GainNode-instance IsGObject GainNode where-  toGObject = GObject . unGainNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = GainNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToGainNode :: IsGObject obj => obj -> JSM GainNode-castToGainNode = castTo gTypeGainNode "GainNode"--gTypeGainNode :: JSM GType-gTypeGainNode = GType . Object <$> jsg "GainNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Gamepad".------ <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad Mozilla Gamepad documentation>-newtype Gamepad = Gamepad { unGamepad :: JSVal }--instance PToJSVal Gamepad where-  pToJSVal = unGamepad-  {-# INLINE pToJSVal #-}--instance PFromJSVal Gamepad where-  pFromJSVal = Gamepad-  {-# INLINE pFromJSVal #-}--instance ToJSVal Gamepad where-  toJSVal = return . unGamepad-  {-# INLINE toJSVal #-}--instance FromJSVal Gamepad where-  fromJSVal v = fmap Gamepad <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Gamepad where-  makeObject = makeObject . unGamepad--instance IsGObject Gamepad where-  toGObject = GObject . unGamepad-  {-# INLINE toGObject #-}-  unsafeCastGObject = Gamepad . unGObject-  {-# INLINE unsafeCastGObject #-}--castToGamepad :: IsGObject obj => obj -> JSM Gamepad-castToGamepad = castTo gTypeGamepad "Gamepad"--gTypeGamepad :: JSM GType-gTypeGamepad = GType . Object <$> jsg "Gamepad"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.GamepadButton".------ <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton Mozilla GamepadButton documentation>-newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal }--instance PToJSVal GamepadButton where-  pToJSVal = unGamepadButton-  {-# INLINE pToJSVal #-}--instance PFromJSVal GamepadButton where-  pFromJSVal = GamepadButton-  {-# INLINE pFromJSVal #-}--instance ToJSVal GamepadButton where-  toJSVal = return . unGamepadButton-  {-# INLINE toJSVal #-}--instance FromJSVal GamepadButton where-  fromJSVal v = fmap GamepadButton <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject GamepadButton where-  makeObject = makeObject . unGamepadButton--instance IsGObject GamepadButton where-  toGObject = GObject . unGamepadButton-  {-# INLINE toGObject #-}-  unsafeCastGObject = GamepadButton . unGObject-  {-# INLINE unsafeCastGObject #-}--castToGamepadButton :: IsGObject obj => obj -> JSM GamepadButton-castToGamepadButton = castTo gTypeGamepadButton "GamepadButton"--gTypeGamepadButton :: JSM GType-gTypeGamepadButton = GType . Object <$> jsg "GamepadButton"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.GamepadEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent Mozilla GamepadEvent documentation>-newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal }--instance PToJSVal GamepadEvent where-  pToJSVal = unGamepadEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal GamepadEvent where-  pFromJSVal = GamepadEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal GamepadEvent where-  toJSVal = return . unGamepadEvent-  {-# INLINE toJSVal #-}--instance FromJSVal GamepadEvent where-  fromJSVal v = fmap GamepadEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject GamepadEvent where-  makeObject = makeObject . unGamepadEvent--instance IsEvent GamepadEvent-instance IsGObject GamepadEvent where-  toGObject = GObject . unGamepadEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = GamepadEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToGamepadEvent :: IsGObject obj => obj -> JSM GamepadEvent-castToGamepadEvent = castTo gTypeGamepadEvent "GamepadEvent"--gTypeGamepadEvent :: JSM GType-gTypeGamepadEvent = GType . Object <$> jsg "GamepadEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Geolocation".------ <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation Mozilla Geolocation documentation>-newtype Geolocation = Geolocation { unGeolocation :: JSVal }--instance PToJSVal Geolocation where-  pToJSVal = unGeolocation-  {-# INLINE pToJSVal #-}--instance PFromJSVal Geolocation where-  pFromJSVal = Geolocation-  {-# INLINE pFromJSVal #-}--instance ToJSVal Geolocation where-  toJSVal = return . unGeolocation-  {-# INLINE toJSVal #-}--instance FromJSVal Geolocation where-  fromJSVal v = fmap Geolocation <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Geolocation where-  makeObject = makeObject . unGeolocation--instance IsGObject Geolocation where-  toGObject = GObject . unGeolocation-  {-# INLINE toGObject #-}-  unsafeCastGObject = Geolocation . unGObject-  {-# INLINE unsafeCastGObject #-}--castToGeolocation :: IsGObject obj => obj -> JSM Geolocation-castToGeolocation = castTo gTypeGeolocation "Geolocation"--gTypeGeolocation :: JSM GType-gTypeGeolocation = GType . Object <$> jsg "Geolocation"-#else-type IsGeolocation o = GeolocationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Geoposition".------ <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition Mozilla Geoposition documentation>-newtype Geoposition = Geoposition { unGeoposition :: JSVal }--instance PToJSVal Geoposition where-  pToJSVal = unGeoposition-  {-# INLINE pToJSVal #-}--instance PFromJSVal Geoposition where-  pFromJSVal = Geoposition-  {-# INLINE pFromJSVal #-}--instance ToJSVal Geoposition where-  toJSVal = return . unGeoposition-  {-# INLINE toJSVal #-}--instance FromJSVal Geoposition where-  fromJSVal v = fmap Geoposition <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Geoposition where-  makeObject = makeObject . unGeoposition--instance IsGObject Geoposition where-  toGObject = GObject . unGeoposition-  {-# INLINE toGObject #-}-  unsafeCastGObject = Geoposition . unGObject-  {-# INLINE unsafeCastGObject #-}--castToGeoposition :: IsGObject obj => obj -> JSM Geoposition-castToGeoposition = castTo gTypeGeoposition "Geoposition"--gTypeGeoposition :: JSM GType-gTypeGeoposition = GType . Object <$> jsg "Geoposition"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAllCollection".------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection Mozilla HTMLAllCollection documentation>-newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal }--instance PToJSVal HTMLAllCollection where-  pToJSVal = unHTMLAllCollection-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLAllCollection where-  pFromJSVal = HTMLAllCollection-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLAllCollection where-  toJSVal = return . unHTMLAllCollection-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLAllCollection where-  fromJSVal v = fmap HTMLAllCollection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLAllCollection where-  makeObject = makeObject . unHTMLAllCollection--instance IsGObject HTMLAllCollection where-  toGObject = GObject . unHTMLAllCollection-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLAllCollection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLAllCollection :: IsGObject obj => obj -> JSM HTMLAllCollection-castToHTMLAllCollection = castTo gTypeHTMLAllCollection "HTMLAllCollection"--gTypeHTMLAllCollection :: JSM GType-gTypeHTMLAllCollection = GType . Object <$> jsg "HTMLAllCollection"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAnchorElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement Mozilla HTMLAnchorElement documentation>-newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal }--instance PToJSVal HTMLAnchorElement where-  pToJSVal = unHTMLAnchorElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLAnchorElement where-  pFromJSVal = HTMLAnchorElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLAnchorElement where-  toJSVal = return . unHTMLAnchorElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLAnchorElement where-  fromJSVal v = fmap HTMLAnchorElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLAnchorElement where-  makeObject = makeObject . unHTMLAnchorElement--instance IsHTMLElement HTMLAnchorElement-instance IsElement HTMLAnchorElement-instance IsNode HTMLAnchorElement-instance IsEventTarget HTMLAnchorElement-instance IsGObject HTMLAnchorElement where-  toGObject = GObject . unHTMLAnchorElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLAnchorElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLAnchorElement :: IsGObject obj => obj -> JSM HTMLAnchorElement-castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement"--gTypeHTMLAnchorElement :: JSM GType-gTypeHTMLAnchorElement = GType . Object <$> jsg "HTMLAnchorElement"-#else-type IsHTMLAnchorElement o = HTMLAnchorElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAppletElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement Mozilla HTMLAppletElement documentation>-newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal }--instance PToJSVal HTMLAppletElement where-  pToJSVal = unHTMLAppletElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLAppletElement where-  pFromJSVal = HTMLAppletElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLAppletElement where-  toJSVal = return . unHTMLAppletElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLAppletElement where-  fromJSVal v = fmap HTMLAppletElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLAppletElement where-  makeObject = makeObject . unHTMLAppletElement--instance IsHTMLElement HTMLAppletElement-instance IsElement HTMLAppletElement-instance IsNode HTMLAppletElement-instance IsEventTarget HTMLAppletElement-instance IsGObject HTMLAppletElement where-  toGObject = GObject . unHTMLAppletElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLAppletElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLAppletElement :: IsGObject obj => obj -> JSM HTMLAppletElement-castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement"--gTypeHTMLAppletElement :: JSM GType-gTypeHTMLAppletElement = GType . Object <$> jsg "HTMLAppletElement"-#else-type IsHTMLAppletElement o = HTMLAppletElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAreaElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement Mozilla HTMLAreaElement documentation>-newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal }--instance PToJSVal HTMLAreaElement where-  pToJSVal = unHTMLAreaElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLAreaElement where-  pFromJSVal = HTMLAreaElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLAreaElement where-  toJSVal = return . unHTMLAreaElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLAreaElement where-  fromJSVal v = fmap HTMLAreaElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLAreaElement where-  makeObject = makeObject . unHTMLAreaElement--instance IsHTMLElement HTMLAreaElement-instance IsElement HTMLAreaElement-instance IsNode HTMLAreaElement-instance IsEventTarget HTMLAreaElement-instance IsGObject HTMLAreaElement where-  toGObject = GObject . unHTMLAreaElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLAreaElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLAreaElement :: IsGObject obj => obj -> JSM HTMLAreaElement-castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement"--gTypeHTMLAreaElement :: JSM GType-gTypeHTMLAreaElement = GType . Object <$> jsg "HTMLAreaElement"-#else-type IsHTMLAreaElement o = HTMLAreaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLAudioElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLMediaElement"---     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAudioElement Mozilla HTMLAudioElement documentation>-newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal }--instance PToJSVal HTMLAudioElement where-  pToJSVal = unHTMLAudioElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLAudioElement where-  pFromJSVal = HTMLAudioElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLAudioElement where-  toJSVal = return . unHTMLAudioElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLAudioElement where-  fromJSVal v = fmap HTMLAudioElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLAudioElement where-  makeObject = makeObject . unHTMLAudioElement--instance IsHTMLMediaElement HTMLAudioElement-instance IsHTMLElement HTMLAudioElement-instance IsElement HTMLAudioElement-instance IsNode HTMLAudioElement-instance IsEventTarget HTMLAudioElement-instance IsGObject HTMLAudioElement where-  toGObject = GObject . unHTMLAudioElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLAudioElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLAudioElement :: IsGObject obj => obj -> JSM HTMLAudioElement-castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement"--gTypeHTMLAudioElement :: JSM GType-gTypeHTMLAudioElement = GType . Object <$> jsg "HTMLAudioElement"-#else-type IsHTMLAudioElement o = HTMLAudioElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBRElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement Mozilla HTMLBRElement documentation>-newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal }--instance PToJSVal HTMLBRElement where-  pToJSVal = unHTMLBRElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLBRElement where-  pFromJSVal = HTMLBRElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLBRElement where-  toJSVal = return . unHTMLBRElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLBRElement where-  fromJSVal v = fmap HTMLBRElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLBRElement where-  makeObject = makeObject . unHTMLBRElement--instance IsHTMLElement HTMLBRElement-instance IsElement HTMLBRElement-instance IsNode HTMLBRElement-instance IsEventTarget HTMLBRElement-instance IsGObject HTMLBRElement where-  toGObject = GObject . unHTMLBRElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLBRElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLBRElement :: IsGObject obj => obj -> JSM HTMLBRElement-castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement"--gTypeHTMLBRElement :: JSM GType-gTypeHTMLBRElement = GType . Object <$> jsg "HTMLBRElement"-#else-type IsHTMLBRElement o = HTMLBRElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBaseElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement Mozilla HTMLBaseElement documentation>-newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal }--instance PToJSVal HTMLBaseElement where-  pToJSVal = unHTMLBaseElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLBaseElement where-  pFromJSVal = HTMLBaseElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLBaseElement where-  toJSVal = return . unHTMLBaseElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLBaseElement where-  fromJSVal v = fmap HTMLBaseElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLBaseElement where-  makeObject = makeObject . unHTMLBaseElement--instance IsHTMLElement HTMLBaseElement-instance IsElement HTMLBaseElement-instance IsNode HTMLBaseElement-instance IsEventTarget HTMLBaseElement-instance IsGObject HTMLBaseElement where-  toGObject = GObject . unHTMLBaseElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLBaseElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLBaseElement :: IsGObject obj => obj -> JSM HTMLBaseElement-castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement"--gTypeHTMLBaseElement :: JSM GType-gTypeHTMLBaseElement = GType . Object <$> jsg "HTMLBaseElement"-#else-type IsHTMLBaseElement o = HTMLBaseElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBaseFontElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement Mozilla HTMLBaseFontElement documentation>-newtype HTMLBaseFontElement = HTMLBaseFontElement { unHTMLBaseFontElement :: JSVal }--instance PToJSVal HTMLBaseFontElement where-  pToJSVal = unHTMLBaseFontElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLBaseFontElement where-  pFromJSVal = HTMLBaseFontElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLBaseFontElement where-  toJSVal = return . unHTMLBaseFontElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLBaseFontElement where-  fromJSVal v = fmap HTMLBaseFontElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLBaseFontElement where-  makeObject = makeObject . unHTMLBaseFontElement--instance IsHTMLElement HTMLBaseFontElement-instance IsElement HTMLBaseFontElement-instance IsNode HTMLBaseFontElement-instance IsEventTarget HTMLBaseFontElement-instance IsGObject HTMLBaseFontElement where-  toGObject = GObject . unHTMLBaseFontElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLBaseFontElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLBaseFontElement :: IsGObject obj => obj -> JSM HTMLBaseFontElement-castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement"--gTypeHTMLBaseFontElement :: JSM GType-gTypeHTMLBaseFontElement = GType . Object <$> jsg "HTMLBaseFontElement"-#else-type IsHTMLBaseFontElement o = HTMLBaseFontElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLBodyElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement Mozilla HTMLBodyElement documentation>-newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal }--instance PToJSVal HTMLBodyElement where-  pToJSVal = unHTMLBodyElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLBodyElement where-  pFromJSVal = HTMLBodyElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLBodyElement where-  toJSVal = return . unHTMLBodyElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLBodyElement where-  fromJSVal v = fmap HTMLBodyElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLBodyElement where-  makeObject = makeObject . unHTMLBodyElement--instance IsHTMLElement HTMLBodyElement-instance IsElement HTMLBodyElement-instance IsNode HTMLBodyElement-instance IsEventTarget HTMLBodyElement-instance IsGObject HTMLBodyElement where-  toGObject = GObject . unHTMLBodyElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLBodyElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLBodyElement :: IsGObject obj => obj -> JSM HTMLBodyElement-castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement"--gTypeHTMLBodyElement :: JSM GType-gTypeHTMLBodyElement = GType . Object <$> jsg "HTMLBodyElement"-#else-type IsHTMLBodyElement o = HTMLBodyElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLButtonElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement Mozilla HTMLButtonElement documentation>-newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal }--instance PToJSVal HTMLButtonElement where-  pToJSVal = unHTMLButtonElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLButtonElement where-  pFromJSVal = HTMLButtonElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLButtonElement where-  toJSVal = return . unHTMLButtonElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLButtonElement where-  fromJSVal v = fmap HTMLButtonElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLButtonElement where-  makeObject = makeObject . unHTMLButtonElement--instance IsHTMLElement HTMLButtonElement-instance IsElement HTMLButtonElement-instance IsNode HTMLButtonElement-instance IsEventTarget HTMLButtonElement-instance IsGObject HTMLButtonElement where-  toGObject = GObject . unHTMLButtonElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLButtonElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLButtonElement :: IsGObject obj => obj -> JSM HTMLButtonElement-castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement"--gTypeHTMLButtonElement :: JSM GType-gTypeHTMLButtonElement = GType . Object <$> jsg "HTMLButtonElement"-#else-type IsHTMLButtonElement o = HTMLButtonElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLCanvasElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement Mozilla HTMLCanvasElement documentation>-newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal }--instance PToJSVal HTMLCanvasElement where-  pToJSVal = unHTMLCanvasElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLCanvasElement where-  pFromJSVal = HTMLCanvasElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLCanvasElement where-  toJSVal = return . unHTMLCanvasElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLCanvasElement where-  fromJSVal v = fmap HTMLCanvasElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLCanvasElement where-  makeObject = makeObject . unHTMLCanvasElement--instance IsHTMLElement HTMLCanvasElement-instance IsElement HTMLCanvasElement-instance IsNode HTMLCanvasElement-instance IsEventTarget HTMLCanvasElement-instance IsGObject HTMLCanvasElement where-  toGObject = GObject . unHTMLCanvasElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLCanvasElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLCanvasElement :: IsGObject obj => obj -> JSM HTMLCanvasElement-castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement"--gTypeHTMLCanvasElement :: JSM GType-gTypeHTMLCanvasElement = GType . Object <$> jsg "HTMLCanvasElement"-#else-type IsHTMLCanvasElement o = HTMLCanvasElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLCollection".------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection Mozilla HTMLCollection documentation>-newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal }--instance PToJSVal HTMLCollection where-  pToJSVal = unHTMLCollection-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLCollection where-  pFromJSVal = HTMLCollection-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLCollection where-  toJSVal = return . unHTMLCollection-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLCollection where-  fromJSVal v = fmap HTMLCollection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLCollection where-  makeObject = makeObject . unHTMLCollection--class IsGObject o => IsHTMLCollection o-toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection-toHTMLCollection = unsafeCastGObject . toGObject--instance IsHTMLCollection HTMLCollection-instance IsGObject HTMLCollection where-  toGObject = GObject . unHTMLCollection-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLCollection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLCollection :: IsGObject obj => obj -> JSM HTMLCollection-castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection"--gTypeHTMLCollection :: JSM GType-gTypeHTMLCollection = GType . Object <$> jsg "HTMLCollection"-#else-type IsHTMLCollection o = HTMLCollectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDListElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement Mozilla HTMLDListElement documentation>-newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal }--instance PToJSVal HTMLDListElement where-  pToJSVal = unHTMLDListElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLDListElement where-  pFromJSVal = HTMLDListElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLDListElement where-  toJSVal = return . unHTMLDListElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLDListElement where-  fromJSVal v = fmap HTMLDListElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLDListElement where-  makeObject = makeObject . unHTMLDListElement--instance IsHTMLElement HTMLDListElement-instance IsElement HTMLDListElement-instance IsNode HTMLDListElement-instance IsEventTarget HTMLDListElement-instance IsGObject HTMLDListElement where-  toGObject = GObject . unHTMLDListElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLDListElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLDListElement :: IsGObject obj => obj -> JSM HTMLDListElement-castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement"--gTypeHTMLDListElement :: JSM GType-gTypeHTMLDListElement = GType . Object <$> jsg "HTMLDListElement"-#else-type IsHTMLDListElement o = HTMLDListElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDataListElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement Mozilla HTMLDataListElement documentation>-newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal }--instance PToJSVal HTMLDataListElement where-  pToJSVal = unHTMLDataListElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLDataListElement where-  pFromJSVal = HTMLDataListElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLDataListElement where-  toJSVal = return . unHTMLDataListElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLDataListElement where-  fromJSVal v = fmap HTMLDataListElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLDataListElement where-  makeObject = makeObject . unHTMLDataListElement--instance IsHTMLElement HTMLDataListElement-instance IsElement HTMLDataListElement-instance IsNode HTMLDataListElement-instance IsEventTarget HTMLDataListElement-instance IsGObject HTMLDataListElement where-  toGObject = GObject . unHTMLDataListElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLDataListElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLDataListElement :: IsGObject obj => obj -> JSM HTMLDataListElement-castToHTMLDataListElement = castTo gTypeHTMLDataListElement "HTMLDataListElement"--gTypeHTMLDataListElement :: JSM GType-gTypeHTMLDataListElement = GType . Object <$> jsg "HTMLDataListElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDetailsElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement Mozilla HTMLDetailsElement documentation>-newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal }--instance PToJSVal HTMLDetailsElement where-  pToJSVal = unHTMLDetailsElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLDetailsElement where-  pFromJSVal = HTMLDetailsElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLDetailsElement where-  toJSVal = return . unHTMLDetailsElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLDetailsElement where-  fromJSVal v = fmap HTMLDetailsElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLDetailsElement where-  makeObject = makeObject . unHTMLDetailsElement--instance IsHTMLElement HTMLDetailsElement-instance IsElement HTMLDetailsElement-instance IsNode HTMLDetailsElement-instance IsEventTarget HTMLDetailsElement-instance IsGObject HTMLDetailsElement where-  toGObject = GObject . unHTMLDetailsElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLDetailsElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLDetailsElement :: IsGObject obj => obj -> JSM HTMLDetailsElement-castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement"--gTypeHTMLDetailsElement :: JSM GType-gTypeHTMLDetailsElement = GType . Object <$> jsg "HTMLDetailsElement"-#else-type IsHTMLDetailsElement o = HTMLDetailsElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDirectoryElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement Mozilla HTMLDirectoryElement documentation>-newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal }--instance PToJSVal HTMLDirectoryElement where-  pToJSVal = unHTMLDirectoryElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLDirectoryElement where-  pFromJSVal = HTMLDirectoryElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLDirectoryElement where-  toJSVal = return . unHTMLDirectoryElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLDirectoryElement where-  fromJSVal v = fmap HTMLDirectoryElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLDirectoryElement where-  makeObject = makeObject . unHTMLDirectoryElement--instance IsHTMLElement HTMLDirectoryElement-instance IsElement HTMLDirectoryElement-instance IsNode HTMLDirectoryElement-instance IsEventTarget HTMLDirectoryElement-instance IsGObject HTMLDirectoryElement where-  toGObject = GObject . unHTMLDirectoryElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLDirectoryElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLDirectoryElement :: IsGObject obj => obj -> JSM HTMLDirectoryElement-castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement"--gTypeHTMLDirectoryElement :: JSM GType-gTypeHTMLDirectoryElement = GType . Object <$> jsg "HTMLDirectoryElement"-#else-type IsHTMLDirectoryElement o = HTMLDirectoryElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDivElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement Mozilla HTMLDivElement documentation>-newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal }--instance PToJSVal HTMLDivElement where-  pToJSVal = unHTMLDivElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLDivElement where-  pFromJSVal = HTMLDivElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLDivElement where-  toJSVal = return . unHTMLDivElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLDivElement where-  fromJSVal v = fmap HTMLDivElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLDivElement where-  makeObject = makeObject . unHTMLDivElement--instance IsHTMLElement HTMLDivElement-instance IsElement HTMLDivElement-instance IsNode HTMLDivElement-instance IsEventTarget HTMLDivElement-instance IsGObject HTMLDivElement where-  toGObject = GObject . unHTMLDivElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLDivElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLDivElement :: IsGObject obj => obj -> JSM HTMLDivElement-castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement"--gTypeHTMLDivElement :: JSM GType-gTypeHTMLDivElement = GType . Object <$> jsg "HTMLDivElement"-#else-type IsHTMLDivElement o = HTMLDivElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLDocument".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Document"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument Mozilla HTMLDocument documentation>-newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal }--instance PToJSVal HTMLDocument where-  pToJSVal = unHTMLDocument-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLDocument where-  pFromJSVal = HTMLDocument-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLDocument where-  toJSVal = return . unHTMLDocument-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLDocument where-  fromJSVal v = fmap HTMLDocument <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLDocument where-  makeObject = makeObject . unHTMLDocument--instance IsDocument HTMLDocument-instance IsNode HTMLDocument-instance IsEventTarget HTMLDocument-instance IsGObject HTMLDocument where-  toGObject = GObject . unHTMLDocument-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLDocument . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLDocument :: IsGObject obj => obj -> JSM HTMLDocument-castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument"--gTypeHTMLDocument :: JSM GType-gTypeHTMLDocument = GType . Object <$> jsg "HTMLDocument"-#else-type IsHTMLDocument o = HTMLDocumentClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement Mozilla HTMLElement documentation>-newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal }--instance PToJSVal HTMLElement where-  pToJSVal = unHTMLElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLElement where-  pFromJSVal = HTMLElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLElement where-  toJSVal = return . unHTMLElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLElement where-  fromJSVal v = fmap HTMLElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLElement where-  makeObject = makeObject . unHTMLElement--class IsElement o => IsHTMLElement o-toHTMLElement :: IsHTMLElement o => o -> HTMLElement-toHTMLElement = unsafeCastGObject . toGObject--instance IsHTMLElement HTMLElement-instance IsElement HTMLElement-instance IsNode HTMLElement-instance IsEventTarget HTMLElement-instance IsGObject HTMLElement where-  toGObject = GObject . unHTMLElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLElement :: IsGObject obj => obj -> JSM HTMLElement-castToHTMLElement = castTo gTypeHTMLElement "HTMLElement"--gTypeHTMLElement :: JSM GType-gTypeHTMLElement = GType . Object <$> jsg "HTMLElement"-#else-type IsHTMLElement o = HTMLElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLEmbedElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement Mozilla HTMLEmbedElement documentation>-newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal }--instance PToJSVal HTMLEmbedElement where-  pToJSVal = unHTMLEmbedElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLEmbedElement where-  pFromJSVal = HTMLEmbedElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLEmbedElement where-  toJSVal = return . unHTMLEmbedElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLEmbedElement where-  fromJSVal v = fmap HTMLEmbedElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLEmbedElement where-  makeObject = makeObject . unHTMLEmbedElement--instance IsHTMLElement HTMLEmbedElement-instance IsElement HTMLEmbedElement-instance IsNode HTMLEmbedElement-instance IsEventTarget HTMLEmbedElement-instance IsGObject HTMLEmbedElement where-  toGObject = GObject . unHTMLEmbedElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLEmbedElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLEmbedElement :: IsGObject obj => obj -> JSM HTMLEmbedElement-castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement"--gTypeHTMLEmbedElement :: JSM GType-gTypeHTMLEmbedElement = GType . Object <$> jsg "HTMLEmbedElement"-#else-type IsHTMLEmbedElement o = HTMLEmbedElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFieldSetElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement Mozilla HTMLFieldSetElement documentation>-newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal }--instance PToJSVal HTMLFieldSetElement where-  pToJSVal = unHTMLFieldSetElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLFieldSetElement where-  pFromJSVal = HTMLFieldSetElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLFieldSetElement where-  toJSVal = return . unHTMLFieldSetElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLFieldSetElement where-  fromJSVal v = fmap HTMLFieldSetElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLFieldSetElement where-  makeObject = makeObject . unHTMLFieldSetElement--instance IsHTMLElement HTMLFieldSetElement-instance IsElement HTMLFieldSetElement-instance IsNode HTMLFieldSetElement-instance IsEventTarget HTMLFieldSetElement-instance IsGObject HTMLFieldSetElement where-  toGObject = GObject . unHTMLFieldSetElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLFieldSetElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLFieldSetElement :: IsGObject obj => obj -> JSM HTMLFieldSetElement-castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement"--gTypeHTMLFieldSetElement :: JSM GType-gTypeHTMLFieldSetElement = GType . Object <$> jsg "HTMLFieldSetElement"-#else-type IsHTMLFieldSetElement o = HTMLFieldSetElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFontElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement Mozilla HTMLFontElement documentation>-newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal }--instance PToJSVal HTMLFontElement where-  pToJSVal = unHTMLFontElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLFontElement where-  pFromJSVal = HTMLFontElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLFontElement where-  toJSVal = return . unHTMLFontElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLFontElement where-  fromJSVal v = fmap HTMLFontElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLFontElement where-  makeObject = makeObject . unHTMLFontElement--instance IsHTMLElement HTMLFontElement-instance IsElement HTMLFontElement-instance IsNode HTMLFontElement-instance IsEventTarget HTMLFontElement-instance IsGObject HTMLFontElement where-  toGObject = GObject . unHTMLFontElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLFontElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLFontElement :: IsGObject obj => obj -> JSM HTMLFontElement-castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement"--gTypeHTMLFontElement :: JSM GType-gTypeHTMLFontElement = GType . Object <$> jsg "HTMLFontElement"-#else-type IsHTMLFontElement o = HTMLFontElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFormControlsCollection".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLCollection"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection Mozilla HTMLFormControlsCollection documentation>-newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal }--instance PToJSVal HTMLFormControlsCollection where-  pToJSVal = unHTMLFormControlsCollection-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLFormControlsCollection where-  pFromJSVal = HTMLFormControlsCollection-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLFormControlsCollection where-  toJSVal = return . unHTMLFormControlsCollection-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLFormControlsCollection where-  fromJSVal v = fmap HTMLFormControlsCollection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLFormControlsCollection where-  makeObject = makeObject . unHTMLFormControlsCollection--instance IsHTMLCollection HTMLFormControlsCollection-instance IsGObject HTMLFormControlsCollection where-  toGObject = GObject . unHTMLFormControlsCollection-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLFormControlsCollection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLFormControlsCollection :: IsGObject obj => obj -> JSM HTMLFormControlsCollection-castToHTMLFormControlsCollection = castTo gTypeHTMLFormControlsCollection "HTMLFormControlsCollection"--gTypeHTMLFormControlsCollection :: JSM GType-gTypeHTMLFormControlsCollection = GType . Object <$> jsg "HTMLFormControlsCollection"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFormElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement Mozilla HTMLFormElement documentation>-newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal }--instance PToJSVal HTMLFormElement where-  pToJSVal = unHTMLFormElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLFormElement where-  pFromJSVal = HTMLFormElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLFormElement where-  toJSVal = return . unHTMLFormElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLFormElement where-  fromJSVal v = fmap HTMLFormElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLFormElement where-  makeObject = makeObject . unHTMLFormElement--instance IsHTMLElement HTMLFormElement-instance IsElement HTMLFormElement-instance IsNode HTMLFormElement-instance IsEventTarget HTMLFormElement-instance IsGObject HTMLFormElement where-  toGObject = GObject . unHTMLFormElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLFormElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLFormElement :: IsGObject obj => obj -> JSM HTMLFormElement-castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement"--gTypeHTMLFormElement :: JSM GType-gTypeHTMLFormElement = GType . Object <$> jsg "HTMLFormElement"-#else-type IsHTMLFormElement o = HTMLFormElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFrameElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement Mozilla HTMLFrameElement documentation>-newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal }--instance PToJSVal HTMLFrameElement where-  pToJSVal = unHTMLFrameElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLFrameElement where-  pFromJSVal = HTMLFrameElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLFrameElement where-  toJSVal = return . unHTMLFrameElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLFrameElement where-  fromJSVal v = fmap HTMLFrameElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLFrameElement where-  makeObject = makeObject . unHTMLFrameElement--instance IsHTMLElement HTMLFrameElement-instance IsElement HTMLFrameElement-instance IsNode HTMLFrameElement-instance IsEventTarget HTMLFrameElement-instance IsGObject HTMLFrameElement where-  toGObject = GObject . unHTMLFrameElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLFrameElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLFrameElement :: IsGObject obj => obj -> JSM HTMLFrameElement-castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement"--gTypeHTMLFrameElement :: JSM GType-gTypeHTMLFrameElement = GType . Object <$> jsg "HTMLFrameElement"-#else-type IsHTMLFrameElement o = HTMLFrameElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLFrameSetElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement Mozilla HTMLFrameSetElement documentation>-newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal }--instance PToJSVal HTMLFrameSetElement where-  pToJSVal = unHTMLFrameSetElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLFrameSetElement where-  pFromJSVal = HTMLFrameSetElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLFrameSetElement where-  toJSVal = return . unHTMLFrameSetElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLFrameSetElement where-  fromJSVal v = fmap HTMLFrameSetElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLFrameSetElement where-  makeObject = makeObject . unHTMLFrameSetElement--instance IsHTMLElement HTMLFrameSetElement-instance IsElement HTMLFrameSetElement-instance IsNode HTMLFrameSetElement-instance IsEventTarget HTMLFrameSetElement-instance IsGObject HTMLFrameSetElement where-  toGObject = GObject . unHTMLFrameSetElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLFrameSetElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLFrameSetElement :: IsGObject obj => obj -> JSM HTMLFrameSetElement-castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement"--gTypeHTMLFrameSetElement :: JSM GType-gTypeHTMLFrameSetElement = GType . Object <$> jsg "HTMLFrameSetElement"-#else-type IsHTMLFrameSetElement o = HTMLFrameSetElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHRElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement Mozilla HTMLHRElement documentation>-newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal }--instance PToJSVal HTMLHRElement where-  pToJSVal = unHTMLHRElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLHRElement where-  pFromJSVal = HTMLHRElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLHRElement where-  toJSVal = return . unHTMLHRElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLHRElement where-  fromJSVal v = fmap HTMLHRElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLHRElement where-  makeObject = makeObject . unHTMLHRElement--instance IsHTMLElement HTMLHRElement-instance IsElement HTMLHRElement-instance IsNode HTMLHRElement-instance IsEventTarget HTMLHRElement-instance IsGObject HTMLHRElement where-  toGObject = GObject . unHTMLHRElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLHRElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLHRElement :: IsGObject obj => obj -> JSM HTMLHRElement-castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement"--gTypeHTMLHRElement :: JSM GType-gTypeHTMLHRElement = GType . Object <$> jsg "HTMLHRElement"-#else-type IsHTMLHRElement o = HTMLHRElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHeadElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement Mozilla HTMLHeadElement documentation>-newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal }--instance PToJSVal HTMLHeadElement where-  pToJSVal = unHTMLHeadElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLHeadElement where-  pFromJSVal = HTMLHeadElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLHeadElement where-  toJSVal = return . unHTMLHeadElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLHeadElement where-  fromJSVal v = fmap HTMLHeadElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLHeadElement where-  makeObject = makeObject . unHTMLHeadElement--instance IsHTMLElement HTMLHeadElement-instance IsElement HTMLHeadElement-instance IsNode HTMLHeadElement-instance IsEventTarget HTMLHeadElement-instance IsGObject HTMLHeadElement where-  toGObject = GObject . unHTMLHeadElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLHeadElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLHeadElement :: IsGObject obj => obj -> JSM HTMLHeadElement-castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement"--gTypeHTMLHeadElement :: JSM GType-gTypeHTMLHeadElement = GType . Object <$> jsg "HTMLHeadElement"-#else-type IsHTMLHeadElement o = HTMLHeadElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHeadingElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement Mozilla HTMLHeadingElement documentation>-newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal }--instance PToJSVal HTMLHeadingElement where-  pToJSVal = unHTMLHeadingElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLHeadingElement where-  pFromJSVal = HTMLHeadingElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLHeadingElement where-  toJSVal = return . unHTMLHeadingElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLHeadingElement where-  fromJSVal v = fmap HTMLHeadingElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLHeadingElement where-  makeObject = makeObject . unHTMLHeadingElement--instance IsHTMLElement HTMLHeadingElement-instance IsElement HTMLHeadingElement-instance IsNode HTMLHeadingElement-instance IsEventTarget HTMLHeadingElement-instance IsGObject HTMLHeadingElement where-  toGObject = GObject . unHTMLHeadingElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLHeadingElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLHeadingElement :: IsGObject obj => obj -> JSM HTMLHeadingElement-castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement"--gTypeHTMLHeadingElement :: JSM GType-gTypeHTMLHeadingElement = GType . Object <$> jsg "HTMLHeadingElement"-#else-type IsHTMLHeadingElement o = HTMLHeadingElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLHtmlElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement Mozilla HTMLHtmlElement documentation>-newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal }--instance PToJSVal HTMLHtmlElement where-  pToJSVal = unHTMLHtmlElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLHtmlElement where-  pFromJSVal = HTMLHtmlElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLHtmlElement where-  toJSVal = return . unHTMLHtmlElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLHtmlElement where-  fromJSVal v = fmap HTMLHtmlElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLHtmlElement where-  makeObject = makeObject . unHTMLHtmlElement--instance IsHTMLElement HTMLHtmlElement-instance IsElement HTMLHtmlElement-instance IsNode HTMLHtmlElement-instance IsEventTarget HTMLHtmlElement-instance IsGObject HTMLHtmlElement where-  toGObject = GObject . unHTMLHtmlElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLHtmlElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLHtmlElement :: IsGObject obj => obj -> JSM HTMLHtmlElement-castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement"--gTypeHTMLHtmlElement :: JSM GType-gTypeHTMLHtmlElement = GType . Object <$> jsg "HTMLHtmlElement"-#else-type IsHTMLHtmlElement o = HTMLHtmlElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLIFrameElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement Mozilla HTMLIFrameElement documentation>-newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal }--instance PToJSVal HTMLIFrameElement where-  pToJSVal = unHTMLIFrameElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLIFrameElement where-  pFromJSVal = HTMLIFrameElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLIFrameElement where-  toJSVal = return . unHTMLIFrameElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLIFrameElement where-  fromJSVal v = fmap HTMLIFrameElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLIFrameElement where-  makeObject = makeObject . unHTMLIFrameElement--instance IsHTMLElement HTMLIFrameElement-instance IsElement HTMLIFrameElement-instance IsNode HTMLIFrameElement-instance IsEventTarget HTMLIFrameElement-instance IsGObject HTMLIFrameElement where-  toGObject = GObject . unHTMLIFrameElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLIFrameElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLIFrameElement :: IsGObject obj => obj -> JSM HTMLIFrameElement-castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement"--gTypeHTMLIFrameElement :: JSM GType-gTypeHTMLIFrameElement = GType . Object <$> jsg "HTMLIFrameElement"-#else-type IsHTMLIFrameElement o = HTMLIFrameElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLImageElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement Mozilla HTMLImageElement documentation>-newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal }--instance PToJSVal HTMLImageElement where-  pToJSVal = unHTMLImageElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLImageElement where-  pFromJSVal = HTMLImageElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLImageElement where-  toJSVal = return . unHTMLImageElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLImageElement where-  fromJSVal v = fmap HTMLImageElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLImageElement where-  makeObject = makeObject . unHTMLImageElement--instance IsHTMLElement HTMLImageElement-instance IsElement HTMLImageElement-instance IsNode HTMLImageElement-instance IsEventTarget HTMLImageElement-instance IsGObject HTMLImageElement where-  toGObject = GObject . unHTMLImageElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLImageElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLImageElement :: IsGObject obj => obj -> JSM HTMLImageElement-castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement"--gTypeHTMLImageElement :: JSM GType-gTypeHTMLImageElement = GType . Object <$> jsg "HTMLImageElement"-#else-type IsHTMLImageElement o = HTMLImageElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLInputElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement Mozilla HTMLInputElement documentation>-newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal }--instance PToJSVal HTMLInputElement where-  pToJSVal = unHTMLInputElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLInputElement where-  pFromJSVal = HTMLInputElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLInputElement where-  toJSVal = return . unHTMLInputElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLInputElement where-  fromJSVal v = fmap HTMLInputElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLInputElement where-  makeObject = makeObject . unHTMLInputElement--instance IsHTMLElement HTMLInputElement-instance IsElement HTMLInputElement-instance IsNode HTMLInputElement-instance IsEventTarget HTMLInputElement-instance IsGObject HTMLInputElement where-  toGObject = GObject . unHTMLInputElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLInputElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLInputElement :: IsGObject obj => obj -> JSM HTMLInputElement-castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement"--gTypeHTMLInputElement :: JSM GType-gTypeHTMLInputElement = GType . Object <$> jsg "HTMLInputElement"-#else-type IsHTMLInputElement o = HTMLInputElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLKeygenElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement Mozilla HTMLKeygenElement documentation>-newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal }--instance PToJSVal HTMLKeygenElement where-  pToJSVal = unHTMLKeygenElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLKeygenElement where-  pFromJSVal = HTMLKeygenElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLKeygenElement where-  toJSVal = return . unHTMLKeygenElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLKeygenElement where-  fromJSVal v = fmap HTMLKeygenElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLKeygenElement where-  makeObject = makeObject . unHTMLKeygenElement--instance IsHTMLElement HTMLKeygenElement-instance IsElement HTMLKeygenElement-instance IsNode HTMLKeygenElement-instance IsEventTarget HTMLKeygenElement-instance IsGObject HTMLKeygenElement where-  toGObject = GObject . unHTMLKeygenElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLKeygenElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLKeygenElement :: IsGObject obj => obj -> JSM HTMLKeygenElement-castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement"--gTypeHTMLKeygenElement :: JSM GType-gTypeHTMLKeygenElement = GType . Object <$> jsg "HTMLKeygenElement"-#else-type IsHTMLKeygenElement o = HTMLKeygenElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLIElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement Mozilla HTMLLIElement documentation>-newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal }--instance PToJSVal HTMLLIElement where-  pToJSVal = unHTMLLIElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLLIElement where-  pFromJSVal = HTMLLIElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLLIElement where-  toJSVal = return . unHTMLLIElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLLIElement where-  fromJSVal v = fmap HTMLLIElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLLIElement where-  makeObject = makeObject . unHTMLLIElement--instance IsHTMLElement HTMLLIElement-instance IsElement HTMLLIElement-instance IsNode HTMLLIElement-instance IsEventTarget HTMLLIElement-instance IsGObject HTMLLIElement where-  toGObject = GObject . unHTMLLIElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLLIElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLLIElement :: IsGObject obj => obj -> JSM HTMLLIElement-castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement"--gTypeHTMLLIElement :: JSM GType-gTypeHTMLLIElement = GType . Object <$> jsg "HTMLLIElement"-#else-type IsHTMLLIElement o = HTMLLIElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLabelElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement Mozilla HTMLLabelElement documentation>-newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal }--instance PToJSVal HTMLLabelElement where-  pToJSVal = unHTMLLabelElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLLabelElement where-  pFromJSVal = HTMLLabelElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLLabelElement where-  toJSVal = return . unHTMLLabelElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLLabelElement where-  fromJSVal v = fmap HTMLLabelElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLLabelElement where-  makeObject = makeObject . unHTMLLabelElement--instance IsHTMLElement HTMLLabelElement-instance IsElement HTMLLabelElement-instance IsNode HTMLLabelElement-instance IsEventTarget HTMLLabelElement-instance IsGObject HTMLLabelElement where-  toGObject = GObject . unHTMLLabelElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLLabelElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLLabelElement :: IsGObject obj => obj -> JSM HTMLLabelElement-castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement"--gTypeHTMLLabelElement :: JSM GType-gTypeHTMLLabelElement = GType . Object <$> jsg "HTMLLabelElement"-#else-type IsHTMLLabelElement o = HTMLLabelElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLegendElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement Mozilla HTMLLegendElement documentation>-newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal }--instance PToJSVal HTMLLegendElement where-  pToJSVal = unHTMLLegendElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLLegendElement where-  pFromJSVal = HTMLLegendElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLLegendElement where-  toJSVal = return . unHTMLLegendElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLLegendElement where-  fromJSVal v = fmap HTMLLegendElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLLegendElement where-  makeObject = makeObject . unHTMLLegendElement--instance IsHTMLElement HTMLLegendElement-instance IsElement HTMLLegendElement-instance IsNode HTMLLegendElement-instance IsEventTarget HTMLLegendElement-instance IsGObject HTMLLegendElement where-  toGObject = GObject . unHTMLLegendElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLLegendElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLLegendElement :: IsGObject obj => obj -> JSM HTMLLegendElement-castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement"--gTypeHTMLLegendElement :: JSM GType-gTypeHTMLLegendElement = GType . Object <$> jsg "HTMLLegendElement"-#else-type IsHTMLLegendElement o = HTMLLegendElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLLinkElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement Mozilla HTMLLinkElement documentation>-newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal }--instance PToJSVal HTMLLinkElement where-  pToJSVal = unHTMLLinkElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLLinkElement where-  pFromJSVal = HTMLLinkElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLLinkElement where-  toJSVal = return . unHTMLLinkElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLLinkElement where-  fromJSVal v = fmap HTMLLinkElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLLinkElement where-  makeObject = makeObject . unHTMLLinkElement--instance IsHTMLElement HTMLLinkElement-instance IsElement HTMLLinkElement-instance IsNode HTMLLinkElement-instance IsEventTarget HTMLLinkElement-instance IsGObject HTMLLinkElement where-  toGObject = GObject . unHTMLLinkElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLLinkElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLLinkElement :: IsGObject obj => obj -> JSM HTMLLinkElement-castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement"--gTypeHTMLLinkElement :: JSM GType-gTypeHTMLLinkElement = GType . Object <$> jsg "HTMLLinkElement"-#else-type IsHTMLLinkElement o = HTMLLinkElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMapElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement Mozilla HTMLMapElement documentation>-newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal }--instance PToJSVal HTMLMapElement where-  pToJSVal = unHTMLMapElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLMapElement where-  pFromJSVal = HTMLMapElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLMapElement where-  toJSVal = return . unHTMLMapElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLMapElement where-  fromJSVal v = fmap HTMLMapElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLMapElement where-  makeObject = makeObject . unHTMLMapElement--instance IsHTMLElement HTMLMapElement-instance IsElement HTMLMapElement-instance IsNode HTMLMapElement-instance IsEventTarget HTMLMapElement-instance IsGObject HTMLMapElement where-  toGObject = GObject . unHTMLMapElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLMapElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLMapElement :: IsGObject obj => obj -> JSM HTMLMapElement-castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement"--gTypeHTMLMapElement :: JSM GType-gTypeHTMLMapElement = GType . Object <$> jsg "HTMLMapElement"-#else-type IsHTMLMapElement o = HTMLMapElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMarqueeElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement Mozilla HTMLMarqueeElement documentation>-newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal }--instance PToJSVal HTMLMarqueeElement where-  pToJSVal = unHTMLMarqueeElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLMarqueeElement where-  pFromJSVal = HTMLMarqueeElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLMarqueeElement where-  toJSVal = return . unHTMLMarqueeElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLMarqueeElement where-  fromJSVal v = fmap HTMLMarqueeElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLMarqueeElement where-  makeObject = makeObject . unHTMLMarqueeElement--instance IsHTMLElement HTMLMarqueeElement-instance IsElement HTMLMarqueeElement-instance IsNode HTMLMarqueeElement-instance IsEventTarget HTMLMarqueeElement-instance IsGObject HTMLMarqueeElement where-  toGObject = GObject . unHTMLMarqueeElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLMarqueeElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLMarqueeElement :: IsGObject obj => obj -> JSM HTMLMarqueeElement-castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement"--gTypeHTMLMarqueeElement :: JSM GType-gTypeHTMLMarqueeElement = GType . Object <$> jsg "HTMLMarqueeElement"-#else-type IsHTMLMarqueeElement o = HTMLMarqueeElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMediaElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement Mozilla HTMLMediaElement documentation>-newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal }--instance PToJSVal HTMLMediaElement where-  pToJSVal = unHTMLMediaElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLMediaElement where-  pFromJSVal = HTMLMediaElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLMediaElement where-  toJSVal = return . unHTMLMediaElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLMediaElement where-  fromJSVal v = fmap HTMLMediaElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLMediaElement where-  makeObject = makeObject . unHTMLMediaElement--class IsHTMLElement o => IsHTMLMediaElement o-toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement-toHTMLMediaElement = unsafeCastGObject . toGObject--instance IsHTMLMediaElement HTMLMediaElement-instance IsHTMLElement HTMLMediaElement-instance IsElement HTMLMediaElement-instance IsNode HTMLMediaElement-instance IsEventTarget HTMLMediaElement-instance IsGObject HTMLMediaElement where-  toGObject = GObject . unHTMLMediaElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLMediaElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLMediaElement :: IsGObject obj => obj -> JSM HTMLMediaElement-castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement"--gTypeHTMLMediaElement :: JSM GType-gTypeHTMLMediaElement = GType . Object <$> jsg "HTMLMediaElement"-#else-type IsHTMLMediaElement o = HTMLMediaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMenuElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement Mozilla HTMLMenuElement documentation>-newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal }--instance PToJSVal HTMLMenuElement where-  pToJSVal = unHTMLMenuElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLMenuElement where-  pFromJSVal = HTMLMenuElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLMenuElement where-  toJSVal = return . unHTMLMenuElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLMenuElement where-  fromJSVal v = fmap HTMLMenuElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLMenuElement where-  makeObject = makeObject . unHTMLMenuElement--instance IsHTMLElement HTMLMenuElement-instance IsElement HTMLMenuElement-instance IsNode HTMLMenuElement-instance IsEventTarget HTMLMenuElement-instance IsGObject HTMLMenuElement where-  toGObject = GObject . unHTMLMenuElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLMenuElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLMenuElement :: IsGObject obj => obj -> JSM HTMLMenuElement-castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement"--gTypeHTMLMenuElement :: JSM GType-gTypeHTMLMenuElement = GType . Object <$> jsg "HTMLMenuElement"-#else-type IsHTMLMenuElement o = HTMLMenuElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMetaElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement Mozilla HTMLMetaElement documentation>-newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal }--instance PToJSVal HTMLMetaElement where-  pToJSVal = unHTMLMetaElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLMetaElement where-  pFromJSVal = HTMLMetaElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLMetaElement where-  toJSVal = return . unHTMLMetaElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLMetaElement where-  fromJSVal v = fmap HTMLMetaElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLMetaElement where-  makeObject = makeObject . unHTMLMetaElement--instance IsHTMLElement HTMLMetaElement-instance IsElement HTMLMetaElement-instance IsNode HTMLMetaElement-instance IsEventTarget HTMLMetaElement-instance IsGObject HTMLMetaElement where-  toGObject = GObject . unHTMLMetaElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLMetaElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLMetaElement :: IsGObject obj => obj -> JSM HTMLMetaElement-castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement"--gTypeHTMLMetaElement :: JSM GType-gTypeHTMLMetaElement = GType . Object <$> jsg "HTMLMetaElement"-#else-type IsHTMLMetaElement o = HTMLMetaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLMeterElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement Mozilla HTMLMeterElement documentation>-newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal }--instance PToJSVal HTMLMeterElement where-  pToJSVal = unHTMLMeterElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLMeterElement where-  pFromJSVal = HTMLMeterElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLMeterElement where-  toJSVal = return . unHTMLMeterElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLMeterElement where-  fromJSVal v = fmap HTMLMeterElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLMeterElement where-  makeObject = makeObject . unHTMLMeterElement--instance IsHTMLElement HTMLMeterElement-instance IsElement HTMLMeterElement-instance IsNode HTMLMeterElement-instance IsEventTarget HTMLMeterElement-instance IsGObject HTMLMeterElement where-  toGObject = GObject . unHTMLMeterElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLMeterElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLMeterElement :: IsGObject obj => obj -> JSM HTMLMeterElement-castToHTMLMeterElement = castTo gTypeHTMLMeterElement "HTMLMeterElement"--gTypeHTMLMeterElement :: JSM GType-gTypeHTMLMeterElement = GType . Object <$> jsg "HTMLMeterElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLModElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement Mozilla HTMLModElement documentation>-newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal }--instance PToJSVal HTMLModElement where-  pToJSVal = unHTMLModElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLModElement where-  pFromJSVal = HTMLModElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLModElement where-  toJSVal = return . unHTMLModElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLModElement where-  fromJSVal v = fmap HTMLModElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLModElement where-  makeObject = makeObject . unHTMLModElement--instance IsHTMLElement HTMLModElement-instance IsElement HTMLModElement-instance IsNode HTMLModElement-instance IsEventTarget HTMLModElement-instance IsGObject HTMLModElement where-  toGObject = GObject . unHTMLModElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLModElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLModElement :: IsGObject obj => obj -> JSM HTMLModElement-castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement"--gTypeHTMLModElement :: JSM GType-gTypeHTMLModElement = GType . Object <$> jsg "HTMLModElement"-#else-type IsHTMLModElement o = HTMLModElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOListElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement Mozilla HTMLOListElement documentation>-newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal }--instance PToJSVal HTMLOListElement where-  pToJSVal = unHTMLOListElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLOListElement where-  pFromJSVal = HTMLOListElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLOListElement where-  toJSVal = return . unHTMLOListElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLOListElement where-  fromJSVal v = fmap HTMLOListElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLOListElement where-  makeObject = makeObject . unHTMLOListElement--instance IsHTMLElement HTMLOListElement-instance IsElement HTMLOListElement-instance IsNode HTMLOListElement-instance IsEventTarget HTMLOListElement-instance IsGObject HTMLOListElement where-  toGObject = GObject . unHTMLOListElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLOListElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLOListElement :: IsGObject obj => obj -> JSM HTMLOListElement-castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement"--gTypeHTMLOListElement :: JSM GType-gTypeHTMLOListElement = GType . Object <$> jsg "HTMLOListElement"-#else-type IsHTMLOListElement o = HTMLOListElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLObjectElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement Mozilla HTMLObjectElement documentation>-newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal }--instance PToJSVal HTMLObjectElement where-  pToJSVal = unHTMLObjectElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLObjectElement where-  pFromJSVal = HTMLObjectElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLObjectElement where-  toJSVal = return . unHTMLObjectElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLObjectElement where-  fromJSVal v = fmap HTMLObjectElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLObjectElement where-  makeObject = makeObject . unHTMLObjectElement--instance IsHTMLElement HTMLObjectElement-instance IsElement HTMLObjectElement-instance IsNode HTMLObjectElement-instance IsEventTarget HTMLObjectElement-instance IsGObject HTMLObjectElement where-  toGObject = GObject . unHTMLObjectElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLObjectElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLObjectElement :: IsGObject obj => obj -> JSM HTMLObjectElement-castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement"--gTypeHTMLObjectElement :: JSM GType-gTypeHTMLObjectElement = GType . Object <$> jsg "HTMLObjectElement"-#else-type IsHTMLObjectElement o = HTMLObjectElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOptGroupElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement Mozilla HTMLOptGroupElement documentation>-newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal }--instance PToJSVal HTMLOptGroupElement where-  pToJSVal = unHTMLOptGroupElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLOptGroupElement where-  pFromJSVal = HTMLOptGroupElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLOptGroupElement where-  toJSVal = return . unHTMLOptGroupElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLOptGroupElement where-  fromJSVal v = fmap HTMLOptGroupElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLOptGroupElement where-  makeObject = makeObject . unHTMLOptGroupElement--instance IsHTMLElement HTMLOptGroupElement-instance IsElement HTMLOptGroupElement-instance IsNode HTMLOptGroupElement-instance IsEventTarget HTMLOptGroupElement-instance IsGObject HTMLOptGroupElement where-  toGObject = GObject . unHTMLOptGroupElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLOptGroupElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLOptGroupElement :: IsGObject obj => obj -> JSM HTMLOptGroupElement-castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement"--gTypeHTMLOptGroupElement :: JSM GType-gTypeHTMLOptGroupElement = GType . Object <$> jsg "HTMLOptGroupElement"-#else-type IsHTMLOptGroupElement o = HTMLOptGroupElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOptionElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement Mozilla HTMLOptionElement documentation>-newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal }--instance PToJSVal HTMLOptionElement where-  pToJSVal = unHTMLOptionElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLOptionElement where-  pFromJSVal = HTMLOptionElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLOptionElement where-  toJSVal = return . unHTMLOptionElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLOptionElement where-  fromJSVal v = fmap HTMLOptionElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLOptionElement where-  makeObject = makeObject . unHTMLOptionElement--instance IsHTMLElement HTMLOptionElement-instance IsElement HTMLOptionElement-instance IsNode HTMLOptionElement-instance IsEventTarget HTMLOptionElement-instance IsGObject HTMLOptionElement where-  toGObject = GObject . unHTMLOptionElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLOptionElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLOptionElement :: IsGObject obj => obj -> JSM HTMLOptionElement-castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement"--gTypeHTMLOptionElement :: JSM GType-gTypeHTMLOptionElement = GType . Object <$> jsg "HTMLOptionElement"-#else-type IsHTMLOptionElement o = HTMLOptionElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOptionsCollection".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLCollection"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection Mozilla HTMLOptionsCollection documentation>-newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal }--instance PToJSVal HTMLOptionsCollection where-  pToJSVal = unHTMLOptionsCollection-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLOptionsCollection where-  pFromJSVal = HTMLOptionsCollection-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLOptionsCollection where-  toJSVal = return . unHTMLOptionsCollection-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLOptionsCollection where-  fromJSVal v = fmap HTMLOptionsCollection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLOptionsCollection where-  makeObject = makeObject . unHTMLOptionsCollection--instance IsHTMLCollection HTMLOptionsCollection-instance IsGObject HTMLOptionsCollection where-  toGObject = GObject . unHTMLOptionsCollection-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLOptionsCollection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLOptionsCollection :: IsGObject obj => obj -> JSM HTMLOptionsCollection-castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection"--gTypeHTMLOptionsCollection :: JSM GType-gTypeHTMLOptionsCollection = GType . Object <$> jsg "HTMLOptionsCollection"-#else-type IsHTMLOptionsCollection o = HTMLOptionsCollectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLOutputElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement Mozilla HTMLOutputElement documentation>-newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal }--instance PToJSVal HTMLOutputElement where-  pToJSVal = unHTMLOutputElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLOutputElement where-  pFromJSVal = HTMLOutputElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLOutputElement where-  toJSVal = return . unHTMLOutputElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLOutputElement where-  fromJSVal v = fmap HTMLOutputElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLOutputElement where-  makeObject = makeObject . unHTMLOutputElement--instance IsHTMLElement HTMLOutputElement-instance IsElement HTMLOutputElement-instance IsNode HTMLOutputElement-instance IsEventTarget HTMLOutputElement-instance IsGObject HTMLOutputElement where-  toGObject = GObject . unHTMLOutputElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLOutputElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLOutputElement :: IsGObject obj => obj -> JSM HTMLOutputElement-castToHTMLOutputElement = castTo gTypeHTMLOutputElement "HTMLOutputElement"--gTypeHTMLOutputElement :: JSM GType-gTypeHTMLOutputElement = GType . Object <$> jsg "HTMLOutputElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLParagraphElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement Mozilla HTMLParagraphElement documentation>-newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal }--instance PToJSVal HTMLParagraphElement where-  pToJSVal = unHTMLParagraphElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLParagraphElement where-  pFromJSVal = HTMLParagraphElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLParagraphElement where-  toJSVal = return . unHTMLParagraphElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLParagraphElement where-  fromJSVal v = fmap HTMLParagraphElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLParagraphElement where-  makeObject = makeObject . unHTMLParagraphElement--instance IsHTMLElement HTMLParagraphElement-instance IsElement HTMLParagraphElement-instance IsNode HTMLParagraphElement-instance IsEventTarget HTMLParagraphElement-instance IsGObject HTMLParagraphElement where-  toGObject = GObject . unHTMLParagraphElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLParagraphElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLParagraphElement :: IsGObject obj => obj -> JSM HTMLParagraphElement-castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement"--gTypeHTMLParagraphElement :: JSM GType-gTypeHTMLParagraphElement = GType . Object <$> jsg "HTMLParagraphElement"-#else-type IsHTMLParagraphElement o = HTMLParagraphElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLParamElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement Mozilla HTMLParamElement documentation>-newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal }--instance PToJSVal HTMLParamElement where-  pToJSVal = unHTMLParamElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLParamElement where-  pFromJSVal = HTMLParamElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLParamElement where-  toJSVal = return . unHTMLParamElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLParamElement where-  fromJSVal v = fmap HTMLParamElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLParamElement where-  makeObject = makeObject . unHTMLParamElement--instance IsHTMLElement HTMLParamElement-instance IsElement HTMLParamElement-instance IsNode HTMLParamElement-instance IsEventTarget HTMLParamElement-instance IsGObject HTMLParamElement where-  toGObject = GObject . unHTMLParamElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLParamElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLParamElement :: IsGObject obj => obj -> JSM HTMLParamElement-castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement"--gTypeHTMLParamElement :: JSM GType-gTypeHTMLParamElement = GType . Object <$> jsg "HTMLParamElement"-#else-type IsHTMLParamElement o = HTMLParamElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLPreElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement Mozilla HTMLPreElement documentation>-newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal }--instance PToJSVal HTMLPreElement where-  pToJSVal = unHTMLPreElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLPreElement where-  pFromJSVal = HTMLPreElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLPreElement where-  toJSVal = return . unHTMLPreElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLPreElement where-  fromJSVal v = fmap HTMLPreElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLPreElement where-  makeObject = makeObject . unHTMLPreElement--instance IsHTMLElement HTMLPreElement-instance IsElement HTMLPreElement-instance IsNode HTMLPreElement-instance IsEventTarget HTMLPreElement-instance IsGObject HTMLPreElement where-  toGObject = GObject . unHTMLPreElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLPreElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLPreElement :: IsGObject obj => obj -> JSM HTMLPreElement-castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement"--gTypeHTMLPreElement :: JSM GType-gTypeHTMLPreElement = GType . Object <$> jsg "HTMLPreElement"-#else-type IsHTMLPreElement o = HTMLPreElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLProgressElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement Mozilla HTMLProgressElement documentation>-newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal }--instance PToJSVal HTMLProgressElement where-  pToJSVal = unHTMLProgressElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLProgressElement where-  pFromJSVal = HTMLProgressElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLProgressElement where-  toJSVal = return . unHTMLProgressElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLProgressElement where-  fromJSVal v = fmap HTMLProgressElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLProgressElement where-  makeObject = makeObject . unHTMLProgressElement--instance IsHTMLElement HTMLProgressElement-instance IsElement HTMLProgressElement-instance IsNode HTMLProgressElement-instance IsEventTarget HTMLProgressElement-instance IsGObject HTMLProgressElement where-  toGObject = GObject . unHTMLProgressElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLProgressElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLProgressElement :: IsGObject obj => obj -> JSM HTMLProgressElement-castToHTMLProgressElement = castTo gTypeHTMLProgressElement "HTMLProgressElement"--gTypeHTMLProgressElement :: JSM GType-gTypeHTMLProgressElement = GType . Object <$> jsg "HTMLProgressElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLQuoteElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement Mozilla HTMLQuoteElement documentation>-newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal }--instance PToJSVal HTMLQuoteElement where-  pToJSVal = unHTMLQuoteElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLQuoteElement where-  pFromJSVal = HTMLQuoteElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLQuoteElement where-  toJSVal = return . unHTMLQuoteElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLQuoteElement where-  fromJSVal v = fmap HTMLQuoteElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLQuoteElement where-  makeObject = makeObject . unHTMLQuoteElement--instance IsHTMLElement HTMLQuoteElement-instance IsElement HTMLQuoteElement-instance IsNode HTMLQuoteElement-instance IsEventTarget HTMLQuoteElement-instance IsGObject HTMLQuoteElement where-  toGObject = GObject . unHTMLQuoteElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLQuoteElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLQuoteElement :: IsGObject obj => obj -> JSM HTMLQuoteElement-castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement"--gTypeHTMLQuoteElement :: JSM GType-gTypeHTMLQuoteElement = GType . Object <$> jsg "HTMLQuoteElement"-#else-type IsHTMLQuoteElement o = HTMLQuoteElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLScriptElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement Mozilla HTMLScriptElement documentation>-newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal }--instance PToJSVal HTMLScriptElement where-  pToJSVal = unHTMLScriptElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLScriptElement where-  pFromJSVal = HTMLScriptElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLScriptElement where-  toJSVal = return . unHTMLScriptElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLScriptElement where-  fromJSVal v = fmap HTMLScriptElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLScriptElement where-  makeObject = makeObject . unHTMLScriptElement--instance IsHTMLElement HTMLScriptElement-instance IsElement HTMLScriptElement-instance IsNode HTMLScriptElement-instance IsEventTarget HTMLScriptElement-instance IsGObject HTMLScriptElement where-  toGObject = GObject . unHTMLScriptElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLScriptElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLScriptElement :: IsGObject obj => obj -> JSM HTMLScriptElement-castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement"--gTypeHTMLScriptElement :: JSM GType-gTypeHTMLScriptElement = GType . Object <$> jsg "HTMLScriptElement"-#else-type IsHTMLScriptElement o = HTMLScriptElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLSelectElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement Mozilla HTMLSelectElement documentation>-newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal }--instance PToJSVal HTMLSelectElement where-  pToJSVal = unHTMLSelectElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLSelectElement where-  pFromJSVal = HTMLSelectElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLSelectElement where-  toJSVal = return . unHTMLSelectElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLSelectElement where-  fromJSVal v = fmap HTMLSelectElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLSelectElement where-  makeObject = makeObject . unHTMLSelectElement--instance IsHTMLElement HTMLSelectElement-instance IsElement HTMLSelectElement-instance IsNode HTMLSelectElement-instance IsEventTarget HTMLSelectElement-instance IsGObject HTMLSelectElement where-  toGObject = GObject . unHTMLSelectElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLSelectElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLSelectElement :: IsGObject obj => obj -> JSM HTMLSelectElement-castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement"--gTypeHTMLSelectElement :: JSM GType-gTypeHTMLSelectElement = GType . Object <$> jsg "HTMLSelectElement"-#else-type IsHTMLSelectElement o = HTMLSelectElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLSourceElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement Mozilla HTMLSourceElement documentation>-newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal }--instance PToJSVal HTMLSourceElement where-  pToJSVal = unHTMLSourceElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLSourceElement where-  pFromJSVal = HTMLSourceElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLSourceElement where-  toJSVal = return . unHTMLSourceElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLSourceElement where-  fromJSVal v = fmap HTMLSourceElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLSourceElement where-  makeObject = makeObject . unHTMLSourceElement--instance IsHTMLElement HTMLSourceElement-instance IsElement HTMLSourceElement-instance IsNode HTMLSourceElement-instance IsEventTarget HTMLSourceElement-instance IsGObject HTMLSourceElement where-  toGObject = GObject . unHTMLSourceElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLSourceElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLSourceElement :: IsGObject obj => obj -> JSM HTMLSourceElement-castToHTMLSourceElement = castTo gTypeHTMLSourceElement "HTMLSourceElement"--gTypeHTMLSourceElement :: JSM GType-gTypeHTMLSourceElement = GType . Object <$> jsg "HTMLSourceElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLSpanElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSpanElement Mozilla HTMLSpanElement documentation>-newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal }--instance PToJSVal HTMLSpanElement where-  pToJSVal = unHTMLSpanElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLSpanElement where-  pFromJSVal = HTMLSpanElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLSpanElement where-  toJSVal = return . unHTMLSpanElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLSpanElement where-  fromJSVal v = fmap HTMLSpanElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLSpanElement where-  makeObject = makeObject . unHTMLSpanElement--instance IsHTMLElement HTMLSpanElement-instance IsElement HTMLSpanElement-instance IsNode HTMLSpanElement-instance IsEventTarget HTMLSpanElement-instance IsGObject HTMLSpanElement where-  toGObject = GObject . unHTMLSpanElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLSpanElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLSpanElement :: IsGObject obj => obj -> JSM HTMLSpanElement-castToHTMLSpanElement = castTo gTypeHTMLSpanElement "HTMLSpanElement"--gTypeHTMLSpanElement :: JSM GType-gTypeHTMLSpanElement = GType . Object <$> jsg "HTMLSpanElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLStyleElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement Mozilla HTMLStyleElement documentation>-newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal }--instance PToJSVal HTMLStyleElement where-  pToJSVal = unHTMLStyleElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLStyleElement where-  pFromJSVal = HTMLStyleElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLStyleElement where-  toJSVal = return . unHTMLStyleElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLStyleElement where-  fromJSVal v = fmap HTMLStyleElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLStyleElement where-  makeObject = makeObject . unHTMLStyleElement--instance IsHTMLElement HTMLStyleElement-instance IsElement HTMLStyleElement-instance IsNode HTMLStyleElement-instance IsEventTarget HTMLStyleElement-instance IsGObject HTMLStyleElement where-  toGObject = GObject . unHTMLStyleElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLStyleElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLStyleElement :: IsGObject obj => obj -> JSM HTMLStyleElement-castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement"--gTypeHTMLStyleElement :: JSM GType-gTypeHTMLStyleElement = GType . Object <$> jsg "HTMLStyleElement"-#else-type IsHTMLStyleElement o = HTMLStyleElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableCaptionElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement Mozilla HTMLTableCaptionElement documentation>-newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal }--instance PToJSVal HTMLTableCaptionElement where-  pToJSVal = unHTMLTableCaptionElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTableCaptionElement where-  pFromJSVal = HTMLTableCaptionElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTableCaptionElement where-  toJSVal = return . unHTMLTableCaptionElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTableCaptionElement where-  fromJSVal v = fmap HTMLTableCaptionElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTableCaptionElement where-  makeObject = makeObject . unHTMLTableCaptionElement--instance IsHTMLElement HTMLTableCaptionElement-instance IsElement HTMLTableCaptionElement-instance IsNode HTMLTableCaptionElement-instance IsEventTarget HTMLTableCaptionElement-instance IsGObject HTMLTableCaptionElement where-  toGObject = GObject . unHTMLTableCaptionElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTableCaptionElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTableCaptionElement :: IsGObject obj => obj -> JSM HTMLTableCaptionElement-castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement"--gTypeHTMLTableCaptionElement :: JSM GType-gTypeHTMLTableCaptionElement = GType . Object <$> jsg "HTMLTableCaptionElement"-#else-type IsHTMLTableCaptionElement o = HTMLTableCaptionElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableCellElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement Mozilla HTMLTableCellElement documentation>-newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal }--instance PToJSVal HTMLTableCellElement where-  pToJSVal = unHTMLTableCellElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTableCellElement where-  pFromJSVal = HTMLTableCellElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTableCellElement where-  toJSVal = return . unHTMLTableCellElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTableCellElement where-  fromJSVal v = fmap HTMLTableCellElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTableCellElement where-  makeObject = makeObject . unHTMLTableCellElement--instance IsHTMLElement HTMLTableCellElement-instance IsElement HTMLTableCellElement-instance IsNode HTMLTableCellElement-instance IsEventTarget HTMLTableCellElement-instance IsGObject HTMLTableCellElement where-  toGObject = GObject . unHTMLTableCellElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTableCellElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTableCellElement :: IsGObject obj => obj -> JSM HTMLTableCellElement-castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement"--gTypeHTMLTableCellElement :: JSM GType-gTypeHTMLTableCellElement = GType . Object <$> jsg "HTMLTableCellElement"-#else-type IsHTMLTableCellElement o = HTMLTableCellElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableColElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement Mozilla HTMLTableColElement documentation>-newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal }--instance PToJSVal HTMLTableColElement where-  pToJSVal = unHTMLTableColElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTableColElement where-  pFromJSVal = HTMLTableColElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTableColElement where-  toJSVal = return . unHTMLTableColElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTableColElement where-  fromJSVal v = fmap HTMLTableColElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTableColElement where-  makeObject = makeObject . unHTMLTableColElement--instance IsHTMLElement HTMLTableColElement-instance IsElement HTMLTableColElement-instance IsNode HTMLTableColElement-instance IsEventTarget HTMLTableColElement-instance IsGObject HTMLTableColElement where-  toGObject = GObject . unHTMLTableColElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTableColElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTableColElement :: IsGObject obj => obj -> JSM HTMLTableColElement-castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement"--gTypeHTMLTableColElement :: JSM GType-gTypeHTMLTableColElement = GType . Object <$> jsg "HTMLTableColElement"-#else-type IsHTMLTableColElement o = HTMLTableColElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement Mozilla HTMLTableElement documentation>-newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal }--instance PToJSVal HTMLTableElement where-  pToJSVal = unHTMLTableElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTableElement where-  pFromJSVal = HTMLTableElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTableElement where-  toJSVal = return . unHTMLTableElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTableElement where-  fromJSVal v = fmap HTMLTableElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTableElement where-  makeObject = makeObject . unHTMLTableElement--instance IsHTMLElement HTMLTableElement-instance IsElement HTMLTableElement-instance IsNode HTMLTableElement-instance IsEventTarget HTMLTableElement-instance IsGObject HTMLTableElement where-  toGObject = GObject . unHTMLTableElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTableElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTableElement :: IsGObject obj => obj -> JSM HTMLTableElement-castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement"--gTypeHTMLTableElement :: JSM GType-gTypeHTMLTableElement = GType . Object <$> jsg "HTMLTableElement"-#else-type IsHTMLTableElement o = HTMLTableElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableRowElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement Mozilla HTMLTableRowElement documentation>-newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal }--instance PToJSVal HTMLTableRowElement where-  pToJSVal = unHTMLTableRowElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTableRowElement where-  pFromJSVal = HTMLTableRowElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTableRowElement where-  toJSVal = return . unHTMLTableRowElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTableRowElement where-  fromJSVal v = fmap HTMLTableRowElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTableRowElement where-  makeObject = makeObject . unHTMLTableRowElement--instance IsHTMLElement HTMLTableRowElement-instance IsElement HTMLTableRowElement-instance IsNode HTMLTableRowElement-instance IsEventTarget HTMLTableRowElement-instance IsGObject HTMLTableRowElement where-  toGObject = GObject . unHTMLTableRowElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTableRowElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTableRowElement :: IsGObject obj => obj -> JSM HTMLTableRowElement-castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement"--gTypeHTMLTableRowElement :: JSM GType-gTypeHTMLTableRowElement = GType . Object <$> jsg "HTMLTableRowElement"-#else-type IsHTMLTableRowElement o = HTMLTableRowElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTableSectionElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement Mozilla HTMLTableSectionElement documentation>-newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal }--instance PToJSVal HTMLTableSectionElement where-  pToJSVal = unHTMLTableSectionElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTableSectionElement where-  pFromJSVal = HTMLTableSectionElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTableSectionElement where-  toJSVal = return . unHTMLTableSectionElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTableSectionElement where-  fromJSVal v = fmap HTMLTableSectionElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTableSectionElement where-  makeObject = makeObject . unHTMLTableSectionElement--instance IsHTMLElement HTMLTableSectionElement-instance IsElement HTMLTableSectionElement-instance IsNode HTMLTableSectionElement-instance IsEventTarget HTMLTableSectionElement-instance IsGObject HTMLTableSectionElement where-  toGObject = GObject . unHTMLTableSectionElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTableSectionElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTableSectionElement :: IsGObject obj => obj -> JSM HTMLTableSectionElement-castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement"--gTypeHTMLTableSectionElement :: JSM GType-gTypeHTMLTableSectionElement = GType . Object <$> jsg "HTMLTableSectionElement"-#else-type IsHTMLTableSectionElement o = HTMLTableSectionElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTemplateElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement Mozilla HTMLTemplateElement documentation>-newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal }--instance PToJSVal HTMLTemplateElement where-  pToJSVal = unHTMLTemplateElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTemplateElement where-  pFromJSVal = HTMLTemplateElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTemplateElement where-  toJSVal = return . unHTMLTemplateElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTemplateElement where-  fromJSVal v = fmap HTMLTemplateElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTemplateElement where-  makeObject = makeObject . unHTMLTemplateElement--instance IsHTMLElement HTMLTemplateElement-instance IsElement HTMLTemplateElement-instance IsNode HTMLTemplateElement-instance IsEventTarget HTMLTemplateElement-instance IsGObject HTMLTemplateElement where-  toGObject = GObject . unHTMLTemplateElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTemplateElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTemplateElement :: IsGObject obj => obj -> JSM HTMLTemplateElement-castToHTMLTemplateElement = castTo gTypeHTMLTemplateElement "HTMLTemplateElement"--gTypeHTMLTemplateElement :: JSM GType-gTypeHTMLTemplateElement = GType . Object <$> jsg "HTMLTemplateElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTextAreaElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement Mozilla HTMLTextAreaElement documentation>-newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal }--instance PToJSVal HTMLTextAreaElement where-  pToJSVal = unHTMLTextAreaElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTextAreaElement where-  pFromJSVal = HTMLTextAreaElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTextAreaElement where-  toJSVal = return . unHTMLTextAreaElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTextAreaElement where-  fromJSVal v = fmap HTMLTextAreaElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTextAreaElement where-  makeObject = makeObject . unHTMLTextAreaElement--instance IsHTMLElement HTMLTextAreaElement-instance IsElement HTMLTextAreaElement-instance IsNode HTMLTextAreaElement-instance IsEventTarget HTMLTextAreaElement-instance IsGObject HTMLTextAreaElement where-  toGObject = GObject . unHTMLTextAreaElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTextAreaElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTextAreaElement :: IsGObject obj => obj -> JSM HTMLTextAreaElement-castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement"--gTypeHTMLTextAreaElement :: JSM GType-gTypeHTMLTextAreaElement = GType . Object <$> jsg "HTMLTextAreaElement"-#else-type IsHTMLTextAreaElement o = HTMLTextAreaElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTitleElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement Mozilla HTMLTitleElement documentation>-newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal }--instance PToJSVal HTMLTitleElement where-  pToJSVal = unHTMLTitleElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTitleElement where-  pFromJSVal = HTMLTitleElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTitleElement where-  toJSVal = return . unHTMLTitleElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTitleElement where-  fromJSVal v = fmap HTMLTitleElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTitleElement where-  makeObject = makeObject . unHTMLTitleElement--instance IsHTMLElement HTMLTitleElement-instance IsElement HTMLTitleElement-instance IsNode HTMLTitleElement-instance IsEventTarget HTMLTitleElement-instance IsGObject HTMLTitleElement where-  toGObject = GObject . unHTMLTitleElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTitleElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTitleElement :: IsGObject obj => obj -> JSM HTMLTitleElement-castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement"--gTypeHTMLTitleElement :: JSM GType-gTypeHTMLTitleElement = GType . Object <$> jsg "HTMLTitleElement"-#else-type IsHTMLTitleElement o = HTMLTitleElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLTrackElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement Mozilla HTMLTrackElement documentation>-newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal }--instance PToJSVal HTMLTrackElement where-  pToJSVal = unHTMLTrackElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLTrackElement where-  pFromJSVal = HTMLTrackElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLTrackElement where-  toJSVal = return . unHTMLTrackElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLTrackElement where-  fromJSVal v = fmap HTMLTrackElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLTrackElement where-  makeObject = makeObject . unHTMLTrackElement--instance IsHTMLElement HTMLTrackElement-instance IsElement HTMLTrackElement-instance IsNode HTMLTrackElement-instance IsEventTarget HTMLTrackElement-instance IsGObject HTMLTrackElement where-  toGObject = GObject . unHTMLTrackElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLTrackElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLTrackElement :: IsGObject obj => obj -> JSM HTMLTrackElement-castToHTMLTrackElement = castTo gTypeHTMLTrackElement "HTMLTrackElement"--gTypeHTMLTrackElement :: JSM GType-gTypeHTMLTrackElement = GType . Object <$> jsg "HTMLTrackElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLUListElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement Mozilla HTMLUListElement documentation>-newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal }--instance PToJSVal HTMLUListElement where-  pToJSVal = unHTMLUListElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLUListElement where-  pFromJSVal = HTMLUListElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLUListElement where-  toJSVal = return . unHTMLUListElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLUListElement where-  fromJSVal v = fmap HTMLUListElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLUListElement where-  makeObject = makeObject . unHTMLUListElement--instance IsHTMLElement HTMLUListElement-instance IsElement HTMLUListElement-instance IsNode HTMLUListElement-instance IsEventTarget HTMLUListElement-instance IsGObject HTMLUListElement where-  toGObject = GObject . unHTMLUListElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLUListElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLUListElement :: IsGObject obj => obj -> JSM HTMLUListElement-castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement"--gTypeHTMLUListElement :: JSM GType-gTypeHTMLUListElement = GType . Object <$> jsg "HTMLUListElement"-#else-type IsHTMLUListElement o = HTMLUListElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLUnknownElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUnknownElement Mozilla HTMLUnknownElement documentation>-newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal }--instance PToJSVal HTMLUnknownElement where-  pToJSVal = unHTMLUnknownElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLUnknownElement where-  pFromJSVal = HTMLUnknownElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLUnknownElement where-  toJSVal = return . unHTMLUnknownElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLUnknownElement where-  fromJSVal v = fmap HTMLUnknownElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLUnknownElement where-  makeObject = makeObject . unHTMLUnknownElement--instance IsHTMLElement HTMLUnknownElement-instance IsElement HTMLUnknownElement-instance IsNode HTMLUnknownElement-instance IsEventTarget HTMLUnknownElement-instance IsGObject HTMLUnknownElement where-  toGObject = GObject . unHTMLUnknownElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLUnknownElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLUnknownElement :: IsGObject obj => obj -> JSM HTMLUnknownElement-castToHTMLUnknownElement = castTo gTypeHTMLUnknownElement "HTMLUnknownElement"--gTypeHTMLUnknownElement :: JSM GType-gTypeHTMLUnknownElement = GType . Object <$> jsg "HTMLUnknownElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HTMLVideoElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.HTMLMediaElement"---     * "Language.Javascript.JSaddle.DOM.HTMLElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement Mozilla HTMLVideoElement documentation>-newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal }--instance PToJSVal HTMLVideoElement where-  pToJSVal = unHTMLVideoElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal HTMLVideoElement where-  pFromJSVal = HTMLVideoElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal HTMLVideoElement where-  toJSVal = return . unHTMLVideoElement-  {-# INLINE toJSVal #-}--instance FromJSVal HTMLVideoElement where-  fromJSVal v = fmap HTMLVideoElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HTMLVideoElement where-  makeObject = makeObject . unHTMLVideoElement--instance IsHTMLMediaElement HTMLVideoElement-instance IsHTMLElement HTMLVideoElement-instance IsElement HTMLVideoElement-instance IsNode HTMLVideoElement-instance IsEventTarget HTMLVideoElement-instance IsGObject HTMLVideoElement where-  toGObject = GObject . unHTMLVideoElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = HTMLVideoElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHTMLVideoElement :: IsGObject obj => obj -> JSM HTMLVideoElement-castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement"--gTypeHTMLVideoElement :: JSM GType-gTypeHTMLVideoElement = GType . Object <$> jsg "HTMLVideoElement"-#else-type IsHTMLVideoElement o = HTMLVideoElementClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.HashChangeEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent Mozilla HashChangeEvent documentation>-newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal }--instance PToJSVal HashChangeEvent where-  pToJSVal = unHashChangeEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal HashChangeEvent where-  pFromJSVal = HashChangeEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal HashChangeEvent where-  toJSVal = return . unHashChangeEvent-  {-# INLINE toJSVal #-}--instance FromJSVal HashChangeEvent where-  fromJSVal v = fmap HashChangeEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject HashChangeEvent where-  makeObject = makeObject . unHashChangeEvent--instance IsEvent HashChangeEvent-instance IsGObject HashChangeEvent where-  toGObject = GObject . unHashChangeEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = HashChangeEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHashChangeEvent :: IsGObject obj => obj -> JSM HashChangeEvent-castToHashChangeEvent = castTo gTypeHashChangeEvent "HashChangeEvent"--gTypeHashChangeEvent :: JSM GType-gTypeHashChangeEvent = GType . Object <$> jsg "HashChangeEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.History".------ <https://developer.mozilla.org/en-US/docs/Web/API/History Mozilla History documentation>-newtype History = History { unHistory :: JSVal }--instance PToJSVal History where-  pToJSVal = unHistory-  {-# INLINE pToJSVal #-}--instance PFromJSVal History where-  pFromJSVal = History-  {-# INLINE pFromJSVal #-}--instance ToJSVal History where-  toJSVal = return . unHistory-  {-# INLINE toJSVal #-}--instance FromJSVal History where-  fromJSVal v = fmap History <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject History where-  makeObject = makeObject . unHistory--instance IsGObject History where-  toGObject = GObject . unHistory-  {-# INLINE toGObject #-}-  unsafeCastGObject = History . unGObject-  {-# INLINE unsafeCastGObject #-}--castToHistory :: IsGObject obj => obj -> JSM History-castToHistory = castTo gTypeHistory "History"--gTypeHistory :: JSM GType-gTypeHistory = GType . Object <$> jsg "History"-#else-type IsHistory o = HistoryClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBAny".------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBAny Mozilla IDBAny documentation>-newtype IDBAny = IDBAny { unIDBAny :: JSVal }--instance PToJSVal IDBAny where-  pToJSVal = unIDBAny-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBAny where-  pFromJSVal = IDBAny-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBAny where-  toJSVal = return . unIDBAny-  {-# INLINE toJSVal #-}--instance FromJSVal IDBAny where-  fromJSVal v = fmap IDBAny <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBAny where-  makeObject = makeObject . unIDBAny--instance IsGObject IDBAny where-  toGObject = GObject . unIDBAny-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBAny . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBAny :: IsGObject obj => obj -> JSM IDBAny-castToIDBAny = castTo gTypeIDBAny "IDBAny"--gTypeIDBAny :: JSM GType-gTypeIDBAny = GType . Object <$> jsg "IDBAny"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBCursor".------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor Mozilla IDBCursor documentation>-newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal }--instance PToJSVal IDBCursor where-  pToJSVal = unIDBCursor-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBCursor where-  pFromJSVal = IDBCursor-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBCursor where-  toJSVal = return . unIDBCursor-  {-# INLINE toJSVal #-}--instance FromJSVal IDBCursor where-  fromJSVal v = fmap IDBCursor <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBCursor where-  makeObject = makeObject . unIDBCursor--class IsGObject o => IsIDBCursor o-toIDBCursor :: IsIDBCursor o => o -> IDBCursor-toIDBCursor = unsafeCastGObject . toGObject--instance IsIDBCursor IDBCursor-instance IsGObject IDBCursor where-  toGObject = GObject . unIDBCursor-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBCursor . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBCursor :: IsGObject obj => obj -> JSM IDBCursor-castToIDBCursor = castTo gTypeIDBCursor "IDBCursor"--gTypeIDBCursor :: JSM GType-gTypeIDBCursor = GType . Object <$> jsg "IDBCursor"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBCursorWithValue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.IDBCursor"------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursorWithValue Mozilla IDBCursorWithValue documentation>-newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal }--instance PToJSVal IDBCursorWithValue where-  pToJSVal = unIDBCursorWithValue-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBCursorWithValue where-  pFromJSVal = IDBCursorWithValue-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBCursorWithValue where-  toJSVal = return . unIDBCursorWithValue-  {-# INLINE toJSVal #-}--instance FromJSVal IDBCursorWithValue where-  fromJSVal v = fmap IDBCursorWithValue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBCursorWithValue where-  makeObject = makeObject . unIDBCursorWithValue--instance IsIDBCursor IDBCursorWithValue-instance IsGObject IDBCursorWithValue where-  toGObject = GObject . unIDBCursorWithValue-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBCursorWithValue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBCursorWithValue :: IsGObject obj => obj -> JSM IDBCursorWithValue-castToIDBCursorWithValue = castTo gTypeIDBCursorWithValue "IDBCursorWithValue"--gTypeIDBCursorWithValue :: JSM GType-gTypeIDBCursorWithValue = GType . Object <$> jsg "IDBCursorWithValue"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBDatabase".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase Mozilla IDBDatabase documentation>-newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal }--instance PToJSVal IDBDatabase where-  pToJSVal = unIDBDatabase-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBDatabase where-  pFromJSVal = IDBDatabase-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBDatabase where-  toJSVal = return . unIDBDatabase-  {-# INLINE toJSVal #-}--instance FromJSVal IDBDatabase where-  fromJSVal v = fmap IDBDatabase <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBDatabase where-  makeObject = makeObject . unIDBDatabase--instance IsEventTarget IDBDatabase-instance IsGObject IDBDatabase where-  toGObject = GObject . unIDBDatabase-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBDatabase . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBDatabase :: IsGObject obj => obj -> JSM IDBDatabase-castToIDBDatabase = castTo gTypeIDBDatabase "IDBDatabase"--gTypeIDBDatabase :: JSM GType-gTypeIDBDatabase = GType . Object <$> jsg "IDBDatabase"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBFactory".------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory Mozilla IDBFactory documentation>-newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal }--instance PToJSVal IDBFactory where-  pToJSVal = unIDBFactory-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBFactory where-  pFromJSVal = IDBFactory-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBFactory where-  toJSVal = return . unIDBFactory-  {-# INLINE toJSVal #-}--instance FromJSVal IDBFactory where-  fromJSVal v = fmap IDBFactory <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBFactory where-  makeObject = makeObject . unIDBFactory--instance IsGObject IDBFactory where-  toGObject = GObject . unIDBFactory-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBFactory . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBFactory :: IsGObject obj => obj -> JSM IDBFactory-castToIDBFactory = castTo gTypeIDBFactory "IDBFactory"--gTypeIDBFactory :: JSM GType-gTypeIDBFactory = GType . Object <$> jsg "IDBFactory"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBIndex".------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex Mozilla IDBIndex documentation>-newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal }--instance PToJSVal IDBIndex where-  pToJSVal = unIDBIndex-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBIndex where-  pFromJSVal = IDBIndex-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBIndex where-  toJSVal = return . unIDBIndex-  {-# INLINE toJSVal #-}--instance FromJSVal IDBIndex where-  fromJSVal v = fmap IDBIndex <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBIndex where-  makeObject = makeObject . unIDBIndex--instance IsGObject IDBIndex where-  toGObject = GObject . unIDBIndex-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBIndex . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBIndex :: IsGObject obj => obj -> JSM IDBIndex-castToIDBIndex = castTo gTypeIDBIndex "IDBIndex"--gTypeIDBIndex :: JSM GType-gTypeIDBIndex = GType . Object <$> jsg "IDBIndex"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBKeyRange".------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange Mozilla IDBKeyRange documentation>-newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal }--instance PToJSVal IDBKeyRange where-  pToJSVal = unIDBKeyRange-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBKeyRange where-  pFromJSVal = IDBKeyRange-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBKeyRange where-  toJSVal = return . unIDBKeyRange-  {-# INLINE toJSVal #-}--instance FromJSVal IDBKeyRange where-  fromJSVal v = fmap IDBKeyRange <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBKeyRange where-  makeObject = makeObject . unIDBKeyRange--instance IsGObject IDBKeyRange where-  toGObject = GObject . unIDBKeyRange-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBKeyRange . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBKeyRange :: IsGObject obj => obj -> JSM IDBKeyRange-castToIDBKeyRange = castTo gTypeIDBKeyRange "IDBKeyRange"--gTypeIDBKeyRange :: JSM GType-gTypeIDBKeyRange = GType . Object <$> jsg "IDBKeyRange"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBObjectStore".------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore Mozilla IDBObjectStore documentation>-newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal }--instance PToJSVal IDBObjectStore where-  pToJSVal = unIDBObjectStore-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBObjectStore where-  pFromJSVal = IDBObjectStore-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBObjectStore where-  toJSVal = return . unIDBObjectStore-  {-# INLINE toJSVal #-}--instance FromJSVal IDBObjectStore where-  fromJSVal v = fmap IDBObjectStore <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBObjectStore where-  makeObject = makeObject . unIDBObjectStore--instance IsGObject IDBObjectStore where-  toGObject = GObject . unIDBObjectStore-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBObjectStore . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBObjectStore :: IsGObject obj => obj -> JSM IDBObjectStore-castToIDBObjectStore = castTo gTypeIDBObjectStore "IDBObjectStore"--gTypeIDBObjectStore :: JSM GType-gTypeIDBObjectStore = GType . Object <$> jsg "IDBObjectStore"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBOpenDBRequest".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.IDBRequest"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest Mozilla IDBOpenDBRequest documentation>-newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal }--instance PToJSVal IDBOpenDBRequest where-  pToJSVal = unIDBOpenDBRequest-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBOpenDBRequest where-  pFromJSVal = IDBOpenDBRequest-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBOpenDBRequest where-  toJSVal = return . unIDBOpenDBRequest-  {-# INLINE toJSVal #-}--instance FromJSVal IDBOpenDBRequest where-  fromJSVal v = fmap IDBOpenDBRequest <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBOpenDBRequest where-  makeObject = makeObject . unIDBOpenDBRequest--instance IsIDBRequest IDBOpenDBRequest-instance IsEventTarget IDBOpenDBRequest-instance IsGObject IDBOpenDBRequest where-  toGObject = GObject . unIDBOpenDBRequest-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBOpenDBRequest . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBOpenDBRequest :: IsGObject obj => obj -> JSM IDBOpenDBRequest-castToIDBOpenDBRequest = castTo gTypeIDBOpenDBRequest "IDBOpenDBRequest"--gTypeIDBOpenDBRequest :: JSM GType-gTypeIDBOpenDBRequest = GType . Object <$> jsg "IDBOpenDBRequest"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBRequest".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest Mozilla IDBRequest documentation>-newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal }--instance PToJSVal IDBRequest where-  pToJSVal = unIDBRequest-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBRequest where-  pFromJSVal = IDBRequest-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBRequest where-  toJSVal = return . unIDBRequest-  {-# INLINE toJSVal #-}--instance FromJSVal IDBRequest where-  fromJSVal v = fmap IDBRequest <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBRequest where-  makeObject = makeObject . unIDBRequest--class IsEventTarget o => IsIDBRequest o-toIDBRequest :: IsIDBRequest o => o -> IDBRequest-toIDBRequest = unsafeCastGObject . toGObject--instance IsIDBRequest IDBRequest-instance IsEventTarget IDBRequest-instance IsGObject IDBRequest where-  toGObject = GObject . unIDBRequest-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBRequest . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBRequest :: IsGObject obj => obj -> JSM IDBRequest-castToIDBRequest = castTo gTypeIDBRequest "IDBRequest"--gTypeIDBRequest :: JSM GType-gTypeIDBRequest = GType . Object <$> jsg "IDBRequest"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBTransaction".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction Mozilla IDBTransaction documentation>-newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal }--instance PToJSVal IDBTransaction where-  pToJSVal = unIDBTransaction-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBTransaction where-  pFromJSVal = IDBTransaction-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBTransaction where-  toJSVal = return . unIDBTransaction-  {-# INLINE toJSVal #-}--instance FromJSVal IDBTransaction where-  fromJSVal v = fmap IDBTransaction <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBTransaction where-  makeObject = makeObject . unIDBTransaction--instance IsEventTarget IDBTransaction-instance IsGObject IDBTransaction where-  toGObject = GObject . unIDBTransaction-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBTransaction . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBTransaction :: IsGObject obj => obj -> JSM IDBTransaction-castToIDBTransaction = castTo gTypeIDBTransaction "IDBTransaction"--gTypeIDBTransaction :: JSM GType-gTypeIDBTransaction = GType . Object <$> jsg "IDBTransaction"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.IDBVersionChangeEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent Mozilla IDBVersionChangeEvent documentation>-newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal }--instance PToJSVal IDBVersionChangeEvent where-  pToJSVal = unIDBVersionChangeEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal IDBVersionChangeEvent where-  pFromJSVal = IDBVersionChangeEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal IDBVersionChangeEvent where-  toJSVal = return . unIDBVersionChangeEvent-  {-# INLINE toJSVal #-}--instance FromJSVal IDBVersionChangeEvent where-  fromJSVal v = fmap IDBVersionChangeEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject IDBVersionChangeEvent where-  makeObject = makeObject . unIDBVersionChangeEvent--instance IsEvent IDBVersionChangeEvent-instance IsGObject IDBVersionChangeEvent where-  toGObject = GObject . unIDBVersionChangeEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = IDBVersionChangeEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToIDBVersionChangeEvent :: IsGObject obj => obj -> JSM IDBVersionChangeEvent-castToIDBVersionChangeEvent = castTo gTypeIDBVersionChangeEvent "IDBVersionChangeEvent"--gTypeIDBVersionChangeEvent :: JSM GType-gTypeIDBVersionChangeEvent = GType . Object <$> jsg "IDBVersionChangeEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ImageData".------ <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation>-newtype ImageData = ImageData { unImageData :: JSVal }--instance PToJSVal ImageData where-  pToJSVal = unImageData-  {-# INLINE pToJSVal #-}--instance PFromJSVal ImageData where-  pFromJSVal = ImageData-  {-# INLINE pFromJSVal #-}--instance ToJSVal ImageData where-  toJSVal = return . unImageData-  {-# INLINE toJSVal #-}--instance FromJSVal ImageData where-  fromJSVal v = fmap ImageData <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ImageData where-  makeObject = makeObject . unImageData--instance IsGObject ImageData where-  toGObject = GObject . unImageData-  {-# INLINE toGObject #-}-  unsafeCastGObject = ImageData . unGObject-  {-# INLINE unsafeCastGObject #-}--castToImageData :: IsGObject obj => obj -> JSM ImageData-castToImageData = castTo gTypeImageData "ImageData"--gTypeImageData :: JSM GType-gTypeImageData = GType . Object <$> jsg "ImageData"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.InspectorFrontendHost".------ <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost Mozilla InspectorFrontendHost documentation>-newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal }--instance PToJSVal InspectorFrontendHost where-  pToJSVal = unInspectorFrontendHost-  {-# INLINE pToJSVal #-}--instance PFromJSVal InspectorFrontendHost where-  pFromJSVal = InspectorFrontendHost-  {-# INLINE pFromJSVal #-}--instance ToJSVal InspectorFrontendHost where-  toJSVal = return . unInspectorFrontendHost-  {-# INLINE toJSVal #-}--instance FromJSVal InspectorFrontendHost where-  fromJSVal v = fmap InspectorFrontendHost <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject InspectorFrontendHost where-  makeObject = makeObject . unInspectorFrontendHost--instance IsGObject InspectorFrontendHost where-  toGObject = GObject . unInspectorFrontendHost-  {-# INLINE toGObject #-}-  unsafeCastGObject = InspectorFrontendHost . unGObject-  {-# INLINE unsafeCastGObject #-}--castToInspectorFrontendHost :: IsGObject obj => obj -> JSM InspectorFrontendHost-castToInspectorFrontendHost = castTo gTypeInspectorFrontendHost "InspectorFrontendHost"--gTypeInspectorFrontendHost :: JSM GType-gTypeInspectorFrontendHost = GType . Object <$> jsg "InspectorFrontendHost"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.InternalSettings".--- Base interface functions are in:--------- <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings Mozilla InternalSettings documentation>-newtype InternalSettings = InternalSettings { unInternalSettings :: JSVal }--instance PToJSVal InternalSettings where-  pToJSVal = unInternalSettings-  {-# INLINE pToJSVal #-}--instance PFromJSVal InternalSettings where-  pFromJSVal = InternalSettings-  {-# INLINE pFromJSVal #-}--instance ToJSVal InternalSettings where-  toJSVal = return . unInternalSettings-  {-# INLINE toJSVal #-}--instance FromJSVal InternalSettings where-  fromJSVal v = fmap InternalSettings <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject InternalSettings where-  makeObject = makeObject . unInternalSettings--instance IsGObject InternalSettings where-  toGObject = GObject . unInternalSettings-  {-# INLINE toGObject #-}-  unsafeCastGObject = InternalSettings . unGObject-  {-# INLINE unsafeCastGObject #-}--castToInternalSettings :: IsGObject obj => obj -> JSM InternalSettings-castToInternalSettings = castTo gTypeInternalSettings "InternalSettings"--gTypeInternalSettings :: JSM GType-gTypeInternalSettings = GType . Object <$> jsg "InternalSettings"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Internals".------ <https://developer.mozilla.org/en-US/docs/Web/API/Internals Mozilla Internals documentation>-newtype Internals = Internals { unInternals :: JSVal }--instance PToJSVal Internals where-  pToJSVal = unInternals-  {-# INLINE pToJSVal #-}--instance PFromJSVal Internals where-  pFromJSVal = Internals-  {-# INLINE pFromJSVal #-}--instance ToJSVal Internals where-  toJSVal = return . unInternals-  {-# INLINE toJSVal #-}--instance FromJSVal Internals where-  fromJSVal v = fmap Internals <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Internals where-  makeObject = makeObject . unInternals--instance IsGObject Internals where-  toGObject = GObject . unInternals-  {-# INLINE toGObject #-}-  unsafeCastGObject = Internals . unGObject-  {-# INLINE unsafeCastGObject #-}--castToInternals :: IsGObject obj => obj -> JSM Internals-castToInternals = castTo gTypeInternals "Internals"--gTypeInternals :: JSM GType-gTypeInternals = GType . Object <$> jsg "Internals"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.KeyboardEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent Mozilla KeyboardEvent documentation>-newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal }--instance PToJSVal KeyboardEvent where-  pToJSVal = unKeyboardEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal KeyboardEvent where-  pFromJSVal = KeyboardEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal KeyboardEvent where-  toJSVal = return . unKeyboardEvent-  {-# INLINE toJSVal #-}--instance FromJSVal KeyboardEvent where-  fromJSVal v = fmap KeyboardEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject KeyboardEvent where-  makeObject = makeObject . unKeyboardEvent--instance IsUIEvent KeyboardEvent-instance IsEvent KeyboardEvent-instance IsGObject KeyboardEvent where-  toGObject = GObject . unKeyboardEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = KeyboardEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToKeyboardEvent :: IsGObject obj => obj -> JSM KeyboardEvent-castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent"--gTypeKeyboardEvent :: JSM GType-gTypeKeyboardEvent = GType . Object <$> jsg "KeyboardEvent"-#else-#ifndef USE_OLD_WEBKIT-type IsKeyboardEvent o = KeyboardEventClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Location".------ <https://developer.mozilla.org/en-US/docs/Web/API/Location Mozilla Location documentation>-newtype Location = Location { unLocation :: JSVal }--instance PToJSVal Location where-  pToJSVal = unLocation-  {-# INLINE pToJSVal #-}--instance PFromJSVal Location where-  pFromJSVal = Location-  {-# INLINE pFromJSVal #-}--instance ToJSVal Location where-  toJSVal = return . unLocation-  {-# INLINE toJSVal #-}--instance FromJSVal Location where-  fromJSVal v = fmap Location <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Location where-  makeObject = makeObject . unLocation--instance IsGObject Location where-  toGObject = GObject . unLocation-  {-# INLINE toGObject #-}-  unsafeCastGObject = Location . unGObject-  {-# INLINE unsafeCastGObject #-}--castToLocation :: IsGObject obj => obj -> JSM Location-castToLocation = castTo gTypeLocation "Location"--gTypeLocation :: JSM GType-gTypeLocation = GType . Object <$> jsg "Location"-#else-type IsLocation o = LocationClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MallocStatistics".------ <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics Mozilla MallocStatistics documentation>-newtype MallocStatistics = MallocStatistics { unMallocStatistics :: JSVal }--instance PToJSVal MallocStatistics where-  pToJSVal = unMallocStatistics-  {-# INLINE pToJSVal #-}--instance PFromJSVal MallocStatistics where-  pFromJSVal = MallocStatistics-  {-# INLINE pFromJSVal #-}--instance ToJSVal MallocStatistics where-  toJSVal = return . unMallocStatistics-  {-# INLINE toJSVal #-}--instance FromJSVal MallocStatistics where-  fromJSVal v = fmap MallocStatistics <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MallocStatistics where-  makeObject = makeObject . unMallocStatistics--instance IsGObject MallocStatistics where-  toGObject = GObject . unMallocStatistics-  {-# INLINE toGObject #-}-  unsafeCastGObject = MallocStatistics . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMallocStatistics :: IsGObject obj => obj -> JSM MallocStatistics-castToMallocStatistics = castTo gTypeMallocStatistics "MallocStatistics"--gTypeMallocStatistics :: JSM GType-gTypeMallocStatistics = GType . Object <$> jsg "MallocStatistics"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaController".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaController Mozilla MediaController documentation>-newtype MediaController = MediaController { unMediaController :: JSVal }--instance PToJSVal MediaController where-  pToJSVal = unMediaController-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaController where-  pFromJSVal = MediaController-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaController where-  toJSVal = return . unMediaController-  {-# INLINE toJSVal #-}--instance FromJSVal MediaController where-  fromJSVal v = fmap MediaController <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaController where-  makeObject = makeObject . unMediaController--instance IsEventTarget MediaController-instance IsGObject MediaController where-  toGObject = GObject . unMediaController-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaController . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaController :: IsGObject obj => obj -> JSM MediaController-castToMediaController = castTo gTypeMediaController "MediaController"--gTypeMediaController :: JSM GType-gTypeMediaController = GType . Object <$> jsg "MediaController"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaControlsHost".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost Mozilla MediaControlsHost documentation>-newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal }--instance PToJSVal MediaControlsHost where-  pToJSVal = unMediaControlsHost-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaControlsHost where-  pFromJSVal = MediaControlsHost-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaControlsHost where-  toJSVal = return . unMediaControlsHost-  {-# INLINE toJSVal #-}--instance FromJSVal MediaControlsHost where-  fromJSVal v = fmap MediaControlsHost <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaControlsHost where-  makeObject = makeObject . unMediaControlsHost--instance IsGObject MediaControlsHost where-  toGObject = GObject . unMediaControlsHost-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaControlsHost . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaControlsHost :: IsGObject obj => obj -> JSM MediaControlsHost-castToMediaControlsHost = castTo gTypeMediaControlsHost "MediaControlsHost"--gTypeMediaControlsHost :: JSM GType-gTypeMediaControlsHost = GType . Object <$> jsg "MediaControlsHost"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaElementAudioSourceNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode Mozilla MediaElementAudioSourceNode documentation>-newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal }--instance PToJSVal MediaElementAudioSourceNode where-  pToJSVal = unMediaElementAudioSourceNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaElementAudioSourceNode where-  pFromJSVal = MediaElementAudioSourceNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaElementAudioSourceNode where-  toJSVal = return . unMediaElementAudioSourceNode-  {-# INLINE toJSVal #-}--instance FromJSVal MediaElementAudioSourceNode where-  fromJSVal v = fmap MediaElementAudioSourceNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaElementAudioSourceNode where-  makeObject = makeObject . unMediaElementAudioSourceNode--instance IsAudioNode MediaElementAudioSourceNode-instance IsEventTarget MediaElementAudioSourceNode-instance IsGObject MediaElementAudioSourceNode where-  toGObject = GObject . unMediaElementAudioSourceNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaElementAudioSourceNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaElementAudioSourceNode :: IsGObject obj => obj -> JSM MediaElementAudioSourceNode-castToMediaElementAudioSourceNode = castTo gTypeMediaElementAudioSourceNode "MediaElementAudioSourceNode"--gTypeMediaElementAudioSourceNode :: JSM GType-gTypeMediaElementAudioSourceNode = GType . Object <$> jsg "MediaElementAudioSourceNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaError".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaError Mozilla MediaError documentation>-newtype MediaError = MediaError { unMediaError :: JSVal }--instance PToJSVal MediaError where-  pToJSVal = unMediaError-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaError where-  pFromJSVal = MediaError-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaError where-  toJSVal = return . unMediaError-  {-# INLINE toJSVal #-}--instance FromJSVal MediaError where-  fromJSVal v = fmap MediaError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaError where-  makeObject = makeObject . unMediaError--instance IsGObject MediaError where-  toGObject = GObject . unMediaError-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaError :: IsGObject obj => obj -> JSM MediaError-castToMediaError = castTo gTypeMediaError "MediaError"--gTypeMediaError :: JSM GType-gTypeMediaError = GType . Object <$> jsg "MediaError"-#else-type IsMediaError o = MediaErrorClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyError".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError Mozilla WebKitMediaKeyError documentation>-newtype MediaKeyError = MediaKeyError { unMediaKeyError :: JSVal }--instance PToJSVal MediaKeyError where-  pToJSVal = unMediaKeyError-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaKeyError where-  pFromJSVal = MediaKeyError-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaKeyError where-  toJSVal = return . unMediaKeyError-  {-# INLINE toJSVal #-}--instance FromJSVal MediaKeyError where-  fromJSVal v = fmap MediaKeyError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaKeyError where-  makeObject = makeObject . unMediaKeyError--instance IsGObject MediaKeyError where-  toGObject = GObject . unMediaKeyError-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaKeyError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaKeyError :: IsGObject obj => obj -> JSM MediaKeyError-castToMediaKeyError = castTo gTypeMediaKeyError "MediaKeyError"--gTypeMediaKeyError :: JSM GType-gTypeMediaKeyError = GType . Object <$> jsg "WebKitMediaKeyError"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent Mozilla MediaKeyEvent documentation>-newtype MediaKeyEvent = MediaKeyEvent { unMediaKeyEvent :: JSVal }--instance PToJSVal MediaKeyEvent where-  pToJSVal = unMediaKeyEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaKeyEvent where-  pFromJSVal = MediaKeyEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaKeyEvent where-  toJSVal = return . unMediaKeyEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MediaKeyEvent where-  fromJSVal v = fmap MediaKeyEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaKeyEvent where-  makeObject = makeObject . unMediaKeyEvent--instance IsEvent MediaKeyEvent-instance IsGObject MediaKeyEvent where-  toGObject = GObject . unMediaKeyEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaKeyEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaKeyEvent :: IsGObject obj => obj -> JSM MediaKeyEvent-castToMediaKeyEvent = castTo gTypeMediaKeyEvent "MediaKeyEvent"--gTypeMediaKeyEvent :: JSM GType-gTypeMediaKeyEvent = GType . Object <$> jsg "MediaKeyEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyMessageEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent Mozilla WebKitMediaKeyMessageEvent documentation>-newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal }--instance PToJSVal MediaKeyMessageEvent where-  pToJSVal = unMediaKeyMessageEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaKeyMessageEvent where-  pFromJSVal = MediaKeyMessageEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaKeyMessageEvent where-  toJSVal = return . unMediaKeyMessageEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MediaKeyMessageEvent where-  fromJSVal v = fmap MediaKeyMessageEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaKeyMessageEvent where-  makeObject = makeObject . unMediaKeyMessageEvent--instance IsEvent MediaKeyMessageEvent-instance IsGObject MediaKeyMessageEvent where-  toGObject = GObject . unMediaKeyMessageEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaKeyMessageEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaKeyMessageEvent :: IsGObject obj => obj -> JSM MediaKeyMessageEvent-castToMediaKeyMessageEvent = castTo gTypeMediaKeyMessageEvent "MediaKeyMessageEvent"--gTypeMediaKeyMessageEvent :: JSM GType-gTypeMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeyNeededEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent Mozilla MediaKeyNeededEvent documentation>-newtype MediaKeyNeededEvent = MediaKeyNeededEvent { unMediaKeyNeededEvent :: JSVal }--instance PToJSVal MediaKeyNeededEvent where-  pToJSVal = unMediaKeyNeededEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaKeyNeededEvent where-  pFromJSVal = MediaKeyNeededEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaKeyNeededEvent where-  toJSVal = return . unMediaKeyNeededEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MediaKeyNeededEvent where-  fromJSVal v = fmap MediaKeyNeededEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaKeyNeededEvent where-  makeObject = makeObject . unMediaKeyNeededEvent--instance IsEvent MediaKeyNeededEvent-instance IsGObject MediaKeyNeededEvent where-  toGObject = GObject . unMediaKeyNeededEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaKeyNeededEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaKeyNeededEvent :: IsGObject obj => obj -> JSM MediaKeyNeededEvent-castToMediaKeyNeededEvent = castTo gTypeMediaKeyNeededEvent "MediaKeyNeededEvent"--gTypeMediaKeyNeededEvent :: JSM GType-gTypeMediaKeyNeededEvent = GType . Object <$> jsg "MediaKeyNeededEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeySession".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession Mozilla WebKitMediaKeySession documentation>-newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal }--instance PToJSVal MediaKeySession where-  pToJSVal = unMediaKeySession-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaKeySession where-  pFromJSVal = MediaKeySession-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaKeySession where-  toJSVal = return . unMediaKeySession-  {-# INLINE toJSVal #-}--instance FromJSVal MediaKeySession where-  fromJSVal v = fmap MediaKeySession <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaKeySession where-  makeObject = makeObject . unMediaKeySession--instance IsEventTarget MediaKeySession-instance IsGObject MediaKeySession where-  toGObject = GObject . unMediaKeySession-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaKeySession . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaKeySession :: IsGObject obj => obj -> JSM MediaKeySession-castToMediaKeySession = castTo gTypeMediaKeySession "MediaKeySession"--gTypeMediaKeySession :: JSM GType-gTypeMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaKeys".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys Mozilla WebKitMediaKeys documentation>-newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal }--instance PToJSVal MediaKeys where-  pToJSVal = unMediaKeys-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaKeys where-  pFromJSVal = MediaKeys-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaKeys where-  toJSVal = return . unMediaKeys-  {-# INLINE toJSVal #-}--instance FromJSVal MediaKeys where-  fromJSVal v = fmap MediaKeys <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaKeys where-  makeObject = makeObject . unMediaKeys--instance IsGObject MediaKeys where-  toGObject = GObject . unMediaKeys-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaKeys . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaKeys :: IsGObject obj => obj -> JSM MediaKeys-castToMediaKeys = castTo gTypeMediaKeys "MediaKeys"--gTypeMediaKeys :: JSM GType-gTypeMediaKeys = GType . Object <$> jsg "WebKitMediaKeys"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaList".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaList Mozilla MediaList documentation>-newtype MediaList = MediaList { unMediaList :: JSVal }--instance PToJSVal MediaList where-  pToJSVal = unMediaList-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaList where-  pFromJSVal = MediaList-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaList where-  toJSVal = return . unMediaList-  {-# INLINE toJSVal #-}--instance FromJSVal MediaList where-  fromJSVal v = fmap MediaList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaList where-  makeObject = makeObject . unMediaList--instance IsGObject MediaList where-  toGObject = GObject . unMediaList-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaList :: IsGObject obj => obj -> JSM MediaList-castToMediaList = castTo gTypeMediaList "MediaList"--gTypeMediaList :: JSM GType-gTypeMediaList = GType . Object <$> jsg "MediaList"-#else-type IsMediaList o = MediaListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaQueryList".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList Mozilla MediaQueryList documentation>-newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal }--instance PToJSVal MediaQueryList where-  pToJSVal = unMediaQueryList-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaQueryList where-  pFromJSVal = MediaQueryList-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaQueryList where-  toJSVal = return . unMediaQueryList-  {-# INLINE toJSVal #-}--instance FromJSVal MediaQueryList where-  fromJSVal v = fmap MediaQueryList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaQueryList where-  makeObject = makeObject . unMediaQueryList--instance IsGObject MediaQueryList where-  toGObject = GObject . unMediaQueryList-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaQueryList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaQueryList :: IsGObject obj => obj -> JSM MediaQueryList-castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList"--gTypeMediaQueryList :: JSM GType-gTypeMediaQueryList = GType . Object <$> jsg "MediaQueryList"-#else-type IsMediaQueryList o = MediaQueryListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaSource".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource Mozilla MediaSource documentation>-newtype MediaSource = MediaSource { unMediaSource :: JSVal }--instance PToJSVal MediaSource where-  pToJSVal = unMediaSource-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaSource where-  pFromJSVal = MediaSource-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaSource where-  toJSVal = return . unMediaSource-  {-# INLINE toJSVal #-}--instance FromJSVal MediaSource where-  fromJSVal v = fmap MediaSource <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaSource where-  makeObject = makeObject . unMediaSource--instance IsEventTarget MediaSource-instance IsGObject MediaSource where-  toGObject = GObject . unMediaSource-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaSource . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaSource :: IsGObject obj => obj -> JSM MediaSource-castToMediaSource = castTo gTypeMediaSource "MediaSource"--gTypeMediaSource :: JSM GType-gTypeMediaSource = GType . Object <$> jsg "MediaSource"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaSourceStates".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates Mozilla MediaSourceStates documentation>-newtype MediaSourceStates = MediaSourceStates { unMediaSourceStates :: JSVal }--instance PToJSVal MediaSourceStates where-  pToJSVal = unMediaSourceStates-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaSourceStates where-  pFromJSVal = MediaSourceStates-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaSourceStates where-  toJSVal = return . unMediaSourceStates-  {-# INLINE toJSVal #-}--instance FromJSVal MediaSourceStates where-  fromJSVal v = fmap MediaSourceStates <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaSourceStates where-  makeObject = makeObject . unMediaSourceStates--instance IsGObject MediaSourceStates where-  toGObject = GObject . unMediaSourceStates-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaSourceStates . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaSourceStates :: IsGObject obj => obj -> JSM MediaSourceStates-castToMediaSourceStates = castTo gTypeMediaSourceStates "MediaSourceStates"--gTypeMediaSourceStates :: JSM GType-gTypeMediaSourceStates = GType . Object <$> jsg "MediaSourceStates"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStream".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation>-newtype MediaStream = MediaStream { unMediaStream :: JSVal }--instance PToJSVal MediaStream where-  pToJSVal = unMediaStream-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStream where-  pFromJSVal = MediaStream-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStream where-  toJSVal = return . unMediaStream-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStream where-  fromJSVal v = fmap MediaStream <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStream where-  makeObject = makeObject . unMediaStream--instance IsEventTarget MediaStream-instance IsGObject MediaStream where-  toGObject = GObject . unMediaStream-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStream . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStream :: IsGObject obj => obj -> JSM MediaStream-castToMediaStream = castTo gTypeMediaStream "MediaStream"--gTypeMediaStream :: JSM GType-gTypeMediaStream = GType . Object <$> jsg "webkitMediaStream"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamAudioDestinationNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode Mozilla MediaStreamAudioDestinationNode documentation>-newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal }--instance PToJSVal MediaStreamAudioDestinationNode where-  pToJSVal = unMediaStreamAudioDestinationNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStreamAudioDestinationNode where-  pFromJSVal = MediaStreamAudioDestinationNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStreamAudioDestinationNode where-  toJSVal = return . unMediaStreamAudioDestinationNode-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStreamAudioDestinationNode where-  fromJSVal v = fmap MediaStreamAudioDestinationNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStreamAudioDestinationNode where-  makeObject = makeObject . unMediaStreamAudioDestinationNode--instance IsAudioNode MediaStreamAudioDestinationNode-instance IsEventTarget MediaStreamAudioDestinationNode-instance IsGObject MediaStreamAudioDestinationNode where-  toGObject = GObject . unMediaStreamAudioDestinationNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStreamAudioDestinationNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStreamAudioDestinationNode :: IsGObject obj => obj -> JSM MediaStreamAudioDestinationNode-castToMediaStreamAudioDestinationNode = castTo gTypeMediaStreamAudioDestinationNode "MediaStreamAudioDestinationNode"--gTypeMediaStreamAudioDestinationNode :: JSM GType-gTypeMediaStreamAudioDestinationNode = GType . Object <$> jsg "MediaStreamAudioDestinationNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamAudioSourceNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode Mozilla MediaStreamAudioSourceNode documentation>-newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal }--instance PToJSVal MediaStreamAudioSourceNode where-  pToJSVal = unMediaStreamAudioSourceNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStreamAudioSourceNode where-  pFromJSVal = MediaStreamAudioSourceNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStreamAudioSourceNode where-  toJSVal = return . unMediaStreamAudioSourceNode-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStreamAudioSourceNode where-  fromJSVal v = fmap MediaStreamAudioSourceNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStreamAudioSourceNode where-  makeObject = makeObject . unMediaStreamAudioSourceNode--instance IsAudioNode MediaStreamAudioSourceNode-instance IsEventTarget MediaStreamAudioSourceNode-instance IsGObject MediaStreamAudioSourceNode where-  toGObject = GObject . unMediaStreamAudioSourceNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStreamAudioSourceNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStreamAudioSourceNode :: IsGObject obj => obj -> JSM MediaStreamAudioSourceNode-castToMediaStreamAudioSourceNode = castTo gTypeMediaStreamAudioSourceNode "MediaStreamAudioSourceNode"--gTypeMediaStreamAudioSourceNode :: JSM GType-gTypeMediaStreamAudioSourceNode = GType . Object <$> jsg "MediaStreamAudioSourceNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamCapabilities".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamCapabilities Mozilla MediaStreamCapabilities documentation>-newtype MediaStreamCapabilities = MediaStreamCapabilities { unMediaStreamCapabilities :: JSVal }--instance PToJSVal MediaStreamCapabilities where-  pToJSVal = unMediaStreamCapabilities-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStreamCapabilities where-  pFromJSVal = MediaStreamCapabilities-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStreamCapabilities where-  toJSVal = return . unMediaStreamCapabilities-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStreamCapabilities where-  fromJSVal v = fmap MediaStreamCapabilities <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStreamCapabilities where-  makeObject = makeObject . unMediaStreamCapabilities--class IsGObject o => IsMediaStreamCapabilities o-toMediaStreamCapabilities :: IsMediaStreamCapabilities o => o -> MediaStreamCapabilities-toMediaStreamCapabilities = unsafeCastGObject . toGObject--instance IsMediaStreamCapabilities MediaStreamCapabilities-instance IsGObject MediaStreamCapabilities where-  toGObject = GObject . unMediaStreamCapabilities-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStreamCapabilities . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStreamCapabilities :: IsGObject obj => obj -> JSM MediaStreamCapabilities-castToMediaStreamCapabilities = castTo gTypeMediaStreamCapabilities "MediaStreamCapabilities"--gTypeMediaStreamCapabilities :: JSM GType-gTypeMediaStreamCapabilities = GType . Object <$> jsg "MediaStreamCapabilities"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent Mozilla MediaStreamEvent documentation>-newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal }--instance PToJSVal MediaStreamEvent where-  pToJSVal = unMediaStreamEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStreamEvent where-  pFromJSVal = MediaStreamEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStreamEvent where-  toJSVal = return . unMediaStreamEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStreamEvent where-  fromJSVal v = fmap MediaStreamEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStreamEvent where-  makeObject = makeObject . unMediaStreamEvent--instance IsEvent MediaStreamEvent-instance IsGObject MediaStreamEvent where-  toGObject = GObject . unMediaStreamEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStreamEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStreamEvent :: IsGObject obj => obj -> JSM MediaStreamEvent-castToMediaStreamEvent = castTo gTypeMediaStreamEvent "MediaStreamEvent"--gTypeMediaStreamEvent :: JSM GType-gTypeMediaStreamEvent = GType . Object <$> jsg "MediaStreamEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamTrack".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack Mozilla MediaStreamTrack documentation>-newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal }--instance PToJSVal MediaStreamTrack where-  pToJSVal = unMediaStreamTrack-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStreamTrack where-  pFromJSVal = MediaStreamTrack-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStreamTrack where-  toJSVal = return . unMediaStreamTrack-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStreamTrack where-  fromJSVal v = fmap MediaStreamTrack <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStreamTrack where-  makeObject = makeObject . unMediaStreamTrack--class IsEventTarget o => IsMediaStreamTrack o-toMediaStreamTrack :: IsMediaStreamTrack o => o -> MediaStreamTrack-toMediaStreamTrack = unsafeCastGObject . toGObject--instance IsMediaStreamTrack MediaStreamTrack-instance IsEventTarget MediaStreamTrack-instance IsGObject MediaStreamTrack where-  toGObject = GObject . unMediaStreamTrack-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStreamTrack . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStreamTrack :: IsGObject obj => obj -> JSM MediaStreamTrack-castToMediaStreamTrack = castTo gTypeMediaStreamTrack "MediaStreamTrack"--gTypeMediaStreamTrack :: JSM GType-gTypeMediaStreamTrack = GType . Object <$> jsg "MediaStreamTrack"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaStreamTrackEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent Mozilla MediaStreamTrackEvent documentation>-newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal }--instance PToJSVal MediaStreamTrackEvent where-  pToJSVal = unMediaStreamTrackEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaStreamTrackEvent where-  pFromJSVal = MediaStreamTrackEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaStreamTrackEvent where-  toJSVal = return . unMediaStreamTrackEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MediaStreamTrackEvent where-  fromJSVal v = fmap MediaStreamTrackEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaStreamTrackEvent where-  makeObject = makeObject . unMediaStreamTrackEvent--instance IsEvent MediaStreamTrackEvent-instance IsGObject MediaStreamTrackEvent where-  toGObject = GObject . unMediaStreamTrackEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaStreamTrackEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaStreamTrackEvent :: IsGObject obj => obj -> JSM MediaStreamTrackEvent-castToMediaStreamTrackEvent = castTo gTypeMediaStreamTrackEvent "MediaStreamTrackEvent"--gTypeMediaStreamTrackEvent :: JSM GType-gTypeMediaStreamTrackEvent = GType . Object <$> jsg "MediaStreamTrackEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaTrackConstraint".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraint Mozilla MediaTrackConstraint documentation>-newtype MediaTrackConstraint = MediaTrackConstraint { unMediaTrackConstraint :: JSVal }--instance PToJSVal MediaTrackConstraint where-  pToJSVal = unMediaTrackConstraint-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaTrackConstraint where-  pFromJSVal = MediaTrackConstraint-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaTrackConstraint where-  toJSVal = return . unMediaTrackConstraint-  {-# INLINE toJSVal #-}--instance FromJSVal MediaTrackConstraint where-  fromJSVal v = fmap MediaTrackConstraint <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaTrackConstraint where-  makeObject = makeObject . unMediaTrackConstraint--instance IsGObject MediaTrackConstraint where-  toGObject = GObject . unMediaTrackConstraint-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaTrackConstraint . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaTrackConstraint :: IsGObject obj => obj -> JSM MediaTrackConstraint-castToMediaTrackConstraint = castTo gTypeMediaTrackConstraint "MediaTrackConstraint"--gTypeMediaTrackConstraint :: JSM GType-gTypeMediaTrackConstraint = GType . Object <$> jsg "MediaTrackConstraint"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaTrackConstraintSet".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraintSet Mozilla MediaTrackConstraintSet documentation>-newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal }--instance PToJSVal MediaTrackConstraintSet where-  pToJSVal = unMediaTrackConstraintSet-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaTrackConstraintSet where-  pFromJSVal = MediaTrackConstraintSet-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaTrackConstraintSet where-  toJSVal = return . unMediaTrackConstraintSet-  {-# INLINE toJSVal #-}--instance FromJSVal MediaTrackConstraintSet where-  fromJSVal v = fmap MediaTrackConstraintSet <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaTrackConstraintSet where-  makeObject = makeObject . unMediaTrackConstraintSet--instance IsGObject MediaTrackConstraintSet where-  toGObject = GObject . unMediaTrackConstraintSet-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaTrackConstraintSet . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaTrackConstraintSet :: IsGObject obj => obj -> JSM MediaTrackConstraintSet-castToMediaTrackConstraintSet = castTo gTypeMediaTrackConstraintSet "MediaTrackConstraintSet"--gTypeMediaTrackConstraintSet :: JSM GType-gTypeMediaTrackConstraintSet = GType . Object <$> jsg "MediaTrackConstraintSet"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MediaTrackConstraints".------ <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints Mozilla MediaTrackConstraints documentation>-newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal }--instance PToJSVal MediaTrackConstraints where-  pToJSVal = unMediaTrackConstraints-  {-# INLINE pToJSVal #-}--instance PFromJSVal MediaTrackConstraints where-  pFromJSVal = MediaTrackConstraints-  {-# INLINE pFromJSVal #-}--instance ToJSVal MediaTrackConstraints where-  toJSVal = return . unMediaTrackConstraints-  {-# INLINE toJSVal #-}--instance FromJSVal MediaTrackConstraints where-  fromJSVal v = fmap MediaTrackConstraints <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MediaTrackConstraints where-  makeObject = makeObject . unMediaTrackConstraints--instance IsGObject MediaTrackConstraints where-  toGObject = GObject . unMediaTrackConstraints-  {-# INLINE toGObject #-}-  unsafeCastGObject = MediaTrackConstraints . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMediaTrackConstraints :: IsGObject obj => obj -> JSM MediaTrackConstraints-castToMediaTrackConstraints = castTo gTypeMediaTrackConstraints "MediaTrackConstraints"--gTypeMediaTrackConstraints :: JSM GType-gTypeMediaTrackConstraints = GType . Object <$> jsg "MediaTrackConstraints"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MemoryInfo".------ <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo Mozilla MemoryInfo documentation>-newtype MemoryInfo = MemoryInfo { unMemoryInfo :: JSVal }--instance PToJSVal MemoryInfo where-  pToJSVal = unMemoryInfo-  {-# INLINE pToJSVal #-}--instance PFromJSVal MemoryInfo where-  pFromJSVal = MemoryInfo-  {-# INLINE pFromJSVal #-}--instance ToJSVal MemoryInfo where-  toJSVal = return . unMemoryInfo-  {-# INLINE toJSVal #-}--instance FromJSVal MemoryInfo where-  fromJSVal v = fmap MemoryInfo <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MemoryInfo where-  makeObject = makeObject . unMemoryInfo--instance IsGObject MemoryInfo where-  toGObject = GObject . unMemoryInfo-  {-# INLINE toGObject #-}-  unsafeCastGObject = MemoryInfo . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMemoryInfo :: IsGObject obj => obj -> JSM MemoryInfo-castToMemoryInfo = castTo gTypeMemoryInfo "MemoryInfo"--gTypeMemoryInfo :: JSM GType-gTypeMemoryInfo = GType . Object <$> jsg "MemoryInfo"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MessageChannel".------ <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel Mozilla MessageChannel documentation>-newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal }--instance PToJSVal MessageChannel where-  pToJSVal = unMessageChannel-  {-# INLINE pToJSVal #-}--instance PFromJSVal MessageChannel where-  pFromJSVal = MessageChannel-  {-# INLINE pFromJSVal #-}--instance ToJSVal MessageChannel where-  toJSVal = return . unMessageChannel-  {-# INLINE toJSVal #-}--instance FromJSVal MessageChannel where-  fromJSVal v = fmap MessageChannel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MessageChannel where-  makeObject = makeObject . unMessageChannel--instance IsGObject MessageChannel where-  toGObject = GObject . unMessageChannel-  {-# INLINE toGObject #-}-  unsafeCastGObject = MessageChannel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMessageChannel :: IsGObject obj => obj -> JSM MessageChannel-castToMessageChannel = castTo gTypeMessageChannel "MessageChannel"--gTypeMessageChannel :: JSM GType-gTypeMessageChannel = GType . Object <$> jsg "MessageChannel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MessageEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent Mozilla MessageEvent documentation>-newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal }--instance PToJSVal MessageEvent where-  pToJSVal = unMessageEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MessageEvent where-  pFromJSVal = MessageEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MessageEvent where-  toJSVal = return . unMessageEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MessageEvent where-  fromJSVal v = fmap MessageEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MessageEvent where-  makeObject = makeObject . unMessageEvent--instance IsEvent MessageEvent-instance IsGObject MessageEvent where-  toGObject = GObject . unMessageEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MessageEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMessageEvent :: IsGObject obj => obj -> JSM MessageEvent-castToMessageEvent = castTo gTypeMessageEvent "MessageEvent"--gTypeMessageEvent :: JSM GType-gTypeMessageEvent = GType . Object <$> jsg "MessageEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MessagePort".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort Mozilla MessagePort documentation>-newtype MessagePort = MessagePort { unMessagePort :: JSVal }--instance PToJSVal MessagePort where-  pToJSVal = unMessagePort-  {-# INLINE pToJSVal #-}--instance PFromJSVal MessagePort where-  pFromJSVal = MessagePort-  {-# INLINE pFromJSVal #-}--instance ToJSVal MessagePort where-  toJSVal = return . unMessagePort-  {-# INLINE toJSVal #-}--instance FromJSVal MessagePort where-  fromJSVal v = fmap MessagePort <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MessagePort where-  makeObject = makeObject . unMessagePort--instance IsEventTarget MessagePort-instance IsGObject MessagePort where-  toGObject = GObject . unMessagePort-  {-# INLINE toGObject #-}-  unsafeCastGObject = MessagePort . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMessagePort :: IsGObject obj => obj -> JSM MessagePort-castToMessagePort = castTo gTypeMessagePort "MessagePort"--gTypeMessagePort :: JSM GType-gTypeMessagePort = GType . Object <$> jsg "MessagePort"-#else-type IsMessagePort o = MessagePortClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MimeType".------ <https://developer.mozilla.org/en-US/docs/Web/API/MimeType Mozilla MimeType documentation>-newtype MimeType = MimeType { unMimeType :: JSVal }--instance PToJSVal MimeType where-  pToJSVal = unMimeType-  {-# INLINE pToJSVal #-}--instance PFromJSVal MimeType where-  pFromJSVal = MimeType-  {-# INLINE pFromJSVal #-}--instance ToJSVal MimeType where-  toJSVal = return . unMimeType-  {-# INLINE toJSVal #-}--instance FromJSVal MimeType where-  fromJSVal v = fmap MimeType <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MimeType where-  makeObject = makeObject . unMimeType--instance IsGObject MimeType where-  toGObject = GObject . unMimeType-  {-# INLINE toGObject #-}-  unsafeCastGObject = MimeType . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMimeType :: IsGObject obj => obj -> JSM MimeType-castToMimeType = castTo gTypeMimeType "MimeType"--gTypeMimeType :: JSM GType-gTypeMimeType = GType . Object <$> jsg "MimeType"-#else-type IsMimeType o = MimeTypeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MimeTypeArray".------ <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray Mozilla MimeTypeArray documentation>-newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal }--instance PToJSVal MimeTypeArray where-  pToJSVal = unMimeTypeArray-  {-# INLINE pToJSVal #-}--instance PFromJSVal MimeTypeArray where-  pFromJSVal = MimeTypeArray-  {-# INLINE pFromJSVal #-}--instance ToJSVal MimeTypeArray where-  toJSVal = return . unMimeTypeArray-  {-# INLINE toJSVal #-}--instance FromJSVal MimeTypeArray where-  fromJSVal v = fmap MimeTypeArray <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MimeTypeArray where-  makeObject = makeObject . unMimeTypeArray--instance IsGObject MimeTypeArray where-  toGObject = GObject . unMimeTypeArray-  {-# INLINE toGObject #-}-  unsafeCastGObject = MimeTypeArray . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMimeTypeArray :: IsGObject obj => obj -> JSM MimeTypeArray-castToMimeTypeArray = castTo gTypeMimeTypeArray "MimeTypeArray"--gTypeMimeTypeArray :: JSM GType-gTypeMimeTypeArray = GType . Object <$> jsg "MimeTypeArray"-#else-type IsMimeTypeArray o = MimeTypeArrayClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MouseEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent Mozilla MouseEvent documentation>-newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal }--instance PToJSVal MouseEvent where-  pToJSVal = unMouseEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MouseEvent where-  pFromJSVal = MouseEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MouseEvent where-  toJSVal = return . unMouseEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MouseEvent where-  fromJSVal v = fmap MouseEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MouseEvent where-  makeObject = makeObject . unMouseEvent--class IsUIEvent o => IsMouseEvent o-toMouseEvent :: IsMouseEvent o => o -> MouseEvent-toMouseEvent = unsafeCastGObject . toGObject--instance IsMouseEvent MouseEvent-instance IsUIEvent MouseEvent-instance IsEvent MouseEvent-instance IsGObject MouseEvent where-  toGObject = GObject . unMouseEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MouseEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMouseEvent :: IsGObject obj => obj -> JSM MouseEvent-castToMouseEvent = castTo gTypeMouseEvent "MouseEvent"--gTypeMouseEvent :: JSM GType-gTypeMouseEvent = GType . Object <$> jsg "MouseEvent"-#else-type IsMouseEvent o = MouseEventClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MutationEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent Mozilla MutationEvent documentation>-newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal }--instance PToJSVal MutationEvent where-  pToJSVal = unMutationEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal MutationEvent where-  pFromJSVal = MutationEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal MutationEvent where-  toJSVal = return . unMutationEvent-  {-# INLINE toJSVal #-}--instance FromJSVal MutationEvent where-  fromJSVal v = fmap MutationEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MutationEvent where-  makeObject = makeObject . unMutationEvent--instance IsEvent MutationEvent-instance IsGObject MutationEvent where-  toGObject = GObject . unMutationEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = MutationEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMutationEvent :: IsGObject obj => obj -> JSM MutationEvent-castToMutationEvent = castTo gTypeMutationEvent "MutationEvent"--gTypeMutationEvent :: JSM GType-gTypeMutationEvent = GType . Object <$> jsg "MutationEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MutationObserver".------ <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver Mozilla MutationObserver documentation>-newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal }--instance PToJSVal MutationObserver where-  pToJSVal = unMutationObserver-  {-# INLINE pToJSVal #-}--instance PFromJSVal MutationObserver where-  pFromJSVal = MutationObserver-  {-# INLINE pFromJSVal #-}--instance ToJSVal MutationObserver where-  toJSVal = return . unMutationObserver-  {-# INLINE toJSVal #-}--instance FromJSVal MutationObserver where-  fromJSVal v = fmap MutationObserver <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MutationObserver where-  makeObject = makeObject . unMutationObserver--instance IsGObject MutationObserver where-  toGObject = GObject . unMutationObserver-  {-# INLINE toGObject #-}-  unsafeCastGObject = MutationObserver . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMutationObserver :: IsGObject obj => obj -> JSM MutationObserver-castToMutationObserver = castTo gTypeMutationObserver "MutationObserver"--gTypeMutationObserver :: JSM GType-gTypeMutationObserver = GType . Object <$> jsg "MutationObserver"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.MutationRecord".------ <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord Mozilla MutationRecord documentation>-newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal }--instance PToJSVal MutationRecord where-  pToJSVal = unMutationRecord-  {-# INLINE pToJSVal #-}--instance PFromJSVal MutationRecord where-  pFromJSVal = MutationRecord-  {-# INLINE pFromJSVal #-}--instance ToJSVal MutationRecord where-  toJSVal = return . unMutationRecord-  {-# INLINE toJSVal #-}--instance FromJSVal MutationRecord where-  fromJSVal v = fmap MutationRecord <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject MutationRecord where-  makeObject = makeObject . unMutationRecord--instance IsGObject MutationRecord where-  toGObject = GObject . unMutationRecord-  {-# INLINE toGObject #-}-  unsafeCastGObject = MutationRecord . unGObject-  {-# INLINE unsafeCastGObject #-}--castToMutationRecord :: IsGObject obj => obj -> JSM MutationRecord-castToMutationRecord = castTo gTypeMutationRecord "MutationRecord"--gTypeMutationRecord :: JSM GType-gTypeMutationRecord = GType . Object <$> jsg "MutationRecord"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NamedNodeMap".------ <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap Mozilla NamedNodeMap documentation>-newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal }--instance PToJSVal NamedNodeMap where-  pToJSVal = unNamedNodeMap-  {-# INLINE pToJSVal #-}--instance PFromJSVal NamedNodeMap where-  pFromJSVal = NamedNodeMap-  {-# INLINE pFromJSVal #-}--instance ToJSVal NamedNodeMap where-  toJSVal = return . unNamedNodeMap-  {-# INLINE toJSVal #-}--instance FromJSVal NamedNodeMap where-  fromJSVal v = fmap NamedNodeMap <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject NamedNodeMap where-  makeObject = makeObject . unNamedNodeMap--instance IsGObject NamedNodeMap where-  toGObject = GObject . unNamedNodeMap-  {-# INLINE toGObject #-}-  unsafeCastGObject = NamedNodeMap . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNamedNodeMap :: IsGObject obj => obj -> JSM NamedNodeMap-castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap"--gTypeNamedNodeMap :: JSM GType-gTypeNamedNodeMap = GType . Object <$> jsg "NamedNodeMap"-#else-type IsNamedNodeMap o = NamedNodeMapClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Navigator".------ <https://developer.mozilla.org/en-US/docs/Web/API/Navigator Mozilla Navigator documentation>-newtype Navigator = Navigator { unNavigator :: JSVal }--instance PToJSVal Navigator where-  pToJSVal = unNavigator-  {-# INLINE pToJSVal #-}--instance PFromJSVal Navigator where-  pFromJSVal = Navigator-  {-# INLINE pFromJSVal #-}--instance ToJSVal Navigator where-  toJSVal = return . unNavigator-  {-# INLINE toJSVal #-}--instance FromJSVal Navigator where-  fromJSVal v = fmap Navigator <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Navigator where-  makeObject = makeObject . unNavigator--instance IsGObject Navigator where-  toGObject = GObject . unNavigator-  {-# INLINE toGObject #-}-  unsafeCastGObject = Navigator . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNavigator :: IsGObject obj => obj -> JSM Navigator-castToNavigator = castTo gTypeNavigator "Navigator"--gTypeNavigator :: JSM GType-gTypeNavigator = GType . Object <$> jsg "Navigator"-#else-type IsNavigator o = NavigatorClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NavigatorUserMediaError".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.DOMError"------ <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaError Mozilla NavigatorUserMediaError documentation>-newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal }--instance PToJSVal NavigatorUserMediaError where-  pToJSVal = unNavigatorUserMediaError-  {-# INLINE pToJSVal #-}--instance PFromJSVal NavigatorUserMediaError where-  pFromJSVal = NavigatorUserMediaError-  {-# INLINE pFromJSVal #-}--instance ToJSVal NavigatorUserMediaError where-  toJSVal = return . unNavigatorUserMediaError-  {-# INLINE toJSVal #-}--instance FromJSVal NavigatorUserMediaError where-  fromJSVal v = fmap NavigatorUserMediaError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject NavigatorUserMediaError where-  makeObject = makeObject . unNavigatorUserMediaError--instance IsDOMError NavigatorUserMediaError-instance IsGObject NavigatorUserMediaError where-  toGObject = GObject . unNavigatorUserMediaError-  {-# INLINE toGObject #-}-  unsafeCastGObject = NavigatorUserMediaError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNavigatorUserMediaError :: IsGObject obj => obj -> JSM NavigatorUserMediaError-castToNavigatorUserMediaError = castTo gTypeNavigatorUserMediaError "NavigatorUserMediaError"--gTypeNavigatorUserMediaError :: JSM GType-gTypeNavigatorUserMediaError = GType . Object <$> jsg "NavigatorUserMediaError"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Node".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Node Mozilla Node documentation>-newtype Node = Node { unNode :: JSVal }--instance PToJSVal Node where-  pToJSVal = unNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal Node where-  pFromJSVal = Node-  {-# INLINE pFromJSVal #-}--instance ToJSVal Node where-  toJSVal = return . unNode-  {-# INLINE toJSVal #-}--instance FromJSVal Node where-  fromJSVal v = fmap Node <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Node where-  makeObject = makeObject . unNode--class IsEventTarget o => IsNode o-toNode :: IsNode o => o -> Node-toNode = unsafeCastGObject . toGObject--instance IsNode Node-instance IsEventTarget Node-instance IsGObject Node where-  toGObject = GObject . unNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = Node . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNode :: IsGObject obj => obj -> JSM Node-castToNode = castTo gTypeNode "Node"--gTypeNode :: JSM GType-gTypeNode = GType . Object <$> jsg "Node"-#else-type IsNode o = NodeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NodeFilter".------ <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter Mozilla NodeFilter documentation>-newtype NodeFilter = NodeFilter { unNodeFilter :: JSVal }--instance PToJSVal NodeFilter where-  pToJSVal = unNodeFilter-  {-# INLINE pToJSVal #-}--instance PFromJSVal NodeFilter where-  pFromJSVal = NodeFilter-  {-# INLINE pFromJSVal #-}--instance ToJSVal NodeFilter where-  toJSVal = return . unNodeFilter-  {-# INLINE toJSVal #-}--instance FromJSVal NodeFilter where-  fromJSVal v = fmap NodeFilter <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject NodeFilter where-  makeObject = makeObject . unNodeFilter--instance IsGObject NodeFilter where-  toGObject = GObject . unNodeFilter-  {-# INLINE toGObject #-}-  unsafeCastGObject = NodeFilter . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNodeFilter :: IsGObject obj => obj -> JSM NodeFilter-castToNodeFilter = castTo gTypeNodeFilter "NodeFilter"--gTypeNodeFilter :: JSM GType-gTypeNodeFilter = GType . Object <$> jsg "NodeFilter"-#else-type IsNodeFilter o = NodeFilterClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NodeIterator".------ <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator Mozilla NodeIterator documentation>-newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal }--instance PToJSVal NodeIterator where-  pToJSVal = unNodeIterator-  {-# INLINE pToJSVal #-}--instance PFromJSVal NodeIterator where-  pFromJSVal = NodeIterator-  {-# INLINE pFromJSVal #-}--instance ToJSVal NodeIterator where-  toJSVal = return . unNodeIterator-  {-# INLINE toJSVal #-}--instance FromJSVal NodeIterator where-  fromJSVal v = fmap NodeIterator <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject NodeIterator where-  makeObject = makeObject . unNodeIterator--instance IsGObject NodeIterator where-  toGObject = GObject . unNodeIterator-  {-# INLINE toGObject #-}-  unsafeCastGObject = NodeIterator . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNodeIterator :: IsGObject obj => obj -> JSM NodeIterator-castToNodeIterator = castTo gTypeNodeIterator "NodeIterator"--gTypeNodeIterator :: JSM GType-gTypeNodeIterator = GType . Object <$> jsg "NodeIterator"-#else-type IsNodeIterator o = NodeIteratorClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NodeList".------ <https://developer.mozilla.org/en-US/docs/Web/API/NodeList Mozilla NodeList documentation>-newtype NodeList = NodeList { unNodeList :: JSVal }--instance PToJSVal NodeList where-  pToJSVal = unNodeList-  {-# INLINE pToJSVal #-}--instance PFromJSVal NodeList where-  pFromJSVal = NodeList-  {-# INLINE pFromJSVal #-}--instance ToJSVal NodeList where-  toJSVal = return . unNodeList-  {-# INLINE toJSVal #-}--instance FromJSVal NodeList where-  fromJSVal v = fmap NodeList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject NodeList where-  makeObject = makeObject . unNodeList--class IsGObject o => IsNodeList o-toNodeList :: IsNodeList o => o -> NodeList-toNodeList = unsafeCastGObject . toGObject--instance IsNodeList NodeList-instance IsGObject NodeList where-  toGObject = GObject . unNodeList-  {-# INLINE toGObject #-}-  unsafeCastGObject = NodeList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNodeList :: IsGObject obj => obj -> JSM NodeList-castToNodeList = castTo gTypeNodeList "NodeList"--gTypeNodeList :: JSM GType-gTypeNodeList = GType . Object <$> jsg "NodeList"-#else-type IsNodeList o = NodeListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Notification".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Notification Mozilla Notification documentation>-newtype Notification = Notification { unNotification :: JSVal }--instance PToJSVal Notification where-  pToJSVal = unNotification-  {-# INLINE pToJSVal #-}--instance PFromJSVal Notification where-  pFromJSVal = Notification-  {-# INLINE pFromJSVal #-}--instance ToJSVal Notification where-  toJSVal = return . unNotification-  {-# INLINE toJSVal #-}--instance FromJSVal Notification where-  fromJSVal v = fmap Notification <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Notification where-  makeObject = makeObject . unNotification--instance IsEventTarget Notification-instance IsGObject Notification where-  toGObject = GObject . unNotification-  {-# INLINE toGObject #-}-  unsafeCastGObject = Notification . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNotification :: IsGObject obj => obj -> JSM Notification-castToNotification = castTo gTypeNotification "Notification"--gTypeNotification :: JSM GType-gTypeNotification = GType . Object <$> jsg "Notification"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.NotificationCenter".------ <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter Mozilla NotificationCenter documentation>-newtype NotificationCenter = NotificationCenter { unNotificationCenter :: JSVal }--instance PToJSVal NotificationCenter where-  pToJSVal = unNotificationCenter-  {-# INLINE pToJSVal #-}--instance PFromJSVal NotificationCenter where-  pFromJSVal = NotificationCenter-  {-# INLINE pFromJSVal #-}--instance ToJSVal NotificationCenter where-  toJSVal = return . unNotificationCenter-  {-# INLINE toJSVal #-}--instance FromJSVal NotificationCenter where-  fromJSVal v = fmap NotificationCenter <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject NotificationCenter where-  makeObject = makeObject . unNotificationCenter--instance IsGObject NotificationCenter where-  toGObject = GObject . unNotificationCenter-  {-# INLINE toGObject #-}-  unsafeCastGObject = NotificationCenter . unGObject-  {-# INLINE unsafeCastGObject #-}--castToNotificationCenter :: IsGObject obj => obj -> JSM NotificationCenter-castToNotificationCenter = castTo gTypeNotificationCenter "NotificationCenter"--gTypeNotificationCenter :: JSM GType-gTypeNotificationCenter = GType . Object <$> jsg "NotificationCenter"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESElementIndexUint".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESElementIndexUint Mozilla OESElementIndexUint documentation>-newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal }--instance PToJSVal OESElementIndexUint where-  pToJSVal = unOESElementIndexUint-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESElementIndexUint where-  pFromJSVal = OESElementIndexUint-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESElementIndexUint where-  toJSVal = return . unOESElementIndexUint-  {-# INLINE toJSVal #-}--instance FromJSVal OESElementIndexUint where-  fromJSVal v = fmap OESElementIndexUint <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESElementIndexUint where-  makeObject = makeObject . unOESElementIndexUint--instance IsGObject OESElementIndexUint where-  toGObject = GObject . unOESElementIndexUint-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESElementIndexUint . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESElementIndexUint :: IsGObject obj => obj -> JSM OESElementIndexUint-castToOESElementIndexUint = castTo gTypeOESElementIndexUint "OESElementIndexUint"--gTypeOESElementIndexUint :: JSM GType-gTypeOESElementIndexUint = GType . Object <$> jsg "OESElementIndexUint"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESStandardDerivatives".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESStandardDerivatives Mozilla OESStandardDerivatives documentation>-newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal }--instance PToJSVal OESStandardDerivatives where-  pToJSVal = unOESStandardDerivatives-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESStandardDerivatives where-  pFromJSVal = OESStandardDerivatives-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESStandardDerivatives where-  toJSVal = return . unOESStandardDerivatives-  {-# INLINE toJSVal #-}--instance FromJSVal OESStandardDerivatives where-  fromJSVal v = fmap OESStandardDerivatives <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESStandardDerivatives where-  makeObject = makeObject . unOESStandardDerivatives--instance IsGObject OESStandardDerivatives where-  toGObject = GObject . unOESStandardDerivatives-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESStandardDerivatives . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESStandardDerivatives :: IsGObject obj => obj -> JSM OESStandardDerivatives-castToOESStandardDerivatives = castTo gTypeOESStandardDerivatives "OESStandardDerivatives"--gTypeOESStandardDerivatives :: JSM GType-gTypeOESStandardDerivatives = GType . Object <$> jsg "OESStandardDerivatives"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureFloat".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureFloat Mozilla OESTextureFloat documentation>-newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal }--instance PToJSVal OESTextureFloat where-  pToJSVal = unOESTextureFloat-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESTextureFloat where-  pFromJSVal = OESTextureFloat-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESTextureFloat where-  toJSVal = return . unOESTextureFloat-  {-# INLINE toJSVal #-}--instance FromJSVal OESTextureFloat where-  fromJSVal v = fmap OESTextureFloat <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESTextureFloat where-  makeObject = makeObject . unOESTextureFloat--instance IsGObject OESTextureFloat where-  toGObject = GObject . unOESTextureFloat-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESTextureFloat . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESTextureFloat :: IsGObject obj => obj -> JSM OESTextureFloat-castToOESTextureFloat = castTo gTypeOESTextureFloat "OESTextureFloat"--gTypeOESTextureFloat :: JSM GType-gTypeOESTextureFloat = GType . Object <$> jsg "OESTextureFloat"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureFloatLinear".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureFloatLinear Mozilla OESTextureFloatLinear documentation>-newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal }--instance PToJSVal OESTextureFloatLinear where-  pToJSVal = unOESTextureFloatLinear-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESTextureFloatLinear where-  pFromJSVal = OESTextureFloatLinear-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESTextureFloatLinear where-  toJSVal = return . unOESTextureFloatLinear-  {-# INLINE toJSVal #-}--instance FromJSVal OESTextureFloatLinear where-  fromJSVal v = fmap OESTextureFloatLinear <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESTextureFloatLinear where-  makeObject = makeObject . unOESTextureFloatLinear--instance IsGObject OESTextureFloatLinear where-  toGObject = GObject . unOESTextureFloatLinear-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESTextureFloatLinear . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESTextureFloatLinear :: IsGObject obj => obj -> JSM OESTextureFloatLinear-castToOESTextureFloatLinear = castTo gTypeOESTextureFloatLinear "OESTextureFloatLinear"--gTypeOESTextureFloatLinear :: JSM GType-gTypeOESTextureFloatLinear = GType . Object <$> jsg "OESTextureFloatLinear"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureHalfFloat".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureHalfFloat Mozilla OESTextureHalfFloat documentation>-newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal }--instance PToJSVal OESTextureHalfFloat where-  pToJSVal = unOESTextureHalfFloat-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESTextureHalfFloat where-  pFromJSVal = OESTextureHalfFloat-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESTextureHalfFloat where-  toJSVal = return . unOESTextureHalfFloat-  {-# INLINE toJSVal #-}--instance FromJSVal OESTextureHalfFloat where-  fromJSVal v = fmap OESTextureHalfFloat <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESTextureHalfFloat where-  makeObject = makeObject . unOESTextureHalfFloat--instance IsGObject OESTextureHalfFloat where-  toGObject = GObject . unOESTextureHalfFloat-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESTextureHalfFloat . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESTextureHalfFloat :: IsGObject obj => obj -> JSM OESTextureHalfFloat-castToOESTextureHalfFloat = castTo gTypeOESTextureHalfFloat "OESTextureHalfFloat"--gTypeOESTextureHalfFloat :: JSM GType-gTypeOESTextureHalfFloat = GType . Object <$> jsg "OESTextureHalfFloat"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESTextureHalfFloatLinear".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESTextureHalfFloatLinear Mozilla OESTextureHalfFloatLinear documentation>-newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal }--instance PToJSVal OESTextureHalfFloatLinear where-  pToJSVal = unOESTextureHalfFloatLinear-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESTextureHalfFloatLinear where-  pFromJSVal = OESTextureHalfFloatLinear-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESTextureHalfFloatLinear where-  toJSVal = return . unOESTextureHalfFloatLinear-  {-# INLINE toJSVal #-}--instance FromJSVal OESTextureHalfFloatLinear where-  fromJSVal v = fmap OESTextureHalfFloatLinear <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESTextureHalfFloatLinear where-  makeObject = makeObject . unOESTextureHalfFloatLinear--instance IsGObject OESTextureHalfFloatLinear where-  toGObject = GObject . unOESTextureHalfFloatLinear-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESTextureHalfFloatLinear . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESTextureHalfFloatLinear :: IsGObject obj => obj -> JSM OESTextureHalfFloatLinear-castToOESTextureHalfFloatLinear = castTo gTypeOESTextureHalfFloatLinear "OESTextureHalfFloatLinear"--gTypeOESTextureHalfFloatLinear :: JSM GType-gTypeOESTextureHalfFloatLinear = GType . Object <$> jsg "OESTextureHalfFloatLinear"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OESVertexArrayObject".------ <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject Mozilla OESVertexArrayObject documentation>-newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal }--instance PToJSVal OESVertexArrayObject where-  pToJSVal = unOESVertexArrayObject-  {-# INLINE pToJSVal #-}--instance PFromJSVal OESVertexArrayObject where-  pFromJSVal = OESVertexArrayObject-  {-# INLINE pFromJSVal #-}--instance ToJSVal OESVertexArrayObject where-  toJSVal = return . unOESVertexArrayObject-  {-# INLINE toJSVal #-}--instance FromJSVal OESVertexArrayObject where-  fromJSVal v = fmap OESVertexArrayObject <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OESVertexArrayObject where-  makeObject = makeObject . unOESVertexArrayObject--instance IsGObject OESVertexArrayObject where-  toGObject = GObject . unOESVertexArrayObject-  {-# INLINE toGObject #-}-  unsafeCastGObject = OESVertexArrayObject . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOESVertexArrayObject :: IsGObject obj => obj -> JSM OESVertexArrayObject-castToOESVertexArrayObject = castTo gTypeOESVertexArrayObject "OESVertexArrayObject"--gTypeOESVertexArrayObject :: JSM GType-gTypeOESVertexArrayObject = GType . Object <$> jsg "OESVertexArrayObject"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OfflineAudioCompletionEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent Mozilla OfflineAudioCompletionEvent documentation>-newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal }--instance PToJSVal OfflineAudioCompletionEvent where-  pToJSVal = unOfflineAudioCompletionEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal OfflineAudioCompletionEvent where-  pFromJSVal = OfflineAudioCompletionEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal OfflineAudioCompletionEvent where-  toJSVal = return . unOfflineAudioCompletionEvent-  {-# INLINE toJSVal #-}--instance FromJSVal OfflineAudioCompletionEvent where-  fromJSVal v = fmap OfflineAudioCompletionEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OfflineAudioCompletionEvent where-  makeObject = makeObject . unOfflineAudioCompletionEvent--instance IsEvent OfflineAudioCompletionEvent-instance IsGObject OfflineAudioCompletionEvent where-  toGObject = GObject . unOfflineAudioCompletionEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = OfflineAudioCompletionEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOfflineAudioCompletionEvent :: IsGObject obj => obj -> JSM OfflineAudioCompletionEvent-castToOfflineAudioCompletionEvent = castTo gTypeOfflineAudioCompletionEvent "OfflineAudioCompletionEvent"--gTypeOfflineAudioCompletionEvent :: JSM GType-gTypeOfflineAudioCompletionEvent = GType . Object <$> jsg "OfflineAudioCompletionEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OfflineAudioContext".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioContext"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioContext Mozilla OfflineAudioContext documentation>-newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal }--instance PToJSVal OfflineAudioContext where-  pToJSVal = unOfflineAudioContext-  {-# INLINE pToJSVal #-}--instance PFromJSVal OfflineAudioContext where-  pFromJSVal = OfflineAudioContext-  {-# INLINE pFromJSVal #-}--instance ToJSVal OfflineAudioContext where-  toJSVal = return . unOfflineAudioContext-  {-# INLINE toJSVal #-}--instance FromJSVal OfflineAudioContext where-  fromJSVal v = fmap OfflineAudioContext <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OfflineAudioContext where-  makeObject = makeObject . unOfflineAudioContext--instance IsAudioContext OfflineAudioContext-instance IsEventTarget OfflineAudioContext-instance IsGObject OfflineAudioContext where-  toGObject = GObject . unOfflineAudioContext-  {-# INLINE toGObject #-}-  unsafeCastGObject = OfflineAudioContext . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOfflineAudioContext :: IsGObject obj => obj -> JSM OfflineAudioContext-castToOfflineAudioContext = castTo gTypeOfflineAudioContext "OfflineAudioContext"--gTypeOfflineAudioContext :: JSM GType-gTypeOfflineAudioContext = GType . Object <$> jsg "OfflineAudioContext"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OscillatorNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode Mozilla OscillatorNode documentation>-newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal }--instance PToJSVal OscillatorNode where-  pToJSVal = unOscillatorNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal OscillatorNode where-  pFromJSVal = OscillatorNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal OscillatorNode where-  toJSVal = return . unOscillatorNode-  {-# INLINE toJSVal #-}--instance FromJSVal OscillatorNode where-  fromJSVal v = fmap OscillatorNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OscillatorNode where-  makeObject = makeObject . unOscillatorNode--instance IsAudioNode OscillatorNode-instance IsEventTarget OscillatorNode-instance IsGObject OscillatorNode where-  toGObject = GObject . unOscillatorNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = OscillatorNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOscillatorNode :: IsGObject obj => obj -> JSM OscillatorNode-castToOscillatorNode = castTo gTypeOscillatorNode "OscillatorNode"--gTypeOscillatorNode :: JSM GType-gTypeOscillatorNode = GType . Object <$> jsg "OscillatorNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.OverflowEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent Mozilla OverflowEvent documentation>-newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal }--instance PToJSVal OverflowEvent where-  pToJSVal = unOverflowEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal OverflowEvent where-  pFromJSVal = OverflowEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal OverflowEvent where-  toJSVal = return . unOverflowEvent-  {-# INLINE toJSVal #-}--instance FromJSVal OverflowEvent where-  fromJSVal v = fmap OverflowEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject OverflowEvent where-  makeObject = makeObject . unOverflowEvent--instance IsEvent OverflowEvent-instance IsGObject OverflowEvent where-  toGObject = GObject . unOverflowEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = OverflowEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToOverflowEvent :: IsGObject obj => obj -> JSM OverflowEvent-castToOverflowEvent = castTo gTypeOverflowEvent "OverflowEvent"--gTypeOverflowEvent :: JSM GType-gTypeOverflowEvent = GType . Object <$> jsg "OverflowEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PageTransitionEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent Mozilla PageTransitionEvent documentation>-newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal }--instance PToJSVal PageTransitionEvent where-  pToJSVal = unPageTransitionEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal PageTransitionEvent where-  pFromJSVal = PageTransitionEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal PageTransitionEvent where-  toJSVal = return . unPageTransitionEvent-  {-# INLINE toJSVal #-}--instance FromJSVal PageTransitionEvent where-  fromJSVal v = fmap PageTransitionEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PageTransitionEvent where-  makeObject = makeObject . unPageTransitionEvent--instance IsEvent PageTransitionEvent-instance IsGObject PageTransitionEvent where-  toGObject = GObject . unPageTransitionEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = PageTransitionEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPageTransitionEvent :: IsGObject obj => obj -> JSM PageTransitionEvent-castToPageTransitionEvent = castTo gTypePageTransitionEvent "PageTransitionEvent"--gTypePageTransitionEvent :: JSM GType-gTypePageTransitionEvent = GType . Object <$> jsg "PageTransitionEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PannerNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode Mozilla webkitAudioPannerNode documentation>-newtype PannerNode = PannerNode { unPannerNode :: JSVal }--instance PToJSVal PannerNode where-  pToJSVal = unPannerNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal PannerNode where-  pFromJSVal = PannerNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal PannerNode where-  toJSVal = return . unPannerNode-  {-# INLINE toJSVal #-}--instance FromJSVal PannerNode where-  fromJSVal v = fmap PannerNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PannerNode where-  makeObject = makeObject . unPannerNode--instance IsAudioNode PannerNode-instance IsEventTarget PannerNode-instance IsGObject PannerNode where-  toGObject = GObject . unPannerNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = PannerNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPannerNode :: IsGObject obj => obj -> JSM PannerNode-castToPannerNode = castTo gTypePannerNode "PannerNode"--gTypePannerNode :: JSM GType-gTypePannerNode = GType . Object <$> jsg "webkitAudioPannerNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Path2D".------ <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation>-newtype Path2D = Path2D { unPath2D :: JSVal }--instance PToJSVal Path2D where-  pToJSVal = unPath2D-  {-# INLINE pToJSVal #-}--instance PFromJSVal Path2D where-  pFromJSVal = Path2D-  {-# INLINE pFromJSVal #-}--instance ToJSVal Path2D where-  toJSVal = return . unPath2D-  {-# INLINE toJSVal #-}--instance FromJSVal Path2D where-  fromJSVal v = fmap Path2D <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Path2D where-  makeObject = makeObject . unPath2D--instance IsGObject Path2D where-  toGObject = GObject . unPath2D-  {-# INLINE toGObject #-}-  unsafeCastGObject = Path2D . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPath2D :: IsGObject obj => obj -> JSM Path2D-castToPath2D = castTo gTypePath2D "Path2D"--gTypePath2D :: JSM GType-gTypePath2D = GType . Object <$> jsg "Path2D"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Performance".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Performance Mozilla Performance documentation>-newtype Performance = Performance { unPerformance :: JSVal }--instance PToJSVal Performance where-  pToJSVal = unPerformance-  {-# INLINE pToJSVal #-}--instance PFromJSVal Performance where-  pFromJSVal = Performance-  {-# INLINE pFromJSVal #-}--instance ToJSVal Performance where-  toJSVal = return . unPerformance-  {-# INLINE toJSVal #-}--instance FromJSVal Performance where-  fromJSVal v = fmap Performance <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Performance where-  makeObject = makeObject . unPerformance--instance IsEventTarget Performance-instance IsGObject Performance where-  toGObject = GObject . unPerformance-  {-# INLINE toGObject #-}-  unsafeCastGObject = Performance . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformance :: IsGObject obj => obj -> JSM Performance-castToPerformance = castTo gTypePerformance "Performance"--gTypePerformance :: JSM GType-gTypePerformance = GType . Object <$> jsg "Performance"-#else-#ifndef USE_OLD_WEBKIT-type IsPerformance o = PerformanceClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceEntry".------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry Mozilla PerformanceEntry documentation>-newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal }--instance PToJSVal PerformanceEntry where-  pToJSVal = unPerformanceEntry-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceEntry where-  pFromJSVal = PerformanceEntry-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceEntry where-  toJSVal = return . unPerformanceEntry-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceEntry where-  fromJSVal v = fmap PerformanceEntry <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceEntry where-  makeObject = makeObject . unPerformanceEntry--class IsGObject o => IsPerformanceEntry o-toPerformanceEntry :: IsPerformanceEntry o => o -> PerformanceEntry-toPerformanceEntry = unsafeCastGObject . toGObject--instance IsPerformanceEntry PerformanceEntry-instance IsGObject PerformanceEntry where-  toGObject = GObject . unPerformanceEntry-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceEntry . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceEntry :: IsGObject obj => obj -> JSM PerformanceEntry-castToPerformanceEntry = castTo gTypePerformanceEntry "PerformanceEntry"--gTypePerformanceEntry :: JSM GType-gTypePerformanceEntry = GType . Object <$> jsg "PerformanceEntry"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceEntryList".------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList Mozilla PerformanceEntryList documentation>-newtype PerformanceEntryList = PerformanceEntryList { unPerformanceEntryList :: JSVal }--instance PToJSVal PerformanceEntryList where-  pToJSVal = unPerformanceEntryList-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceEntryList where-  pFromJSVal = PerformanceEntryList-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceEntryList where-  toJSVal = return . unPerformanceEntryList-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceEntryList where-  fromJSVal v = fmap PerformanceEntryList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceEntryList where-  makeObject = makeObject . unPerformanceEntryList--instance IsGObject PerformanceEntryList where-  toGObject = GObject . unPerformanceEntryList-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceEntryList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceEntryList :: IsGObject obj => obj -> JSM PerformanceEntryList-castToPerformanceEntryList = castTo gTypePerformanceEntryList "PerformanceEntryList"--gTypePerformanceEntryList :: JSM GType-gTypePerformanceEntryList = GType . Object <$> jsg "PerformanceEntryList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceMark".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.PerformanceEntry"------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceMark Mozilla PerformanceMark documentation>-newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal }--instance PToJSVal PerformanceMark where-  pToJSVal = unPerformanceMark-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceMark where-  pFromJSVal = PerformanceMark-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceMark where-  toJSVal = return . unPerformanceMark-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceMark where-  fromJSVal v = fmap PerformanceMark <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceMark where-  makeObject = makeObject . unPerformanceMark--instance IsPerformanceEntry PerformanceMark-instance IsGObject PerformanceMark where-  toGObject = GObject . unPerformanceMark-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceMark . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceMark :: IsGObject obj => obj -> JSM PerformanceMark-castToPerformanceMark = castTo gTypePerformanceMark "PerformanceMark"--gTypePerformanceMark :: JSM GType-gTypePerformanceMark = GType . Object <$> jsg "PerformanceMark"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceMeasure".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.PerformanceEntry"------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceMeasure Mozilla PerformanceMeasure documentation>-newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal }--instance PToJSVal PerformanceMeasure where-  pToJSVal = unPerformanceMeasure-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceMeasure where-  pFromJSVal = PerformanceMeasure-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceMeasure where-  toJSVal = return . unPerformanceMeasure-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceMeasure where-  fromJSVal v = fmap PerformanceMeasure <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceMeasure where-  makeObject = makeObject . unPerformanceMeasure--instance IsPerformanceEntry PerformanceMeasure-instance IsGObject PerformanceMeasure where-  toGObject = GObject . unPerformanceMeasure-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceMeasure . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceMeasure :: IsGObject obj => obj -> JSM PerformanceMeasure-castToPerformanceMeasure = castTo gTypePerformanceMeasure "PerformanceMeasure"--gTypePerformanceMeasure :: JSM GType-gTypePerformanceMeasure = GType . Object <$> jsg "PerformanceMeasure"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceNavigation".------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation Mozilla PerformanceNavigation documentation>-newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal }--instance PToJSVal PerformanceNavigation where-  pToJSVal = unPerformanceNavigation-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceNavigation where-  pFromJSVal = PerformanceNavigation-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceNavigation where-  toJSVal = return . unPerformanceNavigation-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceNavigation where-  fromJSVal v = fmap PerformanceNavigation <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceNavigation where-  makeObject = makeObject . unPerformanceNavigation--instance IsGObject PerformanceNavigation where-  toGObject = GObject . unPerformanceNavigation-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceNavigation . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceNavigation :: IsGObject obj => obj -> JSM PerformanceNavigation-castToPerformanceNavigation = castTo gTypePerformanceNavigation "PerformanceNavigation"--gTypePerformanceNavigation :: JSM GType-gTypePerformanceNavigation = GType . Object <$> jsg "PerformanceNavigation"-#else-#ifndef USE_OLD_WEBKIT-type IsPerformanceNavigation o = PerformanceNavigationClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceResourceTiming".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.PerformanceEntry"------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming Mozilla PerformanceResourceTiming documentation>-newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal }--instance PToJSVal PerformanceResourceTiming where-  pToJSVal = unPerformanceResourceTiming-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceResourceTiming where-  pFromJSVal = PerformanceResourceTiming-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceResourceTiming where-  toJSVal = return . unPerformanceResourceTiming-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceResourceTiming where-  fromJSVal v = fmap PerformanceResourceTiming <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceResourceTiming where-  makeObject = makeObject . unPerformanceResourceTiming--instance IsPerformanceEntry PerformanceResourceTiming-instance IsGObject PerformanceResourceTiming where-  toGObject = GObject . unPerformanceResourceTiming-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceResourceTiming . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceResourceTiming :: IsGObject obj => obj -> JSM PerformanceResourceTiming-castToPerformanceResourceTiming = castTo gTypePerformanceResourceTiming "PerformanceResourceTiming"--gTypePerformanceResourceTiming :: JSM GType-gTypePerformanceResourceTiming = GType . Object <$> jsg "PerformanceResourceTiming"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PerformanceTiming".------ <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming Mozilla PerformanceTiming documentation>-newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal }--instance PToJSVal PerformanceTiming where-  pToJSVal = unPerformanceTiming-  {-# INLINE pToJSVal #-}--instance PFromJSVal PerformanceTiming where-  pFromJSVal = PerformanceTiming-  {-# INLINE pFromJSVal #-}--instance ToJSVal PerformanceTiming where-  toJSVal = return . unPerformanceTiming-  {-# INLINE toJSVal #-}--instance FromJSVal PerformanceTiming where-  fromJSVal v = fmap PerformanceTiming <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PerformanceTiming where-  makeObject = makeObject . unPerformanceTiming--instance IsGObject PerformanceTiming where-  toGObject = GObject . unPerformanceTiming-  {-# INLINE toGObject #-}-  unsafeCastGObject = PerformanceTiming . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPerformanceTiming :: IsGObject obj => obj -> JSM PerformanceTiming-castToPerformanceTiming = castTo gTypePerformanceTiming "PerformanceTiming"--gTypePerformanceTiming :: JSM GType-gTypePerformanceTiming = GType . Object <$> jsg "PerformanceTiming"-#else-#ifndef USE_OLD_WEBKIT-type IsPerformanceTiming o = PerformanceTimingClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PeriodicWave".------ <https://developer.mozilla.org/en-US/docs/Web/API/PeriodicWave Mozilla PeriodicWave documentation>-newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal }--instance PToJSVal PeriodicWave where-  pToJSVal = unPeriodicWave-  {-# INLINE pToJSVal #-}--instance PFromJSVal PeriodicWave where-  pFromJSVal = PeriodicWave-  {-# INLINE pFromJSVal #-}--instance ToJSVal PeriodicWave where-  toJSVal = return . unPeriodicWave-  {-# INLINE toJSVal #-}--instance FromJSVal PeriodicWave where-  fromJSVal v = fmap PeriodicWave <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PeriodicWave where-  makeObject = makeObject . unPeriodicWave--instance IsGObject PeriodicWave where-  toGObject = GObject . unPeriodicWave-  {-# INLINE toGObject #-}-  unsafeCastGObject = PeriodicWave . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPeriodicWave :: IsGObject obj => obj -> JSM PeriodicWave-castToPeriodicWave = castTo gTypePeriodicWave "PeriodicWave"--gTypePeriodicWave :: JSM GType-gTypePeriodicWave = GType . Object <$> jsg "PeriodicWave"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Plugin".------ <https://developer.mozilla.org/en-US/docs/Web/API/Plugin Mozilla Plugin documentation>-newtype Plugin = Plugin { unPlugin :: JSVal }--instance PToJSVal Plugin where-  pToJSVal = unPlugin-  {-# INLINE pToJSVal #-}--instance PFromJSVal Plugin where-  pFromJSVal = Plugin-  {-# INLINE pFromJSVal #-}--instance ToJSVal Plugin where-  toJSVal = return . unPlugin-  {-# INLINE toJSVal #-}--instance FromJSVal Plugin where-  fromJSVal v = fmap Plugin <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Plugin where-  makeObject = makeObject . unPlugin--instance IsGObject Plugin where-  toGObject = GObject . unPlugin-  {-# INLINE toGObject #-}-  unsafeCastGObject = Plugin . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPlugin :: IsGObject obj => obj -> JSM Plugin-castToPlugin = castTo gTypePlugin "Plugin"--gTypePlugin :: JSM GType-gTypePlugin = GType . Object <$> jsg "Plugin"-#else-type IsPlugin o = PluginClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PluginArray".------ <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray Mozilla PluginArray documentation>-newtype PluginArray = PluginArray { unPluginArray :: JSVal }--instance PToJSVal PluginArray where-  pToJSVal = unPluginArray-  {-# INLINE pToJSVal #-}--instance PFromJSVal PluginArray where-  pFromJSVal = PluginArray-  {-# INLINE pFromJSVal #-}--instance ToJSVal PluginArray where-  toJSVal = return . unPluginArray-  {-# INLINE toJSVal #-}--instance FromJSVal PluginArray where-  fromJSVal v = fmap PluginArray <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PluginArray where-  makeObject = makeObject . unPluginArray--instance IsGObject PluginArray where-  toGObject = GObject . unPluginArray-  {-# INLINE toGObject #-}-  unsafeCastGObject = PluginArray . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPluginArray :: IsGObject obj => obj -> JSM PluginArray-castToPluginArray = castTo gTypePluginArray "PluginArray"--gTypePluginArray :: JSM GType-gTypePluginArray = GType . Object <$> jsg "PluginArray"-#else-type IsPluginArray o = PluginArrayClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PopStateEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent Mozilla PopStateEvent documentation>-newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal }--instance PToJSVal PopStateEvent where-  pToJSVal = unPopStateEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal PopStateEvent where-  pFromJSVal = PopStateEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal PopStateEvent where-  toJSVal = return . unPopStateEvent-  {-# INLINE toJSVal #-}--instance FromJSVal PopStateEvent where-  fromJSVal v = fmap PopStateEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PopStateEvent where-  makeObject = makeObject . unPopStateEvent--instance IsEvent PopStateEvent-instance IsGObject PopStateEvent where-  toGObject = GObject . unPopStateEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = PopStateEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPopStateEvent :: IsGObject obj => obj -> JSM PopStateEvent-castToPopStateEvent = castTo gTypePopStateEvent "PopStateEvent"--gTypePopStateEvent :: JSM GType-gTypePopStateEvent = GType . Object <$> jsg "PopStateEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.PositionError".------ <https://developer.mozilla.org/en-US/docs/Web/API/PositionError Mozilla PositionError documentation>-newtype PositionError = PositionError { unPositionError :: JSVal }--instance PToJSVal PositionError where-  pToJSVal = unPositionError-  {-# INLINE pToJSVal #-}--instance PFromJSVal PositionError where-  pFromJSVal = PositionError-  {-# INLINE pFromJSVal #-}--instance ToJSVal PositionError where-  toJSVal = return . unPositionError-  {-# INLINE toJSVal #-}--instance FromJSVal PositionError where-  fromJSVal v = fmap PositionError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject PositionError where-  makeObject = makeObject . unPositionError--instance IsGObject PositionError where-  toGObject = GObject . unPositionError-  {-# INLINE toGObject #-}-  unsafeCastGObject = PositionError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToPositionError :: IsGObject obj => obj -> JSM PositionError-castToPositionError = castTo gTypePositionError "PositionError"--gTypePositionError :: JSM GType-gTypePositionError = GType . Object <$> jsg "PositionError"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ProcessingInstruction".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CharacterData"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction Mozilla ProcessingInstruction documentation>-newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal }--instance PToJSVal ProcessingInstruction where-  pToJSVal = unProcessingInstruction-  {-# INLINE pToJSVal #-}--instance PFromJSVal ProcessingInstruction where-  pFromJSVal = ProcessingInstruction-  {-# INLINE pFromJSVal #-}--instance ToJSVal ProcessingInstruction where-  toJSVal = return . unProcessingInstruction-  {-# INLINE toJSVal #-}--instance FromJSVal ProcessingInstruction where-  fromJSVal v = fmap ProcessingInstruction <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ProcessingInstruction where-  makeObject = makeObject . unProcessingInstruction--instance IsCharacterData ProcessingInstruction-instance IsNode ProcessingInstruction-instance IsEventTarget ProcessingInstruction-instance IsGObject ProcessingInstruction where-  toGObject = GObject . unProcessingInstruction-  {-# INLINE toGObject #-}-  unsafeCastGObject = ProcessingInstruction . unGObject-  {-# INLINE unsafeCastGObject #-}--castToProcessingInstruction :: IsGObject obj => obj -> JSM ProcessingInstruction-castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction"--gTypeProcessingInstruction :: JSM GType-gTypeProcessingInstruction = GType . Object <$> jsg "ProcessingInstruction"-#else-type IsProcessingInstruction o = ProcessingInstructionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ProgressEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent Mozilla ProgressEvent documentation>-newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal }--instance PToJSVal ProgressEvent where-  pToJSVal = unProgressEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal ProgressEvent where-  pFromJSVal = ProgressEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal ProgressEvent where-  toJSVal = return . unProgressEvent-  {-# INLINE toJSVal #-}--instance FromJSVal ProgressEvent where-  fromJSVal v = fmap ProgressEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ProgressEvent where-  makeObject = makeObject . unProgressEvent--class IsEvent o => IsProgressEvent o-toProgressEvent :: IsProgressEvent o => o -> ProgressEvent-toProgressEvent = unsafeCastGObject . toGObject--instance IsProgressEvent ProgressEvent-instance IsEvent ProgressEvent-instance IsGObject ProgressEvent where-  toGObject = GObject . unProgressEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = ProgressEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToProgressEvent :: IsGObject obj => obj -> JSM ProgressEvent-castToProgressEvent = castTo gTypeProgressEvent "ProgressEvent"--gTypeProgressEvent :: JSM GType-gTypeProgressEvent = GType . Object <$> jsg "ProgressEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.QuickTimePluginReplacement".------ <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement Mozilla QuickTimePluginReplacement documentation>-newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal }--instance PToJSVal QuickTimePluginReplacement where-  pToJSVal = unQuickTimePluginReplacement-  {-# INLINE pToJSVal #-}--instance PFromJSVal QuickTimePluginReplacement where-  pFromJSVal = QuickTimePluginReplacement-  {-# INLINE pFromJSVal #-}--instance ToJSVal QuickTimePluginReplacement where-  toJSVal = return . unQuickTimePluginReplacement-  {-# INLINE toJSVal #-}--instance FromJSVal QuickTimePluginReplacement where-  fromJSVal v = fmap QuickTimePluginReplacement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject QuickTimePluginReplacement where-  makeObject = makeObject . unQuickTimePluginReplacement--instance IsGObject QuickTimePluginReplacement where-  toGObject = GObject . unQuickTimePluginReplacement-  {-# INLINE toGObject #-}-  unsafeCastGObject = QuickTimePluginReplacement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToQuickTimePluginReplacement :: IsGObject obj => obj -> JSM QuickTimePluginReplacement-castToQuickTimePluginReplacement = castTo gTypeQuickTimePluginReplacement "QuickTimePluginReplacement"--gTypeQuickTimePluginReplacement :: JSM GType-gTypeQuickTimePluginReplacement = GType . Object <$> jsg "QuickTimePluginReplacement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RGBColor".------ <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor Mozilla RGBColor documentation>-newtype RGBColor = RGBColor { unRGBColor :: JSVal }--instance PToJSVal RGBColor where-  pToJSVal = unRGBColor-  {-# INLINE pToJSVal #-}--instance PFromJSVal RGBColor where-  pFromJSVal = RGBColor-  {-# INLINE pFromJSVal #-}--instance ToJSVal RGBColor where-  toJSVal = return . unRGBColor-  {-# INLINE toJSVal #-}--instance FromJSVal RGBColor where-  fromJSVal v = fmap RGBColor <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RGBColor where-  makeObject = makeObject . unRGBColor--instance IsGObject RGBColor where-  toGObject = GObject . unRGBColor-  {-# INLINE toGObject #-}-  unsafeCastGObject = RGBColor . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRGBColor :: IsGObject obj => obj -> JSM RGBColor-castToRGBColor = castTo gTypeRGBColor "RGBColor"--gTypeRGBColor :: JSM GType-gTypeRGBColor = GType . Object <$> jsg "RGBColor"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCConfiguration".------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration Mozilla RTCConfiguration documentation>-newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal }--instance PToJSVal RTCConfiguration where-  pToJSVal = unRTCConfiguration-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCConfiguration where-  pFromJSVal = RTCConfiguration-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCConfiguration where-  toJSVal = return . unRTCConfiguration-  {-# INLINE toJSVal #-}--instance FromJSVal RTCConfiguration where-  fromJSVal v = fmap RTCConfiguration <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCConfiguration where-  makeObject = makeObject . unRTCConfiguration--instance IsGObject RTCConfiguration where-  toGObject = GObject . unRTCConfiguration-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCConfiguration . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCConfiguration :: IsGObject obj => obj -> JSM RTCConfiguration-castToRTCConfiguration = castTo gTypeRTCConfiguration "RTCConfiguration"--gTypeRTCConfiguration :: JSM GType-gTypeRTCConfiguration = GType . Object <$> jsg "RTCConfiguration"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDTMFSender".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender Mozilla RTCDTMFSender documentation>-newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal }--instance PToJSVal RTCDTMFSender where-  pToJSVal = unRTCDTMFSender-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCDTMFSender where-  pFromJSVal = RTCDTMFSender-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCDTMFSender where-  toJSVal = return . unRTCDTMFSender-  {-# INLINE toJSVal #-}--instance FromJSVal RTCDTMFSender where-  fromJSVal v = fmap RTCDTMFSender <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCDTMFSender where-  makeObject = makeObject . unRTCDTMFSender--instance IsEventTarget RTCDTMFSender-instance IsGObject RTCDTMFSender where-  toGObject = GObject . unRTCDTMFSender-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCDTMFSender . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCDTMFSender :: IsGObject obj => obj -> JSM RTCDTMFSender-castToRTCDTMFSender = castTo gTypeRTCDTMFSender "RTCDTMFSender"--gTypeRTCDTMFSender :: JSM GType-gTypeRTCDTMFSender = GType . Object <$> jsg "RTCDTMFSender"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDTMFToneChangeEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent Mozilla RTCDTMFToneChangeEvent documentation>-newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal }--instance PToJSVal RTCDTMFToneChangeEvent where-  pToJSVal = unRTCDTMFToneChangeEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCDTMFToneChangeEvent where-  pFromJSVal = RTCDTMFToneChangeEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCDTMFToneChangeEvent where-  toJSVal = return . unRTCDTMFToneChangeEvent-  {-# INLINE toJSVal #-}--instance FromJSVal RTCDTMFToneChangeEvent where-  fromJSVal v = fmap RTCDTMFToneChangeEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCDTMFToneChangeEvent where-  makeObject = makeObject . unRTCDTMFToneChangeEvent--instance IsEvent RTCDTMFToneChangeEvent-instance IsGObject RTCDTMFToneChangeEvent where-  toGObject = GObject . unRTCDTMFToneChangeEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCDTMFToneChangeEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCDTMFToneChangeEvent :: IsGObject obj => obj -> JSM RTCDTMFToneChangeEvent-castToRTCDTMFToneChangeEvent = castTo gTypeRTCDTMFToneChangeEvent "RTCDTMFToneChangeEvent"--gTypeRTCDTMFToneChangeEvent :: JSM GType-gTypeRTCDTMFToneChangeEvent = GType . Object <$> jsg "RTCDTMFToneChangeEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDataChannel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel Mozilla RTCDataChannel documentation>-newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal }--instance PToJSVal RTCDataChannel where-  pToJSVal = unRTCDataChannel-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCDataChannel where-  pFromJSVal = RTCDataChannel-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCDataChannel where-  toJSVal = return . unRTCDataChannel-  {-# INLINE toJSVal #-}--instance FromJSVal RTCDataChannel where-  fromJSVal v = fmap RTCDataChannel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCDataChannel where-  makeObject = makeObject . unRTCDataChannel--instance IsEventTarget RTCDataChannel-instance IsGObject RTCDataChannel where-  toGObject = GObject . unRTCDataChannel-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCDataChannel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCDataChannel :: IsGObject obj => obj -> JSM RTCDataChannel-castToRTCDataChannel = castTo gTypeRTCDataChannel "RTCDataChannel"--gTypeRTCDataChannel :: JSM GType-gTypeRTCDataChannel = GType . Object <$> jsg "RTCDataChannel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCDataChannelEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent Mozilla RTCDataChannelEvent documentation>-newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal }--instance PToJSVal RTCDataChannelEvent where-  pToJSVal = unRTCDataChannelEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCDataChannelEvent where-  pFromJSVal = RTCDataChannelEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCDataChannelEvent where-  toJSVal = return . unRTCDataChannelEvent-  {-# INLINE toJSVal #-}--instance FromJSVal RTCDataChannelEvent where-  fromJSVal v = fmap RTCDataChannelEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCDataChannelEvent where-  makeObject = makeObject . unRTCDataChannelEvent--instance IsEvent RTCDataChannelEvent-instance IsGObject RTCDataChannelEvent where-  toGObject = GObject . unRTCDataChannelEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCDataChannelEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCDataChannelEvent :: IsGObject obj => obj -> JSM RTCDataChannelEvent-castToRTCDataChannelEvent = castTo gTypeRTCDataChannelEvent "RTCDataChannelEvent"--gTypeRTCDataChannelEvent :: JSM GType-gTypeRTCDataChannelEvent = GType . Object <$> jsg "RTCDataChannelEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCIceCandidate".------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate Mozilla RTCIceCandidate documentation>-newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal }--instance PToJSVal RTCIceCandidate where-  pToJSVal = unRTCIceCandidate-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCIceCandidate where-  pFromJSVal = RTCIceCandidate-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCIceCandidate where-  toJSVal = return . unRTCIceCandidate-  {-# INLINE toJSVal #-}--instance FromJSVal RTCIceCandidate where-  fromJSVal v = fmap RTCIceCandidate <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCIceCandidate where-  makeObject = makeObject . unRTCIceCandidate--instance IsGObject RTCIceCandidate where-  toGObject = GObject . unRTCIceCandidate-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCIceCandidate . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCIceCandidate :: IsGObject obj => obj -> JSM RTCIceCandidate-castToRTCIceCandidate = castTo gTypeRTCIceCandidate "RTCIceCandidate"--gTypeRTCIceCandidate :: JSM GType-gTypeRTCIceCandidate = GType . Object <$> jsg "RTCIceCandidate"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCIceCandidateEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent Mozilla RTCIceCandidateEvent documentation>-newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal }--instance PToJSVal RTCIceCandidateEvent where-  pToJSVal = unRTCIceCandidateEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCIceCandidateEvent where-  pFromJSVal = RTCIceCandidateEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCIceCandidateEvent where-  toJSVal = return . unRTCIceCandidateEvent-  {-# INLINE toJSVal #-}--instance FromJSVal RTCIceCandidateEvent where-  fromJSVal v = fmap RTCIceCandidateEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCIceCandidateEvent where-  makeObject = makeObject . unRTCIceCandidateEvent--instance IsEvent RTCIceCandidateEvent-instance IsGObject RTCIceCandidateEvent where-  toGObject = GObject . unRTCIceCandidateEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCIceCandidateEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCIceCandidateEvent :: IsGObject obj => obj -> JSM RTCIceCandidateEvent-castToRTCIceCandidateEvent = castTo gTypeRTCIceCandidateEvent "RTCIceCandidateEvent"--gTypeRTCIceCandidateEvent :: JSM GType-gTypeRTCIceCandidateEvent = GType . Object <$> jsg "RTCIceCandidateEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCIceServer".------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer Mozilla RTCIceServer documentation>-newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal }--instance PToJSVal RTCIceServer where-  pToJSVal = unRTCIceServer-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCIceServer where-  pFromJSVal = RTCIceServer-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCIceServer where-  toJSVal = return . unRTCIceServer-  {-# INLINE toJSVal #-}--instance FromJSVal RTCIceServer where-  fromJSVal v = fmap RTCIceServer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCIceServer where-  makeObject = makeObject . unRTCIceServer--instance IsGObject RTCIceServer where-  toGObject = GObject . unRTCIceServer-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCIceServer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCIceServer :: IsGObject obj => obj -> JSM RTCIceServer-castToRTCIceServer = castTo gTypeRTCIceServer "RTCIceServer"--gTypeRTCIceServer :: JSM GType-gTypeRTCIceServer = GType . Object <$> jsg "RTCIceServer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCPeerConnection".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection Mozilla webkitRTCPeerConnection documentation>-newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal }--instance PToJSVal RTCPeerConnection where-  pToJSVal = unRTCPeerConnection-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCPeerConnection where-  pFromJSVal = RTCPeerConnection-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCPeerConnection where-  toJSVal = return . unRTCPeerConnection-  {-# INLINE toJSVal #-}--instance FromJSVal RTCPeerConnection where-  fromJSVal v = fmap RTCPeerConnection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCPeerConnection where-  makeObject = makeObject . unRTCPeerConnection--instance IsEventTarget RTCPeerConnection-instance IsGObject RTCPeerConnection where-  toGObject = GObject . unRTCPeerConnection-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCPeerConnection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCPeerConnection :: IsGObject obj => obj -> JSM RTCPeerConnection-castToRTCPeerConnection = castTo gTypeRTCPeerConnection "RTCPeerConnection"--gTypeRTCPeerConnection :: JSM GType-gTypeRTCPeerConnection = GType . Object <$> jsg "webkitRTCPeerConnection"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCSessionDescription".------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription Mozilla RTCSessionDescription documentation>-newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal }--instance PToJSVal RTCSessionDescription where-  pToJSVal = unRTCSessionDescription-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCSessionDescription where-  pFromJSVal = RTCSessionDescription-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCSessionDescription where-  toJSVal = return . unRTCSessionDescription-  {-# INLINE toJSVal #-}--instance FromJSVal RTCSessionDescription where-  fromJSVal v = fmap RTCSessionDescription <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCSessionDescription where-  makeObject = makeObject . unRTCSessionDescription--instance IsGObject RTCSessionDescription where-  toGObject = GObject . unRTCSessionDescription-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCSessionDescription . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCSessionDescription :: IsGObject obj => obj -> JSM RTCSessionDescription-castToRTCSessionDescription = castTo gTypeRTCSessionDescription "RTCSessionDescription"--gTypeRTCSessionDescription :: JSM GType-gTypeRTCSessionDescription = GType . Object <$> jsg "RTCSessionDescription"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCStatsReport".------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport Mozilla RTCStatsReport documentation>-newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal }--instance PToJSVal RTCStatsReport where-  pToJSVal = unRTCStatsReport-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCStatsReport where-  pFromJSVal = RTCStatsReport-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCStatsReport where-  toJSVal = return . unRTCStatsReport-  {-# INLINE toJSVal #-}--instance FromJSVal RTCStatsReport where-  fromJSVal v = fmap RTCStatsReport <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCStatsReport where-  makeObject = makeObject . unRTCStatsReport--instance IsGObject RTCStatsReport where-  toGObject = GObject . unRTCStatsReport-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCStatsReport . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCStatsReport :: IsGObject obj => obj -> JSM RTCStatsReport-castToRTCStatsReport = castTo gTypeRTCStatsReport "RTCStatsReport"--gTypeRTCStatsReport :: JSM GType-gTypeRTCStatsReport = GType . Object <$> jsg "RTCStatsReport"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RTCStatsResponse".------ <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse Mozilla RTCStatsResponse documentation>-newtype RTCStatsResponse = RTCStatsResponse { unRTCStatsResponse :: JSVal }--instance PToJSVal RTCStatsResponse where-  pToJSVal = unRTCStatsResponse-  {-# INLINE pToJSVal #-}--instance PFromJSVal RTCStatsResponse where-  pFromJSVal = RTCStatsResponse-  {-# INLINE pFromJSVal #-}--instance ToJSVal RTCStatsResponse where-  toJSVal = return . unRTCStatsResponse-  {-# INLINE toJSVal #-}--instance FromJSVal RTCStatsResponse where-  fromJSVal v = fmap RTCStatsResponse <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RTCStatsResponse where-  makeObject = makeObject . unRTCStatsResponse--instance IsGObject RTCStatsResponse where-  toGObject = GObject . unRTCStatsResponse-  {-# INLINE toGObject #-}-  unsafeCastGObject = RTCStatsResponse . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRTCStatsResponse :: IsGObject obj => obj -> JSM RTCStatsResponse-castToRTCStatsResponse = castTo gTypeRTCStatsResponse "RTCStatsResponse"--gTypeRTCStatsResponse :: JSM GType-gTypeRTCStatsResponse = GType . Object <$> jsg "RTCStatsResponse"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.RadioNodeList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.NodeList"------ <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList Mozilla RadioNodeList documentation>-newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal }--instance PToJSVal RadioNodeList where-  pToJSVal = unRadioNodeList-  {-# INLINE pToJSVal #-}--instance PFromJSVal RadioNodeList where-  pFromJSVal = RadioNodeList-  {-# INLINE pFromJSVal #-}--instance ToJSVal RadioNodeList where-  toJSVal = return . unRadioNodeList-  {-# INLINE toJSVal #-}--instance FromJSVal RadioNodeList where-  fromJSVal v = fmap RadioNodeList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject RadioNodeList where-  makeObject = makeObject . unRadioNodeList--instance IsNodeList RadioNodeList-instance IsGObject RadioNodeList where-  toGObject = GObject . unRadioNodeList-  {-# INLINE toGObject #-}-  unsafeCastGObject = RadioNodeList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRadioNodeList :: IsGObject obj => obj -> JSM RadioNodeList-castToRadioNodeList = castTo gTypeRadioNodeList "RadioNodeList"--gTypeRadioNodeList :: JSM GType-gTypeRadioNodeList = GType . Object <$> jsg "RadioNodeList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Range".------ <https://developer.mozilla.org/en-US/docs/Web/API/Range Mozilla Range documentation>-newtype Range = Range { unRange :: JSVal }--instance PToJSVal Range where-  pToJSVal = unRange-  {-# INLINE pToJSVal #-}--instance PFromJSVal Range where-  pFromJSVal = Range-  {-# INLINE pFromJSVal #-}--instance ToJSVal Range where-  toJSVal = return . unRange-  {-# INLINE toJSVal #-}--instance FromJSVal Range where-  fromJSVal v = fmap Range <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Range where-  makeObject = makeObject . unRange--instance IsGObject Range where-  toGObject = GObject . unRange-  {-# INLINE toGObject #-}-  unsafeCastGObject = Range . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRange :: IsGObject obj => obj -> JSM Range-castToRange = castTo gTypeRange "Range"--gTypeRange :: JSM GType-gTypeRange = GType . Object <$> jsg "Range"-#else-type IsRange o = RangeClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ReadableStream".------ <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream Mozilla ReadableStream documentation>-newtype ReadableStream = ReadableStream { unReadableStream :: JSVal }--instance PToJSVal ReadableStream where-  pToJSVal = unReadableStream-  {-# INLINE pToJSVal #-}--instance PFromJSVal ReadableStream where-  pFromJSVal = ReadableStream-  {-# INLINE pFromJSVal #-}--instance ToJSVal ReadableStream where-  toJSVal = return . unReadableStream-  {-# INLINE toJSVal #-}--instance FromJSVal ReadableStream where-  fromJSVal v = fmap ReadableStream <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ReadableStream where-  makeObject = makeObject . unReadableStream--instance IsGObject ReadableStream where-  toGObject = GObject . unReadableStream-  {-# INLINE toGObject #-}-  unsafeCastGObject = ReadableStream . unGObject-  {-# INLINE unsafeCastGObject #-}--castToReadableStream :: IsGObject obj => obj -> JSM ReadableStream-castToReadableStream = castTo gTypeReadableStream "ReadableStream"--gTypeReadableStream :: JSM GType-gTypeReadableStream = GType . Object <$> jsg "ReadableStream"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Rect".------ <https://developer.mozilla.org/en-US/docs/Web/API/Rect Mozilla Rect documentation>-newtype Rect = Rect { unRect :: JSVal }--instance PToJSVal Rect where-  pToJSVal = unRect-  {-# INLINE pToJSVal #-}--instance PFromJSVal Rect where-  pFromJSVal = Rect-  {-# INLINE pFromJSVal #-}--instance ToJSVal Rect where-  toJSVal = return . unRect-  {-# INLINE toJSVal #-}--instance FromJSVal Rect where-  fromJSVal v = fmap Rect <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Rect where-  makeObject = makeObject . unRect--instance IsGObject Rect where-  toGObject = GObject . unRect-  {-# INLINE toGObject #-}-  unsafeCastGObject = Rect . unGObject-  {-# INLINE unsafeCastGObject #-}--castToRect :: IsGObject obj => obj -> JSM Rect-castToRect = castTo gTypeRect "Rect"--gTypeRect :: JSM GType-gTypeRect = GType . Object <$> jsg "Rect"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLError".------ <https://developer.mozilla.org/en-US/docs/Web/API/SQLError Mozilla SQLError documentation>-newtype SQLError = SQLError { unSQLError :: JSVal }--instance PToJSVal SQLError where-  pToJSVal = unSQLError-  {-# INLINE pToJSVal #-}--instance PFromJSVal SQLError where-  pFromJSVal = SQLError-  {-# INLINE pFromJSVal #-}--instance ToJSVal SQLError where-  toJSVal = return . unSQLError-  {-# INLINE toJSVal #-}--instance FromJSVal SQLError where-  fromJSVal v = fmap SQLError <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SQLError where-  makeObject = makeObject . unSQLError--instance IsGObject SQLError where-  toGObject = GObject . unSQLError-  {-# INLINE toGObject #-}-  unsafeCastGObject = SQLError . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSQLError :: IsGObject obj => obj -> JSM SQLError-castToSQLError = castTo gTypeSQLError "SQLError"--gTypeSQLError :: JSM GType-gTypeSQLError = GType . Object <$> jsg "SQLError"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLResultSet".------ <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet Mozilla SQLResultSet documentation>-newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal }--instance PToJSVal SQLResultSet where-  pToJSVal = unSQLResultSet-  {-# INLINE pToJSVal #-}--instance PFromJSVal SQLResultSet where-  pFromJSVal = SQLResultSet-  {-# INLINE pFromJSVal #-}--instance ToJSVal SQLResultSet where-  toJSVal = return . unSQLResultSet-  {-# INLINE toJSVal #-}--instance FromJSVal SQLResultSet where-  fromJSVal v = fmap SQLResultSet <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SQLResultSet where-  makeObject = makeObject . unSQLResultSet--instance IsGObject SQLResultSet where-  toGObject = GObject . unSQLResultSet-  {-# INLINE toGObject #-}-  unsafeCastGObject = SQLResultSet . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSQLResultSet :: IsGObject obj => obj -> JSM SQLResultSet-castToSQLResultSet = castTo gTypeSQLResultSet "SQLResultSet"--gTypeSQLResultSet :: JSM GType-gTypeSQLResultSet = GType . Object <$> jsg "SQLResultSet"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLResultSetRowList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList Mozilla SQLResultSetRowList documentation>-newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal }--instance PToJSVal SQLResultSetRowList where-  pToJSVal = unSQLResultSetRowList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SQLResultSetRowList where-  pFromJSVal = SQLResultSetRowList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SQLResultSetRowList where-  toJSVal = return . unSQLResultSetRowList-  {-# INLINE toJSVal #-}--instance FromJSVal SQLResultSetRowList where-  fromJSVal v = fmap SQLResultSetRowList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SQLResultSetRowList where-  makeObject = makeObject . unSQLResultSetRowList--instance IsGObject SQLResultSetRowList where-  toGObject = GObject . unSQLResultSetRowList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SQLResultSetRowList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSQLResultSetRowList :: IsGObject obj => obj -> JSM SQLResultSetRowList-castToSQLResultSetRowList = castTo gTypeSQLResultSetRowList "SQLResultSetRowList"--gTypeSQLResultSetRowList :: JSM GType-gTypeSQLResultSetRowList = GType . Object <$> jsg "SQLResultSetRowList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SQLTransaction".------ <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction Mozilla SQLTransaction documentation>-newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal }--instance PToJSVal SQLTransaction where-  pToJSVal = unSQLTransaction-  {-# INLINE pToJSVal #-}--instance PFromJSVal SQLTransaction where-  pFromJSVal = SQLTransaction-  {-# INLINE pFromJSVal #-}--instance ToJSVal SQLTransaction where-  toJSVal = return . unSQLTransaction-  {-# INLINE toJSVal #-}--instance FromJSVal SQLTransaction where-  fromJSVal v = fmap SQLTransaction <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SQLTransaction where-  makeObject = makeObject . unSQLTransaction--instance IsGObject SQLTransaction where-  toGObject = GObject . unSQLTransaction-  {-# INLINE toGObject #-}-  unsafeCastGObject = SQLTransaction . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSQLTransaction :: IsGObject obj => obj -> JSM SQLTransaction-castToSQLTransaction = castTo gTypeSQLTransaction "SQLTransaction"--gTypeSQLTransaction :: JSM GType-gTypeSQLTransaction = GType . Object <$> jsg "SQLTransaction"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement Mozilla SVGAElement documentation>-newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal }--instance PToJSVal SVGAElement where-  pToJSVal = unSVGAElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAElement where-  pFromJSVal = SVGAElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAElement where-  toJSVal = return . unSVGAElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAElement where-  fromJSVal v = fmap SVGAElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAElement where-  makeObject = makeObject . unSVGAElement--instance IsSVGGraphicsElement SVGAElement-instance IsSVGElement SVGAElement-instance IsElement SVGAElement-instance IsNode SVGAElement-instance IsEventTarget SVGAElement-instance IsGObject SVGAElement where-  toGObject = GObject . unSVGAElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAElement :: IsGObject obj => obj -> JSM SVGAElement-castToSVGAElement = castTo gTypeSVGAElement "SVGAElement"--gTypeSVGAElement :: JSM GType-gTypeSVGAElement = GType . Object <$> jsg "SVGAElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAltGlyphDefElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphDefElement Mozilla SVGAltGlyphDefElement documentation>-newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal }--instance PToJSVal SVGAltGlyphDefElement where-  pToJSVal = unSVGAltGlyphDefElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAltGlyphDefElement where-  pFromJSVal = SVGAltGlyphDefElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAltGlyphDefElement where-  toJSVal = return . unSVGAltGlyphDefElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAltGlyphDefElement where-  fromJSVal v = fmap SVGAltGlyphDefElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAltGlyphDefElement where-  makeObject = makeObject . unSVGAltGlyphDefElement--instance IsSVGElement SVGAltGlyphDefElement-instance IsElement SVGAltGlyphDefElement-instance IsNode SVGAltGlyphDefElement-instance IsEventTarget SVGAltGlyphDefElement-instance IsGObject SVGAltGlyphDefElement where-  toGObject = GObject . unSVGAltGlyphDefElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAltGlyphDefElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAltGlyphDefElement :: IsGObject obj => obj -> JSM SVGAltGlyphDefElement-castToSVGAltGlyphDefElement = castTo gTypeSVGAltGlyphDefElement "SVGAltGlyphDefElement"--gTypeSVGAltGlyphDefElement :: JSM GType-gTypeSVGAltGlyphDefElement = GType . Object <$> jsg "SVGAltGlyphDefElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAltGlyphElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement"---     * "Language.Javascript.JSaddle.DOM.SVGTextContentElement"---     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement Mozilla SVGAltGlyphElement documentation>-newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal }--instance PToJSVal SVGAltGlyphElement where-  pToJSVal = unSVGAltGlyphElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAltGlyphElement where-  pFromJSVal = SVGAltGlyphElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAltGlyphElement where-  toJSVal = return . unSVGAltGlyphElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAltGlyphElement where-  fromJSVal v = fmap SVGAltGlyphElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAltGlyphElement where-  makeObject = makeObject . unSVGAltGlyphElement--instance IsSVGTextPositioningElement SVGAltGlyphElement-instance IsSVGTextContentElement SVGAltGlyphElement-instance IsSVGGraphicsElement SVGAltGlyphElement-instance IsSVGElement SVGAltGlyphElement-instance IsElement SVGAltGlyphElement-instance IsNode SVGAltGlyphElement-instance IsEventTarget SVGAltGlyphElement-instance IsGObject SVGAltGlyphElement where-  toGObject = GObject . unSVGAltGlyphElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAltGlyphElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAltGlyphElement :: IsGObject obj => obj -> JSM SVGAltGlyphElement-castToSVGAltGlyphElement = castTo gTypeSVGAltGlyphElement "SVGAltGlyphElement"--gTypeSVGAltGlyphElement :: JSM GType-gTypeSVGAltGlyphElement = GType . Object <$> jsg "SVGAltGlyphElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAltGlyphItemElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphItemElement Mozilla SVGAltGlyphItemElement documentation>-newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal }--instance PToJSVal SVGAltGlyphItemElement where-  pToJSVal = unSVGAltGlyphItemElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAltGlyphItemElement where-  pFromJSVal = SVGAltGlyphItemElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAltGlyphItemElement where-  toJSVal = return . unSVGAltGlyphItemElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAltGlyphItemElement where-  fromJSVal v = fmap SVGAltGlyphItemElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAltGlyphItemElement where-  makeObject = makeObject . unSVGAltGlyphItemElement--instance IsSVGElement SVGAltGlyphItemElement-instance IsElement SVGAltGlyphItemElement-instance IsNode SVGAltGlyphItemElement-instance IsEventTarget SVGAltGlyphItemElement-instance IsGObject SVGAltGlyphItemElement where-  toGObject = GObject . unSVGAltGlyphItemElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAltGlyphItemElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAltGlyphItemElement :: IsGObject obj => obj -> JSM SVGAltGlyphItemElement-castToSVGAltGlyphItemElement = castTo gTypeSVGAltGlyphItemElement "SVGAltGlyphItemElement"--gTypeSVGAltGlyphItemElement :: JSM GType-gTypeSVGAltGlyphItemElement = GType . Object <$> jsg "SVGAltGlyphItemElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAngle".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle Mozilla SVGAngle documentation>-newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal }--instance PToJSVal SVGAngle where-  pToJSVal = unSVGAngle-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAngle where-  pFromJSVal = SVGAngle-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAngle where-  toJSVal = return . unSVGAngle-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAngle where-  fromJSVal v = fmap SVGAngle <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAngle where-  makeObject = makeObject . unSVGAngle--instance IsGObject SVGAngle where-  toGObject = GObject . unSVGAngle-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAngle . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAngle :: IsGObject obj => obj -> JSM SVGAngle-castToSVGAngle = castTo gTypeSVGAngle "SVGAngle"--gTypeSVGAngle :: JSM GType-gTypeSVGAngle = GType . Object <$> jsg "SVGAngle"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateColorElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGAnimationElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateColorElement Mozilla SVGAnimateColorElement documentation>-newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal }--instance PToJSVal SVGAnimateColorElement where-  pToJSVal = unSVGAnimateColorElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimateColorElement where-  pFromJSVal = SVGAnimateColorElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimateColorElement where-  toJSVal = return . unSVGAnimateColorElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimateColorElement where-  fromJSVal v = fmap SVGAnimateColorElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimateColorElement where-  makeObject = makeObject . unSVGAnimateColorElement--instance IsSVGAnimationElement SVGAnimateColorElement-instance IsSVGElement SVGAnimateColorElement-instance IsElement SVGAnimateColorElement-instance IsNode SVGAnimateColorElement-instance IsEventTarget SVGAnimateColorElement-instance IsGObject SVGAnimateColorElement where-  toGObject = GObject . unSVGAnimateColorElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimateColorElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimateColorElement :: IsGObject obj => obj -> JSM SVGAnimateColorElement-castToSVGAnimateColorElement = castTo gTypeSVGAnimateColorElement "SVGAnimateColorElement"--gTypeSVGAnimateColorElement :: JSM GType-gTypeSVGAnimateColorElement = GType . Object <$> jsg "SVGAnimateColorElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGAnimationElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateElement Mozilla SVGAnimateElement documentation>-newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal }--instance PToJSVal SVGAnimateElement where-  pToJSVal = unSVGAnimateElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimateElement where-  pFromJSVal = SVGAnimateElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimateElement where-  toJSVal = return . unSVGAnimateElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimateElement where-  fromJSVal v = fmap SVGAnimateElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimateElement where-  makeObject = makeObject . unSVGAnimateElement--instance IsSVGAnimationElement SVGAnimateElement-instance IsSVGElement SVGAnimateElement-instance IsElement SVGAnimateElement-instance IsNode SVGAnimateElement-instance IsEventTarget SVGAnimateElement-instance IsGObject SVGAnimateElement where-  toGObject = GObject . unSVGAnimateElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimateElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimateElement :: IsGObject obj => obj -> JSM SVGAnimateElement-castToSVGAnimateElement = castTo gTypeSVGAnimateElement "SVGAnimateElement"--gTypeSVGAnimateElement :: JSM GType-gTypeSVGAnimateElement = GType . Object <$> jsg "SVGAnimateElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateMotionElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGAnimationElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateMotionElement Mozilla SVGAnimateMotionElement documentation>-newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal }--instance PToJSVal SVGAnimateMotionElement where-  pToJSVal = unSVGAnimateMotionElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimateMotionElement where-  pFromJSVal = SVGAnimateMotionElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimateMotionElement where-  toJSVal = return . unSVGAnimateMotionElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimateMotionElement where-  fromJSVal v = fmap SVGAnimateMotionElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimateMotionElement where-  makeObject = makeObject . unSVGAnimateMotionElement--instance IsSVGAnimationElement SVGAnimateMotionElement-instance IsSVGElement SVGAnimateMotionElement-instance IsElement SVGAnimateMotionElement-instance IsNode SVGAnimateMotionElement-instance IsEventTarget SVGAnimateMotionElement-instance IsGObject SVGAnimateMotionElement where-  toGObject = GObject . unSVGAnimateMotionElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimateMotionElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimateMotionElement :: IsGObject obj => obj -> JSM SVGAnimateMotionElement-castToSVGAnimateMotionElement = castTo gTypeSVGAnimateMotionElement "SVGAnimateMotionElement"--gTypeSVGAnimateMotionElement :: JSM GType-gTypeSVGAnimateMotionElement = GType . Object <$> jsg "SVGAnimateMotionElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimateTransformElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGAnimationElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimateTransformElement Mozilla SVGAnimateTransformElement documentation>-newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal }--instance PToJSVal SVGAnimateTransformElement where-  pToJSVal = unSVGAnimateTransformElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimateTransformElement where-  pFromJSVal = SVGAnimateTransformElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimateTransformElement where-  toJSVal = return . unSVGAnimateTransformElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimateTransformElement where-  fromJSVal v = fmap SVGAnimateTransformElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimateTransformElement where-  makeObject = makeObject . unSVGAnimateTransformElement--instance IsSVGAnimationElement SVGAnimateTransformElement-instance IsSVGElement SVGAnimateTransformElement-instance IsElement SVGAnimateTransformElement-instance IsNode SVGAnimateTransformElement-instance IsEventTarget SVGAnimateTransformElement-instance IsGObject SVGAnimateTransformElement where-  toGObject = GObject . unSVGAnimateTransformElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimateTransformElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimateTransformElement :: IsGObject obj => obj -> JSM SVGAnimateTransformElement-castToSVGAnimateTransformElement = castTo gTypeSVGAnimateTransformElement "SVGAnimateTransformElement"--gTypeSVGAnimateTransformElement :: JSM GType-gTypeSVGAnimateTransformElement = GType . Object <$> jsg "SVGAnimateTransformElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedAngle".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle Mozilla SVGAnimatedAngle documentation>-newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal }--instance PToJSVal SVGAnimatedAngle where-  pToJSVal = unSVGAnimatedAngle-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedAngle where-  pFromJSVal = SVGAnimatedAngle-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedAngle where-  toJSVal = return . unSVGAnimatedAngle-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedAngle where-  fromJSVal v = fmap SVGAnimatedAngle <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedAngle where-  makeObject = makeObject . unSVGAnimatedAngle--instance IsGObject SVGAnimatedAngle where-  toGObject = GObject . unSVGAnimatedAngle-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedAngle . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedAngle :: IsGObject obj => obj -> JSM SVGAnimatedAngle-castToSVGAnimatedAngle = castTo gTypeSVGAnimatedAngle "SVGAnimatedAngle"--gTypeSVGAnimatedAngle :: JSM GType-gTypeSVGAnimatedAngle = GType . Object <$> jsg "SVGAnimatedAngle"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedBoolean".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean Mozilla SVGAnimatedBoolean documentation>-newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal }--instance PToJSVal SVGAnimatedBoolean where-  pToJSVal = unSVGAnimatedBoolean-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedBoolean where-  pFromJSVal = SVGAnimatedBoolean-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedBoolean where-  toJSVal = return . unSVGAnimatedBoolean-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedBoolean where-  fromJSVal v = fmap SVGAnimatedBoolean <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedBoolean where-  makeObject = makeObject . unSVGAnimatedBoolean--instance IsGObject SVGAnimatedBoolean where-  toGObject = GObject . unSVGAnimatedBoolean-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedBoolean . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedBoolean :: IsGObject obj => obj -> JSM SVGAnimatedBoolean-castToSVGAnimatedBoolean = castTo gTypeSVGAnimatedBoolean "SVGAnimatedBoolean"--gTypeSVGAnimatedBoolean :: JSM GType-gTypeSVGAnimatedBoolean = GType . Object <$> jsg "SVGAnimatedBoolean"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedEnumeration".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration Mozilla SVGAnimatedEnumeration documentation>-newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal }--instance PToJSVal SVGAnimatedEnumeration where-  pToJSVal = unSVGAnimatedEnumeration-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedEnumeration where-  pFromJSVal = SVGAnimatedEnumeration-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedEnumeration where-  toJSVal = return . unSVGAnimatedEnumeration-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedEnumeration where-  fromJSVal v = fmap SVGAnimatedEnumeration <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedEnumeration where-  makeObject = makeObject . unSVGAnimatedEnumeration--instance IsGObject SVGAnimatedEnumeration where-  toGObject = GObject . unSVGAnimatedEnumeration-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedEnumeration . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedEnumeration :: IsGObject obj => obj -> JSM SVGAnimatedEnumeration-castToSVGAnimatedEnumeration = castTo gTypeSVGAnimatedEnumeration "SVGAnimatedEnumeration"--gTypeSVGAnimatedEnumeration :: JSM GType-gTypeSVGAnimatedEnumeration = GType . Object <$> jsg "SVGAnimatedEnumeration"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedInteger".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger Mozilla SVGAnimatedInteger documentation>-newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal }--instance PToJSVal SVGAnimatedInteger where-  pToJSVal = unSVGAnimatedInteger-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedInteger where-  pFromJSVal = SVGAnimatedInteger-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedInteger where-  toJSVal = return . unSVGAnimatedInteger-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedInteger where-  fromJSVal v = fmap SVGAnimatedInteger <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedInteger where-  makeObject = makeObject . unSVGAnimatedInteger--instance IsGObject SVGAnimatedInteger where-  toGObject = GObject . unSVGAnimatedInteger-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedInteger . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedInteger :: IsGObject obj => obj -> JSM SVGAnimatedInteger-castToSVGAnimatedInteger = castTo gTypeSVGAnimatedInteger "SVGAnimatedInteger"--gTypeSVGAnimatedInteger :: JSM GType-gTypeSVGAnimatedInteger = GType . Object <$> jsg "SVGAnimatedInteger"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedLength".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength Mozilla SVGAnimatedLength documentation>-newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal }--instance PToJSVal SVGAnimatedLength where-  pToJSVal = unSVGAnimatedLength-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedLength where-  pFromJSVal = SVGAnimatedLength-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedLength where-  toJSVal = return . unSVGAnimatedLength-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedLength where-  fromJSVal v = fmap SVGAnimatedLength <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedLength where-  makeObject = makeObject . unSVGAnimatedLength--instance IsGObject SVGAnimatedLength where-  toGObject = GObject . unSVGAnimatedLength-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedLength . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedLength :: IsGObject obj => obj -> JSM SVGAnimatedLength-castToSVGAnimatedLength = castTo gTypeSVGAnimatedLength "SVGAnimatedLength"--gTypeSVGAnimatedLength :: JSM GType-gTypeSVGAnimatedLength = GType . Object <$> jsg "SVGAnimatedLength"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedLengthList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList Mozilla SVGAnimatedLengthList documentation>-newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal }--instance PToJSVal SVGAnimatedLengthList where-  pToJSVal = unSVGAnimatedLengthList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedLengthList where-  pFromJSVal = SVGAnimatedLengthList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedLengthList where-  toJSVal = return . unSVGAnimatedLengthList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedLengthList where-  fromJSVal v = fmap SVGAnimatedLengthList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedLengthList where-  makeObject = makeObject . unSVGAnimatedLengthList--instance IsGObject SVGAnimatedLengthList where-  toGObject = GObject . unSVGAnimatedLengthList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedLengthList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedLengthList :: IsGObject obj => obj -> JSM SVGAnimatedLengthList-castToSVGAnimatedLengthList = castTo gTypeSVGAnimatedLengthList "SVGAnimatedLengthList"--gTypeSVGAnimatedLengthList :: JSM GType-gTypeSVGAnimatedLengthList = GType . Object <$> jsg "SVGAnimatedLengthList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedNumber".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber Mozilla SVGAnimatedNumber documentation>-newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal }--instance PToJSVal SVGAnimatedNumber where-  pToJSVal = unSVGAnimatedNumber-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedNumber where-  pFromJSVal = SVGAnimatedNumber-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedNumber where-  toJSVal = return . unSVGAnimatedNumber-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedNumber where-  fromJSVal v = fmap SVGAnimatedNumber <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedNumber where-  makeObject = makeObject . unSVGAnimatedNumber--instance IsGObject SVGAnimatedNumber where-  toGObject = GObject . unSVGAnimatedNumber-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedNumber . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedNumber :: IsGObject obj => obj -> JSM SVGAnimatedNumber-castToSVGAnimatedNumber = castTo gTypeSVGAnimatedNumber "SVGAnimatedNumber"--gTypeSVGAnimatedNumber :: JSM GType-gTypeSVGAnimatedNumber = GType . Object <$> jsg "SVGAnimatedNumber"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedNumberList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList Mozilla SVGAnimatedNumberList documentation>-newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal }--instance PToJSVal SVGAnimatedNumberList where-  pToJSVal = unSVGAnimatedNumberList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedNumberList where-  pFromJSVal = SVGAnimatedNumberList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedNumberList where-  toJSVal = return . unSVGAnimatedNumberList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedNumberList where-  fromJSVal v = fmap SVGAnimatedNumberList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedNumberList where-  makeObject = makeObject . unSVGAnimatedNumberList--instance IsGObject SVGAnimatedNumberList where-  toGObject = GObject . unSVGAnimatedNumberList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedNumberList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedNumberList :: IsGObject obj => obj -> JSM SVGAnimatedNumberList-castToSVGAnimatedNumberList = castTo gTypeSVGAnimatedNumberList "SVGAnimatedNumberList"--gTypeSVGAnimatedNumberList :: JSM GType-gTypeSVGAnimatedNumberList = GType . Object <$> jsg "SVGAnimatedNumberList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedPreserveAspectRatio".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio Mozilla SVGAnimatedPreserveAspectRatio documentation>-newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal }--instance PToJSVal SVGAnimatedPreserveAspectRatio where-  pToJSVal = unSVGAnimatedPreserveAspectRatio-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedPreserveAspectRatio where-  pFromJSVal = SVGAnimatedPreserveAspectRatio-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedPreserveAspectRatio where-  toJSVal = return . unSVGAnimatedPreserveAspectRatio-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedPreserveAspectRatio where-  fromJSVal v = fmap SVGAnimatedPreserveAspectRatio <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedPreserveAspectRatio where-  makeObject = makeObject . unSVGAnimatedPreserveAspectRatio--instance IsGObject SVGAnimatedPreserveAspectRatio where-  toGObject = GObject . unSVGAnimatedPreserveAspectRatio-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedPreserveAspectRatio . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedPreserveAspectRatio :: IsGObject obj => obj -> JSM SVGAnimatedPreserveAspectRatio-castToSVGAnimatedPreserveAspectRatio = castTo gTypeSVGAnimatedPreserveAspectRatio "SVGAnimatedPreserveAspectRatio"--gTypeSVGAnimatedPreserveAspectRatio :: JSM GType-gTypeSVGAnimatedPreserveAspectRatio = GType . Object <$> jsg "SVGAnimatedPreserveAspectRatio"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedRect".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect Mozilla SVGAnimatedRect documentation>-newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal }--instance PToJSVal SVGAnimatedRect where-  pToJSVal = unSVGAnimatedRect-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedRect where-  pFromJSVal = SVGAnimatedRect-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedRect where-  toJSVal = return . unSVGAnimatedRect-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedRect where-  fromJSVal v = fmap SVGAnimatedRect <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedRect where-  makeObject = makeObject . unSVGAnimatedRect--instance IsGObject SVGAnimatedRect where-  toGObject = GObject . unSVGAnimatedRect-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedRect . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedRect :: IsGObject obj => obj -> JSM SVGAnimatedRect-castToSVGAnimatedRect = castTo gTypeSVGAnimatedRect "SVGAnimatedRect"--gTypeSVGAnimatedRect :: JSM GType-gTypeSVGAnimatedRect = GType . Object <$> jsg "SVGAnimatedRect"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedString".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString Mozilla SVGAnimatedString documentation>-newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal }--instance PToJSVal SVGAnimatedString where-  pToJSVal = unSVGAnimatedString-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedString where-  pFromJSVal = SVGAnimatedString-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedString where-  toJSVal = return . unSVGAnimatedString-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedString where-  fromJSVal v = fmap SVGAnimatedString <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedString where-  makeObject = makeObject . unSVGAnimatedString--instance IsGObject SVGAnimatedString where-  toGObject = GObject . unSVGAnimatedString-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedString . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedString :: IsGObject obj => obj -> JSM SVGAnimatedString-castToSVGAnimatedString = castTo gTypeSVGAnimatedString "SVGAnimatedString"--gTypeSVGAnimatedString :: JSM GType-gTypeSVGAnimatedString = GType . Object <$> jsg "SVGAnimatedString"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimatedTransformList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList Mozilla SVGAnimatedTransformList documentation>-newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal }--instance PToJSVal SVGAnimatedTransformList where-  pToJSVal = unSVGAnimatedTransformList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimatedTransformList where-  pFromJSVal = SVGAnimatedTransformList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimatedTransformList where-  toJSVal = return . unSVGAnimatedTransformList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimatedTransformList where-  fromJSVal v = fmap SVGAnimatedTransformList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimatedTransformList where-  makeObject = makeObject . unSVGAnimatedTransformList--instance IsGObject SVGAnimatedTransformList where-  toGObject = GObject . unSVGAnimatedTransformList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimatedTransformList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimatedTransformList :: IsGObject obj => obj -> JSM SVGAnimatedTransformList-castToSVGAnimatedTransformList = castTo gTypeSVGAnimatedTransformList "SVGAnimatedTransformList"--gTypeSVGAnimatedTransformList :: JSM GType-gTypeSVGAnimatedTransformList = GType . Object <$> jsg "SVGAnimatedTransformList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGAnimationElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement Mozilla SVGAnimationElement documentation>-newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal }--instance PToJSVal SVGAnimationElement where-  pToJSVal = unSVGAnimationElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGAnimationElement where-  pFromJSVal = SVGAnimationElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGAnimationElement where-  toJSVal = return . unSVGAnimationElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGAnimationElement where-  fromJSVal v = fmap SVGAnimationElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGAnimationElement where-  makeObject = makeObject . unSVGAnimationElement--class IsSVGElement o => IsSVGAnimationElement o-toSVGAnimationElement :: IsSVGAnimationElement o => o -> SVGAnimationElement-toSVGAnimationElement = unsafeCastGObject . toGObject--instance IsSVGAnimationElement SVGAnimationElement-instance IsSVGElement SVGAnimationElement-instance IsElement SVGAnimationElement-instance IsNode SVGAnimationElement-instance IsEventTarget SVGAnimationElement-instance IsGObject SVGAnimationElement where-  toGObject = GObject . unSVGAnimationElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGAnimationElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGAnimationElement :: IsGObject obj => obj -> JSM SVGAnimationElement-castToSVGAnimationElement = castTo gTypeSVGAnimationElement "SVGAnimationElement"--gTypeSVGAnimationElement :: JSM GType-gTypeSVGAnimationElement = GType . Object <$> jsg "SVGAnimationElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGCircleElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement Mozilla SVGCircleElement documentation>-newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal }--instance PToJSVal SVGCircleElement where-  pToJSVal = unSVGCircleElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGCircleElement where-  pFromJSVal = SVGCircleElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGCircleElement where-  toJSVal = return . unSVGCircleElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGCircleElement where-  fromJSVal v = fmap SVGCircleElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGCircleElement where-  makeObject = makeObject . unSVGCircleElement--instance IsSVGGraphicsElement SVGCircleElement-instance IsSVGElement SVGCircleElement-instance IsElement SVGCircleElement-instance IsNode SVGCircleElement-instance IsEventTarget SVGCircleElement-instance IsGObject SVGCircleElement where-  toGObject = GObject . unSVGCircleElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGCircleElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGCircleElement :: IsGObject obj => obj -> JSM SVGCircleElement-castToSVGCircleElement = castTo gTypeSVGCircleElement "SVGCircleElement"--gTypeSVGCircleElement :: JSM GType-gTypeSVGCircleElement = GType . Object <$> jsg "SVGCircleElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGClipPathElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement Mozilla SVGClipPathElement documentation>-newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal }--instance PToJSVal SVGClipPathElement where-  pToJSVal = unSVGClipPathElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGClipPathElement where-  pFromJSVal = SVGClipPathElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGClipPathElement where-  toJSVal = return . unSVGClipPathElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGClipPathElement where-  fromJSVal v = fmap SVGClipPathElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGClipPathElement where-  makeObject = makeObject . unSVGClipPathElement--instance IsSVGGraphicsElement SVGClipPathElement-instance IsSVGElement SVGClipPathElement-instance IsElement SVGClipPathElement-instance IsNode SVGClipPathElement-instance IsEventTarget SVGClipPathElement-instance IsGObject SVGClipPathElement where-  toGObject = GObject . unSVGClipPathElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGClipPathElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGClipPathElement :: IsGObject obj => obj -> JSM SVGClipPathElement-castToSVGClipPathElement = castTo gTypeSVGClipPathElement "SVGClipPathElement"--gTypeSVGClipPathElement :: JSM GType-gTypeSVGClipPathElement = GType . Object <$> jsg "SVGClipPathElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGColor".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSValue"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor Mozilla SVGColor documentation>-newtype SVGColor = SVGColor { unSVGColor :: JSVal }--instance PToJSVal SVGColor where-  pToJSVal = unSVGColor-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGColor where-  pFromJSVal = SVGColor-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGColor where-  toJSVal = return . unSVGColor-  {-# INLINE toJSVal #-}--instance FromJSVal SVGColor where-  fromJSVal v = fmap SVGColor <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGColor where-  makeObject = makeObject . unSVGColor--class IsCSSValue o => IsSVGColor o-toSVGColor :: IsSVGColor o => o -> SVGColor-toSVGColor = unsafeCastGObject . toGObject--instance IsSVGColor SVGColor-instance IsCSSValue SVGColor-instance IsGObject SVGColor where-  toGObject = GObject . unSVGColor-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGColor . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGColor :: IsGObject obj => obj -> JSM SVGColor-castToSVGColor = castTo gTypeSVGColor "SVGColor"--gTypeSVGColor :: JSM GType-gTypeSVGColor = GType . Object <$> jsg "SVGColor"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement Mozilla SVGComponentTransferFunctionElement documentation>-newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal }--instance PToJSVal SVGComponentTransferFunctionElement where-  pToJSVal = unSVGComponentTransferFunctionElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGComponentTransferFunctionElement where-  pFromJSVal = SVGComponentTransferFunctionElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGComponentTransferFunctionElement where-  toJSVal = return . unSVGComponentTransferFunctionElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGComponentTransferFunctionElement where-  fromJSVal v = fmap SVGComponentTransferFunctionElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGComponentTransferFunctionElement where-  makeObject = makeObject . unSVGComponentTransferFunctionElement--class IsSVGElement o => IsSVGComponentTransferFunctionElement o-toSVGComponentTransferFunctionElement :: IsSVGComponentTransferFunctionElement o => o -> SVGComponentTransferFunctionElement-toSVGComponentTransferFunctionElement = unsafeCastGObject . toGObject--instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement-instance IsSVGElement SVGComponentTransferFunctionElement-instance IsElement SVGComponentTransferFunctionElement-instance IsNode SVGComponentTransferFunctionElement-instance IsEventTarget SVGComponentTransferFunctionElement-instance IsGObject SVGComponentTransferFunctionElement where-  toGObject = GObject . unSVGComponentTransferFunctionElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGComponentTransferFunctionElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGComponentTransferFunctionElement :: IsGObject obj => obj -> JSM SVGComponentTransferFunctionElement-castToSVGComponentTransferFunctionElement = castTo gTypeSVGComponentTransferFunctionElement "SVGComponentTransferFunctionElement"--gTypeSVGComponentTransferFunctionElement :: JSM GType-gTypeSVGComponentTransferFunctionElement = GType . Object <$> jsg "SVGComponentTransferFunctionElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGCursorElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement Mozilla SVGCursorElement documentation>-newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal }--instance PToJSVal SVGCursorElement where-  pToJSVal = unSVGCursorElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGCursorElement where-  pFromJSVal = SVGCursorElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGCursorElement where-  toJSVal = return . unSVGCursorElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGCursorElement where-  fromJSVal v = fmap SVGCursorElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGCursorElement where-  makeObject = makeObject . unSVGCursorElement--instance IsSVGElement SVGCursorElement-instance IsElement SVGCursorElement-instance IsNode SVGCursorElement-instance IsEventTarget SVGCursorElement-instance IsGObject SVGCursorElement where-  toGObject = GObject . unSVGCursorElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGCursorElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGCursorElement :: IsGObject obj => obj -> JSM SVGCursorElement-castToSVGCursorElement = castTo gTypeSVGCursorElement "SVGCursorElement"--gTypeSVGCursorElement :: JSM GType-gTypeSVGCursorElement = GType . Object <$> jsg "SVGCursorElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGDefsElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGDefsElement Mozilla SVGDefsElement documentation>-newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal }--instance PToJSVal SVGDefsElement where-  pToJSVal = unSVGDefsElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGDefsElement where-  pFromJSVal = SVGDefsElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGDefsElement where-  toJSVal = return . unSVGDefsElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGDefsElement where-  fromJSVal v = fmap SVGDefsElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGDefsElement where-  makeObject = makeObject . unSVGDefsElement--instance IsSVGGraphicsElement SVGDefsElement-instance IsSVGElement SVGDefsElement-instance IsElement SVGDefsElement-instance IsNode SVGDefsElement-instance IsEventTarget SVGDefsElement-instance IsGObject SVGDefsElement where-  toGObject = GObject . unSVGDefsElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGDefsElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGDefsElement :: IsGObject obj => obj -> JSM SVGDefsElement-castToSVGDefsElement = castTo gTypeSVGDefsElement "SVGDefsElement"--gTypeSVGDefsElement :: JSM GType-gTypeSVGDefsElement = GType . Object <$> jsg "SVGDefsElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGDescElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGDescElement Mozilla SVGDescElement documentation>-newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal }--instance PToJSVal SVGDescElement where-  pToJSVal = unSVGDescElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGDescElement where-  pFromJSVal = SVGDescElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGDescElement where-  toJSVal = return . unSVGDescElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGDescElement where-  fromJSVal v = fmap SVGDescElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGDescElement where-  makeObject = makeObject . unSVGDescElement--instance IsSVGElement SVGDescElement-instance IsElement SVGDescElement-instance IsNode SVGDescElement-instance IsEventTarget SVGDescElement-instance IsGObject SVGDescElement where-  toGObject = GObject . unSVGDescElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGDescElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGDescElement :: IsGObject obj => obj -> JSM SVGDescElement-castToSVGDescElement = castTo gTypeSVGDescElement "SVGDescElement"--gTypeSVGDescElement :: JSM GType-gTypeSVGDescElement = GType . Object <$> jsg "SVGDescElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGDocument".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Document"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument Mozilla SVGDocument documentation>-newtype SVGDocument = SVGDocument { unSVGDocument :: JSVal }--instance PToJSVal SVGDocument where-  pToJSVal = unSVGDocument-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGDocument where-  pFromJSVal = SVGDocument-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGDocument where-  toJSVal = return . unSVGDocument-  {-# INLINE toJSVal #-}--instance FromJSVal SVGDocument where-  fromJSVal v = fmap SVGDocument <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGDocument where-  makeObject = makeObject . unSVGDocument--instance IsDocument SVGDocument-instance IsNode SVGDocument-instance IsEventTarget SVGDocument-instance IsGObject SVGDocument where-  toGObject = GObject . unSVGDocument-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGDocument . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGDocument :: IsGObject obj => obj -> JSM SVGDocument-castToSVGDocument = castTo gTypeSVGDocument "SVGDocument"--gTypeSVGDocument :: JSM GType-gTypeSVGDocument = GType . Object <$> jsg "SVGDocument"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement Mozilla SVGElement documentation>-newtype SVGElement = SVGElement { unSVGElement :: JSVal }--instance PToJSVal SVGElement where-  pToJSVal = unSVGElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGElement where-  pFromJSVal = SVGElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGElement where-  toJSVal = return . unSVGElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGElement where-  fromJSVal v = fmap SVGElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGElement where-  makeObject = makeObject . unSVGElement--class IsElement o => IsSVGElement o-toSVGElement :: IsSVGElement o => o -> SVGElement-toSVGElement = unsafeCastGObject . toGObject--instance IsSVGElement SVGElement-instance IsElement SVGElement-instance IsNode SVGElement-instance IsEventTarget SVGElement-instance IsGObject SVGElement where-  toGObject = GObject . unSVGElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGElement :: IsGObject obj => obj -> JSM SVGElement-castToSVGElement = castTo gTypeSVGElement "SVGElement"--gTypeSVGElement :: JSM GType-gTypeSVGElement = GType . Object <$> jsg "SVGElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGEllipseElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement Mozilla SVGEllipseElement documentation>-newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal }--instance PToJSVal SVGEllipseElement where-  pToJSVal = unSVGEllipseElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGEllipseElement where-  pFromJSVal = SVGEllipseElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGEllipseElement where-  toJSVal = return . unSVGEllipseElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGEllipseElement where-  fromJSVal v = fmap SVGEllipseElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGEllipseElement where-  makeObject = makeObject . unSVGEllipseElement--instance IsSVGGraphicsElement SVGEllipseElement-instance IsSVGElement SVGEllipseElement-instance IsElement SVGEllipseElement-instance IsNode SVGEllipseElement-instance IsEventTarget SVGEllipseElement-instance IsGObject SVGEllipseElement where-  toGObject = GObject . unSVGEllipseElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGEllipseElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGEllipseElement :: IsGObject obj => obj -> JSM SVGEllipseElement-castToSVGEllipseElement = castTo gTypeSVGEllipseElement "SVGEllipseElement"--gTypeSVGEllipseElement :: JSM GType-gTypeSVGEllipseElement = GType . Object <$> jsg "SVGEllipseElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGExternalResourcesRequired".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired Mozilla SVGExternalResourcesRequired documentation>-newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal }--instance PToJSVal SVGExternalResourcesRequired where-  pToJSVal = unSVGExternalResourcesRequired-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGExternalResourcesRequired where-  pFromJSVal = SVGExternalResourcesRequired-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGExternalResourcesRequired where-  toJSVal = return . unSVGExternalResourcesRequired-  {-# INLINE toJSVal #-}--instance FromJSVal SVGExternalResourcesRequired where-  fromJSVal v = fmap SVGExternalResourcesRequired <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGExternalResourcesRequired where-  makeObject = makeObject . unSVGExternalResourcesRequired--instance IsGObject SVGExternalResourcesRequired where-  toGObject = GObject . unSVGExternalResourcesRequired-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGExternalResourcesRequired . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGExternalResourcesRequired :: IsGObject obj => obj -> JSM SVGExternalResourcesRequired-castToSVGExternalResourcesRequired = castTo gTypeSVGExternalResourcesRequired "SVGExternalResourcesRequired"--gTypeSVGExternalResourcesRequired :: JSM GType-gTypeSVGExternalResourcesRequired = GType . Object <$> jsg "SVGExternalResourcesRequired"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEBlendElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement Mozilla SVGFEBlendElement documentation>-newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal }--instance PToJSVal SVGFEBlendElement where-  pToJSVal = unSVGFEBlendElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEBlendElement where-  pFromJSVal = SVGFEBlendElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEBlendElement where-  toJSVal = return . unSVGFEBlendElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEBlendElement where-  fromJSVal v = fmap SVGFEBlendElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEBlendElement where-  makeObject = makeObject . unSVGFEBlendElement--instance IsSVGElement SVGFEBlendElement-instance IsElement SVGFEBlendElement-instance IsNode SVGFEBlendElement-instance IsEventTarget SVGFEBlendElement-instance IsGObject SVGFEBlendElement where-  toGObject = GObject . unSVGFEBlendElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEBlendElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEBlendElement :: IsGObject obj => obj -> JSM SVGFEBlendElement-castToSVGFEBlendElement = castTo gTypeSVGFEBlendElement "SVGFEBlendElement"--gTypeSVGFEBlendElement :: JSM GType-gTypeSVGFEBlendElement = GType . Object <$> jsg "SVGFEBlendElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEColorMatrixElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement Mozilla SVGFEColorMatrixElement documentation>-newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal }--instance PToJSVal SVGFEColorMatrixElement where-  pToJSVal = unSVGFEColorMatrixElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEColorMatrixElement where-  pFromJSVal = SVGFEColorMatrixElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEColorMatrixElement where-  toJSVal = return . unSVGFEColorMatrixElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEColorMatrixElement where-  fromJSVal v = fmap SVGFEColorMatrixElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEColorMatrixElement where-  makeObject = makeObject . unSVGFEColorMatrixElement--instance IsSVGElement SVGFEColorMatrixElement-instance IsElement SVGFEColorMatrixElement-instance IsNode SVGFEColorMatrixElement-instance IsEventTarget SVGFEColorMatrixElement-instance IsGObject SVGFEColorMatrixElement where-  toGObject = GObject . unSVGFEColorMatrixElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEColorMatrixElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEColorMatrixElement :: IsGObject obj => obj -> JSM SVGFEColorMatrixElement-castToSVGFEColorMatrixElement = castTo gTypeSVGFEColorMatrixElement "SVGFEColorMatrixElement"--gTypeSVGFEColorMatrixElement :: JSM GType-gTypeSVGFEColorMatrixElement = GType . Object <$> jsg "SVGFEColorMatrixElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEComponentTransferElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement Mozilla SVGFEComponentTransferElement documentation>-newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal }--instance PToJSVal SVGFEComponentTransferElement where-  pToJSVal = unSVGFEComponentTransferElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEComponentTransferElement where-  pFromJSVal = SVGFEComponentTransferElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEComponentTransferElement where-  toJSVal = return . unSVGFEComponentTransferElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEComponentTransferElement where-  fromJSVal v = fmap SVGFEComponentTransferElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEComponentTransferElement where-  makeObject = makeObject . unSVGFEComponentTransferElement--instance IsSVGElement SVGFEComponentTransferElement-instance IsElement SVGFEComponentTransferElement-instance IsNode SVGFEComponentTransferElement-instance IsEventTarget SVGFEComponentTransferElement-instance IsGObject SVGFEComponentTransferElement where-  toGObject = GObject . unSVGFEComponentTransferElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEComponentTransferElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEComponentTransferElement :: IsGObject obj => obj -> JSM SVGFEComponentTransferElement-castToSVGFEComponentTransferElement = castTo gTypeSVGFEComponentTransferElement "SVGFEComponentTransferElement"--gTypeSVGFEComponentTransferElement :: JSM GType-gTypeSVGFEComponentTransferElement = GType . Object <$> jsg "SVGFEComponentTransferElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFECompositeElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement Mozilla SVGFECompositeElement documentation>-newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal }--instance PToJSVal SVGFECompositeElement where-  pToJSVal = unSVGFECompositeElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFECompositeElement where-  pFromJSVal = SVGFECompositeElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFECompositeElement where-  toJSVal = return . unSVGFECompositeElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFECompositeElement where-  fromJSVal v = fmap SVGFECompositeElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFECompositeElement where-  makeObject = makeObject . unSVGFECompositeElement--instance IsSVGElement SVGFECompositeElement-instance IsElement SVGFECompositeElement-instance IsNode SVGFECompositeElement-instance IsEventTarget SVGFECompositeElement-instance IsGObject SVGFECompositeElement where-  toGObject = GObject . unSVGFECompositeElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFECompositeElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFECompositeElement :: IsGObject obj => obj -> JSM SVGFECompositeElement-castToSVGFECompositeElement = castTo gTypeSVGFECompositeElement "SVGFECompositeElement"--gTypeSVGFECompositeElement :: JSM GType-gTypeSVGFECompositeElement = GType . Object <$> jsg "SVGFECompositeElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEConvolveMatrixElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement Mozilla SVGFEConvolveMatrixElement documentation>-newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal }--instance PToJSVal SVGFEConvolveMatrixElement where-  pToJSVal = unSVGFEConvolveMatrixElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEConvolveMatrixElement where-  pFromJSVal = SVGFEConvolveMatrixElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEConvolveMatrixElement where-  toJSVal = return . unSVGFEConvolveMatrixElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEConvolveMatrixElement where-  fromJSVal v = fmap SVGFEConvolveMatrixElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEConvolveMatrixElement where-  makeObject = makeObject . unSVGFEConvolveMatrixElement--instance IsSVGElement SVGFEConvolveMatrixElement-instance IsElement SVGFEConvolveMatrixElement-instance IsNode SVGFEConvolveMatrixElement-instance IsEventTarget SVGFEConvolveMatrixElement-instance IsGObject SVGFEConvolveMatrixElement where-  toGObject = GObject . unSVGFEConvolveMatrixElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEConvolveMatrixElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEConvolveMatrixElement :: IsGObject obj => obj -> JSM SVGFEConvolveMatrixElement-castToSVGFEConvolveMatrixElement = castTo gTypeSVGFEConvolveMatrixElement "SVGFEConvolveMatrixElement"--gTypeSVGFEConvolveMatrixElement :: JSM GType-gTypeSVGFEConvolveMatrixElement = GType . Object <$> jsg "SVGFEConvolveMatrixElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDiffuseLightingElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement Mozilla SVGFEDiffuseLightingElement documentation>-newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal }--instance PToJSVal SVGFEDiffuseLightingElement where-  pToJSVal = unSVGFEDiffuseLightingElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEDiffuseLightingElement where-  pFromJSVal = SVGFEDiffuseLightingElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEDiffuseLightingElement where-  toJSVal = return . unSVGFEDiffuseLightingElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEDiffuseLightingElement where-  fromJSVal v = fmap SVGFEDiffuseLightingElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEDiffuseLightingElement where-  makeObject = makeObject . unSVGFEDiffuseLightingElement--instance IsSVGElement SVGFEDiffuseLightingElement-instance IsElement SVGFEDiffuseLightingElement-instance IsNode SVGFEDiffuseLightingElement-instance IsEventTarget SVGFEDiffuseLightingElement-instance IsGObject SVGFEDiffuseLightingElement where-  toGObject = GObject . unSVGFEDiffuseLightingElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEDiffuseLightingElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEDiffuseLightingElement :: IsGObject obj => obj -> JSM SVGFEDiffuseLightingElement-castToSVGFEDiffuseLightingElement = castTo gTypeSVGFEDiffuseLightingElement "SVGFEDiffuseLightingElement"--gTypeSVGFEDiffuseLightingElement :: JSM GType-gTypeSVGFEDiffuseLightingElement = GType . Object <$> jsg "SVGFEDiffuseLightingElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDisplacementMapElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement Mozilla SVGFEDisplacementMapElement documentation>-newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal }--instance PToJSVal SVGFEDisplacementMapElement where-  pToJSVal = unSVGFEDisplacementMapElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEDisplacementMapElement where-  pFromJSVal = SVGFEDisplacementMapElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEDisplacementMapElement where-  toJSVal = return . unSVGFEDisplacementMapElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEDisplacementMapElement where-  fromJSVal v = fmap SVGFEDisplacementMapElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEDisplacementMapElement where-  makeObject = makeObject . unSVGFEDisplacementMapElement--instance IsSVGElement SVGFEDisplacementMapElement-instance IsElement SVGFEDisplacementMapElement-instance IsNode SVGFEDisplacementMapElement-instance IsEventTarget SVGFEDisplacementMapElement-instance IsGObject SVGFEDisplacementMapElement where-  toGObject = GObject . unSVGFEDisplacementMapElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEDisplacementMapElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEDisplacementMapElement :: IsGObject obj => obj -> JSM SVGFEDisplacementMapElement-castToSVGFEDisplacementMapElement = castTo gTypeSVGFEDisplacementMapElement "SVGFEDisplacementMapElement"--gTypeSVGFEDisplacementMapElement :: JSM GType-gTypeSVGFEDisplacementMapElement = GType . Object <$> jsg "SVGFEDisplacementMapElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDistantLightElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement Mozilla SVGFEDistantLightElement documentation>-newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal }--instance PToJSVal SVGFEDistantLightElement where-  pToJSVal = unSVGFEDistantLightElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEDistantLightElement where-  pFromJSVal = SVGFEDistantLightElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEDistantLightElement where-  toJSVal = return . unSVGFEDistantLightElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEDistantLightElement where-  fromJSVal v = fmap SVGFEDistantLightElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEDistantLightElement where-  makeObject = makeObject . unSVGFEDistantLightElement--instance IsSVGElement SVGFEDistantLightElement-instance IsElement SVGFEDistantLightElement-instance IsNode SVGFEDistantLightElement-instance IsEventTarget SVGFEDistantLightElement-instance IsGObject SVGFEDistantLightElement where-  toGObject = GObject . unSVGFEDistantLightElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEDistantLightElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEDistantLightElement :: IsGObject obj => obj -> JSM SVGFEDistantLightElement-castToSVGFEDistantLightElement = castTo gTypeSVGFEDistantLightElement "SVGFEDistantLightElement"--gTypeSVGFEDistantLightElement :: JSM GType-gTypeSVGFEDistantLightElement = GType . Object <$> jsg "SVGFEDistantLightElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEDropShadowElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement Mozilla SVGFEDropShadowElement documentation>-newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal }--instance PToJSVal SVGFEDropShadowElement where-  pToJSVal = unSVGFEDropShadowElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEDropShadowElement where-  pFromJSVal = SVGFEDropShadowElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEDropShadowElement where-  toJSVal = return . unSVGFEDropShadowElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEDropShadowElement where-  fromJSVal v = fmap SVGFEDropShadowElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEDropShadowElement where-  makeObject = makeObject . unSVGFEDropShadowElement--instance IsSVGElement SVGFEDropShadowElement-instance IsElement SVGFEDropShadowElement-instance IsNode SVGFEDropShadowElement-instance IsEventTarget SVGFEDropShadowElement-instance IsGObject SVGFEDropShadowElement where-  toGObject = GObject . unSVGFEDropShadowElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEDropShadowElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEDropShadowElement :: IsGObject obj => obj -> JSM SVGFEDropShadowElement-castToSVGFEDropShadowElement = castTo gTypeSVGFEDropShadowElement "SVGFEDropShadowElement"--gTypeSVGFEDropShadowElement :: JSM GType-gTypeSVGFEDropShadowElement = GType . Object <$> jsg "SVGFEDropShadowElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFloodElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFloodElement Mozilla SVGFEFloodElement documentation>-newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal }--instance PToJSVal SVGFEFloodElement where-  pToJSVal = unSVGFEFloodElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEFloodElement where-  pFromJSVal = SVGFEFloodElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEFloodElement where-  toJSVal = return . unSVGFEFloodElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEFloodElement where-  fromJSVal v = fmap SVGFEFloodElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEFloodElement where-  makeObject = makeObject . unSVGFEFloodElement--instance IsSVGElement SVGFEFloodElement-instance IsElement SVGFEFloodElement-instance IsNode SVGFEFloodElement-instance IsEventTarget SVGFEFloodElement-instance IsGObject SVGFEFloodElement where-  toGObject = GObject . unSVGFEFloodElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEFloodElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEFloodElement :: IsGObject obj => obj -> JSM SVGFEFloodElement-castToSVGFEFloodElement = castTo gTypeSVGFEFloodElement "SVGFEFloodElement"--gTypeSVGFEFloodElement :: JSM GType-gTypeSVGFEFloodElement = GType . Object <$> jsg "SVGFEFloodElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncAElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncAElement Mozilla SVGFEFuncAElement documentation>-newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal }--instance PToJSVal SVGFEFuncAElement where-  pToJSVal = unSVGFEFuncAElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEFuncAElement where-  pFromJSVal = SVGFEFuncAElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEFuncAElement where-  toJSVal = return . unSVGFEFuncAElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEFuncAElement where-  fromJSVal v = fmap SVGFEFuncAElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEFuncAElement where-  makeObject = makeObject . unSVGFEFuncAElement--instance IsSVGComponentTransferFunctionElement SVGFEFuncAElement-instance IsSVGElement SVGFEFuncAElement-instance IsElement SVGFEFuncAElement-instance IsNode SVGFEFuncAElement-instance IsEventTarget SVGFEFuncAElement-instance IsGObject SVGFEFuncAElement where-  toGObject = GObject . unSVGFEFuncAElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEFuncAElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEFuncAElement :: IsGObject obj => obj -> JSM SVGFEFuncAElement-castToSVGFEFuncAElement = castTo gTypeSVGFEFuncAElement "SVGFEFuncAElement"--gTypeSVGFEFuncAElement :: JSM GType-gTypeSVGFEFuncAElement = GType . Object <$> jsg "SVGFEFuncAElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncBElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncBElement Mozilla SVGFEFuncBElement documentation>-newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal }--instance PToJSVal SVGFEFuncBElement where-  pToJSVal = unSVGFEFuncBElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEFuncBElement where-  pFromJSVal = SVGFEFuncBElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEFuncBElement where-  toJSVal = return . unSVGFEFuncBElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEFuncBElement where-  fromJSVal v = fmap SVGFEFuncBElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEFuncBElement where-  makeObject = makeObject . unSVGFEFuncBElement--instance IsSVGComponentTransferFunctionElement SVGFEFuncBElement-instance IsSVGElement SVGFEFuncBElement-instance IsElement SVGFEFuncBElement-instance IsNode SVGFEFuncBElement-instance IsEventTarget SVGFEFuncBElement-instance IsGObject SVGFEFuncBElement where-  toGObject = GObject . unSVGFEFuncBElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEFuncBElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEFuncBElement :: IsGObject obj => obj -> JSM SVGFEFuncBElement-castToSVGFEFuncBElement = castTo gTypeSVGFEFuncBElement "SVGFEFuncBElement"--gTypeSVGFEFuncBElement :: JSM GType-gTypeSVGFEFuncBElement = GType . Object <$> jsg "SVGFEFuncBElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncGElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncGElement Mozilla SVGFEFuncGElement documentation>-newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal }--instance PToJSVal SVGFEFuncGElement where-  pToJSVal = unSVGFEFuncGElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEFuncGElement where-  pFromJSVal = SVGFEFuncGElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEFuncGElement where-  toJSVal = return . unSVGFEFuncGElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEFuncGElement where-  fromJSVal v = fmap SVGFEFuncGElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEFuncGElement where-  makeObject = makeObject . unSVGFEFuncGElement--instance IsSVGComponentTransferFunctionElement SVGFEFuncGElement-instance IsSVGElement SVGFEFuncGElement-instance IsElement SVGFEFuncGElement-instance IsNode SVGFEFuncGElement-instance IsEventTarget SVGFEFuncGElement-instance IsGObject SVGFEFuncGElement where-  toGObject = GObject . unSVGFEFuncGElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEFuncGElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEFuncGElement :: IsGObject obj => obj -> JSM SVGFEFuncGElement-castToSVGFEFuncGElement = castTo gTypeSVGFEFuncGElement "SVGFEFuncGElement"--gTypeSVGFEFuncGElement :: JSM GType-gTypeSVGFEFuncGElement = GType . Object <$> jsg "SVGFEFuncGElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEFuncRElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGComponentTransferFunctionElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEFuncRElement Mozilla SVGFEFuncRElement documentation>-newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal }--instance PToJSVal SVGFEFuncRElement where-  pToJSVal = unSVGFEFuncRElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEFuncRElement where-  pFromJSVal = SVGFEFuncRElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEFuncRElement where-  toJSVal = return . unSVGFEFuncRElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEFuncRElement where-  fromJSVal v = fmap SVGFEFuncRElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEFuncRElement where-  makeObject = makeObject . unSVGFEFuncRElement--instance IsSVGComponentTransferFunctionElement SVGFEFuncRElement-instance IsSVGElement SVGFEFuncRElement-instance IsElement SVGFEFuncRElement-instance IsNode SVGFEFuncRElement-instance IsEventTarget SVGFEFuncRElement-instance IsGObject SVGFEFuncRElement where-  toGObject = GObject . unSVGFEFuncRElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEFuncRElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEFuncRElement :: IsGObject obj => obj -> JSM SVGFEFuncRElement-castToSVGFEFuncRElement = castTo gTypeSVGFEFuncRElement "SVGFEFuncRElement"--gTypeSVGFEFuncRElement :: JSM GType-gTypeSVGFEFuncRElement = GType . Object <$> jsg "SVGFEFuncRElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEGaussianBlurElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement Mozilla SVGFEGaussianBlurElement documentation>-newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal }--instance PToJSVal SVGFEGaussianBlurElement where-  pToJSVal = unSVGFEGaussianBlurElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEGaussianBlurElement where-  pFromJSVal = SVGFEGaussianBlurElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEGaussianBlurElement where-  toJSVal = return . unSVGFEGaussianBlurElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEGaussianBlurElement where-  fromJSVal v = fmap SVGFEGaussianBlurElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEGaussianBlurElement where-  makeObject = makeObject . unSVGFEGaussianBlurElement--instance IsSVGElement SVGFEGaussianBlurElement-instance IsElement SVGFEGaussianBlurElement-instance IsNode SVGFEGaussianBlurElement-instance IsEventTarget SVGFEGaussianBlurElement-instance IsGObject SVGFEGaussianBlurElement where-  toGObject = GObject . unSVGFEGaussianBlurElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEGaussianBlurElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEGaussianBlurElement :: IsGObject obj => obj -> JSM SVGFEGaussianBlurElement-castToSVGFEGaussianBlurElement = castTo gTypeSVGFEGaussianBlurElement "SVGFEGaussianBlurElement"--gTypeSVGFEGaussianBlurElement :: JSM GType-gTypeSVGFEGaussianBlurElement = GType . Object <$> jsg "SVGFEGaussianBlurElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEImageElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement Mozilla SVGFEImageElement documentation>-newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal }--instance PToJSVal SVGFEImageElement where-  pToJSVal = unSVGFEImageElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEImageElement where-  pFromJSVal = SVGFEImageElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEImageElement where-  toJSVal = return . unSVGFEImageElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEImageElement where-  fromJSVal v = fmap SVGFEImageElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEImageElement where-  makeObject = makeObject . unSVGFEImageElement--instance IsSVGElement SVGFEImageElement-instance IsElement SVGFEImageElement-instance IsNode SVGFEImageElement-instance IsEventTarget SVGFEImageElement-instance IsGObject SVGFEImageElement where-  toGObject = GObject . unSVGFEImageElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEImageElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEImageElement :: IsGObject obj => obj -> JSM SVGFEImageElement-castToSVGFEImageElement = castTo gTypeSVGFEImageElement "SVGFEImageElement"--gTypeSVGFEImageElement :: JSM GType-gTypeSVGFEImageElement = GType . Object <$> jsg "SVGFEImageElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEMergeElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeElement Mozilla SVGFEMergeElement documentation>-newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal }--instance PToJSVal SVGFEMergeElement where-  pToJSVal = unSVGFEMergeElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEMergeElement where-  pFromJSVal = SVGFEMergeElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEMergeElement where-  toJSVal = return . unSVGFEMergeElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEMergeElement where-  fromJSVal v = fmap SVGFEMergeElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEMergeElement where-  makeObject = makeObject . unSVGFEMergeElement--instance IsSVGElement SVGFEMergeElement-instance IsElement SVGFEMergeElement-instance IsNode SVGFEMergeElement-instance IsEventTarget SVGFEMergeElement-instance IsGObject SVGFEMergeElement where-  toGObject = GObject . unSVGFEMergeElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEMergeElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEMergeElement :: IsGObject obj => obj -> JSM SVGFEMergeElement-castToSVGFEMergeElement = castTo gTypeSVGFEMergeElement "SVGFEMergeElement"--gTypeSVGFEMergeElement :: JSM GType-gTypeSVGFEMergeElement = GType . Object <$> jsg "SVGFEMergeElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEMergeNodeElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement Mozilla SVGFEMergeNodeElement documentation>-newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal }--instance PToJSVal SVGFEMergeNodeElement where-  pToJSVal = unSVGFEMergeNodeElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEMergeNodeElement where-  pFromJSVal = SVGFEMergeNodeElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEMergeNodeElement where-  toJSVal = return . unSVGFEMergeNodeElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEMergeNodeElement where-  fromJSVal v = fmap SVGFEMergeNodeElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEMergeNodeElement where-  makeObject = makeObject . unSVGFEMergeNodeElement--instance IsSVGElement SVGFEMergeNodeElement-instance IsElement SVGFEMergeNodeElement-instance IsNode SVGFEMergeNodeElement-instance IsEventTarget SVGFEMergeNodeElement-instance IsGObject SVGFEMergeNodeElement where-  toGObject = GObject . unSVGFEMergeNodeElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEMergeNodeElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEMergeNodeElement :: IsGObject obj => obj -> JSM SVGFEMergeNodeElement-castToSVGFEMergeNodeElement = castTo gTypeSVGFEMergeNodeElement "SVGFEMergeNodeElement"--gTypeSVGFEMergeNodeElement :: JSM GType-gTypeSVGFEMergeNodeElement = GType . Object <$> jsg "SVGFEMergeNodeElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEMorphologyElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement Mozilla SVGFEMorphologyElement documentation>-newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal }--instance PToJSVal SVGFEMorphologyElement where-  pToJSVal = unSVGFEMorphologyElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEMorphologyElement where-  pFromJSVal = SVGFEMorphologyElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEMorphologyElement where-  toJSVal = return . unSVGFEMorphologyElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEMorphologyElement where-  fromJSVal v = fmap SVGFEMorphologyElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEMorphologyElement where-  makeObject = makeObject . unSVGFEMorphologyElement--instance IsSVGElement SVGFEMorphologyElement-instance IsElement SVGFEMorphologyElement-instance IsNode SVGFEMorphologyElement-instance IsEventTarget SVGFEMorphologyElement-instance IsGObject SVGFEMorphologyElement where-  toGObject = GObject . unSVGFEMorphologyElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEMorphologyElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEMorphologyElement :: IsGObject obj => obj -> JSM SVGFEMorphologyElement-castToSVGFEMorphologyElement = castTo gTypeSVGFEMorphologyElement "SVGFEMorphologyElement"--gTypeSVGFEMorphologyElement :: JSM GType-gTypeSVGFEMorphologyElement = GType . Object <$> jsg "SVGFEMorphologyElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEOffsetElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement Mozilla SVGFEOffsetElement documentation>-newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal }--instance PToJSVal SVGFEOffsetElement where-  pToJSVal = unSVGFEOffsetElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEOffsetElement where-  pFromJSVal = SVGFEOffsetElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEOffsetElement where-  toJSVal = return . unSVGFEOffsetElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEOffsetElement where-  fromJSVal v = fmap SVGFEOffsetElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEOffsetElement where-  makeObject = makeObject . unSVGFEOffsetElement--instance IsSVGElement SVGFEOffsetElement-instance IsElement SVGFEOffsetElement-instance IsNode SVGFEOffsetElement-instance IsEventTarget SVGFEOffsetElement-instance IsGObject SVGFEOffsetElement where-  toGObject = GObject . unSVGFEOffsetElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEOffsetElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEOffsetElement :: IsGObject obj => obj -> JSM SVGFEOffsetElement-castToSVGFEOffsetElement = castTo gTypeSVGFEOffsetElement "SVGFEOffsetElement"--gTypeSVGFEOffsetElement :: JSM GType-gTypeSVGFEOffsetElement = GType . Object <$> jsg "SVGFEOffsetElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFEPointLightElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement Mozilla SVGFEPointLightElement documentation>-newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal }--instance PToJSVal SVGFEPointLightElement where-  pToJSVal = unSVGFEPointLightElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFEPointLightElement where-  pFromJSVal = SVGFEPointLightElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFEPointLightElement where-  toJSVal = return . unSVGFEPointLightElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFEPointLightElement where-  fromJSVal v = fmap SVGFEPointLightElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFEPointLightElement where-  makeObject = makeObject . unSVGFEPointLightElement--instance IsSVGElement SVGFEPointLightElement-instance IsElement SVGFEPointLightElement-instance IsNode SVGFEPointLightElement-instance IsEventTarget SVGFEPointLightElement-instance IsGObject SVGFEPointLightElement where-  toGObject = GObject . unSVGFEPointLightElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFEPointLightElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFEPointLightElement :: IsGObject obj => obj -> JSM SVGFEPointLightElement-castToSVGFEPointLightElement = castTo gTypeSVGFEPointLightElement "SVGFEPointLightElement"--gTypeSVGFEPointLightElement :: JSM GType-gTypeSVGFEPointLightElement = GType . Object <$> jsg "SVGFEPointLightElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFESpecularLightingElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement Mozilla SVGFESpecularLightingElement documentation>-newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal }--instance PToJSVal SVGFESpecularLightingElement where-  pToJSVal = unSVGFESpecularLightingElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFESpecularLightingElement where-  pFromJSVal = SVGFESpecularLightingElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFESpecularLightingElement where-  toJSVal = return . unSVGFESpecularLightingElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFESpecularLightingElement where-  fromJSVal v = fmap SVGFESpecularLightingElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFESpecularLightingElement where-  makeObject = makeObject . unSVGFESpecularLightingElement--instance IsSVGElement SVGFESpecularLightingElement-instance IsElement SVGFESpecularLightingElement-instance IsNode SVGFESpecularLightingElement-instance IsEventTarget SVGFESpecularLightingElement-instance IsGObject SVGFESpecularLightingElement where-  toGObject = GObject . unSVGFESpecularLightingElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFESpecularLightingElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFESpecularLightingElement :: IsGObject obj => obj -> JSM SVGFESpecularLightingElement-castToSVGFESpecularLightingElement = castTo gTypeSVGFESpecularLightingElement "SVGFESpecularLightingElement"--gTypeSVGFESpecularLightingElement :: JSM GType-gTypeSVGFESpecularLightingElement = GType . Object <$> jsg "SVGFESpecularLightingElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFESpotLightElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement Mozilla SVGFESpotLightElement documentation>-newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal }--instance PToJSVal SVGFESpotLightElement where-  pToJSVal = unSVGFESpotLightElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFESpotLightElement where-  pFromJSVal = SVGFESpotLightElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFESpotLightElement where-  toJSVal = return . unSVGFESpotLightElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFESpotLightElement where-  fromJSVal v = fmap SVGFESpotLightElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFESpotLightElement where-  makeObject = makeObject . unSVGFESpotLightElement--instance IsSVGElement SVGFESpotLightElement-instance IsElement SVGFESpotLightElement-instance IsNode SVGFESpotLightElement-instance IsEventTarget SVGFESpotLightElement-instance IsGObject SVGFESpotLightElement where-  toGObject = GObject . unSVGFESpotLightElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFESpotLightElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFESpotLightElement :: IsGObject obj => obj -> JSM SVGFESpotLightElement-castToSVGFESpotLightElement = castTo gTypeSVGFESpotLightElement "SVGFESpotLightElement"--gTypeSVGFESpotLightElement :: JSM GType-gTypeSVGFESpotLightElement = GType . Object <$> jsg "SVGFESpotLightElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFETileElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement Mozilla SVGFETileElement documentation>-newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal }--instance PToJSVal SVGFETileElement where-  pToJSVal = unSVGFETileElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFETileElement where-  pFromJSVal = SVGFETileElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFETileElement where-  toJSVal = return . unSVGFETileElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFETileElement where-  fromJSVal v = fmap SVGFETileElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFETileElement where-  makeObject = makeObject . unSVGFETileElement--instance IsSVGElement SVGFETileElement-instance IsElement SVGFETileElement-instance IsNode SVGFETileElement-instance IsEventTarget SVGFETileElement-instance IsGObject SVGFETileElement where-  toGObject = GObject . unSVGFETileElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFETileElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFETileElement :: IsGObject obj => obj -> JSM SVGFETileElement-castToSVGFETileElement = castTo gTypeSVGFETileElement "SVGFETileElement"--gTypeSVGFETileElement :: JSM GType-gTypeSVGFETileElement = GType . Object <$> jsg "SVGFETileElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFETurbulenceElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement Mozilla SVGFETurbulenceElement documentation>-newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal }--instance PToJSVal SVGFETurbulenceElement where-  pToJSVal = unSVGFETurbulenceElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFETurbulenceElement where-  pFromJSVal = SVGFETurbulenceElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFETurbulenceElement where-  toJSVal = return . unSVGFETurbulenceElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFETurbulenceElement where-  fromJSVal v = fmap SVGFETurbulenceElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFETurbulenceElement where-  makeObject = makeObject . unSVGFETurbulenceElement--instance IsSVGElement SVGFETurbulenceElement-instance IsElement SVGFETurbulenceElement-instance IsNode SVGFETurbulenceElement-instance IsEventTarget SVGFETurbulenceElement-instance IsGObject SVGFETurbulenceElement where-  toGObject = GObject . unSVGFETurbulenceElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFETurbulenceElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFETurbulenceElement :: IsGObject obj => obj -> JSM SVGFETurbulenceElement-castToSVGFETurbulenceElement = castTo gTypeSVGFETurbulenceElement "SVGFETurbulenceElement"--gTypeSVGFETurbulenceElement :: JSM GType-gTypeSVGFETurbulenceElement = GType . Object <$> jsg "SVGFETurbulenceElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFilterElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement Mozilla SVGFilterElement documentation>-newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal }--instance PToJSVal SVGFilterElement where-  pToJSVal = unSVGFilterElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFilterElement where-  pFromJSVal = SVGFilterElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFilterElement where-  toJSVal = return . unSVGFilterElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFilterElement where-  fromJSVal v = fmap SVGFilterElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFilterElement where-  makeObject = makeObject . unSVGFilterElement--instance IsSVGElement SVGFilterElement-instance IsElement SVGFilterElement-instance IsNode SVGFilterElement-instance IsEventTarget SVGFilterElement-instance IsGObject SVGFilterElement where-  toGObject = GObject . unSVGFilterElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFilterElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFilterElement :: IsGObject obj => obj -> JSM SVGFilterElement-castToSVGFilterElement = castTo gTypeSVGFilterElement "SVGFilterElement"--gTypeSVGFilterElement :: JSM GType-gTypeSVGFilterElement = GType . Object <$> jsg "SVGFilterElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFilterPrimitiveStandardAttributes".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes Mozilla SVGFilterPrimitiveStandardAttributes documentation>-newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal }--instance PToJSVal SVGFilterPrimitiveStandardAttributes where-  pToJSVal = unSVGFilterPrimitiveStandardAttributes-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFilterPrimitiveStandardAttributes where-  pFromJSVal = SVGFilterPrimitiveStandardAttributes-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFilterPrimitiveStandardAttributes where-  toJSVal = return . unSVGFilterPrimitiveStandardAttributes-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFilterPrimitiveStandardAttributes where-  fromJSVal v = fmap SVGFilterPrimitiveStandardAttributes <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFilterPrimitiveStandardAttributes where-  makeObject = makeObject . unSVGFilterPrimitiveStandardAttributes--instance IsGObject SVGFilterPrimitiveStandardAttributes where-  toGObject = GObject . unSVGFilterPrimitiveStandardAttributes-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFilterPrimitiveStandardAttributes . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFilterPrimitiveStandardAttributes :: IsGObject obj => obj -> JSM SVGFilterPrimitiveStandardAttributes-castToSVGFilterPrimitiveStandardAttributes = castTo gTypeSVGFilterPrimitiveStandardAttributes "SVGFilterPrimitiveStandardAttributes"--gTypeSVGFilterPrimitiveStandardAttributes :: JSM GType-gTypeSVGFilterPrimitiveStandardAttributes = GType . Object <$> jsg "SVGFilterPrimitiveStandardAttributes"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFitToViewBox".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox Mozilla SVGFitToViewBox documentation>-newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal }--instance PToJSVal SVGFitToViewBox where-  pToJSVal = unSVGFitToViewBox-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFitToViewBox where-  pFromJSVal = SVGFitToViewBox-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFitToViewBox where-  toJSVal = return . unSVGFitToViewBox-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFitToViewBox where-  fromJSVal v = fmap SVGFitToViewBox <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFitToViewBox where-  makeObject = makeObject . unSVGFitToViewBox--instance IsGObject SVGFitToViewBox where-  toGObject = GObject . unSVGFitToViewBox-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFitToViewBox . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFitToViewBox :: IsGObject obj => obj -> JSM SVGFitToViewBox-castToSVGFitToViewBox = castTo gTypeSVGFitToViewBox "SVGFitToViewBox"--gTypeSVGFitToViewBox :: JSM GType-gTypeSVGFitToViewBox = GType . Object <$> jsg "SVGFitToViewBox"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontElement Mozilla SVGFontElement documentation>-newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal }--instance PToJSVal SVGFontElement where-  pToJSVal = unSVGFontElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFontElement where-  pFromJSVal = SVGFontElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFontElement where-  toJSVal = return . unSVGFontElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFontElement where-  fromJSVal v = fmap SVGFontElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFontElement where-  makeObject = makeObject . unSVGFontElement--instance IsSVGElement SVGFontElement-instance IsElement SVGFontElement-instance IsNode SVGFontElement-instance IsEventTarget SVGFontElement-instance IsGObject SVGFontElement where-  toGObject = GObject . unSVGFontElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFontElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFontElement :: IsGObject obj => obj -> JSM SVGFontElement-castToSVGFontElement = castTo gTypeSVGFontElement "SVGFontElement"--gTypeSVGFontElement :: JSM GType-gTypeSVGFontElement = GType . Object <$> jsg "SVGFontElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceElement Mozilla SVGFontFaceElement documentation>-newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal }--instance PToJSVal SVGFontFaceElement where-  pToJSVal = unSVGFontFaceElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFontFaceElement where-  pFromJSVal = SVGFontFaceElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFontFaceElement where-  toJSVal = return . unSVGFontFaceElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFontFaceElement where-  fromJSVal v = fmap SVGFontFaceElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFontFaceElement where-  makeObject = makeObject . unSVGFontFaceElement--instance IsSVGElement SVGFontFaceElement-instance IsElement SVGFontFaceElement-instance IsNode SVGFontFaceElement-instance IsEventTarget SVGFontFaceElement-instance IsGObject SVGFontFaceElement where-  toGObject = GObject . unSVGFontFaceElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFontFaceElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFontFaceElement :: IsGObject obj => obj -> JSM SVGFontFaceElement-castToSVGFontFaceElement = castTo gTypeSVGFontFaceElement "SVGFontFaceElement"--gTypeSVGFontFaceElement :: JSM GType-gTypeSVGFontFaceElement = GType . Object <$> jsg "SVGFontFaceElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceFormatElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceFormatElement Mozilla SVGFontFaceFormatElement documentation>-newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal }--instance PToJSVal SVGFontFaceFormatElement where-  pToJSVal = unSVGFontFaceFormatElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFontFaceFormatElement where-  pFromJSVal = SVGFontFaceFormatElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFontFaceFormatElement where-  toJSVal = return . unSVGFontFaceFormatElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFontFaceFormatElement where-  fromJSVal v = fmap SVGFontFaceFormatElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFontFaceFormatElement where-  makeObject = makeObject . unSVGFontFaceFormatElement--instance IsSVGElement SVGFontFaceFormatElement-instance IsElement SVGFontFaceFormatElement-instance IsNode SVGFontFaceFormatElement-instance IsEventTarget SVGFontFaceFormatElement-instance IsGObject SVGFontFaceFormatElement where-  toGObject = GObject . unSVGFontFaceFormatElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFontFaceFormatElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFontFaceFormatElement :: IsGObject obj => obj -> JSM SVGFontFaceFormatElement-castToSVGFontFaceFormatElement = castTo gTypeSVGFontFaceFormatElement "SVGFontFaceFormatElement"--gTypeSVGFontFaceFormatElement :: JSM GType-gTypeSVGFontFaceFormatElement = GType . Object <$> jsg "SVGFontFaceFormatElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceNameElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceNameElement Mozilla SVGFontFaceNameElement documentation>-newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal }--instance PToJSVal SVGFontFaceNameElement where-  pToJSVal = unSVGFontFaceNameElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFontFaceNameElement where-  pFromJSVal = SVGFontFaceNameElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFontFaceNameElement where-  toJSVal = return . unSVGFontFaceNameElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFontFaceNameElement where-  fromJSVal v = fmap SVGFontFaceNameElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFontFaceNameElement where-  makeObject = makeObject . unSVGFontFaceNameElement--instance IsSVGElement SVGFontFaceNameElement-instance IsElement SVGFontFaceNameElement-instance IsNode SVGFontFaceNameElement-instance IsEventTarget SVGFontFaceNameElement-instance IsGObject SVGFontFaceNameElement where-  toGObject = GObject . unSVGFontFaceNameElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFontFaceNameElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFontFaceNameElement :: IsGObject obj => obj -> JSM SVGFontFaceNameElement-castToSVGFontFaceNameElement = castTo gTypeSVGFontFaceNameElement "SVGFontFaceNameElement"--gTypeSVGFontFaceNameElement :: JSM GType-gTypeSVGFontFaceNameElement = GType . Object <$> jsg "SVGFontFaceNameElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceSrcElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceSrcElement Mozilla SVGFontFaceSrcElement documentation>-newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal }--instance PToJSVal SVGFontFaceSrcElement where-  pToJSVal = unSVGFontFaceSrcElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFontFaceSrcElement where-  pFromJSVal = SVGFontFaceSrcElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFontFaceSrcElement where-  toJSVal = return . unSVGFontFaceSrcElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFontFaceSrcElement where-  fromJSVal v = fmap SVGFontFaceSrcElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFontFaceSrcElement where-  makeObject = makeObject . unSVGFontFaceSrcElement--instance IsSVGElement SVGFontFaceSrcElement-instance IsElement SVGFontFaceSrcElement-instance IsNode SVGFontFaceSrcElement-instance IsEventTarget SVGFontFaceSrcElement-instance IsGObject SVGFontFaceSrcElement where-  toGObject = GObject . unSVGFontFaceSrcElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFontFaceSrcElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFontFaceSrcElement :: IsGObject obj => obj -> JSM SVGFontFaceSrcElement-castToSVGFontFaceSrcElement = castTo gTypeSVGFontFaceSrcElement "SVGFontFaceSrcElement"--gTypeSVGFontFaceSrcElement :: JSM GType-gTypeSVGFontFaceSrcElement = GType . Object <$> jsg "SVGFontFaceSrcElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGFontFaceUriElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGFontFaceUriElement Mozilla SVGFontFaceUriElement documentation>-newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal }--instance PToJSVal SVGFontFaceUriElement where-  pToJSVal = unSVGFontFaceUriElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGFontFaceUriElement where-  pFromJSVal = SVGFontFaceUriElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGFontFaceUriElement where-  toJSVal = return . unSVGFontFaceUriElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGFontFaceUriElement where-  fromJSVal v = fmap SVGFontFaceUriElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGFontFaceUriElement where-  makeObject = makeObject . unSVGFontFaceUriElement--instance IsSVGElement SVGFontFaceUriElement-instance IsElement SVGFontFaceUriElement-instance IsNode SVGFontFaceUriElement-instance IsEventTarget SVGFontFaceUriElement-instance IsGObject SVGFontFaceUriElement where-  toGObject = GObject . unSVGFontFaceUriElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGFontFaceUriElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGFontFaceUriElement :: IsGObject obj => obj -> JSM SVGFontFaceUriElement-castToSVGFontFaceUriElement = castTo gTypeSVGFontFaceUriElement "SVGFontFaceUriElement"--gTypeSVGFontFaceUriElement :: JSM GType-gTypeSVGFontFaceUriElement = GType . Object <$> jsg "SVGFontFaceUriElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGForeignObjectElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement Mozilla SVGForeignObjectElement documentation>-newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal }--instance PToJSVal SVGForeignObjectElement where-  pToJSVal = unSVGForeignObjectElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGForeignObjectElement where-  pFromJSVal = SVGForeignObjectElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGForeignObjectElement where-  toJSVal = return . unSVGForeignObjectElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGForeignObjectElement where-  fromJSVal v = fmap SVGForeignObjectElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGForeignObjectElement where-  makeObject = makeObject . unSVGForeignObjectElement--instance IsSVGGraphicsElement SVGForeignObjectElement-instance IsSVGElement SVGForeignObjectElement-instance IsElement SVGForeignObjectElement-instance IsNode SVGForeignObjectElement-instance IsEventTarget SVGForeignObjectElement-instance IsGObject SVGForeignObjectElement where-  toGObject = GObject . unSVGForeignObjectElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGForeignObjectElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGForeignObjectElement :: IsGObject obj => obj -> JSM SVGForeignObjectElement-castToSVGForeignObjectElement = castTo gTypeSVGForeignObjectElement "SVGForeignObjectElement"--gTypeSVGForeignObjectElement :: JSM GType-gTypeSVGForeignObjectElement = GType . Object <$> jsg "SVGForeignObjectElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGGElement Mozilla SVGGElement documentation>-newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal }--instance PToJSVal SVGGElement where-  pToJSVal = unSVGGElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGGElement where-  pFromJSVal = SVGGElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGGElement where-  toJSVal = return . unSVGGElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGGElement where-  fromJSVal v = fmap SVGGElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGGElement where-  makeObject = makeObject . unSVGGElement--instance IsSVGGraphicsElement SVGGElement-instance IsSVGElement SVGGElement-instance IsElement SVGGElement-instance IsNode SVGGElement-instance IsEventTarget SVGGElement-instance IsGObject SVGGElement where-  toGObject = GObject . unSVGGElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGGElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGGElement :: IsGObject obj => obj -> JSM SVGGElement-castToSVGGElement = castTo gTypeSVGGElement "SVGGElement"--gTypeSVGGElement :: JSM GType-gTypeSVGGElement = GType . Object <$> jsg "SVGGElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGlyphElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphElement Mozilla SVGGlyphElement documentation>-newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal }--instance PToJSVal SVGGlyphElement where-  pToJSVal = unSVGGlyphElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGGlyphElement where-  pFromJSVal = SVGGlyphElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGGlyphElement where-  toJSVal = return . unSVGGlyphElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGGlyphElement where-  fromJSVal v = fmap SVGGlyphElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGGlyphElement where-  makeObject = makeObject . unSVGGlyphElement--instance IsSVGElement SVGGlyphElement-instance IsElement SVGGlyphElement-instance IsNode SVGGlyphElement-instance IsEventTarget SVGGlyphElement-instance IsGObject SVGGlyphElement where-  toGObject = GObject . unSVGGlyphElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGGlyphElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGGlyphElement :: IsGObject obj => obj -> JSM SVGGlyphElement-castToSVGGlyphElement = castTo gTypeSVGGlyphElement "SVGGlyphElement"--gTypeSVGGlyphElement :: JSM GType-gTypeSVGGlyphElement = GType . Object <$> jsg "SVGGlyphElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGlyphRefElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement Mozilla SVGGlyphRefElement documentation>-newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal }--instance PToJSVal SVGGlyphRefElement where-  pToJSVal = unSVGGlyphRefElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGGlyphRefElement where-  pFromJSVal = SVGGlyphRefElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGGlyphRefElement where-  toJSVal = return . unSVGGlyphRefElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGGlyphRefElement where-  fromJSVal v = fmap SVGGlyphRefElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGGlyphRefElement where-  makeObject = makeObject . unSVGGlyphRefElement--instance IsSVGElement SVGGlyphRefElement-instance IsElement SVGGlyphRefElement-instance IsNode SVGGlyphRefElement-instance IsEventTarget SVGGlyphRefElement-instance IsGObject SVGGlyphRefElement where-  toGObject = GObject . unSVGGlyphRefElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGGlyphRefElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGGlyphRefElement :: IsGObject obj => obj -> JSM SVGGlyphRefElement-castToSVGGlyphRefElement = castTo gTypeSVGGlyphRefElement "SVGGlyphRefElement"--gTypeSVGGlyphRefElement :: JSM GType-gTypeSVGGlyphRefElement = GType . Object <$> jsg "SVGGlyphRefElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGradientElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement Mozilla SVGGradientElement documentation>-newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal }--instance PToJSVal SVGGradientElement where-  pToJSVal = unSVGGradientElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGGradientElement where-  pFromJSVal = SVGGradientElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGGradientElement where-  toJSVal = return . unSVGGradientElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGGradientElement where-  fromJSVal v = fmap SVGGradientElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGGradientElement where-  makeObject = makeObject . unSVGGradientElement--class IsSVGElement o => IsSVGGradientElement o-toSVGGradientElement :: IsSVGGradientElement o => o -> SVGGradientElement-toSVGGradientElement = unsafeCastGObject . toGObject--instance IsSVGGradientElement SVGGradientElement-instance IsSVGElement SVGGradientElement-instance IsElement SVGGradientElement-instance IsNode SVGGradientElement-instance IsEventTarget SVGGradientElement-instance IsGObject SVGGradientElement where-  toGObject = GObject . unSVGGradientElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGGradientElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGGradientElement :: IsGObject obj => obj -> JSM SVGGradientElement-castToSVGGradientElement = castTo gTypeSVGGradientElement "SVGGradientElement"--gTypeSVGGradientElement :: JSM GType-gTypeSVGGradientElement = GType . Object <$> jsg "SVGGradientElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGGraphicsElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement Mozilla SVGGraphicsElement documentation>-newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal }--instance PToJSVal SVGGraphicsElement where-  pToJSVal = unSVGGraphicsElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGGraphicsElement where-  pFromJSVal = SVGGraphicsElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGGraphicsElement where-  toJSVal = return . unSVGGraphicsElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGGraphicsElement where-  fromJSVal v = fmap SVGGraphicsElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGGraphicsElement where-  makeObject = makeObject . unSVGGraphicsElement--class IsSVGElement o => IsSVGGraphicsElement o-toSVGGraphicsElement :: IsSVGGraphicsElement o => o -> SVGGraphicsElement-toSVGGraphicsElement = unsafeCastGObject . toGObject--instance IsSVGGraphicsElement SVGGraphicsElement-instance IsSVGElement SVGGraphicsElement-instance IsElement SVGGraphicsElement-instance IsNode SVGGraphicsElement-instance IsEventTarget SVGGraphicsElement-instance IsGObject SVGGraphicsElement where-  toGObject = GObject . unSVGGraphicsElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGGraphicsElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGGraphicsElement :: IsGObject obj => obj -> JSM SVGGraphicsElement-castToSVGGraphicsElement = castTo gTypeSVGGraphicsElement "SVGGraphicsElement"--gTypeSVGGraphicsElement :: JSM GType-gTypeSVGGraphicsElement = GType . Object <$> jsg "SVGGraphicsElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGHKernElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGHKernElement Mozilla SVGHKernElement documentation>-newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal }--instance PToJSVal SVGHKernElement where-  pToJSVal = unSVGHKernElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGHKernElement where-  pFromJSVal = SVGHKernElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGHKernElement where-  toJSVal = return . unSVGHKernElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGHKernElement where-  fromJSVal v = fmap SVGHKernElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGHKernElement where-  makeObject = makeObject . unSVGHKernElement--instance IsSVGElement SVGHKernElement-instance IsElement SVGHKernElement-instance IsNode SVGHKernElement-instance IsEventTarget SVGHKernElement-instance IsGObject SVGHKernElement where-  toGObject = GObject . unSVGHKernElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGHKernElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGHKernElement :: IsGObject obj => obj -> JSM SVGHKernElement-castToSVGHKernElement = castTo gTypeSVGHKernElement "SVGHKernElement"--gTypeSVGHKernElement :: JSM GType-gTypeSVGHKernElement = GType . Object <$> jsg "SVGHKernElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGImageElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement Mozilla SVGImageElement documentation>-newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal }--instance PToJSVal SVGImageElement where-  pToJSVal = unSVGImageElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGImageElement where-  pFromJSVal = SVGImageElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGImageElement where-  toJSVal = return . unSVGImageElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGImageElement where-  fromJSVal v = fmap SVGImageElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGImageElement where-  makeObject = makeObject . unSVGImageElement--instance IsSVGGraphicsElement SVGImageElement-instance IsSVGElement SVGImageElement-instance IsElement SVGImageElement-instance IsNode SVGImageElement-instance IsEventTarget SVGImageElement-instance IsGObject SVGImageElement where-  toGObject = GObject . unSVGImageElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGImageElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGImageElement :: IsGObject obj => obj -> JSM SVGImageElement-castToSVGImageElement = castTo gTypeSVGImageElement "SVGImageElement"--gTypeSVGImageElement :: JSM GType-gTypeSVGImageElement = GType . Object <$> jsg "SVGImageElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLength".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength Mozilla SVGLength documentation>-newtype SVGLength = SVGLength { unSVGLength :: JSVal }--instance PToJSVal SVGLength where-  pToJSVal = unSVGLength-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGLength where-  pFromJSVal = SVGLength-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGLength where-  toJSVal = return . unSVGLength-  {-# INLINE toJSVal #-}--instance FromJSVal SVGLength where-  fromJSVal v = fmap SVGLength <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGLength where-  makeObject = makeObject . unSVGLength--instance IsGObject SVGLength where-  toGObject = GObject . unSVGLength-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGLength . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGLength :: IsGObject obj => obj -> JSM SVGLength-castToSVGLength = castTo gTypeSVGLength "SVGLength"--gTypeSVGLength :: JSM GType-gTypeSVGLength = GType . Object <$> jsg "SVGLength"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLengthList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList Mozilla SVGLengthList documentation>-newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal }--instance PToJSVal SVGLengthList where-  pToJSVal = unSVGLengthList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGLengthList where-  pFromJSVal = SVGLengthList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGLengthList where-  toJSVal = return . unSVGLengthList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGLengthList where-  fromJSVal v = fmap SVGLengthList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGLengthList where-  makeObject = makeObject . unSVGLengthList--instance IsGObject SVGLengthList where-  toGObject = GObject . unSVGLengthList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGLengthList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGLengthList :: IsGObject obj => obj -> JSM SVGLengthList-castToSVGLengthList = castTo gTypeSVGLengthList "SVGLengthList"--gTypeSVGLengthList :: JSM GType-gTypeSVGLengthList = GType . Object <$> jsg "SVGLengthList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLineElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement Mozilla SVGLineElement documentation>-newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal }--instance PToJSVal SVGLineElement where-  pToJSVal = unSVGLineElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGLineElement where-  pFromJSVal = SVGLineElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGLineElement where-  toJSVal = return . unSVGLineElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGLineElement where-  fromJSVal v = fmap SVGLineElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGLineElement where-  makeObject = makeObject . unSVGLineElement--instance IsSVGGraphicsElement SVGLineElement-instance IsSVGElement SVGLineElement-instance IsElement SVGLineElement-instance IsNode SVGLineElement-instance IsEventTarget SVGLineElement-instance IsGObject SVGLineElement where-  toGObject = GObject . unSVGLineElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGLineElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGLineElement :: IsGObject obj => obj -> JSM SVGLineElement-castToSVGLineElement = castTo gTypeSVGLineElement "SVGLineElement"--gTypeSVGLineElement :: JSM GType-gTypeSVGLineElement = GType . Object <$> jsg "SVGLineElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGLinearGradientElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGradientElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement Mozilla SVGLinearGradientElement documentation>-newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal }--instance PToJSVal SVGLinearGradientElement where-  pToJSVal = unSVGLinearGradientElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGLinearGradientElement where-  pFromJSVal = SVGLinearGradientElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGLinearGradientElement where-  toJSVal = return . unSVGLinearGradientElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGLinearGradientElement where-  fromJSVal v = fmap SVGLinearGradientElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGLinearGradientElement where-  makeObject = makeObject . unSVGLinearGradientElement--instance IsSVGGradientElement SVGLinearGradientElement-instance IsSVGElement SVGLinearGradientElement-instance IsElement SVGLinearGradientElement-instance IsNode SVGLinearGradientElement-instance IsEventTarget SVGLinearGradientElement-instance IsGObject SVGLinearGradientElement where-  toGObject = GObject . unSVGLinearGradientElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGLinearGradientElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGLinearGradientElement :: IsGObject obj => obj -> JSM SVGLinearGradientElement-castToSVGLinearGradientElement = castTo gTypeSVGLinearGradientElement "SVGLinearGradientElement"--gTypeSVGLinearGradientElement :: JSM GType-gTypeSVGLinearGradientElement = GType . Object <$> jsg "SVGLinearGradientElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMPathElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGMPathElement Mozilla SVGMPathElement documentation>-newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal }--instance PToJSVal SVGMPathElement where-  pToJSVal = unSVGMPathElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGMPathElement where-  pFromJSVal = SVGMPathElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGMPathElement where-  toJSVal = return . unSVGMPathElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGMPathElement where-  fromJSVal v = fmap SVGMPathElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGMPathElement where-  makeObject = makeObject . unSVGMPathElement--instance IsSVGElement SVGMPathElement-instance IsElement SVGMPathElement-instance IsNode SVGMPathElement-instance IsEventTarget SVGMPathElement-instance IsGObject SVGMPathElement where-  toGObject = GObject . unSVGMPathElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGMPathElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGMPathElement :: IsGObject obj => obj -> JSM SVGMPathElement-castToSVGMPathElement = castTo gTypeSVGMPathElement "SVGMPathElement"--gTypeSVGMPathElement :: JSM GType-gTypeSVGMPathElement = GType . Object <$> jsg "SVGMPathElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMarkerElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement Mozilla SVGMarkerElement documentation>-newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal }--instance PToJSVal SVGMarkerElement where-  pToJSVal = unSVGMarkerElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGMarkerElement where-  pFromJSVal = SVGMarkerElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGMarkerElement where-  toJSVal = return . unSVGMarkerElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGMarkerElement where-  fromJSVal v = fmap SVGMarkerElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGMarkerElement where-  makeObject = makeObject . unSVGMarkerElement--instance IsSVGElement SVGMarkerElement-instance IsElement SVGMarkerElement-instance IsNode SVGMarkerElement-instance IsEventTarget SVGMarkerElement-instance IsGObject SVGMarkerElement where-  toGObject = GObject . unSVGMarkerElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGMarkerElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGMarkerElement :: IsGObject obj => obj -> JSM SVGMarkerElement-castToSVGMarkerElement = castTo gTypeSVGMarkerElement "SVGMarkerElement"--gTypeSVGMarkerElement :: JSM GType-gTypeSVGMarkerElement = GType . Object <$> jsg "SVGMarkerElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMaskElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement Mozilla SVGMaskElement documentation>-newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal }--instance PToJSVal SVGMaskElement where-  pToJSVal = unSVGMaskElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGMaskElement where-  pFromJSVal = SVGMaskElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGMaskElement where-  toJSVal = return . unSVGMaskElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGMaskElement where-  fromJSVal v = fmap SVGMaskElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGMaskElement where-  makeObject = makeObject . unSVGMaskElement--instance IsSVGElement SVGMaskElement-instance IsElement SVGMaskElement-instance IsNode SVGMaskElement-instance IsEventTarget SVGMaskElement-instance IsGObject SVGMaskElement where-  toGObject = GObject . unSVGMaskElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGMaskElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGMaskElement :: IsGObject obj => obj -> JSM SVGMaskElement-castToSVGMaskElement = castTo gTypeSVGMaskElement "SVGMaskElement"--gTypeSVGMaskElement :: JSM GType-gTypeSVGMaskElement = GType . Object <$> jsg "SVGMaskElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMatrix".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix Mozilla SVGMatrix documentation>-newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal }--instance PToJSVal SVGMatrix where-  pToJSVal = unSVGMatrix-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGMatrix where-  pFromJSVal = SVGMatrix-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGMatrix where-  toJSVal = return . unSVGMatrix-  {-# INLINE toJSVal #-}--instance FromJSVal SVGMatrix where-  fromJSVal v = fmap SVGMatrix <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGMatrix where-  makeObject = makeObject . unSVGMatrix--instance IsGObject SVGMatrix where-  toGObject = GObject . unSVGMatrix-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGMatrix . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGMatrix :: IsGObject obj => obj -> JSM SVGMatrix-castToSVGMatrix = castTo gTypeSVGMatrix "SVGMatrix"--gTypeSVGMatrix :: JSM GType-gTypeSVGMatrix = GType . Object <$> jsg "SVGMatrix"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMetadataElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGMetadataElement Mozilla SVGMetadataElement documentation>-newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal }--instance PToJSVal SVGMetadataElement where-  pToJSVal = unSVGMetadataElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGMetadataElement where-  pFromJSVal = SVGMetadataElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGMetadataElement where-  toJSVal = return . unSVGMetadataElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGMetadataElement where-  fromJSVal v = fmap SVGMetadataElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGMetadataElement where-  makeObject = makeObject . unSVGMetadataElement--instance IsSVGElement SVGMetadataElement-instance IsElement SVGMetadataElement-instance IsNode SVGMetadataElement-instance IsEventTarget SVGMetadataElement-instance IsGObject SVGMetadataElement where-  toGObject = GObject . unSVGMetadataElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGMetadataElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGMetadataElement :: IsGObject obj => obj -> JSM SVGMetadataElement-castToSVGMetadataElement = castTo gTypeSVGMetadataElement "SVGMetadataElement"--gTypeSVGMetadataElement :: JSM GType-gTypeSVGMetadataElement = GType . Object <$> jsg "SVGMetadataElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGMissingGlyphElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGMissingGlyphElement Mozilla SVGMissingGlyphElement documentation>-newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal }--instance PToJSVal SVGMissingGlyphElement where-  pToJSVal = unSVGMissingGlyphElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGMissingGlyphElement where-  pFromJSVal = SVGMissingGlyphElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGMissingGlyphElement where-  toJSVal = return . unSVGMissingGlyphElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGMissingGlyphElement where-  fromJSVal v = fmap SVGMissingGlyphElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGMissingGlyphElement where-  makeObject = makeObject . unSVGMissingGlyphElement--instance IsSVGElement SVGMissingGlyphElement-instance IsElement SVGMissingGlyphElement-instance IsNode SVGMissingGlyphElement-instance IsEventTarget SVGMissingGlyphElement-instance IsGObject SVGMissingGlyphElement where-  toGObject = GObject . unSVGMissingGlyphElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGMissingGlyphElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGMissingGlyphElement :: IsGObject obj => obj -> JSM SVGMissingGlyphElement-castToSVGMissingGlyphElement = castTo gTypeSVGMissingGlyphElement "SVGMissingGlyphElement"--gTypeSVGMissingGlyphElement :: JSM GType-gTypeSVGMissingGlyphElement = GType . Object <$> jsg "SVGMissingGlyphElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGNumber".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber Mozilla SVGNumber documentation>-newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal }--instance PToJSVal SVGNumber where-  pToJSVal = unSVGNumber-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGNumber where-  pFromJSVal = SVGNumber-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGNumber where-  toJSVal = return . unSVGNumber-  {-# INLINE toJSVal #-}--instance FromJSVal SVGNumber where-  fromJSVal v = fmap SVGNumber <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGNumber where-  makeObject = makeObject . unSVGNumber--instance IsGObject SVGNumber where-  toGObject = GObject . unSVGNumber-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGNumber . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGNumber :: IsGObject obj => obj -> JSM SVGNumber-castToSVGNumber = castTo gTypeSVGNumber "SVGNumber"--gTypeSVGNumber :: JSM GType-gTypeSVGNumber = GType . Object <$> jsg "SVGNumber"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGNumberList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList Mozilla SVGNumberList documentation>-newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal }--instance PToJSVal SVGNumberList where-  pToJSVal = unSVGNumberList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGNumberList where-  pFromJSVal = SVGNumberList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGNumberList where-  toJSVal = return . unSVGNumberList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGNumberList where-  fromJSVal v = fmap SVGNumberList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGNumberList where-  makeObject = makeObject . unSVGNumberList--instance IsGObject SVGNumberList where-  toGObject = GObject . unSVGNumberList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGNumberList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGNumberList :: IsGObject obj => obj -> JSM SVGNumberList-castToSVGNumberList = castTo gTypeSVGNumberList "SVGNumberList"--gTypeSVGNumberList :: JSM GType-gTypeSVGNumberList = GType . Object <$> jsg "SVGNumberList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPaint".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGColor"---     * "Language.Javascript.JSaddle.DOM.CSSValue"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint Mozilla SVGPaint documentation>-newtype SVGPaint = SVGPaint { unSVGPaint :: JSVal }--instance PToJSVal SVGPaint where-  pToJSVal = unSVGPaint-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPaint where-  pFromJSVal = SVGPaint-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPaint where-  toJSVal = return . unSVGPaint-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPaint where-  fromJSVal v = fmap SVGPaint <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPaint where-  makeObject = makeObject . unSVGPaint--instance IsSVGColor SVGPaint-instance IsCSSValue SVGPaint-instance IsGObject SVGPaint where-  toGObject = GObject . unSVGPaint-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPaint . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPaint :: IsGObject obj => obj -> JSM SVGPaint-castToSVGPaint = castTo gTypeSVGPaint "SVGPaint"--gTypeSVGPaint :: JSM GType-gTypeSVGPaint = GType . Object <$> jsg "SVGPaint"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement Mozilla SVGPathElement documentation>-newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal }--instance PToJSVal SVGPathElement where-  pToJSVal = unSVGPathElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathElement where-  pFromJSVal = SVGPathElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathElement where-  toJSVal = return . unSVGPathElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathElement where-  fromJSVal v = fmap SVGPathElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathElement where-  makeObject = makeObject . unSVGPathElement--instance IsSVGGraphicsElement SVGPathElement-instance IsSVGElement SVGPathElement-instance IsElement SVGPathElement-instance IsNode SVGPathElement-instance IsEventTarget SVGPathElement-instance IsGObject SVGPathElement where-  toGObject = GObject . unSVGPathElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathElement :: IsGObject obj => obj -> JSM SVGPathElement-castToSVGPathElement = castTo gTypeSVGPathElement "SVGPathElement"--gTypeSVGPathElement :: JSM GType-gTypeSVGPathElement = GType . Object <$> jsg "SVGPathElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSeg".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg Mozilla SVGPathSeg documentation>-newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal }--instance PToJSVal SVGPathSeg where-  pToJSVal = unSVGPathSeg-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSeg where-  pFromJSVal = SVGPathSeg-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSeg where-  toJSVal = return . unSVGPathSeg-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSeg where-  fromJSVal v = fmap SVGPathSeg <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSeg where-  makeObject = makeObject . unSVGPathSeg--class IsGObject o => IsSVGPathSeg o-toSVGPathSeg :: IsSVGPathSeg o => o -> SVGPathSeg-toSVGPathSeg = unsafeCastGObject . toGObject--instance IsSVGPathSeg SVGPathSeg-instance IsGObject SVGPathSeg where-  toGObject = GObject . unSVGPathSeg-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSeg . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSeg :: IsGObject obj => obj -> JSM SVGPathSeg-castToSVGPathSeg = castTo gTypeSVGPathSeg "SVGPathSeg"--gTypeSVGPathSeg :: JSM GType-gTypeSVGPathSeg = GType . Object <$> jsg "SVGPathSeg"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegArcAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs Mozilla SVGPathSegArcAbs documentation>-newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal }--instance PToJSVal SVGPathSegArcAbs where-  pToJSVal = unSVGPathSegArcAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegArcAbs where-  pFromJSVal = SVGPathSegArcAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegArcAbs where-  toJSVal = return . unSVGPathSegArcAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegArcAbs where-  fromJSVal v = fmap SVGPathSegArcAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegArcAbs where-  makeObject = makeObject . unSVGPathSegArcAbs--instance IsSVGPathSeg SVGPathSegArcAbs-instance IsGObject SVGPathSegArcAbs where-  toGObject = GObject . unSVGPathSegArcAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegArcAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegArcAbs :: IsGObject obj => obj -> JSM SVGPathSegArcAbs-castToSVGPathSegArcAbs = castTo gTypeSVGPathSegArcAbs "SVGPathSegArcAbs"--gTypeSVGPathSegArcAbs :: JSM GType-gTypeSVGPathSegArcAbs = GType . Object <$> jsg "SVGPathSegArcAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegArcRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel Mozilla SVGPathSegArcRel documentation>-newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal }--instance PToJSVal SVGPathSegArcRel where-  pToJSVal = unSVGPathSegArcRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegArcRel where-  pFromJSVal = SVGPathSegArcRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegArcRel where-  toJSVal = return . unSVGPathSegArcRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegArcRel where-  fromJSVal v = fmap SVGPathSegArcRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegArcRel where-  makeObject = makeObject . unSVGPathSegArcRel--instance IsSVGPathSeg SVGPathSegArcRel-instance IsGObject SVGPathSegArcRel where-  toGObject = GObject . unSVGPathSegArcRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegArcRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegArcRel :: IsGObject obj => obj -> JSM SVGPathSegArcRel-castToSVGPathSegArcRel = castTo gTypeSVGPathSegArcRel "SVGPathSegArcRel"--gTypeSVGPathSegArcRel :: JSM GType-gTypeSVGPathSegArcRel = GType . Object <$> jsg "SVGPathSegArcRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegClosePath".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegClosePath Mozilla SVGPathSegClosePath documentation>-newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal }--instance PToJSVal SVGPathSegClosePath where-  pToJSVal = unSVGPathSegClosePath-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegClosePath where-  pFromJSVal = SVGPathSegClosePath-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegClosePath where-  toJSVal = return . unSVGPathSegClosePath-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegClosePath where-  fromJSVal v = fmap SVGPathSegClosePath <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegClosePath where-  makeObject = makeObject . unSVGPathSegClosePath--instance IsSVGPathSeg SVGPathSegClosePath-instance IsGObject SVGPathSegClosePath where-  toGObject = GObject . unSVGPathSegClosePath-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegClosePath . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegClosePath :: IsGObject obj => obj -> JSM SVGPathSegClosePath-castToSVGPathSegClosePath = castTo gTypeSVGPathSegClosePath "SVGPathSegClosePath"--gTypeSVGPathSegClosePath :: JSM GType-gTypeSVGPathSegClosePath = GType . Object <$> jsg "SVGPathSegClosePath"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs Mozilla SVGPathSegCurvetoCubicAbs documentation>-newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal }--instance PToJSVal SVGPathSegCurvetoCubicAbs where-  pToJSVal = unSVGPathSegCurvetoCubicAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoCubicAbs where-  pFromJSVal = SVGPathSegCurvetoCubicAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoCubicAbs where-  toJSVal = return . unSVGPathSegCurvetoCubicAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoCubicAbs where-  fromJSVal v = fmap SVGPathSegCurvetoCubicAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoCubicAbs where-  makeObject = makeObject . unSVGPathSegCurvetoCubicAbs--instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs-instance IsGObject SVGPathSegCurvetoCubicAbs where-  toGObject = GObject . unSVGPathSegCurvetoCubicAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoCubicAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoCubicAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicAbs-castToSVGPathSegCurvetoCubicAbs = castTo gTypeSVGPathSegCurvetoCubicAbs "SVGPathSegCurvetoCubicAbs"--gTypeSVGPathSegCurvetoCubicAbs :: JSM GType-gTypeSVGPathSegCurvetoCubicAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel Mozilla SVGPathSegCurvetoCubicRel documentation>-newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal }--instance PToJSVal SVGPathSegCurvetoCubicRel where-  pToJSVal = unSVGPathSegCurvetoCubicRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoCubicRel where-  pFromJSVal = SVGPathSegCurvetoCubicRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoCubicRel where-  toJSVal = return . unSVGPathSegCurvetoCubicRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoCubicRel where-  fromJSVal v = fmap SVGPathSegCurvetoCubicRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoCubicRel where-  makeObject = makeObject . unSVGPathSegCurvetoCubicRel--instance IsSVGPathSeg SVGPathSegCurvetoCubicRel-instance IsGObject SVGPathSegCurvetoCubicRel where-  toGObject = GObject . unSVGPathSegCurvetoCubicRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoCubicRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoCubicRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicRel-castToSVGPathSegCurvetoCubicRel = castTo gTypeSVGPathSegCurvetoCubicRel "SVGPathSegCurvetoCubicRel"--gTypeSVGPathSegCurvetoCubicRel :: JSM GType-gTypeSVGPathSegCurvetoCubicRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathSegCurvetoCubicSmoothAbs documentation>-newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal }--instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where-  pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where-  pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where-  toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where-  fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoCubicSmoothAbs where-  makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothAbs--instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs-instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where-  toGObject = GObject . unSVGPathSegCurvetoCubicSmoothAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoCubicSmoothAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoCubicSmoothAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicSmoothAbs-castToSVGPathSegCurvetoCubicSmoothAbs = castTo gTypeSVGPathSegCurvetoCubicSmoothAbs "SVGPathSegCurvetoCubicSmoothAbs"--gTypeSVGPathSegCurvetoCubicSmoothAbs :: JSM GType-gTypeSVGPathSegCurvetoCubicSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoCubicSmoothRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathSegCurvetoCubicSmoothRel documentation>-newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal }--instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where-  pToJSVal = unSVGPathSegCurvetoCubicSmoothRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where-  pFromJSVal = SVGPathSegCurvetoCubicSmoothRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where-  toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where-  fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoCubicSmoothRel where-  makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothRel--instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel-instance IsGObject SVGPathSegCurvetoCubicSmoothRel where-  toGObject = GObject . unSVGPathSegCurvetoCubicSmoothRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoCubicSmoothRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoCubicSmoothRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoCubicSmoothRel-castToSVGPathSegCurvetoCubicSmoothRel = castTo gTypeSVGPathSegCurvetoCubicSmoothRel "SVGPathSegCurvetoCubicSmoothRel"--gTypeSVGPathSegCurvetoCubicSmoothRel :: JSM GType-gTypeSVGPathSegCurvetoCubicSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs Mozilla SVGPathSegCurvetoQuadraticAbs documentation>-newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal }--instance PToJSVal SVGPathSegCurvetoQuadraticAbs where-  pToJSVal = unSVGPathSegCurvetoQuadraticAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where-  pFromJSVal = SVGPathSegCurvetoQuadraticAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoQuadraticAbs where-  toJSVal = return . unSVGPathSegCurvetoQuadraticAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoQuadraticAbs where-  fromJSVal v = fmap SVGPathSegCurvetoQuadraticAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoQuadraticAbs where-  makeObject = makeObject . unSVGPathSegCurvetoQuadraticAbs--instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs-instance IsGObject SVGPathSegCurvetoQuadraticAbs where-  toGObject = GObject . unSVGPathSegCurvetoQuadraticAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoQuadraticAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoQuadraticAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticAbs-castToSVGPathSegCurvetoQuadraticAbs = castTo gTypeSVGPathSegCurvetoQuadraticAbs "SVGPathSegCurvetoQuadraticAbs"--gTypeSVGPathSegCurvetoQuadraticAbs :: JSM GType-gTypeSVGPathSegCurvetoQuadraticAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel Mozilla SVGPathSegCurvetoQuadraticRel documentation>-newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal }--instance PToJSVal SVGPathSegCurvetoQuadraticRel where-  pToJSVal = unSVGPathSegCurvetoQuadraticRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoQuadraticRel where-  pFromJSVal = SVGPathSegCurvetoQuadraticRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoQuadraticRel where-  toJSVal = return . unSVGPathSegCurvetoQuadraticRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoQuadraticRel where-  fromJSVal v = fmap SVGPathSegCurvetoQuadraticRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoQuadraticRel where-  makeObject = makeObject . unSVGPathSegCurvetoQuadraticRel--instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel-instance IsGObject SVGPathSegCurvetoQuadraticRel where-  toGObject = GObject . unSVGPathSegCurvetoQuadraticRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoQuadraticRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoQuadraticRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticRel-castToSVGPathSegCurvetoQuadraticRel = castTo gTypeSVGPathSegCurvetoQuadraticRel "SVGPathSegCurvetoQuadraticRel"--gTypeSVGPathSegCurvetoQuadraticRel :: JSM GType-gTypeSVGPathSegCurvetoQuadraticRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathSegCurvetoQuadraticSmoothAbs documentation>-newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal }--instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where-  pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where-  pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where-  toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where-  fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoQuadraticSmoothAbs where-  makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothAbs--instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs-instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where-  toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoQuadraticSmoothAbs :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticSmoothAbs-castToSVGPathSegCurvetoQuadraticSmoothAbs = castTo gTypeSVGPathSegCurvetoQuadraticSmoothAbs "SVGPathSegCurvetoQuadraticSmoothAbs"--gTypeSVGPathSegCurvetoQuadraticSmoothAbs :: JSM GType-gTypeSVGPathSegCurvetoQuadraticSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegCurvetoQuadraticSmoothRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathSegCurvetoQuadraticSmoothRel documentation>-newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal }--instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where-  pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where-  pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where-  toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where-  fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegCurvetoQuadraticSmoothRel where-  makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothRel--instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel-instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where-  toGObject = GObject . unSVGPathSegCurvetoQuadraticSmoothRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegCurvetoQuadraticSmoothRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegCurvetoQuadraticSmoothRel :: IsGObject obj => obj -> JSM SVGPathSegCurvetoQuadraticSmoothRel-castToSVGPathSegCurvetoQuadraticSmoothRel = castTo gTypeSVGPathSegCurvetoQuadraticSmoothRel "SVGPathSegCurvetoQuadraticSmoothRel"--gTypeSVGPathSegCurvetoQuadraticSmoothRel :: JSM GType-gTypeSVGPathSegCurvetoQuadraticSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs Mozilla SVGPathSegLinetoAbs documentation>-newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal }--instance PToJSVal SVGPathSegLinetoAbs where-  pToJSVal = unSVGPathSegLinetoAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegLinetoAbs where-  pFromJSVal = SVGPathSegLinetoAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegLinetoAbs where-  toJSVal = return . unSVGPathSegLinetoAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegLinetoAbs where-  fromJSVal v = fmap SVGPathSegLinetoAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegLinetoAbs where-  makeObject = makeObject . unSVGPathSegLinetoAbs--instance IsSVGPathSeg SVGPathSegLinetoAbs-instance IsGObject SVGPathSegLinetoAbs where-  toGObject = GObject . unSVGPathSegLinetoAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegLinetoAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegLinetoAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoAbs-castToSVGPathSegLinetoAbs = castTo gTypeSVGPathSegLinetoAbs "SVGPathSegLinetoAbs"--gTypeSVGPathSegLinetoAbs :: JSM GType-gTypeSVGPathSegLinetoAbs = GType . Object <$> jsg "SVGPathSegLinetoAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs Mozilla SVGPathSegLinetoHorizontalAbs documentation>-newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal }--instance PToJSVal SVGPathSegLinetoHorizontalAbs where-  pToJSVal = unSVGPathSegLinetoHorizontalAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegLinetoHorizontalAbs where-  pFromJSVal = SVGPathSegLinetoHorizontalAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegLinetoHorizontalAbs where-  toJSVal = return . unSVGPathSegLinetoHorizontalAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegLinetoHorizontalAbs where-  fromJSVal v = fmap SVGPathSegLinetoHorizontalAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegLinetoHorizontalAbs where-  makeObject = makeObject . unSVGPathSegLinetoHorizontalAbs--instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs-instance IsGObject SVGPathSegLinetoHorizontalAbs where-  toGObject = GObject . unSVGPathSegLinetoHorizontalAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegLinetoHorizontalAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegLinetoHorizontalAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoHorizontalAbs-castToSVGPathSegLinetoHorizontalAbs = castTo gTypeSVGPathSegLinetoHorizontalAbs "SVGPathSegLinetoHorizontalAbs"--gTypeSVGPathSegLinetoHorizontalAbs :: JSM GType-gTypeSVGPathSegLinetoHorizontalAbs = GType . Object <$> jsg "SVGPathSegLinetoHorizontalAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoHorizontalRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel Mozilla SVGPathSegLinetoHorizontalRel documentation>-newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal }--instance PToJSVal SVGPathSegLinetoHorizontalRel where-  pToJSVal = unSVGPathSegLinetoHorizontalRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegLinetoHorizontalRel where-  pFromJSVal = SVGPathSegLinetoHorizontalRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegLinetoHorizontalRel where-  toJSVal = return . unSVGPathSegLinetoHorizontalRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegLinetoHorizontalRel where-  fromJSVal v = fmap SVGPathSegLinetoHorizontalRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegLinetoHorizontalRel where-  makeObject = makeObject . unSVGPathSegLinetoHorizontalRel--instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel-instance IsGObject SVGPathSegLinetoHorizontalRel where-  toGObject = GObject . unSVGPathSegLinetoHorizontalRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegLinetoHorizontalRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegLinetoHorizontalRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoHorizontalRel-castToSVGPathSegLinetoHorizontalRel = castTo gTypeSVGPathSegLinetoHorizontalRel "SVGPathSegLinetoHorizontalRel"--gTypeSVGPathSegLinetoHorizontalRel :: JSM GType-gTypeSVGPathSegLinetoHorizontalRel = GType . Object <$> jsg "SVGPathSegLinetoHorizontalRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel Mozilla SVGPathSegLinetoRel documentation>-newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal }--instance PToJSVal SVGPathSegLinetoRel where-  pToJSVal = unSVGPathSegLinetoRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegLinetoRel where-  pFromJSVal = SVGPathSegLinetoRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegLinetoRel where-  toJSVal = return . unSVGPathSegLinetoRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegLinetoRel where-  fromJSVal v = fmap SVGPathSegLinetoRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegLinetoRel where-  makeObject = makeObject . unSVGPathSegLinetoRel--instance IsSVGPathSeg SVGPathSegLinetoRel-instance IsGObject SVGPathSegLinetoRel where-  toGObject = GObject . unSVGPathSegLinetoRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegLinetoRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegLinetoRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoRel-castToSVGPathSegLinetoRel = castTo gTypeSVGPathSegLinetoRel "SVGPathSegLinetoRel"--gTypeSVGPathSegLinetoRel :: JSM GType-gTypeSVGPathSegLinetoRel = GType . Object <$> jsg "SVGPathSegLinetoRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs Mozilla SVGPathSegLinetoVerticalAbs documentation>-newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal }--instance PToJSVal SVGPathSegLinetoVerticalAbs where-  pToJSVal = unSVGPathSegLinetoVerticalAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegLinetoVerticalAbs where-  pFromJSVal = SVGPathSegLinetoVerticalAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegLinetoVerticalAbs where-  toJSVal = return . unSVGPathSegLinetoVerticalAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegLinetoVerticalAbs where-  fromJSVal v = fmap SVGPathSegLinetoVerticalAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegLinetoVerticalAbs where-  makeObject = makeObject . unSVGPathSegLinetoVerticalAbs--instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs-instance IsGObject SVGPathSegLinetoVerticalAbs where-  toGObject = GObject . unSVGPathSegLinetoVerticalAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegLinetoVerticalAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegLinetoVerticalAbs :: IsGObject obj => obj -> JSM SVGPathSegLinetoVerticalAbs-castToSVGPathSegLinetoVerticalAbs = castTo gTypeSVGPathSegLinetoVerticalAbs "SVGPathSegLinetoVerticalAbs"--gTypeSVGPathSegLinetoVerticalAbs :: JSM GType-gTypeSVGPathSegLinetoVerticalAbs = GType . Object <$> jsg "SVGPathSegLinetoVerticalAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegLinetoVerticalRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel Mozilla SVGPathSegLinetoVerticalRel documentation>-newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal }--instance PToJSVal SVGPathSegLinetoVerticalRel where-  pToJSVal = unSVGPathSegLinetoVerticalRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegLinetoVerticalRel where-  pFromJSVal = SVGPathSegLinetoVerticalRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegLinetoVerticalRel where-  toJSVal = return . unSVGPathSegLinetoVerticalRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegLinetoVerticalRel where-  fromJSVal v = fmap SVGPathSegLinetoVerticalRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegLinetoVerticalRel where-  makeObject = makeObject . unSVGPathSegLinetoVerticalRel--instance IsSVGPathSeg SVGPathSegLinetoVerticalRel-instance IsGObject SVGPathSegLinetoVerticalRel where-  toGObject = GObject . unSVGPathSegLinetoVerticalRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegLinetoVerticalRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegLinetoVerticalRel :: IsGObject obj => obj -> JSM SVGPathSegLinetoVerticalRel-castToSVGPathSegLinetoVerticalRel = castTo gTypeSVGPathSegLinetoVerticalRel "SVGPathSegLinetoVerticalRel"--gTypeSVGPathSegLinetoVerticalRel :: JSM GType-gTypeSVGPathSegLinetoVerticalRel = GType . Object <$> jsg "SVGPathSegLinetoVerticalRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList Mozilla SVGPathSegList documentation>-newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal }--instance PToJSVal SVGPathSegList where-  pToJSVal = unSVGPathSegList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegList where-  pFromJSVal = SVGPathSegList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegList where-  toJSVal = return . unSVGPathSegList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegList where-  fromJSVal v = fmap SVGPathSegList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegList where-  makeObject = makeObject . unSVGPathSegList--instance IsGObject SVGPathSegList where-  toGObject = GObject . unSVGPathSegList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegList :: IsGObject obj => obj -> JSM SVGPathSegList-castToSVGPathSegList = castTo gTypeSVGPathSegList "SVGPathSegList"--gTypeSVGPathSegList :: JSM GType-gTypeSVGPathSegList = GType . Object <$> jsg "SVGPathSegList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegMovetoAbs".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs Mozilla SVGPathSegMovetoAbs documentation>-newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal }--instance PToJSVal SVGPathSegMovetoAbs where-  pToJSVal = unSVGPathSegMovetoAbs-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegMovetoAbs where-  pFromJSVal = SVGPathSegMovetoAbs-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegMovetoAbs where-  toJSVal = return . unSVGPathSegMovetoAbs-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegMovetoAbs where-  fromJSVal v = fmap SVGPathSegMovetoAbs <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegMovetoAbs where-  makeObject = makeObject . unSVGPathSegMovetoAbs--instance IsSVGPathSeg SVGPathSegMovetoAbs-instance IsGObject SVGPathSegMovetoAbs where-  toGObject = GObject . unSVGPathSegMovetoAbs-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegMovetoAbs . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegMovetoAbs :: IsGObject obj => obj -> JSM SVGPathSegMovetoAbs-castToSVGPathSegMovetoAbs = castTo gTypeSVGPathSegMovetoAbs "SVGPathSegMovetoAbs"--gTypeSVGPathSegMovetoAbs :: JSM GType-gTypeSVGPathSegMovetoAbs = GType . Object <$> jsg "SVGPathSegMovetoAbs"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPathSegMovetoRel".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGPathSeg"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel Mozilla SVGPathSegMovetoRel documentation>-newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal }--instance PToJSVal SVGPathSegMovetoRel where-  pToJSVal = unSVGPathSegMovetoRel-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPathSegMovetoRel where-  pFromJSVal = SVGPathSegMovetoRel-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPathSegMovetoRel where-  toJSVal = return . unSVGPathSegMovetoRel-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPathSegMovetoRel where-  fromJSVal v = fmap SVGPathSegMovetoRel <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPathSegMovetoRel where-  makeObject = makeObject . unSVGPathSegMovetoRel--instance IsSVGPathSeg SVGPathSegMovetoRel-instance IsGObject SVGPathSegMovetoRel where-  toGObject = GObject . unSVGPathSegMovetoRel-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPathSegMovetoRel . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPathSegMovetoRel :: IsGObject obj => obj -> JSM SVGPathSegMovetoRel-castToSVGPathSegMovetoRel = castTo gTypeSVGPathSegMovetoRel "SVGPathSegMovetoRel"--gTypeSVGPathSegMovetoRel :: JSM GType-gTypeSVGPathSegMovetoRel = GType . Object <$> jsg "SVGPathSegMovetoRel"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPatternElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement Mozilla SVGPatternElement documentation>-newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal }--instance PToJSVal SVGPatternElement where-  pToJSVal = unSVGPatternElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPatternElement where-  pFromJSVal = SVGPatternElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPatternElement where-  toJSVal = return . unSVGPatternElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPatternElement where-  fromJSVal v = fmap SVGPatternElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPatternElement where-  makeObject = makeObject . unSVGPatternElement--instance IsSVGElement SVGPatternElement-instance IsElement SVGPatternElement-instance IsNode SVGPatternElement-instance IsEventTarget SVGPatternElement-instance IsGObject SVGPatternElement where-  toGObject = GObject . unSVGPatternElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPatternElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPatternElement :: IsGObject obj => obj -> JSM SVGPatternElement-castToSVGPatternElement = castTo gTypeSVGPatternElement "SVGPatternElement"--gTypeSVGPatternElement :: JSM GType-gTypeSVGPatternElement = GType . Object <$> jsg "SVGPatternElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPoint".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint Mozilla SVGPoint documentation>-newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal }--instance PToJSVal SVGPoint where-  pToJSVal = unSVGPoint-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPoint where-  pFromJSVal = SVGPoint-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPoint where-  toJSVal = return . unSVGPoint-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPoint where-  fromJSVal v = fmap SVGPoint <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPoint where-  makeObject = makeObject . unSVGPoint--instance IsGObject SVGPoint where-  toGObject = GObject . unSVGPoint-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPoint . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPoint :: IsGObject obj => obj -> JSM SVGPoint-castToSVGPoint = castTo gTypeSVGPoint "SVGPoint"--gTypeSVGPoint :: JSM GType-gTypeSVGPoint = GType . Object <$> jsg "SVGPoint"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPointList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList Mozilla SVGPointList documentation>-newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal }--instance PToJSVal SVGPointList where-  pToJSVal = unSVGPointList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPointList where-  pFromJSVal = SVGPointList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPointList where-  toJSVal = return . unSVGPointList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPointList where-  fromJSVal v = fmap SVGPointList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPointList where-  makeObject = makeObject . unSVGPointList--instance IsGObject SVGPointList where-  toGObject = GObject . unSVGPointList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPointList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPointList :: IsGObject obj => obj -> JSM SVGPointList-castToSVGPointList = castTo gTypeSVGPointList "SVGPointList"--gTypeSVGPointList :: JSM GType-gTypeSVGPointList = GType . Object <$> jsg "SVGPointList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPolygonElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement Mozilla SVGPolygonElement documentation>-newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal }--instance PToJSVal SVGPolygonElement where-  pToJSVal = unSVGPolygonElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPolygonElement where-  pFromJSVal = SVGPolygonElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPolygonElement where-  toJSVal = return . unSVGPolygonElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPolygonElement where-  fromJSVal v = fmap SVGPolygonElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPolygonElement where-  makeObject = makeObject . unSVGPolygonElement--instance IsSVGGraphicsElement SVGPolygonElement-instance IsSVGElement SVGPolygonElement-instance IsElement SVGPolygonElement-instance IsNode SVGPolygonElement-instance IsEventTarget SVGPolygonElement-instance IsGObject SVGPolygonElement where-  toGObject = GObject . unSVGPolygonElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPolygonElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPolygonElement :: IsGObject obj => obj -> JSM SVGPolygonElement-castToSVGPolygonElement = castTo gTypeSVGPolygonElement "SVGPolygonElement"--gTypeSVGPolygonElement :: JSM GType-gTypeSVGPolygonElement = GType . Object <$> jsg "SVGPolygonElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPolylineElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement Mozilla SVGPolylineElement documentation>-newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal }--instance PToJSVal SVGPolylineElement where-  pToJSVal = unSVGPolylineElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPolylineElement where-  pFromJSVal = SVGPolylineElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPolylineElement where-  toJSVal = return . unSVGPolylineElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPolylineElement where-  fromJSVal v = fmap SVGPolylineElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPolylineElement where-  makeObject = makeObject . unSVGPolylineElement--instance IsSVGGraphicsElement SVGPolylineElement-instance IsSVGElement SVGPolylineElement-instance IsElement SVGPolylineElement-instance IsNode SVGPolylineElement-instance IsEventTarget SVGPolylineElement-instance IsGObject SVGPolylineElement where-  toGObject = GObject . unSVGPolylineElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPolylineElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPolylineElement :: IsGObject obj => obj -> JSM SVGPolylineElement-castToSVGPolylineElement = castTo gTypeSVGPolylineElement "SVGPolylineElement"--gTypeSVGPolylineElement :: JSM GType-gTypeSVGPolylineElement = GType . Object <$> jsg "SVGPolylineElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGPreserveAspectRatio".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio Mozilla SVGPreserveAspectRatio documentation>-newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal }--instance PToJSVal SVGPreserveAspectRatio where-  pToJSVal = unSVGPreserveAspectRatio-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGPreserveAspectRatio where-  pFromJSVal = SVGPreserveAspectRatio-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGPreserveAspectRatio where-  toJSVal = return . unSVGPreserveAspectRatio-  {-# INLINE toJSVal #-}--instance FromJSVal SVGPreserveAspectRatio where-  fromJSVal v = fmap SVGPreserveAspectRatio <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGPreserveAspectRatio where-  makeObject = makeObject . unSVGPreserveAspectRatio--instance IsGObject SVGPreserveAspectRatio where-  toGObject = GObject . unSVGPreserveAspectRatio-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGPreserveAspectRatio . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGPreserveAspectRatio :: IsGObject obj => obj -> JSM SVGPreserveAspectRatio-castToSVGPreserveAspectRatio = castTo gTypeSVGPreserveAspectRatio "SVGPreserveAspectRatio"--gTypeSVGPreserveAspectRatio :: JSM GType-gTypeSVGPreserveAspectRatio = GType . Object <$> jsg "SVGPreserveAspectRatio"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRadialGradientElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGradientElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement Mozilla SVGRadialGradientElement documentation>-newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal }--instance PToJSVal SVGRadialGradientElement where-  pToJSVal = unSVGRadialGradientElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGRadialGradientElement where-  pFromJSVal = SVGRadialGradientElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGRadialGradientElement where-  toJSVal = return . unSVGRadialGradientElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGRadialGradientElement where-  fromJSVal v = fmap SVGRadialGradientElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGRadialGradientElement where-  makeObject = makeObject . unSVGRadialGradientElement--instance IsSVGGradientElement SVGRadialGradientElement-instance IsSVGElement SVGRadialGradientElement-instance IsElement SVGRadialGradientElement-instance IsNode SVGRadialGradientElement-instance IsEventTarget SVGRadialGradientElement-instance IsGObject SVGRadialGradientElement where-  toGObject = GObject . unSVGRadialGradientElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGRadialGradientElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGRadialGradientElement :: IsGObject obj => obj -> JSM SVGRadialGradientElement-castToSVGRadialGradientElement = castTo gTypeSVGRadialGradientElement "SVGRadialGradientElement"--gTypeSVGRadialGradientElement :: JSM GType-gTypeSVGRadialGradientElement = GType . Object <$> jsg "SVGRadialGradientElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRect".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect Mozilla SVGRect documentation>-newtype SVGRect = SVGRect { unSVGRect :: JSVal }--instance PToJSVal SVGRect where-  pToJSVal = unSVGRect-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGRect where-  pFromJSVal = SVGRect-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGRect where-  toJSVal = return . unSVGRect-  {-# INLINE toJSVal #-}--instance FromJSVal SVGRect where-  fromJSVal v = fmap SVGRect <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGRect where-  makeObject = makeObject . unSVGRect--instance IsGObject SVGRect where-  toGObject = GObject . unSVGRect-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGRect . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGRect :: IsGObject obj => obj -> JSM SVGRect-castToSVGRect = castTo gTypeSVGRect "SVGRect"--gTypeSVGRect :: JSM GType-gTypeSVGRect = GType . Object <$> jsg "SVGRect"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRectElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement Mozilla SVGRectElement documentation>-newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal }--instance PToJSVal SVGRectElement where-  pToJSVal = unSVGRectElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGRectElement where-  pFromJSVal = SVGRectElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGRectElement where-  toJSVal = return . unSVGRectElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGRectElement where-  fromJSVal v = fmap SVGRectElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGRectElement where-  makeObject = makeObject . unSVGRectElement--instance IsSVGGraphicsElement SVGRectElement-instance IsSVGElement SVGRectElement-instance IsElement SVGRectElement-instance IsNode SVGRectElement-instance IsEventTarget SVGRectElement-instance IsGObject SVGRectElement where-  toGObject = GObject . unSVGRectElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGRectElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGRectElement :: IsGObject obj => obj -> JSM SVGRectElement-castToSVGRectElement = castTo gTypeSVGRectElement "SVGRectElement"--gTypeSVGRectElement :: JSM GType-gTypeSVGRectElement = GType . Object <$> jsg "SVGRectElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGRenderingIntent".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGRenderingIntent Mozilla SVGRenderingIntent documentation>-newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal }--instance PToJSVal SVGRenderingIntent where-  pToJSVal = unSVGRenderingIntent-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGRenderingIntent where-  pFromJSVal = SVGRenderingIntent-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGRenderingIntent where-  toJSVal = return . unSVGRenderingIntent-  {-# INLINE toJSVal #-}--instance FromJSVal SVGRenderingIntent where-  fromJSVal v = fmap SVGRenderingIntent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGRenderingIntent where-  makeObject = makeObject . unSVGRenderingIntent--instance IsGObject SVGRenderingIntent where-  toGObject = GObject . unSVGRenderingIntent-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGRenderingIntent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGRenderingIntent :: IsGObject obj => obj -> JSM SVGRenderingIntent-castToSVGRenderingIntent = castTo gTypeSVGRenderingIntent "SVGRenderingIntent"--gTypeSVGRenderingIntent :: JSM GType-gTypeSVGRenderingIntent = GType . Object <$> jsg "SVGRenderingIntent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSVGElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement Mozilla SVGSVGElement documentation>-newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal }--instance PToJSVal SVGSVGElement where-  pToJSVal = unSVGSVGElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGSVGElement where-  pFromJSVal = SVGSVGElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGSVGElement where-  toJSVal = return . unSVGSVGElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGSVGElement where-  fromJSVal v = fmap SVGSVGElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGSVGElement where-  makeObject = makeObject . unSVGSVGElement--instance IsSVGGraphicsElement SVGSVGElement-instance IsSVGElement SVGSVGElement-instance IsElement SVGSVGElement-instance IsNode SVGSVGElement-instance IsEventTarget SVGSVGElement-instance IsGObject SVGSVGElement where-  toGObject = GObject . unSVGSVGElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGSVGElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGSVGElement :: IsGObject obj => obj -> JSM SVGSVGElement-castToSVGSVGElement = castTo gTypeSVGSVGElement "SVGSVGElement"--gTypeSVGSVGElement :: JSM GType-gTypeSVGSVGElement = GType . Object <$> jsg "SVGSVGElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGScriptElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement Mozilla SVGScriptElement documentation>-newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal }--instance PToJSVal SVGScriptElement where-  pToJSVal = unSVGScriptElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGScriptElement where-  pFromJSVal = SVGScriptElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGScriptElement where-  toJSVal = return . unSVGScriptElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGScriptElement where-  fromJSVal v = fmap SVGScriptElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGScriptElement where-  makeObject = makeObject . unSVGScriptElement--instance IsSVGElement SVGScriptElement-instance IsElement SVGScriptElement-instance IsNode SVGScriptElement-instance IsEventTarget SVGScriptElement-instance IsGObject SVGScriptElement where-  toGObject = GObject . unSVGScriptElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGScriptElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGScriptElement :: IsGObject obj => obj -> JSM SVGScriptElement-castToSVGScriptElement = castTo gTypeSVGScriptElement "SVGScriptElement"--gTypeSVGScriptElement :: JSM GType-gTypeSVGScriptElement = GType . Object <$> jsg "SVGScriptElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSetElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGAnimationElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGSetElement Mozilla SVGSetElement documentation>-newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal }--instance PToJSVal SVGSetElement where-  pToJSVal = unSVGSetElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGSetElement where-  pFromJSVal = SVGSetElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGSetElement where-  toJSVal = return . unSVGSetElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGSetElement where-  fromJSVal v = fmap SVGSetElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGSetElement where-  makeObject = makeObject . unSVGSetElement--instance IsSVGAnimationElement SVGSetElement-instance IsSVGElement SVGSetElement-instance IsElement SVGSetElement-instance IsNode SVGSetElement-instance IsEventTarget SVGSetElement-instance IsGObject SVGSetElement where-  toGObject = GObject . unSVGSetElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGSetElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGSetElement :: IsGObject obj => obj -> JSM SVGSetElement-castToSVGSetElement = castTo gTypeSVGSetElement "SVGSetElement"--gTypeSVGSetElement :: JSM GType-gTypeSVGSetElement = GType . Object <$> jsg "SVGSetElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGStopElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGStopElement Mozilla SVGStopElement documentation>-newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal }--instance PToJSVal SVGStopElement where-  pToJSVal = unSVGStopElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGStopElement where-  pFromJSVal = SVGStopElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGStopElement where-  toJSVal = return . unSVGStopElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGStopElement where-  fromJSVal v = fmap SVGStopElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGStopElement where-  makeObject = makeObject . unSVGStopElement--instance IsSVGElement SVGStopElement-instance IsElement SVGStopElement-instance IsNode SVGStopElement-instance IsEventTarget SVGStopElement-instance IsGObject SVGStopElement where-  toGObject = GObject . unSVGStopElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGStopElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGStopElement :: IsGObject obj => obj -> JSM SVGStopElement-castToSVGStopElement = castTo gTypeSVGStopElement "SVGStopElement"--gTypeSVGStopElement :: JSM GType-gTypeSVGStopElement = GType . Object <$> jsg "SVGStopElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGStringList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGStringList Mozilla SVGStringList documentation>-newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal }--instance PToJSVal SVGStringList where-  pToJSVal = unSVGStringList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGStringList where-  pFromJSVal = SVGStringList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGStringList where-  toJSVal = return . unSVGStringList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGStringList where-  fromJSVal v = fmap SVGStringList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGStringList where-  makeObject = makeObject . unSVGStringList--instance IsGObject SVGStringList where-  toGObject = GObject . unSVGStringList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGStringList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGStringList :: IsGObject obj => obj -> JSM SVGStringList-castToSVGStringList = castTo gTypeSVGStringList "SVGStringList"--gTypeSVGStringList :: JSM GType-gTypeSVGStringList = GType . Object <$> jsg "SVGStringList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGStyleElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGStyleElement Mozilla SVGStyleElement documentation>-newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal }--instance PToJSVal SVGStyleElement where-  pToJSVal = unSVGStyleElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGStyleElement where-  pFromJSVal = SVGStyleElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGStyleElement where-  toJSVal = return . unSVGStyleElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGStyleElement where-  fromJSVal v = fmap SVGStyleElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGStyleElement where-  makeObject = makeObject . unSVGStyleElement--instance IsSVGElement SVGStyleElement-instance IsElement SVGStyleElement-instance IsNode SVGStyleElement-instance IsEventTarget SVGStyleElement-instance IsGObject SVGStyleElement where-  toGObject = GObject . unSVGStyleElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGStyleElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGStyleElement :: IsGObject obj => obj -> JSM SVGStyleElement-castToSVGStyleElement = castTo gTypeSVGStyleElement "SVGStyleElement"--gTypeSVGStyleElement :: JSM GType-gTypeSVGStyleElement = GType . Object <$> jsg "SVGStyleElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSwitchElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGSwitchElement Mozilla SVGSwitchElement documentation>-newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal }--instance PToJSVal SVGSwitchElement where-  pToJSVal = unSVGSwitchElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGSwitchElement where-  pFromJSVal = SVGSwitchElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGSwitchElement where-  toJSVal = return . unSVGSwitchElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGSwitchElement where-  fromJSVal v = fmap SVGSwitchElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGSwitchElement where-  makeObject = makeObject . unSVGSwitchElement--instance IsSVGGraphicsElement SVGSwitchElement-instance IsSVGElement SVGSwitchElement-instance IsElement SVGSwitchElement-instance IsNode SVGSwitchElement-instance IsEventTarget SVGSwitchElement-instance IsGObject SVGSwitchElement where-  toGObject = GObject . unSVGSwitchElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGSwitchElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGSwitchElement :: IsGObject obj => obj -> JSM SVGSwitchElement-castToSVGSwitchElement = castTo gTypeSVGSwitchElement "SVGSwitchElement"--gTypeSVGSwitchElement :: JSM GType-gTypeSVGSwitchElement = GType . Object <$> jsg "SVGSwitchElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGSymbolElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGSymbolElement Mozilla SVGSymbolElement documentation>-newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal }--instance PToJSVal SVGSymbolElement where-  pToJSVal = unSVGSymbolElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGSymbolElement where-  pFromJSVal = SVGSymbolElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGSymbolElement where-  toJSVal = return . unSVGSymbolElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGSymbolElement where-  fromJSVal v = fmap SVGSymbolElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGSymbolElement where-  makeObject = makeObject . unSVGSymbolElement--instance IsSVGElement SVGSymbolElement-instance IsElement SVGSymbolElement-instance IsNode SVGSymbolElement-instance IsEventTarget SVGSymbolElement-instance IsGObject SVGSymbolElement where-  toGObject = GObject . unSVGSymbolElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGSymbolElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGSymbolElement :: IsGObject obj => obj -> JSM SVGSymbolElement-castToSVGSymbolElement = castTo gTypeSVGSymbolElement "SVGSymbolElement"--gTypeSVGSymbolElement :: JSM GType-gTypeSVGSymbolElement = GType . Object <$> jsg "SVGSymbolElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTRefElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement"---     * "Language.Javascript.JSaddle.DOM.SVGTextContentElement"---     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTRefElement Mozilla SVGTRefElement documentation>-newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal }--instance PToJSVal SVGTRefElement where-  pToJSVal = unSVGTRefElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTRefElement where-  pFromJSVal = SVGTRefElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTRefElement where-  toJSVal = return . unSVGTRefElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTRefElement where-  fromJSVal v = fmap SVGTRefElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTRefElement where-  makeObject = makeObject . unSVGTRefElement--instance IsSVGTextPositioningElement SVGTRefElement-instance IsSVGTextContentElement SVGTRefElement-instance IsSVGGraphicsElement SVGTRefElement-instance IsSVGElement SVGTRefElement-instance IsElement SVGTRefElement-instance IsNode SVGTRefElement-instance IsEventTarget SVGTRefElement-instance IsGObject SVGTRefElement where-  toGObject = GObject . unSVGTRefElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTRefElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTRefElement :: IsGObject obj => obj -> JSM SVGTRefElement-castToSVGTRefElement = castTo gTypeSVGTRefElement "SVGTRefElement"--gTypeSVGTRefElement :: JSM GType-gTypeSVGTRefElement = GType . Object <$> jsg "SVGTRefElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTSpanElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement"---     * "Language.Javascript.JSaddle.DOM.SVGTextContentElement"---     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTSpanElement Mozilla SVGTSpanElement documentation>-newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal }--instance PToJSVal SVGTSpanElement where-  pToJSVal = unSVGTSpanElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTSpanElement where-  pFromJSVal = SVGTSpanElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTSpanElement where-  toJSVal = return . unSVGTSpanElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTSpanElement where-  fromJSVal v = fmap SVGTSpanElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTSpanElement where-  makeObject = makeObject . unSVGTSpanElement--instance IsSVGTextPositioningElement SVGTSpanElement-instance IsSVGTextContentElement SVGTSpanElement-instance IsSVGGraphicsElement SVGTSpanElement-instance IsSVGElement SVGTSpanElement-instance IsElement SVGTSpanElement-instance IsNode SVGTSpanElement-instance IsEventTarget SVGTSpanElement-instance IsGObject SVGTSpanElement where-  toGObject = GObject . unSVGTSpanElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTSpanElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTSpanElement :: IsGObject obj => obj -> JSM SVGTSpanElement-castToSVGTSpanElement = castTo gTypeSVGTSpanElement "SVGTSpanElement"--gTypeSVGTSpanElement :: JSM GType-gTypeSVGTSpanElement = GType . Object <$> jsg "SVGTSpanElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTests".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTests Mozilla SVGTests documentation>-newtype SVGTests = SVGTests { unSVGTests :: JSVal }--instance PToJSVal SVGTests where-  pToJSVal = unSVGTests-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTests where-  pFromJSVal = SVGTests-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTests where-  toJSVal = return . unSVGTests-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTests where-  fromJSVal v = fmap SVGTests <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTests where-  makeObject = makeObject . unSVGTests--instance IsGObject SVGTests where-  toGObject = GObject . unSVGTests-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTests . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTests :: IsGObject obj => obj -> JSM SVGTests-castToSVGTests = castTo gTypeSVGTests "SVGTests"--gTypeSVGTests :: JSM GType-gTypeSVGTests = GType . Object <$> jsg "SVGTests"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextContentElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextContentElement Mozilla SVGTextContentElement documentation>-newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal }--instance PToJSVal SVGTextContentElement where-  pToJSVal = unSVGTextContentElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTextContentElement where-  pFromJSVal = SVGTextContentElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTextContentElement where-  toJSVal = return . unSVGTextContentElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTextContentElement where-  fromJSVal v = fmap SVGTextContentElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTextContentElement where-  makeObject = makeObject . unSVGTextContentElement--class IsSVGGraphicsElement o => IsSVGTextContentElement o-toSVGTextContentElement :: IsSVGTextContentElement o => o -> SVGTextContentElement-toSVGTextContentElement = unsafeCastGObject . toGObject--instance IsSVGTextContentElement SVGTextContentElement-instance IsSVGGraphicsElement SVGTextContentElement-instance IsSVGElement SVGTextContentElement-instance IsElement SVGTextContentElement-instance IsNode SVGTextContentElement-instance IsEventTarget SVGTextContentElement-instance IsGObject SVGTextContentElement where-  toGObject = GObject . unSVGTextContentElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTextContentElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTextContentElement :: IsGObject obj => obj -> JSM SVGTextContentElement-castToSVGTextContentElement = castTo gTypeSVGTextContentElement "SVGTextContentElement"--gTypeSVGTextContentElement :: JSM GType-gTypeSVGTextContentElement = GType . Object <$> jsg "SVGTextContentElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement"---     * "Language.Javascript.JSaddle.DOM.SVGTextContentElement"---     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextElement Mozilla SVGTextElement documentation>-newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal }--instance PToJSVal SVGTextElement where-  pToJSVal = unSVGTextElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTextElement where-  pFromJSVal = SVGTextElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTextElement where-  toJSVal = return . unSVGTextElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTextElement where-  fromJSVal v = fmap SVGTextElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTextElement where-  makeObject = makeObject . unSVGTextElement--instance IsSVGTextPositioningElement SVGTextElement-instance IsSVGTextContentElement SVGTextElement-instance IsSVGGraphicsElement SVGTextElement-instance IsSVGElement SVGTextElement-instance IsElement SVGTextElement-instance IsNode SVGTextElement-instance IsEventTarget SVGTextElement-instance IsGObject SVGTextElement where-  toGObject = GObject . unSVGTextElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTextElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTextElement :: IsGObject obj => obj -> JSM SVGTextElement-castToSVGTextElement = castTo gTypeSVGTextElement "SVGTextElement"--gTypeSVGTextElement :: JSM GType-gTypeSVGTextElement = GType . Object <$> jsg "SVGTextElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextPathElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGTextContentElement"---     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPathElement Mozilla SVGTextPathElement documentation>-newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal }--instance PToJSVal SVGTextPathElement where-  pToJSVal = unSVGTextPathElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTextPathElement where-  pFromJSVal = SVGTextPathElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTextPathElement where-  toJSVal = return . unSVGTextPathElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTextPathElement where-  fromJSVal v = fmap SVGTextPathElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTextPathElement where-  makeObject = makeObject . unSVGTextPathElement--instance IsSVGTextContentElement SVGTextPathElement-instance IsSVGGraphicsElement SVGTextPathElement-instance IsSVGElement SVGTextPathElement-instance IsElement SVGTextPathElement-instance IsNode SVGTextPathElement-instance IsEventTarget SVGTextPathElement-instance IsGObject SVGTextPathElement where-  toGObject = GObject . unSVGTextPathElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTextPathElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTextPathElement :: IsGObject obj => obj -> JSM SVGTextPathElement-castToSVGTextPathElement = castTo gTypeSVGTextPathElement "SVGTextPathElement"--gTypeSVGTextPathElement :: JSM GType-gTypeSVGTextPathElement = GType . Object <$> jsg "SVGTextPathElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTextPositioningElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGTextContentElement"---     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTextPositioningElement Mozilla SVGTextPositioningElement documentation>-newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal }--instance PToJSVal SVGTextPositioningElement where-  pToJSVal = unSVGTextPositioningElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTextPositioningElement where-  pFromJSVal = SVGTextPositioningElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTextPositioningElement where-  toJSVal = return . unSVGTextPositioningElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTextPositioningElement where-  fromJSVal v = fmap SVGTextPositioningElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTextPositioningElement where-  makeObject = makeObject . unSVGTextPositioningElement--class IsSVGTextContentElement o => IsSVGTextPositioningElement o-toSVGTextPositioningElement :: IsSVGTextPositioningElement o => o -> SVGTextPositioningElement-toSVGTextPositioningElement = unsafeCastGObject . toGObject--instance IsSVGTextPositioningElement SVGTextPositioningElement-instance IsSVGTextContentElement SVGTextPositioningElement-instance IsSVGGraphicsElement SVGTextPositioningElement-instance IsSVGElement SVGTextPositioningElement-instance IsElement SVGTextPositioningElement-instance IsNode SVGTextPositioningElement-instance IsEventTarget SVGTextPositioningElement-instance IsGObject SVGTextPositioningElement where-  toGObject = GObject . unSVGTextPositioningElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTextPositioningElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTextPositioningElement :: IsGObject obj => obj -> JSM SVGTextPositioningElement-castToSVGTextPositioningElement = castTo gTypeSVGTextPositioningElement "SVGTextPositioningElement"--gTypeSVGTextPositioningElement :: JSM GType-gTypeSVGTextPositioningElement = GType . Object <$> jsg "SVGTextPositioningElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTitleElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTitleElement Mozilla SVGTitleElement documentation>-newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal }--instance PToJSVal SVGTitleElement where-  pToJSVal = unSVGTitleElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTitleElement where-  pFromJSVal = SVGTitleElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTitleElement where-  toJSVal = return . unSVGTitleElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTitleElement where-  fromJSVal v = fmap SVGTitleElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTitleElement where-  makeObject = makeObject . unSVGTitleElement--instance IsSVGElement SVGTitleElement-instance IsElement SVGTitleElement-instance IsNode SVGTitleElement-instance IsEventTarget SVGTitleElement-instance IsGObject SVGTitleElement where-  toGObject = GObject . unSVGTitleElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTitleElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTitleElement :: IsGObject obj => obj -> JSM SVGTitleElement-castToSVGTitleElement = castTo gTypeSVGTitleElement "SVGTitleElement"--gTypeSVGTitleElement :: JSM GType-gTypeSVGTitleElement = GType . Object <$> jsg "SVGTitleElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTransform".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransform Mozilla SVGTransform documentation>-newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal }--instance PToJSVal SVGTransform where-  pToJSVal = unSVGTransform-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTransform where-  pFromJSVal = SVGTransform-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTransform where-  toJSVal = return . unSVGTransform-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTransform where-  fromJSVal v = fmap SVGTransform <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTransform where-  makeObject = makeObject . unSVGTransform--instance IsGObject SVGTransform where-  toGObject = GObject . unSVGTransform-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTransform . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTransform :: IsGObject obj => obj -> JSM SVGTransform-castToSVGTransform = castTo gTypeSVGTransform "SVGTransform"--gTypeSVGTransform :: JSM GType-gTypeSVGTransform = GType . Object <$> jsg "SVGTransform"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGTransformList".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGTransformList Mozilla SVGTransformList documentation>-newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal }--instance PToJSVal SVGTransformList where-  pToJSVal = unSVGTransformList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGTransformList where-  pFromJSVal = SVGTransformList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGTransformList where-  toJSVal = return . unSVGTransformList-  {-# INLINE toJSVal #-}--instance FromJSVal SVGTransformList where-  fromJSVal v = fmap SVGTransformList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGTransformList where-  makeObject = makeObject . unSVGTransformList--instance IsGObject SVGTransformList where-  toGObject = GObject . unSVGTransformList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGTransformList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGTransformList :: IsGObject obj => obj -> JSM SVGTransformList-castToSVGTransformList = castTo gTypeSVGTransformList "SVGTransformList"--gTypeSVGTransformList :: JSM GType-gTypeSVGTransformList = GType . Object <$> jsg "SVGTransformList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGURIReference".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGURIReference Mozilla SVGURIReference documentation>-newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal }--instance PToJSVal SVGURIReference where-  pToJSVal = unSVGURIReference-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGURIReference where-  pFromJSVal = SVGURIReference-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGURIReference where-  toJSVal = return . unSVGURIReference-  {-# INLINE toJSVal #-}--instance FromJSVal SVGURIReference where-  fromJSVal v = fmap SVGURIReference <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGURIReference where-  makeObject = makeObject . unSVGURIReference--instance IsGObject SVGURIReference where-  toGObject = GObject . unSVGURIReference-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGURIReference . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGURIReference :: IsGObject obj => obj -> JSM SVGURIReference-castToSVGURIReference = castTo gTypeSVGURIReference "SVGURIReference"--gTypeSVGURIReference :: JSM GType-gTypeSVGURIReference = GType . Object <$> jsg "SVGURIReference"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGUnitTypes".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGUnitTypes Mozilla SVGUnitTypes documentation>-newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal }--instance PToJSVal SVGUnitTypes where-  pToJSVal = unSVGUnitTypes-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGUnitTypes where-  pFromJSVal = SVGUnitTypes-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGUnitTypes where-  toJSVal = return . unSVGUnitTypes-  {-# INLINE toJSVal #-}--instance FromJSVal SVGUnitTypes where-  fromJSVal v = fmap SVGUnitTypes <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGUnitTypes where-  makeObject = makeObject . unSVGUnitTypes--instance IsGObject SVGUnitTypes where-  toGObject = GObject . unSVGUnitTypes-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGUnitTypes . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGUnitTypes :: IsGObject obj => obj -> JSM SVGUnitTypes-castToSVGUnitTypes = castTo gTypeSVGUnitTypes "SVGUnitTypes"--gTypeSVGUnitTypes :: JSM GType-gTypeSVGUnitTypes = GType . Object <$> jsg "SVGUnitTypes"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGUseElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGGraphicsElement"---     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGUseElement Mozilla SVGUseElement documentation>-newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal }--instance PToJSVal SVGUseElement where-  pToJSVal = unSVGUseElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGUseElement where-  pFromJSVal = SVGUseElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGUseElement where-  toJSVal = return . unSVGUseElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGUseElement where-  fromJSVal v = fmap SVGUseElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGUseElement where-  makeObject = makeObject . unSVGUseElement--instance IsSVGGraphicsElement SVGUseElement-instance IsSVGElement SVGUseElement-instance IsElement SVGUseElement-instance IsNode SVGUseElement-instance IsEventTarget SVGUseElement-instance IsGObject SVGUseElement where-  toGObject = GObject . unSVGUseElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGUseElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGUseElement :: IsGObject obj => obj -> JSM SVGUseElement-castToSVGUseElement = castTo gTypeSVGUseElement "SVGUseElement"--gTypeSVGUseElement :: JSM GType-gTypeSVGUseElement = GType . Object <$> jsg "SVGUseElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGVKernElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGVKernElement Mozilla SVGVKernElement documentation>-newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal }--instance PToJSVal SVGVKernElement where-  pToJSVal = unSVGVKernElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGVKernElement where-  pFromJSVal = SVGVKernElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGVKernElement where-  toJSVal = return . unSVGVKernElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGVKernElement where-  fromJSVal v = fmap SVGVKernElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGVKernElement where-  makeObject = makeObject . unSVGVKernElement--instance IsSVGElement SVGVKernElement-instance IsElement SVGVKernElement-instance IsNode SVGVKernElement-instance IsEventTarget SVGVKernElement-instance IsGObject SVGVKernElement where-  toGObject = GObject . unSVGVKernElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGVKernElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGVKernElement :: IsGObject obj => obj -> JSM SVGVKernElement-castToSVGVKernElement = castTo gTypeSVGVKernElement "SVGVKernElement"--gTypeSVGVKernElement :: JSM GType-gTypeSVGVKernElement = GType . Object <$> jsg "SVGVKernElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGViewElement".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.SVGElement"---     * "Language.Javascript.JSaddle.DOM.Element"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewElement Mozilla SVGViewElement documentation>-newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal }--instance PToJSVal SVGViewElement where-  pToJSVal = unSVGViewElement-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGViewElement where-  pFromJSVal = SVGViewElement-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGViewElement where-  toJSVal = return . unSVGViewElement-  {-# INLINE toJSVal #-}--instance FromJSVal SVGViewElement where-  fromJSVal v = fmap SVGViewElement <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGViewElement where-  makeObject = makeObject . unSVGViewElement--instance IsSVGElement SVGViewElement-instance IsElement SVGViewElement-instance IsNode SVGViewElement-instance IsEventTarget SVGViewElement-instance IsGObject SVGViewElement where-  toGObject = GObject . unSVGViewElement-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGViewElement . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGViewElement :: IsGObject obj => obj -> JSM SVGViewElement-castToSVGViewElement = castTo gTypeSVGViewElement "SVGViewElement"--gTypeSVGViewElement :: JSM GType-gTypeSVGViewElement = GType . Object <$> jsg "SVGViewElement"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGViewSpec".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGViewSpec Mozilla SVGViewSpec documentation>-newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal }--instance PToJSVal SVGViewSpec where-  pToJSVal = unSVGViewSpec-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGViewSpec where-  pFromJSVal = SVGViewSpec-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGViewSpec where-  toJSVal = return . unSVGViewSpec-  {-# INLINE toJSVal #-}--instance FromJSVal SVGViewSpec where-  fromJSVal v = fmap SVGViewSpec <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGViewSpec where-  makeObject = makeObject . unSVGViewSpec--instance IsGObject SVGViewSpec where-  toGObject = GObject . unSVGViewSpec-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGViewSpec . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGViewSpec :: IsGObject obj => obj -> JSM SVGViewSpec-castToSVGViewSpec = castTo gTypeSVGViewSpec "SVGViewSpec"--gTypeSVGViewSpec :: JSM GType-gTypeSVGViewSpec = GType . Object <$> jsg "SVGViewSpec"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGZoomAndPan".------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomAndPan Mozilla SVGZoomAndPan documentation>-newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal }--instance PToJSVal SVGZoomAndPan where-  pToJSVal = unSVGZoomAndPan-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGZoomAndPan where-  pFromJSVal = SVGZoomAndPan-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGZoomAndPan where-  toJSVal = return . unSVGZoomAndPan-  {-# INLINE toJSVal #-}--instance FromJSVal SVGZoomAndPan where-  fromJSVal v = fmap SVGZoomAndPan <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGZoomAndPan where-  makeObject = makeObject . unSVGZoomAndPan--instance IsGObject SVGZoomAndPan where-  toGObject = GObject . unSVGZoomAndPan-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGZoomAndPan . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGZoomAndPan :: IsGObject obj => obj -> JSM SVGZoomAndPan-castToSVGZoomAndPan = castTo gTypeSVGZoomAndPan "SVGZoomAndPan"--gTypeSVGZoomAndPan :: JSM GType-gTypeSVGZoomAndPan = GType . Object <$> jsg "SVGZoomAndPan"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SVGZoomEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/SVGZoomEvent Mozilla SVGZoomEvent documentation>-newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal }--instance PToJSVal SVGZoomEvent where-  pToJSVal = unSVGZoomEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal SVGZoomEvent where-  pFromJSVal = SVGZoomEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal SVGZoomEvent where-  toJSVal = return . unSVGZoomEvent-  {-# INLINE toJSVal #-}--instance FromJSVal SVGZoomEvent where-  fromJSVal v = fmap SVGZoomEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SVGZoomEvent where-  makeObject = makeObject . unSVGZoomEvent--instance IsUIEvent SVGZoomEvent-instance IsEvent SVGZoomEvent-instance IsGObject SVGZoomEvent where-  toGObject = GObject . unSVGZoomEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = SVGZoomEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSVGZoomEvent :: IsGObject obj => obj -> JSM SVGZoomEvent-castToSVGZoomEvent = castTo gTypeSVGZoomEvent "SVGZoomEvent"--gTypeSVGZoomEvent :: JSM GType-gTypeSVGZoomEvent = GType . Object <$> jsg "SVGZoomEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Screen".------ <https://developer.mozilla.org/en-US/docs/Web/API/Screen Mozilla Screen documentation>-newtype Screen = Screen { unScreen :: JSVal }--instance PToJSVal Screen where-  pToJSVal = unScreen-  {-# INLINE pToJSVal #-}--instance PFromJSVal Screen where-  pFromJSVal = Screen-  {-# INLINE pFromJSVal #-}--instance ToJSVal Screen where-  toJSVal = return . unScreen-  {-# INLINE toJSVal #-}--instance FromJSVal Screen where-  fromJSVal v = fmap Screen <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Screen where-  makeObject = makeObject . unScreen--instance IsGObject Screen where-  toGObject = GObject . unScreen-  {-# INLINE toGObject #-}-  unsafeCastGObject = Screen . unGObject-  {-# INLINE unsafeCastGObject #-}--castToScreen :: IsGObject obj => obj -> JSM Screen-castToScreen = castTo gTypeScreen "Screen"--gTypeScreen :: JSM GType-gTypeScreen = GType . Object <$> jsg "Screen"-#else-type IsScreen o = ScreenClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ScriptProcessorNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProcessorNode Mozilla ScriptProcessorNode documentation>-newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal }--instance PToJSVal ScriptProcessorNode where-  pToJSVal = unScriptProcessorNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal ScriptProcessorNode where-  pFromJSVal = ScriptProcessorNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal ScriptProcessorNode where-  toJSVal = return . unScriptProcessorNode-  {-# INLINE toJSVal #-}--instance FromJSVal ScriptProcessorNode where-  fromJSVal v = fmap ScriptProcessorNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ScriptProcessorNode where-  makeObject = makeObject . unScriptProcessorNode--instance IsAudioNode ScriptProcessorNode-instance IsEventTarget ScriptProcessorNode-instance IsGObject ScriptProcessorNode where-  toGObject = GObject . unScriptProcessorNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = ScriptProcessorNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToScriptProcessorNode :: IsGObject obj => obj -> JSM ScriptProcessorNode-castToScriptProcessorNode = castTo gTypeScriptProcessorNode "ScriptProcessorNode"--gTypeScriptProcessorNode :: JSM GType-gTypeScriptProcessorNode = GType . Object <$> jsg "ScriptProcessorNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ScriptProfile".------ <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfile Mozilla ScriptProfile documentation>-newtype ScriptProfile = ScriptProfile { unScriptProfile :: JSVal }--instance PToJSVal ScriptProfile where-  pToJSVal = unScriptProfile-  {-# INLINE pToJSVal #-}--instance PFromJSVal ScriptProfile where-  pFromJSVal = ScriptProfile-  {-# INLINE pFromJSVal #-}--instance ToJSVal ScriptProfile where-  toJSVal = return . unScriptProfile-  {-# INLINE toJSVal #-}--instance FromJSVal ScriptProfile where-  fromJSVal v = fmap ScriptProfile <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ScriptProfile where-  makeObject = makeObject . unScriptProfile--instance IsGObject ScriptProfile where-  toGObject = GObject . unScriptProfile-  {-# INLINE toGObject #-}-  unsafeCastGObject = ScriptProfile . unGObject-  {-# INLINE unsafeCastGObject #-}--castToScriptProfile :: IsGObject obj => obj -> JSM ScriptProfile-castToScriptProfile = castTo gTypeScriptProfile "ScriptProfile"--gTypeScriptProfile :: JSM GType-gTypeScriptProfile = GType . Object <$> jsg "ScriptProfile"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ScriptProfileNode".------ <https://developer.mozilla.org/en-US/docs/Web/API/ScriptProfileNode Mozilla ScriptProfileNode documentation>-newtype ScriptProfileNode = ScriptProfileNode { unScriptProfileNode :: JSVal }--instance PToJSVal ScriptProfileNode where-  pToJSVal = unScriptProfileNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal ScriptProfileNode where-  pFromJSVal = ScriptProfileNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal ScriptProfileNode where-  toJSVal = return . unScriptProfileNode-  {-# INLINE toJSVal #-}--instance FromJSVal ScriptProfileNode where-  fromJSVal v = fmap ScriptProfileNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ScriptProfileNode where-  makeObject = makeObject . unScriptProfileNode--instance IsGObject ScriptProfileNode where-  toGObject = GObject . unScriptProfileNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = ScriptProfileNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToScriptProfileNode :: IsGObject obj => obj -> JSM ScriptProfileNode-castToScriptProfileNode = castTo gTypeScriptProfileNode "ScriptProfileNode"--gTypeScriptProfileNode :: JSM GType-gTypeScriptProfileNode = GType . Object <$> jsg "ScriptProfileNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SecurityPolicy".------ <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicy Mozilla SecurityPolicy documentation>-newtype SecurityPolicy = SecurityPolicy { unSecurityPolicy :: JSVal }--instance PToJSVal SecurityPolicy where-  pToJSVal = unSecurityPolicy-  {-# INLINE pToJSVal #-}--instance PFromJSVal SecurityPolicy where-  pFromJSVal = SecurityPolicy-  {-# INLINE pFromJSVal #-}--instance ToJSVal SecurityPolicy where-  toJSVal = return . unSecurityPolicy-  {-# INLINE toJSVal #-}--instance FromJSVal SecurityPolicy where-  fromJSVal v = fmap SecurityPolicy <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SecurityPolicy where-  makeObject = makeObject . unSecurityPolicy--instance IsGObject SecurityPolicy where-  toGObject = GObject . unSecurityPolicy-  {-# INLINE toGObject #-}-  unsafeCastGObject = SecurityPolicy . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSecurityPolicy :: IsGObject obj => obj -> JSM SecurityPolicy-castToSecurityPolicy = castTo gTypeSecurityPolicy "SecurityPolicy"--gTypeSecurityPolicy :: JSM GType-gTypeSecurityPolicy = GType . Object <$> jsg "SecurityPolicy"-#else-#ifndef USE_OLD_WEBKIT-type IsSecurityPolicy o = SecurityPolicyClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SecurityPolicyViolationEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/SecurityPolicyViolationEvent Mozilla SecurityPolicyViolationEvent documentation>-newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal }--instance PToJSVal SecurityPolicyViolationEvent where-  pToJSVal = unSecurityPolicyViolationEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal SecurityPolicyViolationEvent where-  pFromJSVal = SecurityPolicyViolationEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal SecurityPolicyViolationEvent where-  toJSVal = return . unSecurityPolicyViolationEvent-  {-# INLINE toJSVal #-}--instance FromJSVal SecurityPolicyViolationEvent where-  fromJSVal v = fmap SecurityPolicyViolationEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SecurityPolicyViolationEvent where-  makeObject = makeObject . unSecurityPolicyViolationEvent--instance IsEvent SecurityPolicyViolationEvent-instance IsGObject SecurityPolicyViolationEvent where-  toGObject = GObject . unSecurityPolicyViolationEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = SecurityPolicyViolationEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSecurityPolicyViolationEvent :: IsGObject obj => obj -> JSM SecurityPolicyViolationEvent-castToSecurityPolicyViolationEvent = castTo gTypeSecurityPolicyViolationEvent "SecurityPolicyViolationEvent"--gTypeSecurityPolicyViolationEvent :: JSM GType-gTypeSecurityPolicyViolationEvent = GType . Object <$> jsg "SecurityPolicyViolationEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Selection".------ <https://developer.mozilla.org/en-US/docs/Web/API/Selection Mozilla Selection documentation>-newtype Selection = Selection { unSelection :: JSVal }--instance PToJSVal Selection where-  pToJSVal = unSelection-  {-# INLINE pToJSVal #-}--instance PFromJSVal Selection where-  pFromJSVal = Selection-  {-# INLINE pFromJSVal #-}--instance ToJSVal Selection where-  toJSVal = return . unSelection-  {-# INLINE toJSVal #-}--instance FromJSVal Selection where-  fromJSVal v = fmap Selection <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Selection where-  makeObject = makeObject . unSelection--instance IsGObject Selection where-  toGObject = GObject . unSelection-  {-# INLINE toGObject #-}-  unsafeCastGObject = Selection . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSelection :: IsGObject obj => obj -> JSM Selection-castToSelection = castTo gTypeSelection "Selection"--gTypeSelection :: JSM GType-gTypeSelection = GType . Object <$> jsg "Selection"-#else-type IsSelection o = SelectionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SourceBuffer".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SourceBuffer Mozilla SourceBuffer documentation>-newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal }--instance PToJSVal SourceBuffer where-  pToJSVal = unSourceBuffer-  {-# INLINE pToJSVal #-}--instance PFromJSVal SourceBuffer where-  pFromJSVal = SourceBuffer-  {-# INLINE pFromJSVal #-}--instance ToJSVal SourceBuffer where-  toJSVal = return . unSourceBuffer-  {-# INLINE toJSVal #-}--instance FromJSVal SourceBuffer where-  fromJSVal v = fmap SourceBuffer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SourceBuffer where-  makeObject = makeObject . unSourceBuffer--instance IsEventTarget SourceBuffer-instance IsGObject SourceBuffer where-  toGObject = GObject . unSourceBuffer-  {-# INLINE toGObject #-}-  unsafeCastGObject = SourceBuffer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSourceBuffer :: IsGObject obj => obj -> JSM SourceBuffer-castToSourceBuffer = castTo gTypeSourceBuffer "SourceBuffer"--gTypeSourceBuffer :: JSM GType-gTypeSourceBuffer = GType . Object <$> jsg "SourceBuffer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SourceBufferList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SourceBufferList Mozilla SourceBufferList documentation>-newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal }--instance PToJSVal SourceBufferList where-  pToJSVal = unSourceBufferList-  {-# INLINE pToJSVal #-}--instance PFromJSVal SourceBufferList where-  pFromJSVal = SourceBufferList-  {-# INLINE pFromJSVal #-}--instance ToJSVal SourceBufferList where-  toJSVal = return . unSourceBufferList-  {-# INLINE toJSVal #-}--instance FromJSVal SourceBufferList where-  fromJSVal v = fmap SourceBufferList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SourceBufferList where-  makeObject = makeObject . unSourceBufferList--instance IsEventTarget SourceBufferList-instance IsGObject SourceBufferList where-  toGObject = GObject . unSourceBufferList-  {-# INLINE toGObject #-}-  unsafeCastGObject = SourceBufferList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSourceBufferList :: IsGObject obj => obj -> JSM SourceBufferList-castToSourceBufferList = castTo gTypeSourceBufferList "SourceBufferList"--gTypeSourceBufferList :: JSM GType-gTypeSourceBufferList = GType . Object <$> jsg "SourceBufferList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SourceInfo".------ <https://developer.mozilla.org/en-US/docs/Web/API/SourceInfo Mozilla SourceInfo documentation>-newtype SourceInfo = SourceInfo { unSourceInfo :: JSVal }--instance PToJSVal SourceInfo where-  pToJSVal = unSourceInfo-  {-# INLINE pToJSVal #-}--instance PFromJSVal SourceInfo where-  pFromJSVal = SourceInfo-  {-# INLINE pFromJSVal #-}--instance ToJSVal SourceInfo where-  toJSVal = return . unSourceInfo-  {-# INLINE toJSVal #-}--instance FromJSVal SourceInfo where-  fromJSVal v = fmap SourceInfo <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SourceInfo where-  makeObject = makeObject . unSourceInfo--instance IsGObject SourceInfo where-  toGObject = GObject . unSourceInfo-  {-# INLINE toGObject #-}-  unsafeCastGObject = SourceInfo . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSourceInfo :: IsGObject obj => obj -> JSM SourceInfo-castToSourceInfo = castTo gTypeSourceInfo "SourceInfo"--gTypeSourceInfo :: JSM GType-gTypeSourceInfo = GType . Object <$> jsg "SourceInfo"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesis".------ <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesis Mozilla SpeechSynthesis documentation>-newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal }--instance PToJSVal SpeechSynthesis where-  pToJSVal = unSpeechSynthesis-  {-# INLINE pToJSVal #-}--instance PFromJSVal SpeechSynthesis where-  pFromJSVal = SpeechSynthesis-  {-# INLINE pFromJSVal #-}--instance ToJSVal SpeechSynthesis where-  toJSVal = return . unSpeechSynthesis-  {-# INLINE toJSVal #-}--instance FromJSVal SpeechSynthesis where-  fromJSVal v = fmap SpeechSynthesis <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SpeechSynthesis where-  makeObject = makeObject . unSpeechSynthesis--instance IsGObject SpeechSynthesis where-  toGObject = GObject . unSpeechSynthesis-  {-# INLINE toGObject #-}-  unsafeCastGObject = SpeechSynthesis . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSpeechSynthesis :: IsGObject obj => obj -> JSM SpeechSynthesis-castToSpeechSynthesis = castTo gTypeSpeechSynthesis "SpeechSynthesis"--gTypeSpeechSynthesis :: JSM GType-gTypeSpeechSynthesis = GType . Object <$> jsg "SpeechSynthesis"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesisEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisEvent Mozilla SpeechSynthesisEvent documentation>-newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal }--instance PToJSVal SpeechSynthesisEvent where-  pToJSVal = unSpeechSynthesisEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal SpeechSynthesisEvent where-  pFromJSVal = SpeechSynthesisEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal SpeechSynthesisEvent where-  toJSVal = return . unSpeechSynthesisEvent-  {-# INLINE toJSVal #-}--instance FromJSVal SpeechSynthesisEvent where-  fromJSVal v = fmap SpeechSynthesisEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SpeechSynthesisEvent where-  makeObject = makeObject . unSpeechSynthesisEvent--instance IsEvent SpeechSynthesisEvent-instance IsGObject SpeechSynthesisEvent where-  toGObject = GObject . unSpeechSynthesisEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = SpeechSynthesisEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSpeechSynthesisEvent :: IsGObject obj => obj -> JSM SpeechSynthesisEvent-castToSpeechSynthesisEvent = castTo gTypeSpeechSynthesisEvent "SpeechSynthesisEvent"--gTypeSpeechSynthesisEvent :: JSM GType-gTypeSpeechSynthesisEvent = GType . Object <$> jsg "SpeechSynthesisEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesisUtterance".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisUtterance Mozilla SpeechSynthesisUtterance documentation>-newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal }--instance PToJSVal SpeechSynthesisUtterance where-  pToJSVal = unSpeechSynthesisUtterance-  {-# INLINE pToJSVal #-}--instance PFromJSVal SpeechSynthesisUtterance where-  pFromJSVal = SpeechSynthesisUtterance-  {-# INLINE pFromJSVal #-}--instance ToJSVal SpeechSynthesisUtterance where-  toJSVal = return . unSpeechSynthesisUtterance-  {-# INLINE toJSVal #-}--instance FromJSVal SpeechSynthesisUtterance where-  fromJSVal v = fmap SpeechSynthesisUtterance <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SpeechSynthesisUtterance where-  makeObject = makeObject . unSpeechSynthesisUtterance--instance IsEventTarget SpeechSynthesisUtterance-instance IsGObject SpeechSynthesisUtterance where-  toGObject = GObject . unSpeechSynthesisUtterance-  {-# INLINE toGObject #-}-  unsafeCastGObject = SpeechSynthesisUtterance . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSpeechSynthesisUtterance :: IsGObject obj => obj -> JSM SpeechSynthesisUtterance-castToSpeechSynthesisUtterance = castTo gTypeSpeechSynthesisUtterance "SpeechSynthesisUtterance"--gTypeSpeechSynthesisUtterance :: JSM GType-gTypeSpeechSynthesisUtterance = GType . Object <$> jsg "SpeechSynthesisUtterance"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SpeechSynthesisVoice".------ <https://developer.mozilla.org/en-US/docs/Web/API/SpeechSynthesisVoice Mozilla SpeechSynthesisVoice documentation>-newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal }--instance PToJSVal SpeechSynthesisVoice where-  pToJSVal = unSpeechSynthesisVoice-  {-# INLINE pToJSVal #-}--instance PFromJSVal SpeechSynthesisVoice where-  pFromJSVal = SpeechSynthesisVoice-  {-# INLINE pFromJSVal #-}--instance ToJSVal SpeechSynthesisVoice where-  toJSVal = return . unSpeechSynthesisVoice-  {-# INLINE toJSVal #-}--instance FromJSVal SpeechSynthesisVoice where-  fromJSVal v = fmap SpeechSynthesisVoice <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SpeechSynthesisVoice where-  makeObject = makeObject . unSpeechSynthesisVoice--instance IsGObject SpeechSynthesisVoice where-  toGObject = GObject . unSpeechSynthesisVoice-  {-# INLINE toGObject #-}-  unsafeCastGObject = SpeechSynthesisVoice . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSpeechSynthesisVoice :: IsGObject obj => obj -> JSM SpeechSynthesisVoice-castToSpeechSynthesisVoice = castTo gTypeSpeechSynthesisVoice "SpeechSynthesisVoice"--gTypeSpeechSynthesisVoice :: JSM GType-gTypeSpeechSynthesisVoice = GType . Object <$> jsg "SpeechSynthesisVoice"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Storage".------ <https://developer.mozilla.org/en-US/docs/Web/API/Storage Mozilla Storage documentation>-newtype Storage = Storage { unStorage :: JSVal }--instance PToJSVal Storage where-  pToJSVal = unStorage-  {-# INLINE pToJSVal #-}--instance PFromJSVal Storage where-  pFromJSVal = Storage-  {-# INLINE pFromJSVal #-}--instance ToJSVal Storage where-  toJSVal = return . unStorage-  {-# INLINE toJSVal #-}--instance FromJSVal Storage where-  fromJSVal v = fmap Storage <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Storage where-  makeObject = makeObject . unStorage--instance IsGObject Storage where-  toGObject = GObject . unStorage-  {-# INLINE toGObject #-}-  unsafeCastGObject = Storage . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStorage :: IsGObject obj => obj -> JSM Storage-castToStorage = castTo gTypeStorage "Storage"--gTypeStorage :: JSM GType-gTypeStorage = GType . Object <$> jsg "Storage"-#else-type IsStorage o = StorageClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StorageEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/StorageEvent Mozilla StorageEvent documentation>-newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal }--instance PToJSVal StorageEvent where-  pToJSVal = unStorageEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal StorageEvent where-  pFromJSVal = StorageEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal StorageEvent where-  toJSVal = return . unStorageEvent-  {-# INLINE toJSVal #-}--instance FromJSVal StorageEvent where-  fromJSVal v = fmap StorageEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject StorageEvent where-  makeObject = makeObject . unStorageEvent--instance IsEvent StorageEvent-instance IsGObject StorageEvent where-  toGObject = GObject . unStorageEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = StorageEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStorageEvent :: IsGObject obj => obj -> JSM StorageEvent-castToStorageEvent = castTo gTypeStorageEvent "StorageEvent"--gTypeStorageEvent :: JSM GType-gTypeStorageEvent = GType . Object <$> jsg "StorageEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StorageInfo".------ <https://developer.mozilla.org/en-US/docs/Web/API/StorageInfo Mozilla StorageInfo documentation>-newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal }--instance PToJSVal StorageInfo where-  pToJSVal = unStorageInfo-  {-# INLINE pToJSVal #-}--instance PFromJSVal StorageInfo where-  pFromJSVal = StorageInfo-  {-# INLINE pFromJSVal #-}--instance ToJSVal StorageInfo where-  toJSVal = return . unStorageInfo-  {-# INLINE toJSVal #-}--instance FromJSVal StorageInfo where-  fromJSVal v = fmap StorageInfo <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject StorageInfo where-  makeObject = makeObject . unStorageInfo--instance IsGObject StorageInfo where-  toGObject = GObject . unStorageInfo-  {-# INLINE toGObject #-}-  unsafeCastGObject = StorageInfo . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStorageInfo :: IsGObject obj => obj -> JSM StorageInfo-castToStorageInfo = castTo gTypeStorageInfo "StorageInfo"--gTypeStorageInfo :: JSM GType-gTypeStorageInfo = GType . Object <$> jsg "StorageInfo"-#else-#ifndef USE_OLD_WEBKIT-type IsStorageInfo o = StorageInfoClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StorageQuota".------ <https://developer.mozilla.org/en-US/docs/Web/API/StorageQuota Mozilla StorageQuota documentation>-newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal }--instance PToJSVal StorageQuota where-  pToJSVal = unStorageQuota-  {-# INLINE pToJSVal #-}--instance PFromJSVal StorageQuota where-  pFromJSVal = StorageQuota-  {-# INLINE pFromJSVal #-}--instance ToJSVal StorageQuota where-  toJSVal = return . unStorageQuota-  {-# INLINE toJSVal #-}--instance FromJSVal StorageQuota where-  fromJSVal v = fmap StorageQuota <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject StorageQuota where-  makeObject = makeObject . unStorageQuota--instance IsGObject StorageQuota where-  toGObject = GObject . unStorageQuota-  {-# INLINE toGObject #-}-  unsafeCastGObject = StorageQuota . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStorageQuota :: IsGObject obj => obj -> JSM StorageQuota-castToStorageQuota = castTo gTypeStorageQuota "StorageQuota"--gTypeStorageQuota :: JSM GType-gTypeStorageQuota = GType . Object <$> jsg "StorageQuota"-#else-#ifndef USE_OLD_WEBKIT-type IsStorageQuota o = StorageQuotaClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StyleMedia".------ <https://developer.mozilla.org/en-US/docs/Web/API/StyleMedia Mozilla StyleMedia documentation>-newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal }--instance PToJSVal StyleMedia where-  pToJSVal = unStyleMedia-  {-# INLINE pToJSVal #-}--instance PFromJSVal StyleMedia where-  pFromJSVal = StyleMedia-  {-# INLINE pFromJSVal #-}--instance ToJSVal StyleMedia where-  toJSVal = return . unStyleMedia-  {-# INLINE toJSVal #-}--instance FromJSVal StyleMedia where-  fromJSVal v = fmap StyleMedia <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject StyleMedia where-  makeObject = makeObject . unStyleMedia--instance IsGObject StyleMedia where-  toGObject = GObject . unStyleMedia-  {-# INLINE toGObject #-}-  unsafeCastGObject = StyleMedia . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStyleMedia :: IsGObject obj => obj -> JSM StyleMedia-castToStyleMedia = castTo gTypeStyleMedia "StyleMedia"--gTypeStyleMedia :: JSM GType-gTypeStyleMedia = GType . Object <$> jsg "StyleMedia"-#else-type IsStyleMedia o = StyleMediaClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StyleSheet".------ <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheet Mozilla StyleSheet documentation>-newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal }--instance PToJSVal StyleSheet where-  pToJSVal = unStyleSheet-  {-# INLINE pToJSVal #-}--instance PFromJSVal StyleSheet where-  pFromJSVal = StyleSheet-  {-# INLINE pFromJSVal #-}--instance ToJSVal StyleSheet where-  toJSVal = return . unStyleSheet-  {-# INLINE toJSVal #-}--instance FromJSVal StyleSheet where-  fromJSVal v = fmap StyleSheet <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject StyleSheet where-  makeObject = makeObject . unStyleSheet--class IsGObject o => IsStyleSheet o-toStyleSheet :: IsStyleSheet o => o -> StyleSheet-toStyleSheet = unsafeCastGObject . toGObject--instance IsStyleSheet StyleSheet-instance IsGObject StyleSheet where-  toGObject = GObject . unStyleSheet-  {-# INLINE toGObject #-}-  unsafeCastGObject = StyleSheet . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStyleSheet :: IsGObject obj => obj -> JSM StyleSheet-castToStyleSheet = castTo gTypeStyleSheet "StyleSheet"--gTypeStyleSheet :: JSM GType-gTypeStyleSheet = GType . Object <$> jsg "StyleSheet"-#else-type IsStyleSheet o = StyleSheetClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.StyleSheetList".------ <https://developer.mozilla.org/en-US/docs/Web/API/StyleSheetList Mozilla StyleSheetList documentation>-newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal }--instance PToJSVal StyleSheetList where-  pToJSVal = unStyleSheetList-  {-# INLINE pToJSVal #-}--instance PFromJSVal StyleSheetList where-  pFromJSVal = StyleSheetList-  {-# INLINE pFromJSVal #-}--instance ToJSVal StyleSheetList where-  toJSVal = return . unStyleSheetList-  {-# INLINE toJSVal #-}--instance FromJSVal StyleSheetList where-  fromJSVal v = fmap StyleSheetList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject StyleSheetList where-  makeObject = makeObject . unStyleSheetList--instance IsGObject StyleSheetList where-  toGObject = GObject . unStyleSheetList-  {-# INLINE toGObject #-}-  unsafeCastGObject = StyleSheetList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToStyleSheetList :: IsGObject obj => obj -> JSM StyleSheetList-castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList"--gTypeStyleSheetList :: JSM GType-gTypeStyleSheetList = GType . Object <$> jsg "StyleSheetList"-#else-type IsStyleSheetList o = StyleSheetListClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.SubtleCrypto".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitSubtleCrypto Mozilla WebKitSubtleCrypto documentation>-newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal }--instance PToJSVal SubtleCrypto where-  pToJSVal = unSubtleCrypto-  {-# INLINE pToJSVal #-}--instance PFromJSVal SubtleCrypto where-  pFromJSVal = SubtleCrypto-  {-# INLINE pFromJSVal #-}--instance ToJSVal SubtleCrypto where-  toJSVal = return . unSubtleCrypto-  {-# INLINE toJSVal #-}--instance FromJSVal SubtleCrypto where-  fromJSVal v = fmap SubtleCrypto <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject SubtleCrypto where-  makeObject = makeObject . unSubtleCrypto--instance IsGObject SubtleCrypto where-  toGObject = GObject . unSubtleCrypto-  {-# INLINE toGObject #-}-  unsafeCastGObject = SubtleCrypto . unGObject-  {-# INLINE unsafeCastGObject #-}--castToSubtleCrypto :: IsGObject obj => obj -> JSM SubtleCrypto-castToSubtleCrypto = castTo gTypeSubtleCrypto "SubtleCrypto"--gTypeSubtleCrypto :: JSM GType-gTypeSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Text".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CharacterData"---     * "Language.Javascript.JSaddle.DOM.Node"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Text Mozilla Text documentation>-newtype Text = Text { unText :: JSVal }--instance PToJSVal Text where-  pToJSVal = unText-  {-# INLINE pToJSVal #-}--instance PFromJSVal Text where-  pFromJSVal = Text-  {-# INLINE pFromJSVal #-}--instance ToJSVal Text where-  toJSVal = return . unText-  {-# INLINE toJSVal #-}--instance FromJSVal Text where-  fromJSVal v = fmap Text <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Text where-  makeObject = makeObject . unText--class IsCharacterData o => IsText o-toText :: IsText o => o -> Text-toText = unsafeCastGObject . toGObject--instance IsText Text-instance IsCharacterData Text-instance IsNode Text-instance IsEventTarget Text-instance IsGObject Text where-  toGObject = GObject . unText-  {-# INLINE toGObject #-}-  unsafeCastGObject = Text . unGObject-  {-# INLINE unsafeCastGObject #-}--castToText :: IsGObject obj => obj -> JSM Text-castToText = castTo gTypeText "Text"--gTypeText :: JSM GType-gTypeText = GType . Object <$> jsg "Text"-#else-type IsText o = TextClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/TextEvent Mozilla TextEvent documentation>-newtype TextEvent = TextEvent { unTextEvent :: JSVal }--instance PToJSVal TextEvent where-  pToJSVal = unTextEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal TextEvent where-  pFromJSVal = TextEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal TextEvent where-  toJSVal = return . unTextEvent-  {-# INLINE toJSVal #-}--instance FromJSVal TextEvent where-  fromJSVal v = fmap TextEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TextEvent where-  makeObject = makeObject . unTextEvent--instance IsUIEvent TextEvent-instance IsEvent TextEvent-instance IsGObject TextEvent where-  toGObject = GObject . unTextEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = TextEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTextEvent :: IsGObject obj => obj -> JSM TextEvent-castToTextEvent = castTo gTypeTextEvent "TextEvent"--gTypeTextEvent :: JSM GType-gTypeTextEvent = GType . Object <$> jsg "TextEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextMetrics".------ <https://developer.mozilla.org/en-US/docs/Web/API/TextMetrics Mozilla TextMetrics documentation>-newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal }--instance PToJSVal TextMetrics where-  pToJSVal = unTextMetrics-  {-# INLINE pToJSVal #-}--instance PFromJSVal TextMetrics where-  pFromJSVal = TextMetrics-  {-# INLINE pFromJSVal #-}--instance ToJSVal TextMetrics where-  toJSVal = return . unTextMetrics-  {-# INLINE toJSVal #-}--instance FromJSVal TextMetrics where-  fromJSVal v = fmap TextMetrics <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TextMetrics where-  makeObject = makeObject . unTextMetrics--instance IsGObject TextMetrics where-  toGObject = GObject . unTextMetrics-  {-# INLINE toGObject #-}-  unsafeCastGObject = TextMetrics . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTextMetrics :: IsGObject obj => obj -> JSM TextMetrics-castToTextMetrics = castTo gTypeTextMetrics "TextMetrics"--gTypeTextMetrics :: JSM GType-gTypeTextMetrics = GType . Object <$> jsg "TextMetrics"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrack".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/TextTrack Mozilla TextTrack documentation>-newtype TextTrack = TextTrack { unTextTrack :: JSVal }--instance PToJSVal TextTrack where-  pToJSVal = unTextTrack-  {-# INLINE pToJSVal #-}--instance PFromJSVal TextTrack where-  pFromJSVal = TextTrack-  {-# INLINE pFromJSVal #-}--instance ToJSVal TextTrack where-  toJSVal = return . unTextTrack-  {-# INLINE toJSVal #-}--instance FromJSVal TextTrack where-  fromJSVal v = fmap TextTrack <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TextTrack where-  makeObject = makeObject . unTextTrack--instance IsEventTarget TextTrack-instance IsGObject TextTrack where-  toGObject = GObject . unTextTrack-  {-# INLINE toGObject #-}-  unsafeCastGObject = TextTrack . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTextTrack :: IsGObject obj => obj -> JSM TextTrack-castToTextTrack = castTo gTypeTextTrack "TextTrack"--gTypeTextTrack :: JSM GType-gTypeTextTrack = GType . Object <$> jsg "TextTrack"-#else-#ifndef USE_OLD_WEBKIT-type IsTextTrack o = TextTrackClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrackCue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCue Mozilla TextTrackCue documentation>-newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal }--instance PToJSVal TextTrackCue where-  pToJSVal = unTextTrackCue-  {-# INLINE pToJSVal #-}--instance PFromJSVal TextTrackCue where-  pFromJSVal = TextTrackCue-  {-# INLINE pFromJSVal #-}--instance ToJSVal TextTrackCue where-  toJSVal = return . unTextTrackCue-  {-# INLINE toJSVal #-}--instance FromJSVal TextTrackCue where-  fromJSVal v = fmap TextTrackCue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TextTrackCue where-  makeObject = makeObject . unTextTrackCue--class IsEventTarget o => IsTextTrackCue o-toTextTrackCue :: IsTextTrackCue o => o -> TextTrackCue-toTextTrackCue = unsafeCastGObject . toGObject--instance IsTextTrackCue TextTrackCue-instance IsEventTarget TextTrackCue-instance IsGObject TextTrackCue where-  toGObject = GObject . unTextTrackCue-  {-# INLINE toGObject #-}-  unsafeCastGObject = TextTrackCue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTextTrackCue :: IsGObject obj => obj -> JSM TextTrackCue-castToTextTrackCue = castTo gTypeTextTrackCue "TextTrackCue"--gTypeTextTrackCue :: JSM GType-gTypeTextTrackCue = GType . Object <$> jsg "TextTrackCue"-#else-#ifndef USE_OLD_WEBKIT-type IsTextTrackCue o = TextTrackCueClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrackCueList".------ <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackCueList Mozilla TextTrackCueList documentation>-newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal }--instance PToJSVal TextTrackCueList where-  pToJSVal = unTextTrackCueList-  {-# INLINE pToJSVal #-}--instance PFromJSVal TextTrackCueList where-  pFromJSVal = TextTrackCueList-  {-# INLINE pFromJSVal #-}--instance ToJSVal TextTrackCueList where-  toJSVal = return . unTextTrackCueList-  {-# INLINE toJSVal #-}--instance FromJSVal TextTrackCueList where-  fromJSVal v = fmap TextTrackCueList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TextTrackCueList where-  makeObject = makeObject . unTextTrackCueList--instance IsGObject TextTrackCueList where-  toGObject = GObject . unTextTrackCueList-  {-# INLINE toGObject #-}-  unsafeCastGObject = TextTrackCueList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTextTrackCueList :: IsGObject obj => obj -> JSM TextTrackCueList-castToTextTrackCueList = castTo gTypeTextTrackCueList "TextTrackCueList"--gTypeTextTrackCueList :: JSM GType-gTypeTextTrackCueList = GType . Object <$> jsg "TextTrackCueList"-#else-#ifndef USE_OLD_WEBKIT-type IsTextTrackCueList o = TextTrackCueListClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TextTrackList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/TextTrackList Mozilla TextTrackList documentation>-newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal }--instance PToJSVal TextTrackList where-  pToJSVal = unTextTrackList-  {-# INLINE pToJSVal #-}--instance PFromJSVal TextTrackList where-  pFromJSVal = TextTrackList-  {-# INLINE pFromJSVal #-}--instance ToJSVal TextTrackList where-  toJSVal = return . unTextTrackList-  {-# INLINE toJSVal #-}--instance FromJSVal TextTrackList where-  fromJSVal v = fmap TextTrackList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TextTrackList where-  makeObject = makeObject . unTextTrackList--instance IsEventTarget TextTrackList-instance IsGObject TextTrackList where-  toGObject = GObject . unTextTrackList-  {-# INLINE toGObject #-}-  unsafeCastGObject = TextTrackList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTextTrackList :: IsGObject obj => obj -> JSM TextTrackList-castToTextTrackList = castTo gTypeTextTrackList "TextTrackList"--gTypeTextTrackList :: JSM GType-gTypeTextTrackList = GType . Object <$> jsg "TextTrackList"-#else-#ifndef USE_OLD_WEBKIT-type IsTextTrackList o = TextTrackListClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TimeRanges".------ <https://developer.mozilla.org/en-US/docs/Web/API/TimeRanges Mozilla TimeRanges documentation>-newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal }--instance PToJSVal TimeRanges where-  pToJSVal = unTimeRanges-  {-# INLINE pToJSVal #-}--instance PFromJSVal TimeRanges where-  pFromJSVal = TimeRanges-  {-# INLINE pFromJSVal #-}--instance ToJSVal TimeRanges where-  toJSVal = return . unTimeRanges-  {-# INLINE toJSVal #-}--instance FromJSVal TimeRanges where-  fromJSVal v = fmap TimeRanges <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TimeRanges where-  makeObject = makeObject . unTimeRanges--instance IsGObject TimeRanges where-  toGObject = GObject . unTimeRanges-  {-# INLINE toGObject #-}-  unsafeCastGObject = TimeRanges . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTimeRanges :: IsGObject obj => obj -> JSM TimeRanges-castToTimeRanges = castTo gTypeTimeRanges "TimeRanges"--gTypeTimeRanges :: JSM GType-gTypeTimeRanges = GType . Object <$> jsg "TimeRanges"-#else-type IsTimeRanges o = TimeRangesClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Touch".------ <https://developer.mozilla.org/en-US/docs/Web/API/Touch Mozilla Touch documentation>-newtype Touch = Touch { unTouch :: JSVal }--instance PToJSVal Touch where-  pToJSVal = unTouch-  {-# INLINE pToJSVal #-}--instance PFromJSVal Touch where-  pFromJSVal = Touch-  {-# INLINE pFromJSVal #-}--instance ToJSVal Touch where-  toJSVal = return . unTouch-  {-# INLINE toJSVal #-}--instance FromJSVal Touch where-  fromJSVal v = fmap Touch <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Touch where-  makeObject = makeObject . unTouch--instance IsGObject Touch where-  toGObject = GObject . unTouch-  {-# INLINE toGObject #-}-  unsafeCastGObject = Touch . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTouch :: IsGObject obj => obj -> JSM Touch-castToTouch = castTo gTypeTouch "Touch"--gTypeTouch :: JSM GType-gTypeTouch = GType . Object <$> jsg "Touch"-#else-#ifndef USE_OLD_WEBKIT-type IsTouch o = TouchClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TouchEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/TouchEvent Mozilla TouchEvent documentation>-newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal }--instance PToJSVal TouchEvent where-  pToJSVal = unTouchEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal TouchEvent where-  pFromJSVal = TouchEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal TouchEvent where-  toJSVal = return . unTouchEvent-  {-# INLINE toJSVal #-}--instance FromJSVal TouchEvent where-  fromJSVal v = fmap TouchEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TouchEvent where-  makeObject = makeObject . unTouchEvent--instance IsUIEvent TouchEvent-instance IsEvent TouchEvent-instance IsGObject TouchEvent where-  toGObject = GObject . unTouchEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = TouchEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTouchEvent :: IsGObject obj => obj -> JSM TouchEvent-castToTouchEvent = castTo gTypeTouchEvent "TouchEvent"--gTypeTouchEvent :: JSM GType-gTypeTouchEvent = GType . Object <$> jsg "TouchEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TouchList".------ <https://developer.mozilla.org/en-US/docs/Web/API/TouchList Mozilla TouchList documentation>-newtype TouchList = TouchList { unTouchList :: JSVal }--instance PToJSVal TouchList where-  pToJSVal = unTouchList-  {-# INLINE pToJSVal #-}--instance PFromJSVal TouchList where-  pFromJSVal = TouchList-  {-# INLINE pFromJSVal #-}--instance ToJSVal TouchList where-  toJSVal = return . unTouchList-  {-# INLINE toJSVal #-}--instance FromJSVal TouchList where-  fromJSVal v = fmap TouchList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TouchList where-  makeObject = makeObject . unTouchList--instance IsGObject TouchList where-  toGObject = GObject . unTouchList-  {-# INLINE toGObject #-}-  unsafeCastGObject = TouchList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTouchList :: IsGObject obj => obj -> JSM TouchList-castToTouchList = castTo gTypeTouchList "TouchList"--gTypeTouchList :: JSM GType-gTypeTouchList = GType . Object <$> jsg "TouchList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TrackEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/TrackEvent Mozilla TrackEvent documentation>-newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal }--instance PToJSVal TrackEvent where-  pToJSVal = unTrackEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal TrackEvent where-  pFromJSVal = TrackEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal TrackEvent where-  toJSVal = return . unTrackEvent-  {-# INLINE toJSVal #-}--instance FromJSVal TrackEvent where-  fromJSVal v = fmap TrackEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TrackEvent where-  makeObject = makeObject . unTrackEvent--instance IsEvent TrackEvent-instance IsGObject TrackEvent where-  toGObject = GObject . unTrackEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = TrackEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTrackEvent :: IsGObject obj => obj -> JSM TrackEvent-castToTrackEvent = castTo gTypeTrackEvent "TrackEvent"--gTypeTrackEvent :: JSM GType-gTypeTrackEvent = GType . Object <$> jsg "TrackEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TransitionEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/TransitionEvent Mozilla TransitionEvent documentation>-newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal }--instance PToJSVal TransitionEvent where-  pToJSVal = unTransitionEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal TransitionEvent where-  pFromJSVal = TransitionEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal TransitionEvent where-  toJSVal = return . unTransitionEvent-  {-# INLINE toJSVal #-}--instance FromJSVal TransitionEvent where-  fromJSVal v = fmap TransitionEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TransitionEvent where-  makeObject = makeObject . unTransitionEvent--instance IsEvent TransitionEvent-instance IsGObject TransitionEvent where-  toGObject = GObject . unTransitionEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = TransitionEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTransitionEvent :: IsGObject obj => obj -> JSM TransitionEvent-castToTransitionEvent = castTo gTypeTransitionEvent "TransitionEvent"--gTypeTransitionEvent :: JSM GType-gTypeTransitionEvent = GType . Object <$> jsg "TransitionEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TreeWalker".------ <https://developer.mozilla.org/en-US/docs/Web/API/TreeWalker Mozilla TreeWalker documentation>-newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal }--instance PToJSVal TreeWalker where-  pToJSVal = unTreeWalker-  {-# INLINE pToJSVal #-}--instance PFromJSVal TreeWalker where-  pFromJSVal = TreeWalker-  {-# INLINE pFromJSVal #-}--instance ToJSVal TreeWalker where-  toJSVal = return . unTreeWalker-  {-# INLINE toJSVal #-}--instance FromJSVal TreeWalker where-  fromJSVal v = fmap TreeWalker <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TreeWalker where-  makeObject = makeObject . unTreeWalker--instance IsGObject TreeWalker where-  toGObject = GObject . unTreeWalker-  {-# INLINE toGObject #-}-  unsafeCastGObject = TreeWalker . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTreeWalker :: IsGObject obj => obj -> JSM TreeWalker-castToTreeWalker = castTo gTypeTreeWalker "TreeWalker"--gTypeTreeWalker :: JSM GType-gTypeTreeWalker = GType . Object <$> jsg "TreeWalker"-#else-type IsTreeWalker o = TreeWalkerClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.TypeConversions".------ <https://developer.mozilla.org/en-US/docs/Web/API/TypeConversions Mozilla TypeConversions documentation>-newtype TypeConversions = TypeConversions { unTypeConversions :: JSVal }--instance PToJSVal TypeConversions where-  pToJSVal = unTypeConversions-  {-# INLINE pToJSVal #-}--instance PFromJSVal TypeConversions where-  pFromJSVal = TypeConversions-  {-# INLINE pFromJSVal #-}--instance ToJSVal TypeConversions where-  toJSVal = return . unTypeConversions-  {-# INLINE toJSVal #-}--instance FromJSVal TypeConversions where-  fromJSVal v = fmap TypeConversions <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject TypeConversions where-  makeObject = makeObject . unTypeConversions--instance IsGObject TypeConversions where-  toGObject = GObject . unTypeConversions-  {-# INLINE toGObject #-}-  unsafeCastGObject = TypeConversions . unGObject-  {-# INLINE unsafeCastGObject #-}--castToTypeConversions :: IsGObject obj => obj -> JSM TypeConversions-castToTypeConversions = castTo gTypeTypeConversions "TypeConversions"--gTypeTypeConversions :: JSM GType-gTypeTypeConversions = GType . Object <$> jsg "TypeConversions"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UIEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/UIEvent Mozilla UIEvent documentation>-newtype UIEvent = UIEvent { unUIEvent :: JSVal }--instance PToJSVal UIEvent where-  pToJSVal = unUIEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal UIEvent where-  pFromJSVal = UIEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal UIEvent where-  toJSVal = return . unUIEvent-  {-# INLINE toJSVal #-}--instance FromJSVal UIEvent where-  fromJSVal v = fmap UIEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject UIEvent where-  makeObject = makeObject . unUIEvent--class IsEvent o => IsUIEvent o-toUIEvent :: IsUIEvent o => o -> UIEvent-toUIEvent = unsafeCastGObject . toGObject--instance IsUIEvent UIEvent-instance IsEvent UIEvent-instance IsGObject UIEvent where-  toGObject = GObject . unUIEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = UIEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToUIEvent :: IsGObject obj => obj -> JSM UIEvent-castToUIEvent = castTo gTypeUIEvent "UIEvent"--gTypeUIEvent :: JSM GType-gTypeUIEvent = GType . Object <$> jsg "UIEvent"-#else-type IsUIEvent o = UIEventClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UIRequestEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/UIRequestEvent Mozilla UIRequestEvent documentation>-newtype UIRequestEvent = UIRequestEvent { unUIRequestEvent :: JSVal }--instance PToJSVal UIRequestEvent where-  pToJSVal = unUIRequestEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal UIRequestEvent where-  pFromJSVal = UIRequestEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal UIRequestEvent where-  toJSVal = return . unUIRequestEvent-  {-# INLINE toJSVal #-}--instance FromJSVal UIRequestEvent where-  fromJSVal v = fmap UIRequestEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject UIRequestEvent where-  makeObject = makeObject . unUIRequestEvent--instance IsUIEvent UIRequestEvent-instance IsEvent UIRequestEvent-instance IsGObject UIRequestEvent where-  toGObject = GObject . unUIRequestEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = UIRequestEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToUIRequestEvent :: IsGObject obj => obj -> JSM UIRequestEvent-castToUIRequestEvent = castTo gTypeUIRequestEvent "UIRequestEvent"--gTypeUIRequestEvent :: JSM GType-gTypeUIRequestEvent = GType . Object <$> jsg "UIRequestEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.URL".------ <https://developer.mozilla.org/en-US/docs/Web/API/URL Mozilla URL documentation>-newtype URL = URL { unURL :: JSVal }--instance PToJSVal URL where-  pToJSVal = unURL-  {-# INLINE pToJSVal #-}--instance PFromJSVal URL where-  pFromJSVal = URL-  {-# INLINE pFromJSVal #-}--instance ToJSVal URL where-  toJSVal = return . unURL-  {-# INLINE toJSVal #-}--instance FromJSVal URL where-  fromJSVal v = fmap URL <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject URL where-  makeObject = makeObject . unURL--instance IsGObject URL where-  toGObject = GObject . unURL-  {-# INLINE toGObject #-}-  unsafeCastGObject = URL . unGObject-  {-# INLINE unsafeCastGObject #-}--castToURL :: IsGObject obj => obj -> JSM URL-castToURL = castTo gTypeURL "URL"--gTypeURL :: JSM GType-gTypeURL = GType . Object <$> jsg "URL"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.URLUtils".------ <https://developer.mozilla.org/en-US/docs/Web/API/URLUtils Mozilla URLUtils documentation>-newtype URLUtils = URLUtils { unURLUtils :: JSVal }--instance PToJSVal URLUtils where-  pToJSVal = unURLUtils-  {-# INLINE pToJSVal #-}--instance PFromJSVal URLUtils where-  pFromJSVal = URLUtils-  {-# INLINE pFromJSVal #-}--instance ToJSVal URLUtils where-  toJSVal = return . unURLUtils-  {-# INLINE toJSVal #-}--instance FromJSVal URLUtils where-  fromJSVal v = fmap URLUtils <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject URLUtils where-  makeObject = makeObject . unURLUtils--instance IsGObject URLUtils where-  toGObject = GObject . unURLUtils-  {-# INLINE toGObject #-}-  unsafeCastGObject = URLUtils . unGObject-  {-# INLINE unsafeCastGObject #-}--castToURLUtils :: IsGObject obj => obj -> JSM URLUtils-castToURLUtils = castTo gTypeURLUtils "URLUtils"--gTypeURLUtils :: JSM GType-gTypeURLUtils = GType . Object <$> jsg "URLUtils"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UserMessageHandler".------ <https://developer.mozilla.org/en-US/docs/Web/API/UserMessageHandler Mozilla UserMessageHandler documentation>-newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal }--instance PToJSVal UserMessageHandler where-  pToJSVal = unUserMessageHandler-  {-# INLINE pToJSVal #-}--instance PFromJSVal UserMessageHandler where-  pFromJSVal = UserMessageHandler-  {-# INLINE pFromJSVal #-}--instance ToJSVal UserMessageHandler where-  toJSVal = return . unUserMessageHandler-  {-# INLINE toJSVal #-}--instance FromJSVal UserMessageHandler where-  fromJSVal v = fmap UserMessageHandler <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject UserMessageHandler where-  makeObject = makeObject . unUserMessageHandler--instance IsGObject UserMessageHandler where-  toGObject = GObject . unUserMessageHandler-  {-# INLINE toGObject #-}-  unsafeCastGObject = UserMessageHandler . unGObject-  {-# INLINE unsafeCastGObject #-}--castToUserMessageHandler :: IsGObject obj => obj -> JSM UserMessageHandler-castToUserMessageHandler = castTo gTypeUserMessageHandler "UserMessageHandler"--gTypeUserMessageHandler :: JSM GType-gTypeUserMessageHandler = GType . Object <$> jsg "UserMessageHandler"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.UserMessageHandlersNamespace".------ <https://developer.mozilla.org/en-US/docs/Web/API/UserMessageHandlersNamespace Mozilla UserMessageHandlersNamespace documentation>-newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal }--instance PToJSVal UserMessageHandlersNamespace where-  pToJSVal = unUserMessageHandlersNamespace-  {-# INLINE pToJSVal #-}--instance PFromJSVal UserMessageHandlersNamespace where-  pFromJSVal = UserMessageHandlersNamespace-  {-# INLINE pFromJSVal #-}--instance ToJSVal UserMessageHandlersNamespace where-  toJSVal = return . unUserMessageHandlersNamespace-  {-# INLINE toJSVal #-}--instance FromJSVal UserMessageHandlersNamespace where-  fromJSVal v = fmap UserMessageHandlersNamespace <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject UserMessageHandlersNamespace where-  makeObject = makeObject . unUserMessageHandlersNamespace--instance IsGObject UserMessageHandlersNamespace where-  toGObject = GObject . unUserMessageHandlersNamespace-  {-# INLINE toGObject #-}-  unsafeCastGObject = UserMessageHandlersNamespace . unGObject-  {-# INLINE unsafeCastGObject #-}--castToUserMessageHandlersNamespace :: IsGObject obj => obj -> JSM UserMessageHandlersNamespace-castToUserMessageHandlersNamespace = castTo gTypeUserMessageHandlersNamespace "UserMessageHandlersNamespace"--gTypeUserMessageHandlersNamespace :: JSM GType-gTypeUserMessageHandlersNamespace = GType . Object <$> jsg "UserMessageHandlersNamespace"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VTTCue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.TextTrackCue"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/VTTCue Mozilla VTTCue documentation>-newtype VTTCue = VTTCue { unVTTCue :: JSVal }--instance PToJSVal VTTCue where-  pToJSVal = unVTTCue-  {-# INLINE pToJSVal #-}--instance PFromJSVal VTTCue where-  pFromJSVal = VTTCue-  {-# INLINE pFromJSVal #-}--instance ToJSVal VTTCue where-  toJSVal = return . unVTTCue-  {-# INLINE toJSVal #-}--instance FromJSVal VTTCue where-  fromJSVal v = fmap VTTCue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VTTCue where-  makeObject = makeObject . unVTTCue--instance IsTextTrackCue VTTCue-instance IsEventTarget VTTCue-instance IsGObject VTTCue where-  toGObject = GObject . unVTTCue-  {-# INLINE toGObject #-}-  unsafeCastGObject = VTTCue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVTTCue :: IsGObject obj => obj -> JSM VTTCue-castToVTTCue = castTo gTypeVTTCue "VTTCue"--gTypeVTTCue :: JSM GType-gTypeVTTCue = GType . Object <$> jsg "VTTCue"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VTTRegion".------ <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegion Mozilla VTTRegion documentation>-newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal }--instance PToJSVal VTTRegion where-  pToJSVal = unVTTRegion-  {-# INLINE pToJSVal #-}--instance PFromJSVal VTTRegion where-  pFromJSVal = VTTRegion-  {-# INLINE pFromJSVal #-}--instance ToJSVal VTTRegion where-  toJSVal = return . unVTTRegion-  {-# INLINE toJSVal #-}--instance FromJSVal VTTRegion where-  fromJSVal v = fmap VTTRegion <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VTTRegion where-  makeObject = makeObject . unVTTRegion--instance IsGObject VTTRegion where-  toGObject = GObject . unVTTRegion-  {-# INLINE toGObject #-}-  unsafeCastGObject = VTTRegion . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVTTRegion :: IsGObject obj => obj -> JSM VTTRegion-castToVTTRegion = castTo gTypeVTTRegion "VTTRegion"--gTypeVTTRegion :: JSM GType-gTypeVTTRegion = GType . Object <$> jsg "VTTRegion"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VTTRegionList".------ <https://developer.mozilla.org/en-US/docs/Web/API/VTTRegionList Mozilla VTTRegionList documentation>-newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal }--instance PToJSVal VTTRegionList where-  pToJSVal = unVTTRegionList-  {-# INLINE pToJSVal #-}--instance PFromJSVal VTTRegionList where-  pFromJSVal = VTTRegionList-  {-# INLINE pFromJSVal #-}--instance ToJSVal VTTRegionList where-  toJSVal = return . unVTTRegionList-  {-# INLINE toJSVal #-}--instance FromJSVal VTTRegionList where-  fromJSVal v = fmap VTTRegionList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VTTRegionList where-  makeObject = makeObject . unVTTRegionList--instance IsGObject VTTRegionList where-  toGObject = GObject . unVTTRegionList-  {-# INLINE toGObject #-}-  unsafeCastGObject = VTTRegionList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVTTRegionList :: IsGObject obj => obj -> JSM VTTRegionList-castToVTTRegionList = castTo gTypeVTTRegionList "VTTRegionList"--gTypeVTTRegionList :: JSM GType-gTypeVTTRegionList = GType . Object <$> jsg "VTTRegionList"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.ValidityState".------ <https://developer.mozilla.org/en-US/docs/Web/API/ValidityState Mozilla ValidityState documentation>-newtype ValidityState = ValidityState { unValidityState :: JSVal }--instance PToJSVal ValidityState where-  pToJSVal = unValidityState-  {-# INLINE pToJSVal #-}--instance PFromJSVal ValidityState where-  pFromJSVal = ValidityState-  {-# INLINE pFromJSVal #-}--instance ToJSVal ValidityState where-  toJSVal = return . unValidityState-  {-# INLINE toJSVal #-}--instance FromJSVal ValidityState where-  fromJSVal v = fmap ValidityState <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject ValidityState where-  makeObject = makeObject . unValidityState--instance IsGObject ValidityState where-  toGObject = GObject . unValidityState-  {-# INLINE toGObject #-}-  unsafeCastGObject = ValidityState . unGObject-  {-# INLINE unsafeCastGObject #-}--castToValidityState :: IsGObject obj => obj -> JSM ValidityState-castToValidityState = castTo gTypeValidityState "ValidityState"--gTypeValidityState :: JSM GType-gTypeValidityState = GType . Object <$> jsg "ValidityState"-#else-type IsValidityState o = ValidityStateClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoPlaybackQuality".------ <https://developer.mozilla.org/en-US/docs/Web/API/VideoPlaybackQuality Mozilla VideoPlaybackQuality documentation>-newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal }--instance PToJSVal VideoPlaybackQuality where-  pToJSVal = unVideoPlaybackQuality-  {-# INLINE pToJSVal #-}--instance PFromJSVal VideoPlaybackQuality where-  pFromJSVal = VideoPlaybackQuality-  {-# INLINE pFromJSVal #-}--instance ToJSVal VideoPlaybackQuality where-  toJSVal = return . unVideoPlaybackQuality-  {-# INLINE toJSVal #-}--instance FromJSVal VideoPlaybackQuality where-  fromJSVal v = fmap VideoPlaybackQuality <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VideoPlaybackQuality where-  makeObject = makeObject . unVideoPlaybackQuality--instance IsGObject VideoPlaybackQuality where-  toGObject = GObject . unVideoPlaybackQuality-  {-# INLINE toGObject #-}-  unsafeCastGObject = VideoPlaybackQuality . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVideoPlaybackQuality :: IsGObject obj => obj -> JSM VideoPlaybackQuality-castToVideoPlaybackQuality = castTo gTypeVideoPlaybackQuality "VideoPlaybackQuality"--gTypeVideoPlaybackQuality :: JSM GType-gTypeVideoPlaybackQuality = GType . Object <$> jsg "VideoPlaybackQuality"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoStreamTrack".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.MediaStreamTrack"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/VideoStreamTrack Mozilla VideoStreamTrack documentation>-newtype VideoStreamTrack = VideoStreamTrack { unVideoStreamTrack :: JSVal }--instance PToJSVal VideoStreamTrack where-  pToJSVal = unVideoStreamTrack-  {-# INLINE pToJSVal #-}--instance PFromJSVal VideoStreamTrack where-  pFromJSVal = VideoStreamTrack-  {-# INLINE pFromJSVal #-}--instance ToJSVal VideoStreamTrack where-  toJSVal = return . unVideoStreamTrack-  {-# INLINE toJSVal #-}--instance FromJSVal VideoStreamTrack where-  fromJSVal v = fmap VideoStreamTrack <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VideoStreamTrack where-  makeObject = makeObject . unVideoStreamTrack--instance IsMediaStreamTrack VideoStreamTrack-instance IsEventTarget VideoStreamTrack-instance IsGObject VideoStreamTrack where-  toGObject = GObject . unVideoStreamTrack-  {-# INLINE toGObject #-}-  unsafeCastGObject = VideoStreamTrack . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVideoStreamTrack :: IsGObject obj => obj -> JSM VideoStreamTrack-castToVideoStreamTrack = castTo gTypeVideoStreamTrack "VideoStreamTrack"--gTypeVideoStreamTrack :: JSM GType-gTypeVideoStreamTrack = GType . Object <$> jsg "VideoStreamTrack"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoTrack".------ <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrack Mozilla VideoTrack documentation>-newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal }--instance PToJSVal VideoTrack where-  pToJSVal = unVideoTrack-  {-# INLINE pToJSVal #-}--instance PFromJSVal VideoTrack where-  pFromJSVal = VideoTrack-  {-# INLINE pFromJSVal #-}--instance ToJSVal VideoTrack where-  toJSVal = return . unVideoTrack-  {-# INLINE toJSVal #-}--instance FromJSVal VideoTrack where-  fromJSVal v = fmap VideoTrack <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VideoTrack where-  makeObject = makeObject . unVideoTrack--instance IsGObject VideoTrack where-  toGObject = GObject . unVideoTrack-  {-# INLINE toGObject #-}-  unsafeCastGObject = VideoTrack . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVideoTrack :: IsGObject obj => obj -> JSM VideoTrack-castToVideoTrack = castTo gTypeVideoTrack "VideoTrack"--gTypeVideoTrack :: JSM GType-gTypeVideoTrack = GType . Object <$> jsg "VideoTrack"-#else-#ifndef USE_OLD_WEBKIT-type IsVideoTrack o = VideoTrackClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.VideoTrackList".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/VideoTrackList Mozilla VideoTrackList documentation>-newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal }--instance PToJSVal VideoTrackList where-  pToJSVal = unVideoTrackList-  {-# INLINE pToJSVal #-}--instance PFromJSVal VideoTrackList where-  pFromJSVal = VideoTrackList-  {-# INLINE pFromJSVal #-}--instance ToJSVal VideoTrackList where-  toJSVal = return . unVideoTrackList-  {-# INLINE toJSVal #-}--instance FromJSVal VideoTrackList where-  fromJSVal v = fmap VideoTrackList <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject VideoTrackList where-  makeObject = makeObject . unVideoTrackList--instance IsEventTarget VideoTrackList-instance IsGObject VideoTrackList where-  toGObject = GObject . unVideoTrackList-  {-# INLINE toGObject #-}-  unsafeCastGObject = VideoTrackList . unGObject-  {-# INLINE unsafeCastGObject #-}--castToVideoTrackList :: IsGObject obj => obj -> JSM VideoTrackList-castToVideoTrackList = castTo gTypeVideoTrackList "VideoTrackList"--gTypeVideoTrackList :: JSM GType-gTypeVideoTrackList = GType . Object <$> jsg "VideoTrackList"-#else-#ifndef USE_OLD_WEBKIT-type IsVideoTrackList o = VideoTrackListClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WaveShaperNode".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.AudioNode"---     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/WaveShaperNode Mozilla WaveShaperNode documentation>-newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal }--instance PToJSVal WaveShaperNode where-  pToJSVal = unWaveShaperNode-  {-# INLINE pToJSVal #-}--instance PFromJSVal WaveShaperNode where-  pFromJSVal = WaveShaperNode-  {-# INLINE pFromJSVal #-}--instance ToJSVal WaveShaperNode where-  toJSVal = return . unWaveShaperNode-  {-# INLINE toJSVal #-}--instance FromJSVal WaveShaperNode where-  fromJSVal v = fmap WaveShaperNode <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WaveShaperNode where-  makeObject = makeObject . unWaveShaperNode--instance IsAudioNode WaveShaperNode-instance IsEventTarget WaveShaperNode-instance IsGObject WaveShaperNode where-  toGObject = GObject . unWaveShaperNode-  {-# INLINE toGObject #-}-  unsafeCastGObject = WaveShaperNode . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWaveShaperNode :: IsGObject obj => obj -> JSM WaveShaperNode-castToWaveShaperNode = castTo gTypeWaveShaperNode "WaveShaperNode"--gTypeWaveShaperNode :: JSM GType-gTypeWaveShaperNode = GType . Object <$> jsg "WaveShaperNode"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGL2RenderingContext".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase"---     * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext Mozilla WebGL2RenderingContext documentation>-newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal }--instance PToJSVal WebGL2RenderingContext where-  pToJSVal = unWebGL2RenderingContext-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGL2RenderingContext where-  pFromJSVal = WebGL2RenderingContext-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGL2RenderingContext where-  toJSVal = return . unWebGL2RenderingContext-  {-# INLINE toJSVal #-}--instance FromJSVal WebGL2RenderingContext where-  fromJSVal v = fmap WebGL2RenderingContext <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGL2RenderingContext where-  makeObject = makeObject . unWebGL2RenderingContext--instance IsWebGLRenderingContextBase WebGL2RenderingContext-instance IsCanvasRenderingContext WebGL2RenderingContext-instance IsGObject WebGL2RenderingContext where-  toGObject = GObject . unWebGL2RenderingContext-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGL2RenderingContext . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGL2RenderingContext :: IsGObject obj => obj -> JSM WebGL2RenderingContext-castToWebGL2RenderingContext = castTo gTypeWebGL2RenderingContext "WebGL2RenderingContext"--gTypeWebGL2RenderingContext :: JSM GType-gTypeWebGL2RenderingContext = GType . Object <$> jsg "WebGL2RenderingContext"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLActiveInfo".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLActiveInfo Mozilla WebGLActiveInfo documentation>-newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal }--instance PToJSVal WebGLActiveInfo where-  pToJSVal = unWebGLActiveInfo-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLActiveInfo where-  pFromJSVal = WebGLActiveInfo-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLActiveInfo where-  toJSVal = return . unWebGLActiveInfo-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLActiveInfo where-  fromJSVal v = fmap WebGLActiveInfo <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLActiveInfo where-  makeObject = makeObject . unWebGLActiveInfo--instance IsGObject WebGLActiveInfo where-  toGObject = GObject . unWebGLActiveInfo-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLActiveInfo . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLActiveInfo :: IsGObject obj => obj -> JSM WebGLActiveInfo-castToWebGLActiveInfo = castTo gTypeWebGLActiveInfo "WebGLActiveInfo"--gTypeWebGLActiveInfo :: JSM GType-gTypeWebGLActiveInfo = GType . Object <$> jsg "WebGLActiveInfo"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLBuffer".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLBuffer Mozilla WebGLBuffer documentation>-newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal }--instance PToJSVal WebGLBuffer where-  pToJSVal = unWebGLBuffer-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLBuffer where-  pFromJSVal = WebGLBuffer-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLBuffer where-  toJSVal = return . unWebGLBuffer-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLBuffer where-  fromJSVal v = fmap WebGLBuffer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLBuffer where-  makeObject = makeObject . unWebGLBuffer--instance IsGObject WebGLBuffer where-  toGObject = GObject . unWebGLBuffer-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLBuffer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLBuffer :: IsGObject obj => obj -> JSM WebGLBuffer-castToWebGLBuffer = castTo gTypeWebGLBuffer "WebGLBuffer"--gTypeWebGLBuffer :: JSM GType-gTypeWebGLBuffer = GType . Object <$> jsg "WebGLBuffer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLCompressedTextureATC".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLCompressedTextureATC Mozilla WebGLCompressedTextureATC documentation>-newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal }--instance PToJSVal WebGLCompressedTextureATC where-  pToJSVal = unWebGLCompressedTextureATC-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLCompressedTextureATC where-  pFromJSVal = WebGLCompressedTextureATC-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLCompressedTextureATC where-  toJSVal = return . unWebGLCompressedTextureATC-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLCompressedTextureATC where-  fromJSVal v = fmap WebGLCompressedTextureATC <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLCompressedTextureATC where-  makeObject = makeObject . unWebGLCompressedTextureATC--instance IsGObject WebGLCompressedTextureATC where-  toGObject = GObject . unWebGLCompressedTextureATC-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLCompressedTextureATC . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLCompressedTextureATC :: IsGObject obj => obj -> JSM WebGLCompressedTextureATC-castToWebGLCompressedTextureATC = castTo gTypeWebGLCompressedTextureATC "WebGLCompressedTextureATC"--gTypeWebGLCompressedTextureATC :: JSM GType-gTypeWebGLCompressedTextureATC = GType . Object <$> jsg "WebGLCompressedTextureATC"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLCompressedTexturePVRTC".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLCompressedTexturePVRTC Mozilla WebGLCompressedTexturePVRTC documentation>-newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal }--instance PToJSVal WebGLCompressedTexturePVRTC where-  pToJSVal = unWebGLCompressedTexturePVRTC-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLCompressedTexturePVRTC where-  pFromJSVal = WebGLCompressedTexturePVRTC-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLCompressedTexturePVRTC where-  toJSVal = return . unWebGLCompressedTexturePVRTC-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLCompressedTexturePVRTC where-  fromJSVal v = fmap WebGLCompressedTexturePVRTC <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLCompressedTexturePVRTC where-  makeObject = makeObject . unWebGLCompressedTexturePVRTC--instance IsGObject WebGLCompressedTexturePVRTC where-  toGObject = GObject . unWebGLCompressedTexturePVRTC-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLCompressedTexturePVRTC . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLCompressedTexturePVRTC :: IsGObject obj => obj -> JSM WebGLCompressedTexturePVRTC-castToWebGLCompressedTexturePVRTC = castTo gTypeWebGLCompressedTexturePVRTC "WebGLCompressedTexturePVRTC"--gTypeWebGLCompressedTexturePVRTC :: JSM GType-gTypeWebGLCompressedTexturePVRTC = GType . Object <$> jsg "WebGLCompressedTexturePVRTC"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLCompressedTextureS3TC".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLCompressedTextureS3TC Mozilla WebGLCompressedTextureS3TC documentation>-newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal }--instance PToJSVal WebGLCompressedTextureS3TC where-  pToJSVal = unWebGLCompressedTextureS3TC-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLCompressedTextureS3TC where-  pFromJSVal = WebGLCompressedTextureS3TC-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLCompressedTextureS3TC where-  toJSVal = return . unWebGLCompressedTextureS3TC-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLCompressedTextureS3TC where-  fromJSVal v = fmap WebGLCompressedTextureS3TC <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLCompressedTextureS3TC where-  makeObject = makeObject . unWebGLCompressedTextureS3TC--instance IsGObject WebGLCompressedTextureS3TC where-  toGObject = GObject . unWebGLCompressedTextureS3TC-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLCompressedTextureS3TC . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLCompressedTextureS3TC :: IsGObject obj => obj -> JSM WebGLCompressedTextureS3TC-castToWebGLCompressedTextureS3TC = castTo gTypeWebGLCompressedTextureS3TC "WebGLCompressedTextureS3TC"--gTypeWebGLCompressedTextureS3TC :: JSM GType-gTypeWebGLCompressedTextureS3TC = GType . Object <$> jsg "WebGLCompressedTextureS3TC"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLContextAttributes".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextAttributes Mozilla WebGLContextAttributes documentation>-newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal }--instance PToJSVal WebGLContextAttributes where-  pToJSVal = unWebGLContextAttributes-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLContextAttributes where-  pFromJSVal = WebGLContextAttributes-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLContextAttributes where-  toJSVal = return . unWebGLContextAttributes-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLContextAttributes where-  fromJSVal v = fmap WebGLContextAttributes <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLContextAttributes where-  makeObject = makeObject . unWebGLContextAttributes--instance IsGObject WebGLContextAttributes where-  toGObject = GObject . unWebGLContextAttributes-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLContextAttributes . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLContextAttributes :: IsGObject obj => obj -> JSM WebGLContextAttributes-castToWebGLContextAttributes = castTo gTypeWebGLContextAttributes "WebGLContextAttributes"--gTypeWebGLContextAttributes :: JSM GType-gTypeWebGLContextAttributes = GType . Object <$> jsg "WebGLContextAttributes"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLContextEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLContextEvent Mozilla WebGLContextEvent documentation>-newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal }--instance PToJSVal WebGLContextEvent where-  pToJSVal = unWebGLContextEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLContextEvent where-  pFromJSVal = WebGLContextEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLContextEvent where-  toJSVal = return . unWebGLContextEvent-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLContextEvent where-  fromJSVal v = fmap WebGLContextEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLContextEvent where-  makeObject = makeObject . unWebGLContextEvent--instance IsEvent WebGLContextEvent-instance IsGObject WebGLContextEvent where-  toGObject = GObject . unWebGLContextEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLContextEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLContextEvent :: IsGObject obj => obj -> JSM WebGLContextEvent-castToWebGLContextEvent = castTo gTypeWebGLContextEvent "WebGLContextEvent"--gTypeWebGLContextEvent :: JSM GType-gTypeWebGLContextEvent = GType . Object <$> jsg "WebGLContextEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDebugRendererInfo".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDebugRendererInfo Mozilla WebGLDebugRendererInfo documentation>-newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal }--instance PToJSVal WebGLDebugRendererInfo where-  pToJSVal = unWebGLDebugRendererInfo-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLDebugRendererInfo where-  pFromJSVal = WebGLDebugRendererInfo-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLDebugRendererInfo where-  toJSVal = return . unWebGLDebugRendererInfo-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLDebugRendererInfo where-  fromJSVal v = fmap WebGLDebugRendererInfo <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLDebugRendererInfo where-  makeObject = makeObject . unWebGLDebugRendererInfo--instance IsGObject WebGLDebugRendererInfo where-  toGObject = GObject . unWebGLDebugRendererInfo-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLDebugRendererInfo . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLDebugRendererInfo :: IsGObject obj => obj -> JSM WebGLDebugRendererInfo-castToWebGLDebugRendererInfo = castTo gTypeWebGLDebugRendererInfo "WebGLDebugRendererInfo"--gTypeWebGLDebugRendererInfo :: JSM GType-gTypeWebGLDebugRendererInfo = GType . Object <$> jsg "WebGLDebugRendererInfo"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDebugShaders".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDebugShaders Mozilla WebGLDebugShaders documentation>-newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal }--instance PToJSVal WebGLDebugShaders where-  pToJSVal = unWebGLDebugShaders-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLDebugShaders where-  pFromJSVal = WebGLDebugShaders-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLDebugShaders where-  toJSVal = return . unWebGLDebugShaders-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLDebugShaders where-  fromJSVal v = fmap WebGLDebugShaders <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLDebugShaders where-  makeObject = makeObject . unWebGLDebugShaders--instance IsGObject WebGLDebugShaders where-  toGObject = GObject . unWebGLDebugShaders-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLDebugShaders . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLDebugShaders :: IsGObject obj => obj -> JSM WebGLDebugShaders-castToWebGLDebugShaders = castTo gTypeWebGLDebugShaders "WebGLDebugShaders"--gTypeWebGLDebugShaders :: JSM GType-gTypeWebGLDebugShaders = GType . Object <$> jsg "WebGLDebugShaders"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDepthTexture".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDepthTexture Mozilla WebGLDepthTexture documentation>-newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal }--instance PToJSVal WebGLDepthTexture where-  pToJSVal = unWebGLDepthTexture-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLDepthTexture where-  pFromJSVal = WebGLDepthTexture-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLDepthTexture where-  toJSVal = return . unWebGLDepthTexture-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLDepthTexture where-  fromJSVal v = fmap WebGLDepthTexture <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLDepthTexture where-  makeObject = makeObject . unWebGLDepthTexture--instance IsGObject WebGLDepthTexture where-  toGObject = GObject . unWebGLDepthTexture-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLDepthTexture . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLDepthTexture :: IsGObject obj => obj -> JSM WebGLDepthTexture-castToWebGLDepthTexture = castTo gTypeWebGLDepthTexture "WebGLDepthTexture"--gTypeWebGLDepthTexture :: JSM GType-gTypeWebGLDepthTexture = GType . Object <$> jsg "WebGLDepthTexture"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLDrawBuffers".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLDrawBuffers Mozilla WebGLDrawBuffers documentation>-newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal }--instance PToJSVal WebGLDrawBuffers where-  pToJSVal = unWebGLDrawBuffers-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLDrawBuffers where-  pFromJSVal = WebGLDrawBuffers-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLDrawBuffers where-  toJSVal = return . unWebGLDrawBuffers-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLDrawBuffers where-  fromJSVal v = fmap WebGLDrawBuffers <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLDrawBuffers where-  makeObject = makeObject . unWebGLDrawBuffers--instance IsGObject WebGLDrawBuffers where-  toGObject = GObject . unWebGLDrawBuffers-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLDrawBuffers . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLDrawBuffers :: IsGObject obj => obj -> JSM WebGLDrawBuffers-castToWebGLDrawBuffers = castTo gTypeWebGLDrawBuffers "WebGLDrawBuffers"--gTypeWebGLDrawBuffers :: JSM GType-gTypeWebGLDrawBuffers = GType . Object <$> jsg "WebGLDrawBuffers"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLFramebuffer".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLFramebuffer Mozilla WebGLFramebuffer documentation>-newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal }--instance PToJSVal WebGLFramebuffer where-  pToJSVal = unWebGLFramebuffer-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLFramebuffer where-  pFromJSVal = WebGLFramebuffer-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLFramebuffer where-  toJSVal = return . unWebGLFramebuffer-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLFramebuffer where-  fromJSVal v = fmap WebGLFramebuffer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLFramebuffer where-  makeObject = makeObject . unWebGLFramebuffer--instance IsGObject WebGLFramebuffer where-  toGObject = GObject . unWebGLFramebuffer-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLFramebuffer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLFramebuffer :: IsGObject obj => obj -> JSM WebGLFramebuffer-castToWebGLFramebuffer = castTo gTypeWebGLFramebuffer "WebGLFramebuffer"--gTypeWebGLFramebuffer :: JSM GType-gTypeWebGLFramebuffer = GType . Object <$> jsg "WebGLFramebuffer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLLoseContext".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLLoseContext Mozilla WebGLLoseContext documentation>-newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal }--instance PToJSVal WebGLLoseContext where-  pToJSVal = unWebGLLoseContext-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLLoseContext where-  pFromJSVal = WebGLLoseContext-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLLoseContext where-  toJSVal = return . unWebGLLoseContext-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLLoseContext where-  fromJSVal v = fmap WebGLLoseContext <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLLoseContext where-  makeObject = makeObject . unWebGLLoseContext--instance IsGObject WebGLLoseContext where-  toGObject = GObject . unWebGLLoseContext-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLLoseContext . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLLoseContext :: IsGObject obj => obj -> JSM WebGLLoseContext-castToWebGLLoseContext = castTo gTypeWebGLLoseContext "WebGLLoseContext"--gTypeWebGLLoseContext :: JSM GType-gTypeWebGLLoseContext = GType . Object <$> jsg "WebGLLoseContext"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLProgram".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLProgram Mozilla WebGLProgram documentation>-newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal }--instance PToJSVal WebGLProgram where-  pToJSVal = unWebGLProgram-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLProgram where-  pFromJSVal = WebGLProgram-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLProgram where-  toJSVal = return . unWebGLProgram-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLProgram where-  fromJSVal v = fmap WebGLProgram <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLProgram where-  makeObject = makeObject . unWebGLProgram--instance IsGObject WebGLProgram where-  toGObject = GObject . unWebGLProgram-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLProgram . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLProgram :: IsGObject obj => obj -> JSM WebGLProgram-castToWebGLProgram = castTo gTypeWebGLProgram "WebGLProgram"--gTypeWebGLProgram :: JSM GType-gTypeWebGLProgram = GType . Object <$> jsg "WebGLProgram"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLQuery".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLQuery Mozilla WebGLQuery documentation>-newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal }--instance PToJSVal WebGLQuery where-  pToJSVal = unWebGLQuery-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLQuery where-  pFromJSVal = WebGLQuery-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLQuery where-  toJSVal = return . unWebGLQuery-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLQuery where-  fromJSVal v = fmap WebGLQuery <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLQuery where-  makeObject = makeObject . unWebGLQuery--instance IsGObject WebGLQuery where-  toGObject = GObject . unWebGLQuery-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLQuery . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLQuery :: IsGObject obj => obj -> JSM WebGLQuery-castToWebGLQuery = castTo gTypeWebGLQuery "WebGLQuery"--gTypeWebGLQuery :: JSM GType-gTypeWebGLQuery = GType . Object <$> jsg "WebGLQuery"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLRenderbuffer".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderbuffer Mozilla WebGLRenderbuffer documentation>-newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal }--instance PToJSVal WebGLRenderbuffer where-  pToJSVal = unWebGLRenderbuffer-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLRenderbuffer where-  pFromJSVal = WebGLRenderbuffer-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLRenderbuffer where-  toJSVal = return . unWebGLRenderbuffer-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLRenderbuffer where-  fromJSVal v = fmap WebGLRenderbuffer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLRenderbuffer where-  makeObject = makeObject . unWebGLRenderbuffer--instance IsGObject WebGLRenderbuffer where-  toGObject = GObject . unWebGLRenderbuffer-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLRenderbuffer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLRenderbuffer :: IsGObject obj => obj -> JSM WebGLRenderbuffer-castToWebGLRenderbuffer = castTo gTypeWebGLRenderbuffer "WebGLRenderbuffer"--gTypeWebGLRenderbuffer :: JSM GType-gTypeWebGLRenderbuffer = GType . Object <$> jsg "WebGLRenderbuffer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLRenderingContext".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase"---     * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContext Mozilla WebGLRenderingContext documentation>-newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal }--instance PToJSVal WebGLRenderingContext where-  pToJSVal = unWebGLRenderingContext-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLRenderingContext where-  pFromJSVal = WebGLRenderingContext-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLRenderingContext where-  toJSVal = return . unWebGLRenderingContext-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLRenderingContext where-  fromJSVal v = fmap WebGLRenderingContext <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLRenderingContext where-  makeObject = makeObject . unWebGLRenderingContext--instance IsWebGLRenderingContextBase WebGLRenderingContext-instance IsCanvasRenderingContext WebGLRenderingContext-instance IsGObject WebGLRenderingContext where-  toGObject = GObject . unWebGLRenderingContext-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLRenderingContext . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLRenderingContext :: IsGObject obj => obj -> JSM WebGLRenderingContext-castToWebGLRenderingContext = castTo gTypeWebGLRenderingContext "WebGLRenderingContext"--gTypeWebGLRenderingContext :: JSM GType-gTypeWebGLRenderingContext = GType . Object <$> jsg "WebGLRenderingContext"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLRenderingContextBase".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CanvasRenderingContext"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLRenderingContextBase Mozilla WebGLRenderingContextBase documentation>-newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal }--instance PToJSVal WebGLRenderingContextBase where-  pToJSVal = unWebGLRenderingContextBase-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLRenderingContextBase where-  pFromJSVal = WebGLRenderingContextBase-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLRenderingContextBase where-  toJSVal = return . unWebGLRenderingContextBase-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLRenderingContextBase where-  fromJSVal v = fmap WebGLRenderingContextBase <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLRenderingContextBase where-  makeObject = makeObject . unWebGLRenderingContextBase--class IsCanvasRenderingContext o => IsWebGLRenderingContextBase o-toWebGLRenderingContextBase :: IsWebGLRenderingContextBase o => o -> WebGLRenderingContextBase-toWebGLRenderingContextBase = unsafeCastGObject . toGObject--instance IsWebGLRenderingContextBase WebGLRenderingContextBase-instance IsCanvasRenderingContext WebGLRenderingContextBase-instance IsGObject WebGLRenderingContextBase where-  toGObject = GObject . unWebGLRenderingContextBase-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLRenderingContextBase . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLRenderingContextBase :: IsGObject obj => obj -> JSM WebGLRenderingContextBase-castToWebGLRenderingContextBase = castTo gTypeWebGLRenderingContextBase "WebGLRenderingContextBase"--gTypeWebGLRenderingContextBase :: JSM GType-gTypeWebGLRenderingContextBase = GType . Object <$> jsg "WebGLRenderingContextBase"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLSampler".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLSampler Mozilla WebGLSampler documentation>-newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal }--instance PToJSVal WebGLSampler where-  pToJSVal = unWebGLSampler-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLSampler where-  pFromJSVal = WebGLSampler-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLSampler where-  toJSVal = return . unWebGLSampler-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLSampler where-  fromJSVal v = fmap WebGLSampler <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLSampler where-  makeObject = makeObject . unWebGLSampler--instance IsGObject WebGLSampler where-  toGObject = GObject . unWebGLSampler-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLSampler . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLSampler :: IsGObject obj => obj -> JSM WebGLSampler-castToWebGLSampler = castTo gTypeWebGLSampler "WebGLSampler"--gTypeWebGLSampler :: JSM GType-gTypeWebGLSampler = GType . Object <$> jsg "WebGLSampler"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLShader".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShader Mozilla WebGLShader documentation>-newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal }--instance PToJSVal WebGLShader where-  pToJSVal = unWebGLShader-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLShader where-  pFromJSVal = WebGLShader-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLShader where-  toJSVal = return . unWebGLShader-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLShader where-  fromJSVal v = fmap WebGLShader <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLShader where-  makeObject = makeObject . unWebGLShader--instance IsGObject WebGLShader where-  toGObject = GObject . unWebGLShader-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLShader . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLShader :: IsGObject obj => obj -> JSM WebGLShader-castToWebGLShader = castTo gTypeWebGLShader "WebGLShader"--gTypeWebGLShader :: JSM GType-gTypeWebGLShader = GType . Object <$> jsg "WebGLShader"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLShaderPrecisionFormat".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLShaderPrecisionFormat Mozilla WebGLShaderPrecisionFormat documentation>-newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal }--instance PToJSVal WebGLShaderPrecisionFormat where-  pToJSVal = unWebGLShaderPrecisionFormat-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLShaderPrecisionFormat where-  pFromJSVal = WebGLShaderPrecisionFormat-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLShaderPrecisionFormat where-  toJSVal = return . unWebGLShaderPrecisionFormat-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLShaderPrecisionFormat where-  fromJSVal v = fmap WebGLShaderPrecisionFormat <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLShaderPrecisionFormat where-  makeObject = makeObject . unWebGLShaderPrecisionFormat--instance IsGObject WebGLShaderPrecisionFormat where-  toGObject = GObject . unWebGLShaderPrecisionFormat-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLShaderPrecisionFormat . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLShaderPrecisionFormat :: IsGObject obj => obj -> JSM WebGLShaderPrecisionFormat-castToWebGLShaderPrecisionFormat = castTo gTypeWebGLShaderPrecisionFormat "WebGLShaderPrecisionFormat"--gTypeWebGLShaderPrecisionFormat :: JSM GType-gTypeWebGLShaderPrecisionFormat = GType . Object <$> jsg "WebGLShaderPrecisionFormat"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLSync".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLSync Mozilla WebGLSync documentation>-newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal }--instance PToJSVal WebGLSync where-  pToJSVal = unWebGLSync-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLSync where-  pFromJSVal = WebGLSync-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLSync where-  toJSVal = return . unWebGLSync-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLSync where-  fromJSVal v = fmap WebGLSync <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLSync where-  makeObject = makeObject . unWebGLSync--instance IsGObject WebGLSync where-  toGObject = GObject . unWebGLSync-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLSync . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLSync :: IsGObject obj => obj -> JSM WebGLSync-castToWebGLSync = castTo gTypeWebGLSync "WebGLSync"--gTypeWebGLSync :: JSM GType-gTypeWebGLSync = GType . Object <$> jsg "WebGLSync"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLTexture".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLTexture Mozilla WebGLTexture documentation>-newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal }--instance PToJSVal WebGLTexture where-  pToJSVal = unWebGLTexture-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLTexture where-  pFromJSVal = WebGLTexture-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLTexture where-  toJSVal = return . unWebGLTexture-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLTexture where-  fromJSVal v = fmap WebGLTexture <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLTexture where-  makeObject = makeObject . unWebGLTexture--instance IsGObject WebGLTexture where-  toGObject = GObject . unWebGLTexture-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLTexture . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLTexture :: IsGObject obj => obj -> JSM WebGLTexture-castToWebGLTexture = castTo gTypeWebGLTexture "WebGLTexture"--gTypeWebGLTexture :: JSM GType-gTypeWebGLTexture = GType . Object <$> jsg "WebGLTexture"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLTransformFeedback".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLTransformFeedback Mozilla WebGLTransformFeedback documentation>-newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal }--instance PToJSVal WebGLTransformFeedback where-  pToJSVal = unWebGLTransformFeedback-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLTransformFeedback where-  pFromJSVal = WebGLTransformFeedback-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLTransformFeedback where-  toJSVal = return . unWebGLTransformFeedback-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLTransformFeedback where-  fromJSVal v = fmap WebGLTransformFeedback <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLTransformFeedback where-  makeObject = makeObject . unWebGLTransformFeedback--instance IsGObject WebGLTransformFeedback where-  toGObject = GObject . unWebGLTransformFeedback-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLTransformFeedback . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLTransformFeedback :: IsGObject obj => obj -> JSM WebGLTransformFeedback-castToWebGLTransformFeedback = castTo gTypeWebGLTransformFeedback "WebGLTransformFeedback"--gTypeWebGLTransformFeedback :: JSM GType-gTypeWebGLTransformFeedback = GType . Object <$> jsg "WebGLTransformFeedback"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLUniformLocation".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLUniformLocation Mozilla WebGLUniformLocation documentation>-newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal }--instance PToJSVal WebGLUniformLocation where-  pToJSVal = unWebGLUniformLocation-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLUniformLocation where-  pFromJSVal = WebGLUniformLocation-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLUniformLocation where-  toJSVal = return . unWebGLUniformLocation-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLUniformLocation where-  fromJSVal v = fmap WebGLUniformLocation <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLUniformLocation where-  makeObject = makeObject . unWebGLUniformLocation--instance IsGObject WebGLUniformLocation where-  toGObject = GObject . unWebGLUniformLocation-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLUniformLocation . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLUniformLocation :: IsGObject obj => obj -> JSM WebGLUniformLocation-castToWebGLUniformLocation = castTo gTypeWebGLUniformLocation "WebGLUniformLocation"--gTypeWebGLUniformLocation :: JSM GType-gTypeWebGLUniformLocation = GType . Object <$> jsg "WebGLUniformLocation"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLVertexArrayObject".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLVertexArrayObject Mozilla WebGLVertexArrayObject documentation>-newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal }--instance PToJSVal WebGLVertexArrayObject where-  pToJSVal = unWebGLVertexArrayObject-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLVertexArrayObject where-  pFromJSVal = WebGLVertexArrayObject-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLVertexArrayObject where-  toJSVal = return . unWebGLVertexArrayObject-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLVertexArrayObject where-  fromJSVal v = fmap WebGLVertexArrayObject <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLVertexArrayObject where-  makeObject = makeObject . unWebGLVertexArrayObject--instance IsGObject WebGLVertexArrayObject where-  toGObject = GObject . unWebGLVertexArrayObject-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLVertexArrayObject . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLVertexArrayObject :: IsGObject obj => obj -> JSM WebGLVertexArrayObject-castToWebGLVertexArrayObject = castTo gTypeWebGLVertexArrayObject "WebGLVertexArrayObject"--gTypeWebGLVertexArrayObject :: JSM GType-gTypeWebGLVertexArrayObject = GType . Object <$> jsg "WebGLVertexArrayObject"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebGLVertexArrayObjectOES".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebGLVertexArrayObjectOES Mozilla WebGLVertexArrayObjectOES documentation>-newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal }--instance PToJSVal WebGLVertexArrayObjectOES where-  pToJSVal = unWebGLVertexArrayObjectOES-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebGLVertexArrayObjectOES where-  pFromJSVal = WebGLVertexArrayObjectOES-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebGLVertexArrayObjectOES where-  toJSVal = return . unWebGLVertexArrayObjectOES-  {-# INLINE toJSVal #-}--instance FromJSVal WebGLVertexArrayObjectOES where-  fromJSVal v = fmap WebGLVertexArrayObjectOES <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebGLVertexArrayObjectOES where-  makeObject = makeObject . unWebGLVertexArrayObjectOES--instance IsGObject WebGLVertexArrayObjectOES where-  toGObject = GObject . unWebGLVertexArrayObjectOES-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebGLVertexArrayObjectOES . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebGLVertexArrayObjectOES :: IsGObject obj => obj -> JSM WebGLVertexArrayObjectOES-castToWebGLVertexArrayObjectOES = castTo gTypeWebGLVertexArrayObjectOES "WebGLVertexArrayObjectOES"--gTypeWebGLVertexArrayObjectOES :: JSM GType-gTypeWebGLVertexArrayObjectOES = GType . Object <$> jsg "WebGLVertexArrayObjectOES"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitAnimationEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitAnimationEvent Mozilla WebKitAnimationEvent documentation>-newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal }--instance PToJSVal WebKitAnimationEvent where-  pToJSVal = unWebKitAnimationEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitAnimationEvent where-  pFromJSVal = WebKitAnimationEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitAnimationEvent where-  toJSVal = return . unWebKitAnimationEvent-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitAnimationEvent where-  fromJSVal v = fmap WebKitAnimationEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitAnimationEvent where-  makeObject = makeObject . unWebKitAnimationEvent--instance IsEvent WebKitAnimationEvent-instance IsGObject WebKitAnimationEvent where-  toGObject = GObject . unWebKitAnimationEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitAnimationEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitAnimationEvent :: IsGObject obj => obj -> JSM WebKitAnimationEvent-castToWebKitAnimationEvent = castTo gTypeWebKitAnimationEvent "WebKitAnimationEvent"--gTypeWebKitAnimationEvent :: JSM GType-gTypeWebKitAnimationEvent = GType . Object <$> jsg "WebKitAnimationEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSFilterValue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSValueList"---     * "Language.Javascript.JSaddle.DOM.CSSValue"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSFilterValue Mozilla WebKitCSSFilterValue documentation>-newtype WebKitCSSFilterValue = WebKitCSSFilterValue { unWebKitCSSFilterValue :: JSVal }--instance PToJSVal WebKitCSSFilterValue where-  pToJSVal = unWebKitCSSFilterValue-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitCSSFilterValue where-  pFromJSVal = WebKitCSSFilterValue-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitCSSFilterValue where-  toJSVal = return . unWebKitCSSFilterValue-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitCSSFilterValue where-  fromJSVal v = fmap WebKitCSSFilterValue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitCSSFilterValue where-  makeObject = makeObject . unWebKitCSSFilterValue--instance IsCSSValueList WebKitCSSFilterValue-instance IsCSSValue WebKitCSSFilterValue-instance IsGObject WebKitCSSFilterValue where-  toGObject = GObject . unWebKitCSSFilterValue-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitCSSFilterValue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitCSSFilterValue :: IsGObject obj => obj -> JSM WebKitCSSFilterValue-castToWebKitCSSFilterValue = castTo gTypeWebKitCSSFilterValue "WebKitCSSFilterValue"--gTypeWebKitCSSFilterValue :: JSM GType-gTypeWebKitCSSFilterValue = GType . Object <$> jsg "WebKitCSSFilterValue"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSMatrix".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSMatrix Mozilla WebKitCSSMatrix documentation>-newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal }--instance PToJSVal WebKitCSSMatrix where-  pToJSVal = unWebKitCSSMatrix-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitCSSMatrix where-  pFromJSVal = WebKitCSSMatrix-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitCSSMatrix where-  toJSVal = return . unWebKitCSSMatrix-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitCSSMatrix where-  fromJSVal v = fmap WebKitCSSMatrix <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitCSSMatrix where-  makeObject = makeObject . unWebKitCSSMatrix--instance IsGObject WebKitCSSMatrix where-  toGObject = GObject . unWebKitCSSMatrix-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitCSSMatrix . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitCSSMatrix :: IsGObject obj => obj -> JSM WebKitCSSMatrix-castToWebKitCSSMatrix = castTo gTypeWebKitCSSMatrix "WebKitCSSMatrix"--gTypeWebKitCSSMatrix :: JSM GType-gTypeWebKitCSSMatrix = GType . Object <$> jsg "WebKitCSSMatrix"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSRegionRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSRegionRule Mozilla WebKitCSSRegionRule documentation>-newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal }--instance PToJSVal WebKitCSSRegionRule where-  pToJSVal = unWebKitCSSRegionRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitCSSRegionRule where-  pFromJSVal = WebKitCSSRegionRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitCSSRegionRule where-  toJSVal = return . unWebKitCSSRegionRule-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitCSSRegionRule where-  fromJSVal v = fmap WebKitCSSRegionRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitCSSRegionRule where-  makeObject = makeObject . unWebKitCSSRegionRule--instance IsCSSRule WebKitCSSRegionRule-instance IsGObject WebKitCSSRegionRule where-  toGObject = GObject . unWebKitCSSRegionRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitCSSRegionRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitCSSRegionRule :: IsGObject obj => obj -> JSM WebKitCSSRegionRule-castToWebKitCSSRegionRule = castTo gTypeWebKitCSSRegionRule "WebKitCSSRegionRule"--gTypeWebKitCSSRegionRule :: JSM GType-gTypeWebKitCSSRegionRule = GType . Object <$> jsg "WebKitCSSRegionRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSTransformValue".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSValueList"---     * "Language.Javascript.JSaddle.DOM.CSSValue"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSTransformValue Mozilla WebKitCSSTransformValue documentation>-newtype WebKitCSSTransformValue = WebKitCSSTransformValue { unWebKitCSSTransformValue :: JSVal }--instance PToJSVal WebKitCSSTransformValue where-  pToJSVal = unWebKitCSSTransformValue-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitCSSTransformValue where-  pFromJSVal = WebKitCSSTransformValue-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitCSSTransformValue where-  toJSVal = return . unWebKitCSSTransformValue-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitCSSTransformValue where-  fromJSVal v = fmap WebKitCSSTransformValue <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitCSSTransformValue where-  makeObject = makeObject . unWebKitCSSTransformValue--instance IsCSSValueList WebKitCSSTransformValue-instance IsCSSValue WebKitCSSTransformValue-instance IsGObject WebKitCSSTransformValue where-  toGObject = GObject . unWebKitCSSTransformValue-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitCSSTransformValue . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitCSSTransformValue :: IsGObject obj => obj -> JSM WebKitCSSTransformValue-castToWebKitCSSTransformValue = castTo gTypeWebKitCSSTransformValue "WebKitCSSTransformValue"--gTypeWebKitCSSTransformValue :: JSM GType-gTypeWebKitCSSTransformValue = GType . Object <$> jsg "WebKitCSSTransformValue"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitCSSViewportRule".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.CSSRule"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitCSSViewportRule Mozilla WebKitCSSViewportRule documentation>-newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal }--instance PToJSVal WebKitCSSViewportRule where-  pToJSVal = unWebKitCSSViewportRule-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitCSSViewportRule where-  pFromJSVal = WebKitCSSViewportRule-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitCSSViewportRule where-  toJSVal = return . unWebKitCSSViewportRule-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitCSSViewportRule where-  fromJSVal v = fmap WebKitCSSViewportRule <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitCSSViewportRule where-  makeObject = makeObject . unWebKitCSSViewportRule--instance IsCSSRule WebKitCSSViewportRule-instance IsGObject WebKitCSSViewportRule where-  toGObject = GObject . unWebKitCSSViewportRule-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitCSSViewportRule . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitCSSViewportRule :: IsGObject obj => obj -> JSM WebKitCSSViewportRule-castToWebKitCSSViewportRule = castTo gTypeWebKitCSSViewportRule "WebKitCSSViewportRule"--gTypeWebKitCSSViewportRule :: JSM GType-gTypeWebKitCSSViewportRule = GType . Object <$> jsg "WebKitCSSViewportRule"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitNamedFlow".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlow Mozilla WebKitNamedFlow documentation>-newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal }--instance PToJSVal WebKitNamedFlow where-  pToJSVal = unWebKitNamedFlow-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitNamedFlow where-  pFromJSVal = WebKitNamedFlow-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitNamedFlow where-  toJSVal = return . unWebKitNamedFlow-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitNamedFlow where-  fromJSVal v = fmap WebKitNamedFlow <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitNamedFlow where-  makeObject = makeObject . unWebKitNamedFlow--instance IsEventTarget WebKitNamedFlow-instance IsGObject WebKitNamedFlow where-  toGObject = GObject . unWebKitNamedFlow-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitNamedFlow . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitNamedFlow :: IsGObject obj => obj -> JSM WebKitNamedFlow-castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow"--gTypeWebKitNamedFlow :: JSM GType-gTypeWebKitNamedFlow = GType . Object <$> jsg "WebKitNamedFlow"-#else-type IsWebKitNamedFlow o = WebKitNamedFlowClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitNamespace".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamespace Mozilla WebKitNamespace documentation>-newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal }--instance PToJSVal WebKitNamespace where-  pToJSVal = unWebKitNamespace-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitNamespace where-  pFromJSVal = WebKitNamespace-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitNamespace where-  toJSVal = return . unWebKitNamespace-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitNamespace where-  fromJSVal v = fmap WebKitNamespace <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitNamespace where-  makeObject = makeObject . unWebKitNamespace--instance IsGObject WebKitNamespace where-  toGObject = GObject . unWebKitNamespace-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitNamespace . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitNamespace :: IsGObject obj => obj -> JSM WebKitNamespace-castToWebKitNamespace = castTo gTypeWebKitNamespace "WebKitNamespace"--gTypeWebKitNamespace :: JSM GType-gTypeWebKitNamespace = GType . Object <$> jsg "WebKitNamespace"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitPlaybackTargetAvailabilityEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPlaybackTargetAvailabilityEvent Mozilla WebKitPlaybackTargetAvailabilityEvent documentation>-newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal }--instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where-  pToJSVal = unWebKitPlaybackTargetAvailabilityEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where-  pFromJSVal = WebKitPlaybackTargetAvailabilityEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where-  toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where-  fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitPlaybackTargetAvailabilityEvent where-  makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEvent--instance IsEvent WebKitPlaybackTargetAvailabilityEvent-instance IsGObject WebKitPlaybackTargetAvailabilityEvent where-  toGObject = GObject . unWebKitPlaybackTargetAvailabilityEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitPlaybackTargetAvailabilityEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitPlaybackTargetAvailabilityEvent :: IsGObject obj => obj -> JSM WebKitPlaybackTargetAvailabilityEvent-castToWebKitPlaybackTargetAvailabilityEvent = castTo gTypeWebKitPlaybackTargetAvailabilityEvent "WebKitPlaybackTargetAvailabilityEvent"--gTypeWebKitPlaybackTargetAvailabilityEvent :: JSM GType-gTypeWebKitPlaybackTargetAvailabilityEvent = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitPoint".------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitPoint Mozilla WebKitPoint documentation>-newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal }--instance PToJSVal WebKitPoint where-  pToJSVal = unWebKitPoint-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitPoint where-  pFromJSVal = WebKitPoint-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitPoint where-  toJSVal = return . unWebKitPoint-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitPoint where-  fromJSVal v = fmap WebKitPoint <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitPoint where-  makeObject = makeObject . unWebKitPoint--instance IsGObject WebKitPoint where-  toGObject = GObject . unWebKitPoint-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitPoint . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitPoint :: IsGObject obj => obj -> JSM WebKitPoint-castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint"--gTypeWebKitPoint :: JSM GType-gTypeWebKitPoint = GType . Object <$> jsg "WebKitPoint"-#else-type IsWebKitPoint o = WebKitPointClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebKitTransitionEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebKitTransitionEvent Mozilla WebKitTransitionEvent documentation>-newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal }--instance PToJSVal WebKitTransitionEvent where-  pToJSVal = unWebKitTransitionEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebKitTransitionEvent where-  pFromJSVal = WebKitTransitionEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebKitTransitionEvent where-  toJSVal = return . unWebKitTransitionEvent-  {-# INLINE toJSVal #-}--instance FromJSVal WebKitTransitionEvent where-  fromJSVal v = fmap WebKitTransitionEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebKitTransitionEvent where-  makeObject = makeObject . unWebKitTransitionEvent--instance IsEvent WebKitTransitionEvent-instance IsGObject WebKitTransitionEvent where-  toGObject = GObject . unWebKitTransitionEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebKitTransitionEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebKitTransitionEvent :: IsGObject obj => obj -> JSM WebKitTransitionEvent-castToWebKitTransitionEvent = castTo gTypeWebKitTransitionEvent "WebKitTransitionEvent"--gTypeWebKitTransitionEvent :: JSM GType-gTypeWebKitTransitionEvent = GType . Object <$> jsg "WebKitTransitionEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WebSocket".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/WebSocket Mozilla WebSocket documentation>-newtype WebSocket = WebSocket { unWebSocket :: JSVal }--instance PToJSVal WebSocket where-  pToJSVal = unWebSocket-  {-# INLINE pToJSVal #-}--instance PFromJSVal WebSocket where-  pFromJSVal = WebSocket-  {-# INLINE pFromJSVal #-}--instance ToJSVal WebSocket where-  toJSVal = return . unWebSocket-  {-# INLINE toJSVal #-}--instance FromJSVal WebSocket where-  fromJSVal v = fmap WebSocket <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WebSocket where-  makeObject = makeObject . unWebSocket--instance IsEventTarget WebSocket-instance IsGObject WebSocket where-  toGObject = GObject . unWebSocket-  {-# INLINE toGObject #-}-  unsafeCastGObject = WebSocket . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWebSocket :: IsGObject obj => obj -> JSM WebSocket-castToWebSocket = castTo gTypeWebSocket "WebSocket"--gTypeWebSocket :: JSM GType-gTypeWebSocket = GType . Object <$> jsg "WebSocket"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WheelEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.MouseEvent"---     * "Language.Javascript.JSaddle.DOM.UIEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/WheelEvent Mozilla WheelEvent documentation>-newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal }--instance PToJSVal WheelEvent where-  pToJSVal = unWheelEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal WheelEvent where-  pFromJSVal = WheelEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal WheelEvent where-  toJSVal = return . unWheelEvent-  {-# INLINE toJSVal #-}--instance FromJSVal WheelEvent where-  fromJSVal v = fmap WheelEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WheelEvent where-  makeObject = makeObject . unWheelEvent--instance IsMouseEvent WheelEvent-instance IsUIEvent WheelEvent-instance IsEvent WheelEvent-instance IsGObject WheelEvent where-  toGObject = GObject . unWheelEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = WheelEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWheelEvent :: IsGObject obj => obj -> JSM WheelEvent-castToWheelEvent = castTo gTypeWheelEvent "WheelEvent"--gTypeWheelEvent :: JSM GType-gTypeWheelEvent = GType . Object <$> jsg "WheelEvent"-#else-#ifndef USE_OLD_WEBKIT-type IsWheelEvent o = WheelEventClass o-#endif-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Window".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Window Mozilla Window documentation>-newtype Window = Window { unWindow :: JSVal }--instance PToJSVal Window where-  pToJSVal = unWindow-  {-# INLINE pToJSVal #-}--instance PFromJSVal Window where-  pFromJSVal = Window-  {-# INLINE pFromJSVal #-}--instance ToJSVal Window where-  toJSVal = return . unWindow-  {-# INLINE toJSVal #-}--instance FromJSVal Window where-  fromJSVal v = fmap Window <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Window where-  makeObject = makeObject . unWindow--instance IsEventTarget Window-instance IsGObject Window where-  toGObject = GObject . unWindow-  {-# INLINE toGObject #-}-  unsafeCastGObject = Window . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWindow :: IsGObject obj => obj -> JSM Window-castToWindow = castTo gTypeWindow "Window"--gTypeWindow :: JSM GType-gTypeWindow = GType . Object <$> jsg "Window"-#else-type IsWindow o = WindowClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WindowBase64".------ <https://developer.mozilla.org/en-US/docs/Web/API/WindowBase64 Mozilla WindowBase64 documentation>-newtype WindowBase64 = WindowBase64 { unWindowBase64 :: JSVal }--instance PToJSVal WindowBase64 where-  pToJSVal = unWindowBase64-  {-# INLINE pToJSVal #-}--instance PFromJSVal WindowBase64 where-  pFromJSVal = WindowBase64-  {-# INLINE pFromJSVal #-}--instance ToJSVal WindowBase64 where-  toJSVal = return . unWindowBase64-  {-# INLINE toJSVal #-}--instance FromJSVal WindowBase64 where-  fromJSVal v = fmap WindowBase64 <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WindowBase64 where-  makeObject = makeObject . unWindowBase64--instance IsGObject WindowBase64 where-  toGObject = GObject . unWindowBase64-  {-# INLINE toGObject #-}-  unsafeCastGObject = WindowBase64 . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWindowBase64 :: IsGObject obj => obj -> JSM WindowBase64-castToWindowBase64 = castTo gTypeWindowBase64 "WindowBase64"--gTypeWindowBase64 :: JSM GType-gTypeWindowBase64 = GType . Object <$> jsg "WindowBase64"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WindowTimers".------ <https://developer.mozilla.org/en-US/docs/Web/API/WindowTimers Mozilla WindowTimers documentation>-newtype WindowTimers = WindowTimers { unWindowTimers :: JSVal }--instance PToJSVal WindowTimers where-  pToJSVal = unWindowTimers-  {-# INLINE pToJSVal #-}--instance PFromJSVal WindowTimers where-  pFromJSVal = WindowTimers-  {-# INLINE pFromJSVal #-}--instance ToJSVal WindowTimers where-  toJSVal = return . unWindowTimers-  {-# INLINE toJSVal #-}--instance FromJSVal WindowTimers where-  fromJSVal v = fmap WindowTimers <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WindowTimers where-  makeObject = makeObject . unWindowTimers--instance IsGObject WindowTimers where-  toGObject = GObject . unWindowTimers-  {-# INLINE toGObject #-}-  unsafeCastGObject = WindowTimers . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWindowTimers :: IsGObject obj => obj -> JSM WindowTimers-castToWindowTimers = castTo gTypeWindowTimers "WindowTimers"--gTypeWindowTimers :: JSM GType-gTypeWindowTimers = GType . Object <$> jsg "WindowTimers"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.Worker".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/Worker Mozilla Worker documentation>-newtype Worker = Worker { unWorker :: JSVal }--instance PToJSVal Worker where-  pToJSVal = unWorker-  {-# INLINE pToJSVal #-}--instance PFromJSVal Worker where-  pFromJSVal = Worker-  {-# INLINE pFromJSVal #-}--instance ToJSVal Worker where-  toJSVal = return . unWorker-  {-# INLINE toJSVal #-}--instance FromJSVal Worker where-  fromJSVal v = fmap Worker <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject Worker where-  makeObject = makeObject . unWorker--instance IsEventTarget Worker-instance IsGObject Worker where-  toGObject = GObject . unWorker-  {-# INLINE toGObject #-}-  unsafeCastGObject = Worker . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWorker :: IsGObject obj => obj -> JSM Worker-castToWorker = castTo gTypeWorker "Worker"--gTypeWorker :: JSM GType-gTypeWorker = GType . Object <$> jsg "Worker"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WorkerGlobalScope".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/WorkerGlobalScope Mozilla WorkerGlobalScope documentation>-newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal }--instance PToJSVal WorkerGlobalScope where-  pToJSVal = unWorkerGlobalScope-  {-# INLINE pToJSVal #-}--instance PFromJSVal WorkerGlobalScope where-  pFromJSVal = WorkerGlobalScope-  {-# INLINE pFromJSVal #-}--instance ToJSVal WorkerGlobalScope where-  toJSVal = return . unWorkerGlobalScope-  {-# INLINE toJSVal #-}--instance FromJSVal WorkerGlobalScope where-  fromJSVal v = fmap WorkerGlobalScope <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WorkerGlobalScope where-  makeObject = makeObject . unWorkerGlobalScope--class IsEventTarget o => IsWorkerGlobalScope o-toWorkerGlobalScope :: IsWorkerGlobalScope o => o -> WorkerGlobalScope-toWorkerGlobalScope = unsafeCastGObject . toGObject--instance IsWorkerGlobalScope WorkerGlobalScope-instance IsEventTarget WorkerGlobalScope-instance IsGObject WorkerGlobalScope where-  toGObject = GObject . unWorkerGlobalScope-  {-# INLINE toGObject #-}-  unsafeCastGObject = WorkerGlobalScope . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWorkerGlobalScope :: IsGObject obj => obj -> JSM WorkerGlobalScope-castToWorkerGlobalScope = castTo gTypeWorkerGlobalScope "WorkerGlobalScope"--gTypeWorkerGlobalScope :: JSM GType-gTypeWorkerGlobalScope = GType . Object <$> jsg "WorkerGlobalScope"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WorkerLocation".------ <https://developer.mozilla.org/en-US/docs/Web/API/WorkerLocation Mozilla WorkerLocation documentation>-newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal }--instance PToJSVal WorkerLocation where-  pToJSVal = unWorkerLocation-  {-# INLINE pToJSVal #-}--instance PFromJSVal WorkerLocation where-  pFromJSVal = WorkerLocation-  {-# INLINE pFromJSVal #-}--instance ToJSVal WorkerLocation where-  toJSVal = return . unWorkerLocation-  {-# INLINE toJSVal #-}--instance FromJSVal WorkerLocation where-  fromJSVal v = fmap WorkerLocation <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WorkerLocation where-  makeObject = makeObject . unWorkerLocation--instance IsGObject WorkerLocation where-  toGObject = GObject . unWorkerLocation-  {-# INLINE toGObject #-}-  unsafeCastGObject = WorkerLocation . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWorkerLocation :: IsGObject obj => obj -> JSM WorkerLocation-castToWorkerLocation = castTo gTypeWorkerLocation "WorkerLocation"--gTypeWorkerLocation :: JSM GType-gTypeWorkerLocation = GType . Object <$> jsg "WorkerLocation"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.WorkerNavigator".------ <https://developer.mozilla.org/en-US/docs/Web/API/WorkerNavigator Mozilla WorkerNavigator documentation>-newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal }--instance PToJSVal WorkerNavigator where-  pToJSVal = unWorkerNavigator-  {-# INLINE pToJSVal #-}--instance PFromJSVal WorkerNavigator where-  pFromJSVal = WorkerNavigator-  {-# INLINE pFromJSVal #-}--instance ToJSVal WorkerNavigator where-  toJSVal = return . unWorkerNavigator-  {-# INLINE toJSVal #-}--instance FromJSVal WorkerNavigator where-  fromJSVal v = fmap WorkerNavigator <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject WorkerNavigator where-  makeObject = makeObject . unWorkerNavigator--instance IsGObject WorkerNavigator where-  toGObject = GObject . unWorkerNavigator-  {-# INLINE toGObject #-}-  unsafeCastGObject = WorkerNavigator . unGObject-  {-# INLINE unsafeCastGObject #-}--castToWorkerNavigator :: IsGObject obj => obj -> JSM WorkerNavigator-castToWorkerNavigator = castTo gTypeWorkerNavigator "WorkerNavigator"--gTypeWorkerNavigator :: JSM GType-gTypeWorkerNavigator = GType . Object <$> jsg "WorkerNavigator"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLHttpRequest".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest Mozilla XMLHttpRequest documentation>-newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal }--instance PToJSVal XMLHttpRequest where-  pToJSVal = unXMLHttpRequest-  {-# INLINE pToJSVal #-}--instance PFromJSVal XMLHttpRequest where-  pFromJSVal = XMLHttpRequest-  {-# INLINE pFromJSVal #-}--instance ToJSVal XMLHttpRequest where-  toJSVal = return . unXMLHttpRequest-  {-# INLINE toJSVal #-}--instance FromJSVal XMLHttpRequest where-  fromJSVal v = fmap XMLHttpRequest <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XMLHttpRequest where-  makeObject = makeObject . unXMLHttpRequest--instance IsEventTarget XMLHttpRequest-instance IsGObject XMLHttpRequest where-  toGObject = GObject . unXMLHttpRequest-  {-# INLINE toGObject #-}-  unsafeCastGObject = XMLHttpRequest . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXMLHttpRequest :: IsGObject obj => obj -> JSM XMLHttpRequest-castToXMLHttpRequest = castTo gTypeXMLHttpRequest "XMLHttpRequest"--gTypeXMLHttpRequest :: JSM GType-gTypeXMLHttpRequest = GType . Object <$> jsg "XMLHttpRequest"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLHttpRequestProgressEvent".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.ProgressEvent"---     * "Language.Javascript.JSaddle.DOM.Event"------ <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestProgressEvent Mozilla XMLHttpRequestProgressEvent documentation>-newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal }--instance PToJSVal XMLHttpRequestProgressEvent where-  pToJSVal = unXMLHttpRequestProgressEvent-  {-# INLINE pToJSVal #-}--instance PFromJSVal XMLHttpRequestProgressEvent where-  pFromJSVal = XMLHttpRequestProgressEvent-  {-# INLINE pFromJSVal #-}--instance ToJSVal XMLHttpRequestProgressEvent where-  toJSVal = return . unXMLHttpRequestProgressEvent-  {-# INLINE toJSVal #-}--instance FromJSVal XMLHttpRequestProgressEvent where-  fromJSVal v = fmap XMLHttpRequestProgressEvent <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XMLHttpRequestProgressEvent where-  makeObject = makeObject . unXMLHttpRequestProgressEvent--instance IsProgressEvent XMLHttpRequestProgressEvent-instance IsEvent XMLHttpRequestProgressEvent-instance IsGObject XMLHttpRequestProgressEvent where-  toGObject = GObject . unXMLHttpRequestProgressEvent-  {-# INLINE toGObject #-}-  unsafeCastGObject = XMLHttpRequestProgressEvent . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXMLHttpRequestProgressEvent :: IsGObject obj => obj -> JSM XMLHttpRequestProgressEvent-castToXMLHttpRequestProgressEvent = castTo gTypeXMLHttpRequestProgressEvent "XMLHttpRequestProgressEvent"--gTypeXMLHttpRequestProgressEvent :: JSM GType-gTypeXMLHttpRequestProgressEvent = GType . Object <$> jsg "XMLHttpRequestProgressEvent"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLHttpRequestUpload".--- Base interface functions are in:------     * "Language.Javascript.JSaddle.DOM.EventTarget"------ <https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequestUpload Mozilla XMLHttpRequestUpload documentation>-newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal }--instance PToJSVal XMLHttpRequestUpload where-  pToJSVal = unXMLHttpRequestUpload-  {-# INLINE pToJSVal #-}--instance PFromJSVal XMLHttpRequestUpload where-  pFromJSVal = XMLHttpRequestUpload-  {-# INLINE pFromJSVal #-}--instance ToJSVal XMLHttpRequestUpload where-  toJSVal = return . unXMLHttpRequestUpload-  {-# INLINE toJSVal #-}--instance FromJSVal XMLHttpRequestUpload where-  fromJSVal v = fmap XMLHttpRequestUpload <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XMLHttpRequestUpload where-  makeObject = makeObject . unXMLHttpRequestUpload--instance IsEventTarget XMLHttpRequestUpload-instance IsGObject XMLHttpRequestUpload where-  toGObject = GObject . unXMLHttpRequestUpload-  {-# INLINE toGObject #-}-  unsafeCastGObject = XMLHttpRequestUpload . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXMLHttpRequestUpload :: IsGObject obj => obj -> JSM XMLHttpRequestUpload-castToXMLHttpRequestUpload = castTo gTypeXMLHttpRequestUpload "XMLHttpRequestUpload"--gTypeXMLHttpRequestUpload :: JSM GType-gTypeXMLHttpRequestUpload = GType . Object <$> jsg "XMLHttpRequestUpload"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XMLSerializer".------ <https://developer.mozilla.org/en-US/docs/Web/API/XMLSerializer Mozilla XMLSerializer documentation>-newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal }--instance PToJSVal XMLSerializer where-  pToJSVal = unXMLSerializer-  {-# INLINE pToJSVal #-}--instance PFromJSVal XMLSerializer where-  pFromJSVal = XMLSerializer-  {-# INLINE pFromJSVal #-}--instance ToJSVal XMLSerializer where-  toJSVal = return . unXMLSerializer-  {-# INLINE toJSVal #-}--instance FromJSVal XMLSerializer where-  fromJSVal v = fmap XMLSerializer <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XMLSerializer where-  makeObject = makeObject . unXMLSerializer--instance IsGObject XMLSerializer where-  toGObject = GObject . unXMLSerializer-  {-# INLINE toGObject #-}-  unsafeCastGObject = XMLSerializer . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXMLSerializer :: IsGObject obj => obj -> JSM XMLSerializer-castToXMLSerializer = castTo gTypeXMLSerializer "XMLSerializer"--gTypeXMLSerializer :: JSM GType-gTypeXMLSerializer = GType . Object <$> jsg "XMLSerializer"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathEvaluator".------ <https://developer.mozilla.org/en-US/docs/Web/API/XPathEvaluator Mozilla XPathEvaluator documentation>-newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal }--instance PToJSVal XPathEvaluator where-  pToJSVal = unXPathEvaluator-  {-# INLINE pToJSVal #-}--instance PFromJSVal XPathEvaluator where-  pFromJSVal = XPathEvaluator-  {-# INLINE pFromJSVal #-}--instance ToJSVal XPathEvaluator where-  toJSVal = return . unXPathEvaluator-  {-# INLINE toJSVal #-}--instance FromJSVal XPathEvaluator where-  fromJSVal v = fmap XPathEvaluator <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XPathEvaluator where-  makeObject = makeObject . unXPathEvaluator--instance IsGObject XPathEvaluator where-  toGObject = GObject . unXPathEvaluator-  {-# INLINE toGObject #-}-  unsafeCastGObject = XPathEvaluator . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXPathEvaluator :: IsGObject obj => obj -> JSM XPathEvaluator-castToXPathEvaluator = castTo gTypeXPathEvaluator "XPathEvaluator"--gTypeXPathEvaluator :: JSM GType-gTypeXPathEvaluator = GType . Object <$> jsg "XPathEvaluator"-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathExpression".------ <https://developer.mozilla.org/en-US/docs/Web/API/XPathExpression Mozilla XPathExpression documentation>-newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal }--instance PToJSVal XPathExpression where-  pToJSVal = unXPathExpression-  {-# INLINE pToJSVal #-}--instance PFromJSVal XPathExpression where-  pFromJSVal = XPathExpression-  {-# INLINE pFromJSVal #-}--instance ToJSVal XPathExpression where-  toJSVal = return . unXPathExpression-  {-# INLINE toJSVal #-}--instance FromJSVal XPathExpression where-  fromJSVal v = fmap XPathExpression <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XPathExpression where-  makeObject = makeObject . unXPathExpression--instance IsGObject XPathExpression where-  toGObject = GObject . unXPathExpression-  {-# INLINE toGObject #-}-  unsafeCastGObject = XPathExpression . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXPathExpression :: IsGObject obj => obj -> JSM XPathExpression-castToXPathExpression = castTo gTypeXPathExpression "XPathExpression"--gTypeXPathExpression :: JSM GType-gTypeXPathExpression = GType . Object <$> jsg "XPathExpression"-#else-type IsXPathExpression o = XPathExpressionClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathNSResolver".------ <https://developer.mozilla.org/en-US/docs/Web/API/XPathNSResolver Mozilla XPathNSResolver documentation>-newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal }--instance PToJSVal XPathNSResolver where-  pToJSVal = unXPathNSResolver-  {-# INLINE pToJSVal #-}--instance PFromJSVal XPathNSResolver where-  pFromJSVal = XPathNSResolver-  {-# INLINE pFromJSVal #-}--instance ToJSVal XPathNSResolver where-  toJSVal = return . unXPathNSResolver-  {-# INLINE toJSVal #-}--instance FromJSVal XPathNSResolver where-  fromJSVal v = fmap XPathNSResolver <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XPathNSResolver where-  makeObject = makeObject . unXPathNSResolver--instance IsGObject XPathNSResolver where-  toGObject = GObject . unXPathNSResolver-  {-# INLINE toGObject #-}-  unsafeCastGObject = XPathNSResolver . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXPathNSResolver :: IsGObject obj => obj -> JSM XPathNSResolver-castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver"--gTypeXPathNSResolver :: JSM GType-gTypeXPathNSResolver = GType . Object <$> jsg "XPathNSResolver"-#else-type IsXPathNSResolver o = XPathNSResolverClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XPathResult".------ <https://developer.mozilla.org/en-US/docs/Web/API/XPathResult Mozilla XPathResult documentation>-newtype XPathResult = XPathResult { unXPathResult :: JSVal }--instance PToJSVal XPathResult where-  pToJSVal = unXPathResult-  {-# INLINE pToJSVal #-}--instance PFromJSVal XPathResult where-  pFromJSVal = XPathResult-  {-# INLINE pFromJSVal #-}--instance ToJSVal XPathResult where-  toJSVal = return . unXPathResult-  {-# INLINE toJSVal #-}--instance FromJSVal XPathResult where-  fromJSVal v = fmap XPathResult <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XPathResult where-  makeObject = makeObject . unXPathResult--instance IsGObject XPathResult where-  toGObject = GObject . unXPathResult-  {-# INLINE toGObject #-}-  unsafeCastGObject = XPathResult . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXPathResult :: IsGObject obj => obj -> JSM XPathResult-castToXPathResult = castTo gTypeXPathResult "XPathResult"--gTypeXPathResult :: JSM GType-gTypeXPathResult = GType . Object <$> jsg "XPathResult"-#else-type IsXPathResult o = XPathResultClass o-#endif---#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)--- | Functions for this inteface are in "Language.Javascript.JSaddle.DOM.XSLTProcessor".------ <https://developer.mozilla.org/en-US/docs/Web/API/XSLTProcessor Mozilla XSLTProcessor documentation>-newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal }--instance PToJSVal XSLTProcessor where-  pToJSVal = unXSLTProcessor-  {-# INLINE pToJSVal #-}--instance PFromJSVal XSLTProcessor where-  pFromJSVal = XSLTProcessor-  {-# INLINE pFromJSVal #-}--instance ToJSVal XSLTProcessor where-  toJSVal = return . unXSLTProcessor-  {-# INLINE toJSVal #-}--instance FromJSVal XSLTProcessor where-  fromJSVal v = fmap XSLTProcessor <$> maybeNullOrUndefined v-  {-# INLINE fromJSVal #-}--instance MakeObject XSLTProcessor where-  makeObject = makeObject . unXSLTProcessor--instance IsGObject XSLTProcessor where-  toGObject = GObject . unXSLTProcessor-  {-# INLINE toGObject #-}-  unsafeCastGObject = XSLTProcessor . unGObject-  {-# INLINE unsafeCastGObject #-}--castToXSLTProcessor :: IsGObject obj => obj -> JSM XSLTProcessor-castToXSLTProcessor = castTo gTypeXSLTProcessor "XSLTProcessor"--gTypeXSLTProcessor :: JSM GType-gTypeXSLTProcessor = GType . Object <$> jsg "XSLTProcessor"-#endif--